L7L INTER-BASE 1.00a (C)1987 Computer ConceptsX ) lVX /+-/1>3+(#  4 LLb (L/ C  Π /3WB0{G,@0F?8A@ th1hhe ΐ ?8A@  L [W 񠆆 |78569 4H h3L V3ȹÁ4 Ɍ@ ޽L @1,=;<3  A` ß A`ENTRYERRORFATALRESTARTi i n ~H f l0ߥ7H96H8 hh6e47e53H h3 Ch` a 898劅>勅?L`> ??`[ ô40ȩ `   0 (b ~3H2 h3'Memory corrupt } L/lVX ~3H  h3  ßA /`%'c%q%2%ʟm}˰PL:BEaFw} Wm"(,ͺE_ۇe+OTͮ MWH@4+L[^q!(6!"""7"!7$(%hc]f]]Ԅ%Wڭ 4D &? *m5XS\$Z|QQޣZz|WW[Hd=IjH9[L꛽aЍ  9999 67 :::9- 7. . 966 $B0p 5 4``p``H 7hB` ` ȑɀ* ` `S 0 w HH hH4eDD5eEE450DED D45` oH I0H ( M,h` oH ;hHH /,h` R# ΐ@ ΐLː *H+H+* hh+h*`L,*0 ,+pl ǟ8 K 2n*N*.*8n* m,+P @,;~'ɍ ; ч.*N* ( ^ /L  L ΐ 4 4 i ΐ ʬ I O ΐ ; ΐ( ,  ΐ,+0, L N*8n*Lh O ΐ ,+0"  ,+0, Г  ѩLO aFH)HhJJJJHHH ii04` 7TUCBHH 0 UHTH hThU' 2hhL_  'ЭL L $4,*P X0 O,*0 84 K41 4`56 4$074 6 4` 󵠂L/bq3HH HIHȩHȥH ƍƌhh`HH𡺽hh` V:`E tCɿHBH Vhh` ӈLy tCɿHBH ôhh4 ` H  Ah ӈB`L !$%.$*:=DLX0G? La8ȥ8,)$0< >  L󰭽 HHL HHLLiLLH h 9L V /   VB l VH S hL V+,H M ǟ8B 2B ` `  BH VhBHCHH Sh hh BCLBl VH SH SH ShhCeBʩ hB eBCL '67DE45BChHL7 rH ;  a H A H AhBl V J`dlB w ; @#` AFBl  4 44ʝ \L  m V,; (L| L ޽Ɍ MCDE i ` #L VCDE  i  ɏ ɅL [ ɌɅ #L؋HH VhBHhL\HH VhBHCHC6 [ Ɍe`8HH Ω0p  w(   Ь 8f ղ FE DCBA@ 8 ղ c  i , /  i 8 #LiLK    8  c / #L8i hheL~'|& ;  FHGH ˴ U HH Ɏ "BhH Ɍ2ɎɃɊ [LhH9  hh h`L%  ɎɊɂɃ  ɌɃ [L  ɂɃ`H 8 %A/%?4 hH,h`@AhɆL L VɆɇHBHCH hChBCBBCƥ,Ɂиh:`о r U R ΐ@H?H8HH1H K?8A @ Ɍɉ  L [L  ֎L thhhh?h@ i LhHhI h Ƚʆ IHHH`hHhI ȱ ȱ IHHH`e `|,:`  V$CDE Ɉ A Ɂ:`CDE, Ɉ AɄɁ Ɉ ޽ɄL [Ɂ ɄɁ Ɉ ɄɁɈ Aɀ ُ ُ` ,0Ɉ ُ` А8 H H  he he! u(LƐ ;L& L ô  ` 8W"BHHjH,1p1 Lz ^>  V H Ω0ҐP ² }0hM * }h $ | L[ V H ;h ?hH "   А Ќ /  % /,hJhhH K$J0 f 0= Ɍ ޽L 8  ˴ th< i8HHH Zhʊ hhe81`B Ω0P ² }0ȱ ` * } ` % LS HH H h0$ 0 hh`< >l !0  0 J ˝`  ,) $0 ~`4ׁʝ  i ,` R$` H 8ehe,ʆLu$4 . +H?H ΐ  ΐ ! ΐ ΐ  +H?H ƒ h?h@I@Lː eh VHC 7  U4 ݥHH fhh( 촥4H ƒh4hB H hХ`gɰ =;<Lb^,) ~ R @( 촭@@`LLLLLUDA  7( 촥5H4H, ,4/ Mh-h. -232 2`K302 f w-ȱ.`$302)ߑ28f3` + ,` +),`=   VCL7  B V^cH MH hBhCˢ@ L  ҩ @ ĩB BC4567( CFGBBHl E  ˱ʕB@A67JK4e6N5e7O@l 4 `p, M fȱ) HS L0 S ( K0P qȱqe _0` M fȱ)  C)BC %ȑ8  /`  l FFL"H lh LfH m!$-010H0H,e, L=HHH i,( nhh MHBH, M)  f1 l07H96H8 h8h9hPhQhHL/S Ω0  * m L ݖ lL i n ˴ U SHH H~H, M, M ShChDhFFhB ر4B@AE /LQ  A cB` )B1B`  B ȱJ(*` jB*C m, V m , V m , V m m V`: ɉʩ LɉI )L Hà |hL ز  i @.F EDC BEB)*]j` زhBhChDhE 嘐`8`  D8EHDHCHBH (  6EIE8hBBhCChDDhIEDCB` ' E ' ; , H44II ȱH4H (`67HI45JK ˱ 6745KJJKLL06H67HIh`  !` a FYF L> a FF  a F9F L  ݜ+ - ?L ^BIBL ^ BCDhEL IB` L$ CL" DEL L" L BL( oH, MH hBC4hHDE 7L H !( oH H, h4H hB ^ 7LL/ ȴ )L Π4K 4ȪLL l VH hB4BKB4B4`+0L*q,Hȥ+q,eIH L ^45 `$-0$10 L/ ۩ܦ./0 f>ʆ4ȱl HHBC G ȱ /hh 4D84DBBBB4`hh45LФDEe66e7784D5EBCXR ȱBC45H` ELS ȱ4 8B稥B4B`B5CȪe66e77BC45`4) HH hChB4,H ȱL/ ȴ4ǩ 4`4г444` ȴ ȴ߅H4 a {%H`H hH45456 a{%H675` ȴ4H a{$H0H)ߝ`` ^4 ʝL~ 靥  OL XL u /4 ` ( ȴ4  /Lq ˴ L4 8  aH SH SDEhChB  C BBСBJJB LhLhKhJ8JBHIJKC DLEM eHHIJ ۦHI JD`hMEЪhLDЦhKCТhJBОLBHCHDHEH ڜ( I aChIH8BCHI(hEhDhCh0eHHI JIH 8HJHIHB LB 8BeHHI JI8H Ө8HJHIC D)`h`CCI CDE`C CDED`8 l ;  (BHHHCHHHEHDH BC BC V (h eBDheCBDhC8EhHhIhCHHI0  ӨhHhILINO(0P ² }0 fȱh @HHH MC0BhBhC0BCB&C , Lҩ ([(`P(0P ² }0 fȱh H / c8De6Ee767 LҩLpLŐ ΐT 4$4 4  LȐL L/L& ΩL} ; Ѭ =ж  ѩ+=Р + ( O ;(LTiTUeeTȱeUe`R 7 !eTUުȱ֨HHeTTHeUUH 01  0 L& | hUhThh¢ O _Le 0 TL& ' c i eDeEBL- aEDCB`0 K  wȱ7heLΪ ` C BȥD*ȥE*` ABC DEFFȥBȥCȥDȥE @` 'eDeEBȱC84B>5C0E?>  4ŹD`4568e4:79e5;8D6>E7?L/H>H Eh>h?DeB8EeC9 /e>ȱe?`  48` %@$ ( L 4L 4 ) uL_` 0 0Q ʬ .)p(` ʬK`0e) eȱ4ЪȠݕ LԲ m  뭠ƄT0#  2  'ȱߤTХ, ǟ3L$0eH fh1  ȱ_ `8` `ȱȱ (ȩ)l m 뭩+*ƄT0K 8 2 'TH H 7    ʮ Mh hTȱTШ, LR` ч " ȱ . " 8` m ƄT0" TH 7 . MhTȱTѥ,м L Ω n (` * 7(`P BȥC (` `JEjDjJJJJC)B` Ω0tP ² }0 fȱ &<ЧBȱCȱDȱE`@AF ۯDCBF8fE&@`e6e74ȱ5 `L/ T c H,` Ω0P ²HH0$ M0i8HH M fhȱ0eh0808ȱ /` a L 5H4H87H6H U / a   w5H4H87H6H hDheEhBhC cL/  w( H ( 6e467e57 !ʆ 4 44`8  6ȥ745Le  ee `  ! 4 8e `  i q6Ƚqe745` + ) * ȵ08`ȱ0eЊ ȱ0e` }Lfȱ0e` u l Ω 70נi` M081ж{eBȱeCe` 8  EDCBA@F` a8  BCDE` i NHIJKLM`| ΐ8  08  08  L8 ą ,,0 #8ȥ8``A` i  0e  0e L# i ,0!qȽqe``8A` # MH` ô L # [H`  _ 7H`L L  E Lô wLô ; 靥 \5ˤ46 ` Ω <` 靥 2` 靥 (`SL l ; 靥 S 来 ` wLV,y LV ; 靥 _Ʃ F L࠰!FEfDfCfBiCBDCEDE E0@8BBCCDDEEBC` 3ݥE@I@` 靥 E0` F@`S I A@$E@ FL/ BF"( oHB GHB GF hBhH 7L 7L  ВC@ɶܢ֢ۢ%8dLL7L݊H hIL7 L_8 r(jI H< ݕ) 7 ,` ;H {h(HHHHeHHH hh BȥChhh( 7hh1ВL DEeLf {  ۯLe?  7L  { {ȱ Le2L 7DE)Lɺɥ { L/!$ L tuBCC( 0 w ӯ ~ !BCHH|}TU 7$ 030 0 ٸ | ܸ 0 } hhL_A`S MHH I0hhKhJH 7( K0 w  B4HC5H hChBL7i6i7L MHH B0 67DEhKhJе rL/ɝ9 7L 7L ~4L La H 4BKLhHL7 A A$C8BBC C m  VL7;8 (jB MHH I0hhChBH 7( K0 w 4H5H 8hChBL7 MHH 67DE>H h/Oɸg U SHDHEHC GDIhHhGhFeFFGHE رL CHDHEH /L Ј 뺠 U  Gɉ, Q0* M` G` C0]Z( ô4@J hHh 7IL@HHм !0(y)w( hHh 7IH O ehLKLȆL !Hy h4H O ehLU(BtCuHTU4J( Tȱ0*U 0* wȱ)Q)У /4i8HHо(%TU0 0 w /4`)! 7 (L L wC8B( K0 w ӯ !BCHH 7𩮐wHTUH0H) 0 wȱ S |h /Hi8аhhL % А:(I3 [=>T V,31 8)(4 @[ ` Ly /$ $ VAZܪLSLɁͪD [$0:I , ` ` e$( V0A)Z̪ DɑɐɒɋдL y0 "в "|  ` : Ɂ` [ ` 0:A[ _ `{8``~ -  o½V %  xXx (X`LL7,,,0L ,,,`,`` l`, S,,` ,,,l `W V,$0ڥ VAV` VAZ` r  ` `LH `LLiLLLTINTER-BASE 1.00A (C)1987 Computer ConceptsIBASEU8ȹ8G[XHH h:$6p4ꢯMȱ8eȱ0h(L7 XHH , L`ɮɯ XHH hh(`XHH hh(`Turn off 2nd processorBad ROM-LINK identifierXHH. )<У0H Lhȱ ȱ:F/1ȱ:7/"i  ȱ:$0Lȱ ,ȱ  l  L 3lVX  e 32:ȌlȄʆ Ɗ=^;<Ԃ$ ʎ $832'2mll ق ق ق ق 0 ق $L3Ȍ)l Au`20($0 200  0``0:A[ _ `{8`~ ڢ $0& qHȥqIH0ILg1)>`P ~* z ߢ L "#0 0`hh$H ؄h!L΄H ؄h¹ʆ8 8!.  ʆ    ̤ȹ8 8! L΄ ` y`   ڄ   "#`l ) 揠8HƏs!hm!!`3HpUюPюK3H揠$揠-l AlVXh3Dhȑ`3HpDю>ю9揠$揠-lUЙl  n  ޅ ޅe L n!!0 ΄ 8`pAre you sure ? (Y/N) n )Y l IBASE ISHEETIWORDCANCELKILL -0%.)ݓ轓轓HH`) `\ 퇄 + ׭3H3H 5h ʆ45678)U) ȱ 9 h4H u D78569 h38`ȹ ,: :/0i W PIBEDCBA@F`H  i @`%N$j$&%JM')M'jjjjM$$'&(('ʩF @#@ B `D - 8OH` OeH`+ :/ԅH :/څI H eH eIH` ]OU0F.L:/A :H//IA eA eIA :0/E$UOH ߊh pLC$U0U0$U0OLCE LjOUO7 BEO0  ` ܉L L ܥD)EDECDBCABŠ ȩeFF0MEMM8&ED*MM8&DC*MM8&CB*MM8&BA*MM8&A E0A&B&C&D&EF0F`eAABCDEfEfDfCfBfAF0`FiF0EDHCHBHAFEfDfCfBjFEfDfCfBjeAAheBBheCCheDDeEE`DHCHBHA &B&C&D&E &B&C&D&EeAAheBBheCCheDDeEA&B&C&D*E`EADBA0E0XD&E@F`FE018D=CbBŦAEA 0E0E0E0A&B&C&D&EF`ECDBCABA0E0B&C&D&EEBDACBA0E0C&D&EAIBJCKDLEM@HFN`  ܋L BP @EMJNeF逅F0HE@@AOBPCQDRES ܌TJTE?@FABCDE`jfDfCfBfAVTEAeIABeJBCeKCDeLDEeM̐jfDfCfBfAF0E%A p00 E@I@`H@NFIAJBKCLDME` @E8FNL'I8NF'FAH)88h)Jvvvv@EH!EMMDLGCKABJ;AI5L]IeAAJeBBKeCCLeDDMeEEfEfDfCfBfAF `IA H@AI8ABCDE BLBCDEYNOPIBT&N&O&P*EPD OCNBNBNOCOPDPE6ITǠ`FL] v  sW @  Ԍ kEWXB @EѠ8NF8iF0HE@@MTELDKC JBIAIAIJBJKCKLDLE86OI&J&K&L*TжSERDQCPBOALO*AP*BQ*CR*DS*EF0FL D PW L Ɉ E0 DU- ʊIH < lh- 8*TT ( 𩁅FE ABCD@`F0U` ؏A@IF ܌$ ɌȈ8AABBCCDDEEULBF0 ܋L] ѐFAIBJCKDLEMABCDE`-JBKCLDMEBCDE JfMfLfKfJfIA`+KBLCMDAECDE JfAfMfLfKfJB`)LBMCADBEDE JfBfAfMfLfKC`ࡰ3MBACBDCEE JfCfBfAfMfLࠐD`FEfDfCfBjfMਐA NHIJKLM` ΏMLKJIAB CDEEȥD08ABBCCDDE`ߵOM*H8fM` ѐMN`sOH`B H PT GL vULs vU) LɌUJ" <  # T  T`  L N G Ԍ gFɈ@IL] N bE0 q  # l U0eFF`eFF`  # l #LIGHE@FJi@HF  < C C ChF`F  gIL@ O04O0)H  PQ$E0h<0LܔFE6 Oɠ ܉OȐ OILhL锥Q .  LQ . O0 PȩOO . ܔ h40.Ȅ4O.E ܔO - ܔ8O8 i: 0 ܔ44` qO8OeQ0  Ls .P ]OQPO . ܔ0 h4.4`P) ] G FE JfDfCfBfAEɠ` $*06? 7$0  $&0 ! !$303h`89H:e>;e? :8;9Ѣ6 2   !  !08ȱHe>ȱe?iǥ?0F>A8:8;98:;:e><;e?=j :<:<:<;=`88:9;:898e><9e?=j8<ȱ8<9=`809e>e?` R4i ⤥4ȹ8ȩ ȮKKȽ8` r ⤩ʠ 8LjC)BBiC &CBeCe ȊHBFCj0 Ch HH R8 zhhȱ0e` 8ȱ0`eȱ J? i8e8e9I>I? 矠  ȥ 08 ȩ`UHTHJHIHIJT U*iHiHTIiIJIeJe0HHe GhheTдUhhhIhJhThULKeK eqL6&)0 HH ]hhi谾`H HHȱH0e ̤0eeȱ0ehh i Фh h`HHi8e ̤iBChh`0e0ߠ8i`0ɠi8`ee 8 ? A:;B 8:>;?­38 9e?  0Ae?A Lz }Bȱ} Cȱ} Dȱ} 8B BC CDDDCB ] ]0`8`69=?<=89 矠DEe>ȱe? PQBC`U>?89:;eU z$0 eU&0 ! !eU!c00eU &(-/34KȱLKIIeJJKKL0 ȱI`I`JJIeJJ4I`4IILĦ@AFȱBȱCȱDȱEDCBF8fE&@EBBECCEDDEEE4E@IJFIjIfEAI`BBHH $hhB(` D^sS@ HA H` HABC DEFEF@fEG H` HC B HD* HE*LH H4 H4Խ H`5 H4 H6e467e574506766 H45`BC`, jLj1H, #H hCHHDHEH GhEhDhChFhH 8:mL$IH H舑`HHeHH 5 H4 jhhh`JJH)ˆH0ک`BCDEI H*J`@&@ *@IAH@EBBECCEDDEEEBȥCȥDȥE @`UBCDEȄ i0eҩĈeiHȱiheBBeCCHHHiH jCu BtܺBmBCmCB jhйZhB ⤈ChJJeCC@hhKLȢ`HHHiH jݘaH jh hhB ⤩ԲH; H #hB 4h)4,`HLM 0KLMhH 0KKh`LMhLjȆ 76ʆ 45` 8 3Lѫ * ` 3 j  3  F 3 j Ɇɇ.*:ɋɁ N% F 3 &N :"8.A OINDEX?INFO/REC LEN@ON AONBCFOR DSyntax errorEIndirection FDivision by zeroGLOG HNegative rootIEXP JAccuracy lostKOut of dataLM typeNArrayOSubscriptPQLockedRArray sizeSTTMistakeURecord formatVENDWlocalXTAN overflowYACS/ASN ZKey[Command\Package/command]Key aly sorted^load_Executing`Readinga typebexportcFile not founddWRITEefeditgedhAly ediimportpAbortedqROM-LINK roomr to {Value lost|Too complex}Mode change~StoppedFile not foundIndex incompatibleFile-tan IBASE fileFile notedFile onlyPointer out of recordRecordTsEnd of filepointer in keyrecord/pointer size changed DB DBEnd ofEscapeSkipped past endRAM in use by RFSProgram in RAMBank contains ROMRFS banksRAM aly selected in RFScriteria elementanenabled in infoAborteda DB@ffff= ףMb/nk)1`k .冒5{r7[!Ɂl B׳݁0\ SZH==qTX6n^ct;zr~sLq޼uwR*|4'a']q\~}$`Ԃf #}>U~7s-~ "1Ղ# )M`U~ ɳۣD |Yg,Ԅ wAA%(n3)ͶѶ CEPAGE PP --GHྫྷ׾ܯ ,Hq~ϾǾ έ뭢ﭣJ+i12f3456789+:;f<=>?@AD+ ddL  L i0LHi0 h`rrp&q*  pHȥqphi0,r0 l혝l` Zp[q8XrZYs[xtyu Xrxsy L  g 99)xpyqzirx{isyZt[u rZs[ ` LBX `` L0:g`H H Ǿhg(L%zp{q8xryszt{ututtȱtɁtgetzui{ettu XrxsyLQzir{isgv Xtixuiy rzs{~LxptyqututȱtɁtvettu` }Y pzq{rxsy ɮLQHHHHIHIIH ɠ hhh`8韪IHHH hhILϹ  123ţ Ɔ5Select67á8Delete9Main menu s ) text egment    1 entire 2 new 3ţ Ɔ5Search and R 6 7ã 8Spool 9SmenuLoadSave(C) Computer Concepts 1984 WORDWISE-PLUS ( ) ESC Edit ModechoicePrintsearch r Global or selective? (G/S) Memory full ! Marked section only? (Y/N) Press any keyBy CCM & IBLPAPER !  Rold file? (Y/N) File NOT saved! --PAGE BOUNDARY- Which s? (0-9 IJ Hᢠ H⢀ H㢐 H H4FF , XB> :| xtDC$ER4BHF @ȑ@Fh@F4L>  h h h h h `F4BLA@FL> $Ɍɍ LA G H lGH hL,fq~½ ؽ ɽ4@ B ɽF ` H~ h8`FFLF4F LFF4F٤F4 @@44L,EIEբ  ՠLFLF4FLF I JL ɽ 4FLɽ FF F4LF 4 `F4@a{ )ߑ@  LqA[ ~x)A [I x L 9 ݗq p(~L/hUP]YpFňňň lBލ@Zhǘrx-֛]ʨؖz壚OR/]L&Rtȗzة` ֠ ܯ8|xL۾,, ,`G,L\ L7 ,`,࿿L  `W V, l,, l `,``L,,~x`` ,` ׾  Pq8` L tL r  ` `LH `LLiLLLINTER-BASE 1.00A (C)1987 Computer ConceptsN-BCD!S9T=LR5LP0L)DӯD'ALOCENDAYCUGTSUUTET$LENH$O8ITERIAUNTL+AOQEATES"LłR)NO5GSARENND@UY$OFULNҹҹDULCD$TI&A$$AI+AAWET٬A $S1S/ͻA6LAYLEL&D#N)OKRRXhALL&DNwL&D#XlCAPETEĝLEWCC9I=P?SEƄOCILERDFR_L[M]$¤Oe$ĀTPsTCRTD/A+THELOPEAIR7ELDO-NDSEEL*DL"D%SǀSR0M4TE=MOE OOLT$̀SOST BχNTNTmN+N4FMEM$ORTIMDN>Db()= %F= l%= a() (F(l%),) "s" (a(l%),b(l%))flag(l%)%F= "m" l1%= (F(l%),) ((a(l%),l1%,"|M"),(b(l%),l1%,"|M"))flag(l%)%F= a(l%)<>b(l%)flag(l%)%F= =%F .pt c$; s$[%P]=c$ %P=%P+ %P>%L%P=%P-: .gf t$,t1$,ss(),lt(),t% ss(),:lt(), t$=(F(id%),):t%=("s,i,r,d",t$)- t$="m" x(id%)+ז(F(id%),),y(id%)+of%: t1$=(f(id%),of%+) lt()=t1$ ss()=((t1$,, ,~,"",in%) ss()<>lt()c= (f(id%),of%+)=ss() in% , of%=of%+ of%=(F(id%),) id%=id%+:id%>NoF%id%=  of%=of%- of%=- id%=id%-:id%=ƀid%=NoF% x(id%)+ז(F(id%),),y(id%): lt()=f(id%) t$=f(id%) t% ss()='(t$,, ,~,"",in%) , ss()='(t$,t%,,,"",in%)  ss()='(t$,,,,"",in%) ss()<>lt()c= f(id%)=ss() in%  id%=id%-:id%=ƀid%=NoF% (F(id%),)="m"of%=(F(id%),)- , id%=id%+:id%=NoF%+id%= of%= .shf c%,p$ t$,in%,l% 0_p$ l%= NoF% (c%(l%ipf$)) t$=(F(l%),) x(l%),y(l%):(F(l%),);: t$ "m" in%= (F(l%),) x(l%)+(F(l%),),y(l%)+(in%-): ֗(f(l%),in%) ;f(l%) .set Idx$="None" dbN$ dbN$ Idx$ .gval p$,mn%,mx%,rtn% x%,y%,r$ '::. .agn ''p$;:x%=:y%= rtn%>=mn%'W$"RETURN for ";rtn% ֍(x%+,y%);:r$=: r$=r$:r$=""rtn%>=mn%r$=rtn%r$=""r$="-1" r$mx%''"Invalid value":.N:\  =r$ .dbl a$ ֍( ,)""a$' ""a$ .st R():R(), mX():xY():t() mX()=[O,',,O,',,','] mY()=[,,,,,,,] SS():SS(), prep$="":post$="":recp$="":eop$="FALSE":eop2$=eop$ id%=:of%=:gc$="TRUE":gc2$="TRUE":ipf$="":end%= dbS$="Open"::Idx$="None":IS$="Enable":z$="*" .START .ENTRY Z$=" condition":Y$="urrent":X$="atabase":W$="Enter ":V$="Are you sure? (Y/N)" U$=" exists - Replace? (Y/N)":T$="pdatable index":R$="Index " cc$="C"+Y$+Z$+" -":sc$="Searching with"+Z$+" - " ext$="|M"++++++++++++ dbN$< +: .ers *FX21 +  "DATABASE : "+(dbN$,,".") ֍"(C) Computer Concepts 1987" ''"1) "dbS$" d"X$"|M2) "IS$R$"("(Idx$,-,".")")|M3) Set"Z$"|M4) Edit fields|M5) Option menu|M6) Print records|M7) Build index|M8) Create new d"X$"|M9) Program menu|M|MESC Edit c"Y$" record" ''W$"choice "; ch%= ch%"@123456789*:" ' ch%   *,: :*:" +: ch% ch%=*ҁ *q .r42 *::  @ A%="!EXT" A%<> #A% opt$,"!EXT" opt$ ,ch%+::, "MO"+ch% .sw d$ md% d$ ,,mX(md%+),mY(md%+)- .MO1 h%,err%,A$ ) dbS$="Close" 7  IS$="Enable" Idx$="None" dbS$="Open" t() dbN$=(}(W$+"filename",err%,h%) err%: h%= '"D"X$" does not exist" )3 dbN$ ,A$ (A$,-)<>"Neil"  '"Incompatible d"X$:(:q dbS$="Close" Z M end% f():t()=f() " .esc1 .r1  .bf (   dbS$="Open" .gF i$,l% ,i$ NoF%=(i$,) md%=(i$,) F(),x(),y(),f(),flag() F(),NoF%:x(),NoF%:y(),NoF%:f(),NoF%:flag(),NoF% l%= NoF% l%,i$ F(l%)=i$:flag(l%)= ٘((F(l%),),)+"="+l% (F(l%),) "m" x(l%)=(F(l%),((F(l%),))*+) y(l%)=(F(l%),((F(l%),))*+) "s" x(l%)=(F(l%),) y(l%)=(F(l%), ) "d" x(l%)=(F(l%),) y(l%)=(F(l%),) x(l%)=(F(l%),) y(l%)=(F(l%),) .MO8 L%,err%,h%,in$,d%,n$,in%,x%,y%,xs%,ys%,no%,ex$,dbs$,o$,str$,dbB% dbN$<>"None"v   dbN$=%(W$+"d"+X$+" name",err%,h%) err% in$="Y" h% '"File"U$; *FX21 in$=:in$ (in$"Yy"): h%"DELETE "+dbN$ dbS$="Close" .rmd md%=("Screen mode (0,1,3,4,6,7)",,,) md%"25""Invalid mode":%: dbs%=("D"+X$+" initial size (Bytes)",d,,) dbB%=V("Record overflow size (Bytes)",,',) dbB$="+"+dbB% NoF%=(W$+"number of fields (>0)",,2,) f():f(),NoF% md% F(),flag(),x() F(),NoF%:flag(),NoF%:x(),NoF% L%= NoF%:F(L%)="":x(L%)=:flag(L%)=: x%=:y%= L%= NoF% :֍(,)W$+"field name (";L%")"; :֍(,)"Invalid field name -Try again "; (y%,"|M"); n$=("",, ,~,"|M",d%) ((n$,)+"=0")  :֍(,)"Type : String Int Real Date or Multi"; in%= in%"SsIiRrDdMm" in% "S" F(L%)=n$+","+ٷin%+",,,,,,"+x%+","+y% y%=y%+ "M" xs%=x%:ys%=y% U:֍(,)"Number of lines :"; no%=2("",,,,"",d%) F(L%)=n$+","+ٷin%+","+no% L1%= no% , (y%,"|M"); +n$,:;L1%; F(L%)=F(L%)+",,,,," y%=y%+ F(L%)=F(L%)+","+xs%+","+ys% "I","R" F(L%)=n$+","+ٷin%+",,,"+x%+","+y% y%=y%+ "D" F(L%)=n$+","+ٷin%+","+x%+","+y% y%=y%+ (y%,"|M") ''"Creating d"X$" - Please wait"; ex$="CREATE DB dbN$,"+dbs% ex$ o$=NoF%+","+md%+",Neil" dbN$: dbN$=(dbN$,,".") =dbB$ 9 :t()=f() ,o$ L%= NoF% F(L%)=+",#" o$=F(L%) L%,o$ H f() f() .quit  .tidy :dbS$="Close" .Op "D"X$" already open" ! .CL ֍(,)(mX(md%+)) .MO4 x%,y%,F$,cr%,l%,t$,oldx%,oldy%,i%,mx%,my%,a$,b$ E md% oldx%=:oldy%= e cr%=:in%= cr%,mx%,my% b$=(F(cr%),) a$=b$ -zin%= ֍(x(cr%),y(cr%))a$; x(cr%)+mx%+y(cr%)=y(cr%)- ֍(x(cr%),y(cr%))b$; *FX21 in%= -*in%= ֍(x(cr%),y(cr%))a$; y(cr%)+my%+NoF%cr%= cr%,mx%,my% in%= (F(cr%),-) "#" (F(cr%),-)="N" "N" (F(cr%),-)="#" md%:q"Edit form layout" d x(cr%),y(cr%) b$=(F(cr%),) t$=(b$,, ,~,"|M",in%) (F(cr%),)=t$ oldx%=x(cr%):oldy%=y(cr%):*fx21 in%= l%= NoF% (F(l%),-)=y(l%) (F(l%),-)=x(l%) l%,F(l%) *FX4 .MO2 err%,h% 绀\ : : IS$="Enable" Idx$=(R$+"name",err%,h%) err%h%= h%= Idx$="None" '"No such index "  (,Idx$)= ''"Invalid index"  Idx$="None" IS$="Disable" dbN$ Idx$ f():t()=f()  Idx$ IS$="Enable" Idx$="None" dbN$  .bi   Idx$="None":IS$="Enable" .MO5 t$,t1$,t3$,t4$,l%,ch%  "OPTIONS" '"1) Add u"T$"|M2) Remove u"T$"|M3) Set pre-print|M4) Set post-print|M5) Status|M6) Rebuild d"X$"|M7) Set print separator|M8) End print"Z$"|M|MESC Return to main menu" ''W$"choice "; ch%= ch%"12345678" ' ,ch%+::, ch%<>"op"+ch% ch%= .op1 .op2 9 F 'W$"index name "; t$= ch%="1" t$ t$ .rtn5  .ope M .op5 Ԁ u "STATUS" '"D"X$" - "dbN$ /dbN$ ֍;(t$-dbN$);" records" ֍t1$" bytes free" ֍t2$" info size" ֍t3$" info free" '"C"Y$" index - "Idx$ Idx$<>"None" Idx$ Idx$: "With"Z$" :"::֗(,) "Indexed on :" l%= ipf$ ֍((F(ipf$[l%]),),) ֍t$" entries"' dbN$ Idx$ "U"T$"es: "' l%= ֍(,l%)  .v a$ a$="None" t$=" " t1$=t$ t2$=t$ t3$=t$ t$=a$ t1$=(a$-a$) t2$=a$ t3$=(a$-a$) .op3 prep$=6("pre-print",prep$) .op4 post$=("post-print",post$) .op7 recp$=("print separator",recp$) .op8 ✀ = 4eop2$,eop$ .MO6 l%,fr%,to%,c%,l2%,ty$,y%,in$,l(),idx%,crt%,i$ M  : ::::  '"Range or C"Y$"? (R/C)"; in$= in$"CR" ''"Print field names? (Y/N)"; i$= i$"YN" md% in$="C"  trim f() gc$ޝeop$  f():t()=f():trim f() ޝeop$ f() g  f():t()=f():trim f() eop$ f():t()=f()  : .sp c%=NoF% l%= NoF% (F(l%),)="m"c%=c%+(F(l%),)- l():l(),c% idx%= l%= NoF% (F(l%),)="m" l2%= (F(l%),)- l(idx%)=l%+","+(l2%+)+","+(y(l%)+l2%)+","+x(l%) idx%=idx%+ l(idx%)=l%+",0,"+y(l%)+","+x(l%) idx%=idx%+ .sort NoF%<> l%=c%  - l2%= l%- (l(l2%),)=(l(l2%+),) (l(l2%),)>(l(l2%+),) l(l2%),l(l2%+) (l(l2%),)>(l(l2%+),) l(l2%),l(l2%+) .out ^ot$ fr%= ot$ ((ot$,fr%),)>="0"((ot$,fr%),)<="9"  ,(ot$,fr%) .eout  ֖(ot$,fr%); .p t$,s%  ~prep$ y%= l%= c% crt%=(l(l%),) (F(crt%),-)="#" y%<(l(l%),) :y%=y%+ (l(l%),) "0" f(crt%)= t$=f(crt%) t$=f(crt%) (F(crt%),) "s" s%=(F(crt%),)-t$ "i" s%= "r" s%= "d" s%= ֍(l(l%),); "1" t$=(f(crt%),):s%=((F(crt%),))-t$ "0","1" ֍((l(l%),)); i$="Y"֖(F(crt%),); t$; ֍((l(l%),)); i$="Y"(ז(F(crt%),)); ֗(f(crt%),(l(l%),)); recp$ .cp post$  .MO7 t$,t1$,t,cI$,c%,d%,e%,in$,FIdx$,A%   : :Z: cI$=Idx$ Idx$<>"None"Idx$ R$"Name "; Idx$= 9("",, ,~,"|M",d%) e%=Idx$ e% 'R$U$; in$= in$"Yy" #e% "DELETE "+Idx$ in$="" Idx$="None" in$="" in$ : : ''R$"on which field (name or number)"' FIdx$= dbN$ c%=dbN$ "CREATE INDEX Idx$ ON "+FIdx$ Idx$ Idx$  ut$,t1$ =t1$+"|M"+t$ cI$="None" dbN$ dbN$ cI$ ޝ f() f() :c%" remaining " Idx$ dbN$ Idx$ A%=f() cI$="None" dbN$ dbN$ cI$ c%=c%-  IS$="Disable" dbN$ Idx$ f():t()=f() .quit7 .MO9 A$ 'V$:A$= A$<>"Y" *fx4 *fx225,1 Ȁ .RESTART PMENU .e e%,d$,in%,id%,of%,p$ ڌ- ""  id%=:of%= in%= ߿,cc$+gc2$ c= in%<>  in%  L end%  s 4 end%  [  N   K Idx$="None" "No index - search d"+X$+" (Y/N) " :in$=:in$"YN" ֍(,)(mX(md%+)+," "); in$="Y" gc2$ "TRUE" p$="" p$="- condition "+gc2$ ް,"ESC when finished "+p$ ::in%=:trim f():t()=f() :"Searching..." :f():trim f() ޒڰ(f(),t())end%  f():trim f() c=:in%= ,"ESC when finished" (id%ipf$) id%=id%+:id%>NoF%id%= @ in%= ٬f() :,"Searching..." A%=f() c=:in%= f():t()=f():trim f() gc$= ( f():t()=f() f():t()=f()  of%=:id%= 0  "Delete - "+V$ :in$=:in$"YN":in$ in$="Y"b ,,,,,,, f():t()=f() ,cc$+gc2$ *FX4  .rtn "No d"X$" open" .ipf l% ipf$="" l%= (Idx$)- ipf$=ipf$+(Idx$,l%) .a A%,t$ dbN$ K I," ESC when finished " " ESC when finished " ه in%= in%= .a2 f() dbN$ { f() t$=gc$:gc$="TRUE" f[""],f() gc$=t$ c=:in%= Idx$<>"None"dbN$ Idx$ .dr &t(),[""] @ f():t()=f() in%= .ri r(),R() l%,A%,i$,f() R()=r()==ƀ G: "Please wait..." Idx$<>"None"Idx$ l%= i$=(,l%) dbN$ i$ (r()=r()=) r() A%=r() (R()=R()=) ֞R():f()=R() gc$A%=R() i$ Idx$<>"None" Idx$ dbN$ Idx$ dbN$ m .op6 c%,t$,x%,y%,i% 耑 i%=md%:md%= : : : 3: dbN$ b%= ex%=dbN$  'W$"new filename "; pth$= pth$,ex% pth$ =b% u ڔ ''"Rebuilding "; x%=:y%= c%= - end% c f():t()=f() = pth$ t() c%=c%+ ֍(x%,y%)c%" "; : .dcr dbN$ ,o$ pth$ ,o$ L%= NoF% o$=F(L%) L%,o$  Ԗ f():t()=f() md%=i% .in s$,tp%,mn%,mx%,ex$,^c% c$,L%,R%,t(),S$,ox%,oy%,e$ o S$=s$:ox%=:oy%= .irst L%=mX(md%+)-ז(F(id%),)-x(id%)- L%c%<c%=c%+ c%>c%<c%=c%- t():t(), tp% flag(id%)= e$="string" t()=s$  (s$,)="*"flag(id%)=:s$="0"flag(id%)= e$="integer" t()=  (s$,)="*"flag(id%)=:s$="."flag(id%)= e$="real" t()=. , s$<>""t()=s$ flag(id%) ֍(ox%,oy%)s$ ֍(ox%,oy%);t();  (s$,)="*"flag(id%)=:s$="1/1/1987"flag(id%)= e$="date" t()=@"3/10/64" s$<>""t()=@s$ flag(id%) ֍(ox%,oy%)s$ ֍(ox%,oy%);t();  j%= t()<>mn%<>mx% j%=(t()>=mn%t()<=mx%) j%:ox%,oy%: t() .ierr ,:"Invalid "e$" - Press any key ":A= CL:c%=:ox%,oy% f .if stl%,tp% l%= NoF% (F(l%),) "s" f(l%)="" "m" l2%= f(l%)="" ln%=(F(l%),) l2%f() Jf(),[""] f() 2t(),f() f()=t() CL .ef l% l%= NoF% (F(l%),)="s" f(l%)=+((F(l%),)-f(l%)) .df pt$,l% pt$=(F$,) x%,y%:pt$;: (F$,) "m" ֖(F$,);: l%= (F$,)- x%+pt$,y%+l%: :֖(F$,); "s" ֖(F$,-); "i" ֖(F$,-); "r" ֖(F$,-); "d" ֖(F$,-); .sa l%,x%,y%,F$ l%= NoF% x%=x(l%):y%=y(l%):F$=F(l%)  .con ^a$ l%,n$,in%,o%,e%,t$ l%= NoF% n$=((F(l%),),) t$=a$ in%=(t$,n$):o%= in%<>o%o%"""C"Y$p$" code "c$ 'W$p$" code "; t$= *FX4 =t$ .cc '"Use c"Y$Z$" - "gc2$" (Y/N)"; t$=gc$::d$=:d$"YN":d$:d$="N"gc$="TRUE" .Rk *FX4 *FX225,1 *FX226,128 *FX227,144 ލ@Zhǘrx-֛\Ĩؖw⣗LO)ZI#Onȗwҩ[xXx (X`,, L`G,,`,L ,`W V,` l,," ,;0LH ,W V`,` ,ڥ VAV` VAZ` r  ` `LH `LLiLLLINTER-BASE1.00A(C)1987 Computer Concepts6L='>"Xʆ4ȱ5 (`hh(`󪈱LXHH߅4ȱeeie hh(` <ɓɐH8eHX C .Я40:_)A[8*J(` L С ֡} ·I o 攅| 攨LK|}~ o 攨 $ 愤~Ș J[8e o 攅$H00P0( o L  o) I$Hp :L @LP$0kIv ՅL`$H0L z$HPFLt| o $$H0)pL m|8 te HLteťtkL($HPJ`PL m|e0 t G ł$0uL oLHK LhL`eɃ僅}eLuiLuH 3tŀ G8t ł m '} ރ} f mh ~ o} o Ȃ r q p `ylzm{nFc` 3 G ' mi  o Ȃ V ރ ' 0 ł ׄ 8Lł e|8倪i LłHplqmrnFc o { z y h Lmo LH hIiL oLHktKLk hL&H| 攑KLhL8偪t`uvl wmxn` `08 uyvL08iulvmwnx`lyL ܡk z k o 攝`  ә Յ Dž al $I$L · z H$IL 0; ·kL` o 5% ۅ o 攪ꆄ芸   @|k`8`  ә Յ Dž ࡠ$8aa $I&LI · ɇ H$ILZ$aa8 L` Fc` o Fc8` )n 攅m 攅l8`,Ke o( lmn`p ɀ` Fc8`mnl`H m 攅| 攅h` EM BBCDE ә ܡ Յ+$E0*k z#B L jII` v` ֡EɀDCB$0Bi 7 A Յtu okL,P AM0,P ևЫke 䅩 z ՅIvBCDEC` - A Յvw ,P AM0L,P ևk pLk @8|| 僅k` o 5 ۅie o ɀLp8`ʆĂ o 攨k Lp l`a#bkz \M)I z (`BCDE``LyIBASE programs(C)1987 Computer ConceptsLXL>PXʆ4ȱ5 (`B0Lɮ)` XHH ǂhh(` I .ȱ ǂႮƅ ȱ LŀL XHHႮ4ȱeeie hh(` <ɓɐH8eHX C .Я40:_)A[8*J(`Xガ䂆႑ȭₑ8ȥ8ee8qȐ芑eȱ8e458e4e5?れႬ䂌₎ろ䂠4675(`IBASE programs () rNo room to install  0:i 轟`L7IBASE RFS bank (0)(C) 1987 Computer Concepts WHHH 4ȱ 9." ȱ    hhh`CCHo0B h`B)BC0OإB =p ) B!_*spor CLr b$Cp BLbC "e B$C L ]]\ [$C0= B L/B B ݭB H B)h`L$~/5 4 BH h]45詂е)C(B BB`$B0 p BLŋLNjB)B =p; 9~ 8*0/ (Bo 5񠊩m B 0:i 8`?~B =~JJJJB`)  j~o_f~  HL h ILf~ f~ $~`H h)`\]`o0*n` BBaL獠a8BC`B eBРaeabiBȱCFCȱ)B)JJB` G dJb a B`U ,aCaBaeaȱaebyi-xyBBCCxexȱxeyyixy`/ Qx4ȱx5` Q48x~5x 4xȥ5xUeEExixy(4455xDDxyEL` GjBLL GB0  BK  oBLL G o 攅4 4 攙`n8sB` ɝ BC`i` Gd) )aCB` BaȥCa` aBȱaC` BL $B d) &BL "aBȱaC` "BaȥCa` dJ` a4 j4` 48aH*IJ j(h 4a0x`aqabii` H*a4ah84L u+, u,4ܘ4ee` u4 4` AI t .taHȱah1uLtLmmȱaȄtQ)DL .*8e40Hȱ4i 4,x .h*I) Lӛ` } }*aua8uȱa`~iIxy L~ ɝ e~ea[  8mtmu tu+taȭua xa*aa xȑx`` GB G hsit\8Fhfvn8smms8nUseH8n8UU 䓥xHs8y)w$vsyyex |$vyxLؒyxw #iтe *$v0 hyFwKeixB Fl xl8lmmnFceh y |LKx J = 9wȠiaCeahs ⡦G m `yx J]Y 2 .x Ju( 9[( =נLzHh ēezn ml`FGt\$I0LOiyxhw ⡢CF  |xy J] . Y [ 9 ywL` %ZZ` ZI1Z`)ZJJJ[8noi?pi? qi?ri?iY`m` @ G ܡ$dB L_$c0 p$k^Y `Hleei J8 9h^L_j L G ܡ 蔅BL_$c0 pkY kFc(lmn_`_j Fc8_`H^8lemf ngh %ei J] 2kH hkY [8 =`ch^$c` 7H yBa ha$B0L3L- 7aB`  ܡ  攅t 攅u ܡ ѕ L Fc Յ B t u 攨 攪0̢x Lp  ࡠ aȱa)yx exeytu ࡠ$8avȩaw t $taȥua ࡥtu :y#a xaaxa` ɖ ~ńab` z ɖ  ɖ`ziz{z|ȱz0e}||e||}8` LԖz{` 8 '||j|`klmntuvwxyL48fI ܡI$s ܡLk z ֥8ek o )n 攅m 攅l 攅k Յ  LA Յ 7|}  % H L7 ` 7 -`L 7 eJeK, -D|E}4B5C R |ȱ|LV` LAJJK0/ H ~$ s BC s I`8`ee`-惨` 8xyB|}` G ܡ 攰 B4L G ܡ TL G ܡ L L9D|E}BC` ֡mnlaok` G ܡL Gd) Յ B B Lܡ G BL$s0 攑aZ 뙠 Lmaty)y w0v`Lȗu0 ytx`04" OL䙮 Oaas`sa`|ʊe~eU|e~v}ew$0 0LL  L\ # ,K *`UmUmz :,K { z`ȱy xpe~ȱe8``8|\ m$0eU/]eUuIL@x8||y}|(|\vt}wu]]u舱\t|`xt8~\yu]|8\|}]|ܠ\t]uʊ|`H!$I # *` # Lm $I0HL] OI٠ yd*) o ɝ V ӓj LЛ ӓ(0! ٛL[ax8aȅ~bya b`d)L"b xI)L: O( ⠩ LI)Ed)d)L8 dIIL:I%dEI)# [ dI) " y OdIadI)_ Յab$IS~P ?+atȱau,eabiȊ8mtmu`0"p(aia) bL }P ? iiw` [LI)L@I) "eI [ O M EIJ 攨 攪 I @ad o ;I ILA o ٭ ` [ ɝa|b}`a8aHȱabh8`I " Ida`@ " [ ⠩ "E o2 iIJ5Bi  $ iB K l> iL[` ijLa`{ !  IBASE e4i~|ax}by  >ja|a84zȭ}a{z4 aȥzaȥ{aL[4  jh j`a` LybaabFcad` xH5Ly #) 4&H Ɵh4Lz0z.` *Ͱ #Hт *ూzȱ{`B #B *`BI ~4) # B *Ly 4 Ɵz4`{ȱ}|` ܡklmnL 攪 m Ly #{ e *``tuv w x `HHH y hhh(llytu v w xyz ` Ȫ )YNN | LFile exists, delete old? (Y/N)  攑|}` | }`$cpk`^_ _^`kkjLukk oaȵaȵaȵa`Fck`u o kFcaȱaȱaȱa`Fckuu)uu`klmnFc`& qaaȊqaaȊqaaqaa`Y0\0tG0\L0\L0\j \0j \\ 00`Ls}{~{ } |8`l8{ `lx~{{y -`*m?-Yd\l}{􅇠o` UHI JK J8J@@ȱJ8JA    `  Ȩ  nHᢠ nH⢀ nH㢐 nH nH o eI I n$I  ڨH)@F sA= H) /  ɣL L PHH)hL"h  FQ h nh nh nh nh n  rg  F PQ ?hU `I)00 î$HL"H Fh U L" $L" < PL 3LP8LP LLt W`uJvK lJWĪ+ Cî}e*wએ[ߩxdN謩 Գ NDED` NI)0 II) YDZE` `$H` mL$LL)CNO aL7 ҨNO nWNB զ N>J?KC N J?KJɀ#)  . ȘeJJK@ צ`C a  LȘeJJK@ צ` LL H~ h8`IIIL)UVUVU V`Markers!Are you sure ? (Y/N)NO ROOM!Cursor to ? FP=?AJCBP8PQQD`H  @  hL88L?9LL?L>ɍ L>ɀȘe>>?`Ke::;Je<<=`e;? `ȄLJKM<0& LMM%<8:=;M 8` NMLJ<0CK:JK JLȩ:K 7BB`ȱ>ɀ) Șe>>?`H N DFGL/ DDEKh0 K:h):K P`<  ȄP`P` jP8`P<+ N&I)߅IFGFDGEI)00I)υI0< N DEȑ<<= `А L `$ %0:A[ _a{`8`9;8:` FP<  mL$P< PP< PPP<  mL$Y[Y_YY8[[\Z``ZY[Y_ Y[\Z``Z$H` Șe<<=i=L)$H0 FPe<<=i=PL)$H0 `< Ș8Pe9''">";: _= ,_-+: ,: "_"+_ ._0  _M% "_C%=EDIT("+_$+",_C%)" .ERROR  .RESTART  >  _=_=::^ .l1 _ _$,_F$,_C%,_M% X .m0 ''_;  _=*ҁ  ._1  U _I$="Y" _F$ _F$ '"Replace old file ? (Y/N) "; } _I$="Y""SAVE"+_$+",_F$": "N|M|MFile not saved"  ._2 q _$"Are you sure ? (Y/N) ";::_I$="Y" "N":D  "LOAD"+_$+",_F$" _C%= ; ._3  _%=  _% _P$="Edit" ._33  _M% _%= _%=(_$,_1$,_%+) _% "SHOW"+_$+",_%" _X%=:_Y%=  ,:_L%= :_L%_P$" (Y/N)" _X%,_Y% ; ,`,;;; "Yy" _=3 "_C%=EDIT("+_$+",_%)" _%=_C% _$+"[_%;LEN_1$]=_2$" _%=_%+_2$- _%= ! ._4  " Global/Selective (G/S) ";  _I$"GS" _I$' _%=  _% '"Replace string" "_2$=|""++"|"" _I$="S"_P$="Replace":} _%=(_$,_1$) _% _$+"[_%;LEN_1$]=_2$" _%=(_$,_1$,_%+_2$) I ._5 "Enter program name "; _I$=_$ _$=_I$: , _$= _$ _$[]<>"$"_$=+"$" _C%= ._6  : _$  ._7  "Screen mode (";(_M%)") "_I$ _I$_M%=_I$ z ._8 ._9 "Are you sure ? (Y/N) "; . _I$="Y"_=8_$+"=|"|"": * .FATAL . .l0  .l4 '"Press any key "; _= _=*_=: .d  "INTER-BASE ";?( +?) .f _F$"Previous filename"_F$' "Please enter filename "; _F$= .g _=о .i _I$= .s "Search string" ,_% "_1$=|""++"|"" _1$ _%=(_1$_$) _%'"Not found" .u _$,_F$,_C%,_M% Ģʗʕؔ7=gVԑՐzٗ#? s"NjjП២Ǐ֏ԘŘ0Ō/ȍS, <,,,`W V,,W V,á,, ,,,`