ž10952$²Ç(27):ME$²"ËEY’ ÐROGRAM START":153:à1,5,06,"ÐROGRAM ÍICRO ÂASE ’":à1,5,08,"(Ã) 1986 ËINGSOFT ’":à1,5,10,"×RITTEN BY ÊUERGEN ËUCK ’"¿¡A$:‹A$²""§1(I²1¤8:ùI,Ç(132ªI):‚:œ:ES$²Ç(27):BL$²"¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤":BL$²BL$ªBL$:è:41:‰3zHE$²"F1’ÅDITOR F2’ËASSETTE F3’ÐRINTER":FL$²"…†‡Œ":ME$²" ÍAIN MENU ’":153Ž7:‹J²4§151:‰4¤‘J129,124,117:‰3ªŽÁ::9:J²Ô(FL$,A$):ŽÇ:Ø ¡A$:‹A$²""§9Þ Žä:ù‹LEª50±¸(0)§194A FL$²Ç(20)ªÇ(13)ª"‘ˆ‰Š‹…†‡Œ”“:;,"ªÇ(34)ªÇ(27):AA²AD:‹AD±²3112§15eN²1¤LE:—AD,100:AD²ADª1:‚:AD²AAs‹V$²""§17N²1¤Ã(V$):A$²Ê(V$,N,1):30:AD²ADª1:‚¨—AD,94ÝLL²Ã(V$):7:F9$²"":‹A$²Ç(27)§F9$²"1":—AD,100:‰29õ‘Jª1‰21,24,27,27,27‘J«4140,140,140,140:‰18!‹LL±²LE§18J30:V$²V$ªA$:AD²ADª1:‹LL³LE«1§—AD,94R‰18_‹LL³1§18›V$²È(V$,LL«1):AD²AD«1:—AD,94:‹LL³LE§—ADª1,100:Õ—ADª1,32£‰18·‹J±2¯AD³3112§18Ò‹LL³LE§—AD,100:Õ—AD,32ØŽ÷—82,Æ(A$):ž208:—AD,Â(82):Ž"Ÿ1,8,2,NA$:Ÿ2,8,15:„2,A,B$,C,D: 2: 1:Ž1 ::‹KE²FR§Že!K²KEª1:HE$²"ÉNPUT ":76:KE²K:‹I²0§KE²KE«1:K²K«1k"Žy#‹KE²«1§99Ž$K²Kª1:‹K±KE§K²KE™%115:Ž§&‹KE²«1§99º'K²K«1:‹K³0§K²0Å(115:Žæ)::HE$²"":152:‹F9²0§F9²1:‰43(*™"ÄO YOU REALLY WANT TO LOAD’ Y/N’ ";:8:‹A$²"Y"§œ:‰2:ÕŽ7+‹DD²0§144_,152:™" ÌOAD : ’";:65:‹NA$²""§43ƒ-191:è:K²0:‹DD²1§Ÿ1,1,0,NA$:‰48”.31:‹A³±0§43ª/Ÿ1,8,3,NA$ª",S,R"W0„1,F:†AT(F),T$(F),F$(F),L(F),B$(3):I²0¤F:„1,AT(I):„1,T$(I):„1,L(I):„1,F$(I):L²LªL(I):‚I:I²0¤3:„1,B$(I):‚I:„1,RA:„1,FA:„1,T0:FR²µ((¸(0)«300)(.5¬Lª3¬(Fª1))):†FE$(F,FR)r1‹ST³±0§ 1:KE²«1:K²KE:Žœ2I²0¤F:„1,FE$(I,K):‚I:‹ST²0§K²Kª1:‰50³3 1:KA²0:KE²K:K²0:ŽÓ4HE$²"":152:™" ÓAVE : ’";å565:‹NA$²""§Ž6191:è:‹DD²1§Ÿ1,1,2,NA$:‰59731:‹A²62°DD²1§58[8153:™"ÆILE EXISTS!’ ÒEPLACE Y/N’ ";:8:‹A$³±"Y"§52s9Ÿ1,8,15,"S:"ªNA$: 1Š:Ÿ1,DD,3,NA$ª",S,W"ù;˜1,F:I²0¤F:˜1,AT(I):˜1," "T$(I):˜1,L(I):˜1," "F$(I):‚I:I²0¤3:˜1," "ªB$(I):‚I:˜1,RA:˜1,FA:˜1,T0:‹KE²«1§64<K²0¤KE:I²0¤F:‹FE$(I,K)³±""§62:‚'=‰63:>˜1," "FE$(I,K)D?‚I:‚KM@ 1:Ž›ALE²15:™"ÎAME OF FILE ’ ";:AD²3072ª25:V$²ND$:12:ND$²V$:NA$²ND$:‹NA$²""§Ž¡BŽ¶C::‹KE²«1§K²0:‰69ñDL²KE¤K©«1:I²0¤F:FE$(I,Lª1)²FE$(I,L):FE$(I,L)²"":‚I,LEKE²KEª1:HE$²"ÉNSERT’":76:Ž"F::‹KE²«1§73fGL²K¤KE:I²0¤F:FE$(I,L)²FE$(I,Lª1):‚I,L:KE²KE«1:‹KE²«1§K²«1:‰73uH‹K±KE§K²KE€I115:ŽJ::‹KE²«1§Ž¦KHE$²"ÅDIT’":76:ŽLè:152:156:192:è:I²0¤F:AD²AT(I):123:à1,XK,YK,""ªT$(I)ª"’":™È(BL$,L(I)):à1,XK,YK,""ªT$(I)ª"’":™FE$(I,K):‚:I²0GMà1,0,24,"ÅND OF INPUT WITH ÅÓÃ’-KEY" NAD²AT(I):123:AD²AT(I)ªÃ(T$(I)):123:LE²L(I):V$²FE$(I,K):12:FE$(I,K)²V$:‹F9$²"1"§84ÃO155:‹J²4§I²Iª1:‹I±F§I²I«1:‰84×P‹J²3§‹I±0§I²I«1äQ‹J³±2§78ýRI²Iª1:‹I±F§I²I«1:‰84S‹V$³±""§78RTà1,0,24,"ÅND OF INPUT Y/N’ ":8:™ES$"J"ES$"Q";:‹A$²"Y"§ŽZU‰77cV‚I:ŽiW:œX191:è:™" ÈUNT";:‹DR²1§™"+ÐRINT :’";:Õ™" :’";¬Y99:‹KE³0§Ž¸Z‹II±F§Ž+[è:™"ÓELECTED FIELD :’":™T$(II):191:è:AD²3087:™"×ORD TO FIND : ’ ";:LE²15:V$²SB$:11:SB$²V$:192:è:‹V$²""§ŽO\LS²Ã(SB$):KF²0:K²0:‹K±KE§K²KE:Ž’]K²K¤KE:S²1¤Ã(FE$(II,K))«LSª1:‹Ê(FE$(II,K),S,LS)²SB$§KF²K:‰95^‚S:‰97°_‹DR²1§167:‰97`191:è:™"ÆIND: C’=CONTINUE ":156:115:8:‹A$³±"C"§98a‚KbK²KF:Ž"c::‹KE³0§193@d™" ÓELECT FIELD ’":192:ète™"";:I²0¤F:™Ç(65ªI);") ";:‹DR²2§™F$(I);:‰103„f‹II²I§™"";‘g™T$(I):‚§h8:‹A$³±Ç(13)§106¹i‹DR²2§Ž:Õ‰110ÖjA²Æ(A$):‹A³65°A±65ªF§104íkII²A«65:‹DR³±2§101l‹F$(II)³±""§F$(II)²"":ÕF$(II)²""m‰101#nŽ1o::‹KE³1§Ž~p191:è:™" ÓORT ’ ";:99:è:N²1¤KE:K²KE¤N©«1:‹FE$(II,K)±FE$(II,K«1)§114ºqI²0¤F:A$²FE$(I,K):FE$(I,K)²FE$(I,K«1):FE$(I,K«1)²A$:‚IÏr‚K:‚N:K²0:115:Žs::™""ES$"T":è:I²0¤F:HE$²"":‹K±«1§HE$²FE$(I,K)HtAD²AT(I):123:à1,XK,YK,""ªT$(I)ª"’"ªES$ª"Q"ªHE$:‚I:™ES$"":Ž‹u::è:DR²1:T1$²"ÔEXT’":T2$²"Ô’EXT":‹T0²2§TT$²T2$:ÕTT$²T1$:T0²1 vHE$²"Ì’INES "ªTT$ª" Æ’IND+PRINT Ò’ECORD PRINT":HE$²HE$ª" Ç’LOBAL PRINT Ó’ELECTION ":187:PP²0:ME$²" ÐRINT ’":1536 w192:FL$²"LTFSRGVŒM":7:è:‹J²9§DR²0:ŽI x‹J²8§151:‰119w y‘J163,164,88,183,167,185,189:™"";:‰118‹ zDR²1:89:DR²0:Ž¹ {::YK²µ((AD«3072)40):XK²(AD«3072)«YK¬40:Ž¿ |:!}HE$²"Ì’OAD Ó’AVE "ªDD$ª"’ Ã’ATALOG Í’ENU":ME$²" ËASSETTE/ÄISK ’":1531!~FL$²"LSKDCMŒ":7:‹J²6§192:è:ŽD!‹J²7§151:‰126b!€‘J41,52,144,144,161:‰125h!:ñ!‚HE$²"Î’EW ÉNPUT Ä’ELETE É’NSERT Å’DIT ":HE$²HE$ª"È’UNT Ó’ORT Ô’EXT ASSIGNMENT Æ’ORWARD Â’ACK Í’ENU":ME$²" ÅDITOR ’":153"ƒFL$²"NDIEHSTFBMŒ":7:‹J²10§Ž&"„‹J²11§151:‰131O"…‘J32,70,67,74,87,111,134,35,38:‰130š"†::HE$²"F4’"ªB$(0)ª" F5’"ªB$(1)ª" F6’"ªB$(2)ª" F7’"ªB$(3)ª" Í’ENU"»"‡ME$²" ÔEXTBAUSTEINE ’":153Þ"ˆFL$²"ˆ‰Š‹ŒM":7:‹J²5§151:‰136é"‰‹J²6§Žö"Š‹J³1§135K#‹HE$²"":152:LE²15:™""Jª3"F’:";:AD²3076:V$²B$(J«1):JA²J:12:B$(JA«1)²V$:‰134e#Œ::‹B$(J«5)²""°LL²LE§ŽŠ#DL²Ã(B$(J«5)):‹LLªDL±LE§DL²LE«LLá#ŽV$²V$ªÈ(B$(J«5),DL):LL²LLªDL:N²1¤DL:A$²Ê(B$(J«5),N,1):30:AD²ADª1:‚:‹LL³LE§—AD,94ç#Ž÷#::‹DD²0§146$‘‰149 $’™""ES$"QË’ASSETTE Ä’ISK"9$“FL$²"KD":7:‹J²0§147C$”J²Jª2$•‹J²3§DD²1:DD$²"ËASS’ Ä’ISK":ÕDD²8:DD$²"Ë’ASS ÄISK’"…$–Ž£$—::P1²P1ª1:‹P1²2§P1²0:‰153¼$˜191:160:™""HE$;:ŽÌ$™::‹P1²1§152ü$š191:™""ES$"Q"ES$"Q";:160:™""ME$;:156:ŽE%›::158:FR$²Ä(FF):FR$²É(" "ªFR$,5):à1,30,0,"ÍEM:"ªFR$ª"’":192:Ž`%œ::RE$²Ä(K):‹K³0§RE$²""”%RE$²É(" "ªRE$,3):à1,22,0,"ÒEC:"ªRE$ª"’":‰155%žFF²¸(0):‹FF³100§194³%ŸŽ& ::™""ES$"Q"ES$"Q":™"’¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸";:—3151,120:Ž&¡::‹DD³±8§Ž:&¢HE$²" ÃATALOG ’":è:152:155:è:î:ŽÝ&£::V$²Ä(RA):V$²É(V$,Ã(V$)«1):HE$²"":151:™"ÒECORD SPACING : ":AD²3092:12:RA²Å(V$):V$²Ä(FA):V$²É(V$,Ã(V$)«1):151:™"ÆIELD SPACING : ":AD²3092:12:FA²Å(V$):Ž'¤::‹T0²1§T0²2:TT$²T2$:ÕT0²1:TT$²T1$'¥Ž:‹DR²1§Ÿ2,4,7:2:'¦I²0¤F:™FE$(I,K):‚I:˜2: 2:ŽH'§::‹KE³0§ŽW'¨‹K±KE§K²KEs'©PP²0:‹BI²0§Ÿ2,4,7:ÕŸ2,3Ÿ'ªAT²AT(0):182:LA²L:I²0¤F:‹Â(239)²0§173Ë'«‹Â(198)²36§™"ÓTOP PRINTING’":PP²1:‰179Ö'¬—239,0þ'AT²AT(I):182:‹F$(I)³±""§LA²L:‰178(®‹L²LA§176(¯N²0¤FA:˜2:‚6(°‹T0²1§˜2,T$(I)" : ";O(±LA²L:˜2,FE$(I,K)" ";c(²‚I:N²0¤RA:˜2:‚j(³ 2~(´¡A$:‹A$³±""§180„(µŽž(¶::L²µ((AT«3072)40):Ž´(·::191:è:‹KE³0§99ö(¸™"ÓELECTION OF FIELD TO BE PRINTED ’";:192:DR²2:101:DR²1:Ž)¹K²0¤KE:‹PP²0§167:Õ65535)º‚K:ŽN)»::‹BI²1§HE$²HE$ª"ÖIDEO’":ÕHE$²HE$ª"Ö’IDEO"f)¼HE$²HE$ª" Í’ENU":Ž})½::‹A$²"V"§BI²«BIª1ƒ)¾Ž›)¿::™""ES$"B";:Ž²)À::™""ES$"T";:ŽÙ)Á192:è:™" ÎO RECORD AVAILABLE ":Žå)Â‹ME²1§Žð)Ã‹K²0§Š *ÄI²0¤F:FE$(I,K)²"":‚S*ÅME²1:™"“ ÏUT OF MEMORY! ÓECURITY FILE SAVING ’";:53:‹NA$²""§197Y*ÆŠ¢½„*•ÐÊø©[…-©*….©·&©¢'©©€Lè¥R0 É`)ßÐ)?…R`) @…R`X¢†ï½ù'Ê÷L €RUN: ªª®::×194:è:ES¢'½ *èÊ÷L[*