AM"/)▓З"'''''''''''''''''''''''''''''''"/E╝Й"HOW MANY PROGRAMS";NP/Q╞АI│1еNP/`╨ЕNP┤1зNP│1/А┌╗Й"NAME OF PROGRAM ";F$(I)/ЗфЛI/РюPN│0/╝°ЕPF$│"P"зЙ"LISTING TO PRINTER, Y/N";LN$/═ЕI$┤▓"Y"з840/╙ Ю/·З "YOU HAVE THE CHOICE OF MAPPING"0  З"A VARIABLE AS MANY TIMES AS IT"0E*З"OCCURS IN A LINE OR ONLY ONCE"0m4З"E.G., X IS REFERENCED 3 TIMES IN"0Г>З" 10 X=X^2+X+1"0зHЙ"DUPLICATE REFERENCE, Y/N";DR$0├RPN│PNл1:Щ "I",BF,F$(PN)0╤\ЗF$(PN):З0яfЕPF$│"P"зЗ#м2,F$(PN):З#м20Ўp:Г1z:Г READ, LIST AND CONTROL1RДЕ  М(BF) зБж1250:Бе 1970:ГPRINT AND START NEXT OR END1`О╗ Й#BF,A$1uШЕ  З(A$)│0 з 9001ХвЗA$:Е LN$│"Y"зЗ#м2," "лA$1┤мБж1060:ГPUT LINE # INTO B$1╤╢Бж1100:ГSTRING CONSTANTS1°└Бж1140:ГCOMMENTS & DATA STATEMENTS2 ╩Е  З(A$)│0з9002╘Бж160:ГFNTS2K▐Бж1210:ГBREAK UP MULTIPLE STATEMENT LINES2`шБж1720:ГNUMERICS2wЄБж1610:ГNUL INSTRS2Х№Бж 1860:ГMAP OF VARIABLES2пБе900:ГREAD NEXT LINE2╧:Г'''''''''''''''''''''''''2ў:Г STRIP LINE # AND PUT INTO B$3$B$│""3?.B│ К(A$):ЕB┤58░B▓47зB$│B$л Л(B):A$│ П(A$, З(A$)м1):Бе10703E8Р3fB:Г STRIP STRING CONST3БLB│ Ю(A$, Л(34)):ЕB│0зР3кVC│ Ю(Bл1,A$, Л(34)):Е C│0 з C│ З(A$)3▀`C$│ О(A$,Bм1):A$│ П(A$, З(A$)мC):A$│C$лA$:Бе11004 j:Г STRIP COMMENTS & DATA STATEMENTS4)tB│ Ю(A$,"DATA"):ЕB│0з11604;~A$│ О(A$,Bм1)4VИB│ Ю(A$,"'"):ЕB│0з11804jТA$│ О(A$,Bм1):Р4ЕЬB│ Ю(A$,"REM"):ЕB│0з Р4ЩжA$│ О(A$,Bм1):Р4┼░:Г BREAK UP MULTI STATEMENT LINES4═║K│14ю─B│ Ю(A$,":"):ЕB│0зA$(K)│A$:Р5$╬A$(K)│ О(A$,Bм1):A$│ П(A$, З(A$)мB):K│Kл1:Бе 12205D╪:Г SORT & PRINT VAR MAP5jтЗ "SORTING, IT WILL TAKE A WHILE"5{ьАJ│VCм1е1йм15ЖЎАI│1еJ5√ЕVM$(I,0)▓VM$(Iл1,0)зA$│VM$(I,0):VM$(I,0)│VM$(Iл1,0):VM$(Iл1,0)│A$:A$│VM$(I,1):VM$(I,1)│VM$(Iл1,1):VM$(Iл1,1)│A$6 ЛI6 ЛJ6ЕPF$│"S"з13506C(З#м2:З#м2:З#м2," VAR NAME AT"6x2АI│0еVC:З#м2," "лVM$(I,0)л" "лVM$(I,1):ЛI6Г<Бе13606╪FАI│0еVC:З@448," "лVM$(I,0)л" "лVM$(I,1):З" ":Й " TO CONTINUE";A$:ЛI6сPЪ#м16ёZЕPF$│"S"з Р7dЕ PN┤NP з1390:ДР7nАI│0е20:З#м2:ЛI7 xР7=В:Г PRINT INSTRUCTIONS7`МЮ:З"VARMAP PRODUCES A LISTING"7ГЦЗ"OF BASIC PROGRAMS SAVED IN "7даЗ"ASCII FORMAT and A MAP OF"7╗кЗ"VARIABLES USED "7р┤З"THIS PROGRAM CAN ALSO BE USED"7 ╛З"TO FIND THE LOCATION OF"8%╚З"RESERVED WORDS BY REMOVING THE"8J╥З"WORD FROM THE DATA STATEMENTS"8p▄З"AT 1640-1660 (UNLESS RENUM'ED)"8ХцЗ"DISK USERS CAN FIND OPEN,EOF."8╡ЁЙ" TO CONTINUE";A$:Ю8▄·З"DEVELOPED USING LINEPRINTER VII"9З"WITH THE OPTION OF USING SCREEN."9(З"THE NAME OF THE PROGRAM DOES"9HЗ"NOT HAVE TO BE SPECIFIED"9k"З"if YOU ARE USING A CASSETTE"9Л,Й" TO CONTINUE";A$:Ю9С6Р9╝@:Г REMOVE ZERO LENGTH INSTRUCTIONS9─JI│09╪TI│Iл1:Е I▓K з Р9ю^Е З(A$(I))▓0з1620:hЕK│1зA$(K)│"":Р:"rАJ│I е Kм1:A$(J)│A$(Jл1):ЛJ:9|I│Iм1:K│Kм1:Бе1620:@Ж:Г; РЖ TO,IF,ABS,AND,ASC,ATN,AUDIO,CHR$,CIRCLE,CLEAR,CLOAD,CLOADM,CLOSE,CLS,COLOR,CONT,COS,CSAVE,CSAVEM,DEF,DIM,DLOAD,DRAW,ELSE,END,EOF,EXEC,EXP,FIX,FN,FOR,GET,GOTO,GOSUB,HEX$,INKEY$,INPUT,INSTR,INT,JOYSTK,LEFT$,LEN,LET,LINE<ЪЖ LOG,MEM,MID$,MOTOR,NEW,NEXT,NOT,OFF,ON,OPEN,OR,PAINT,PCLEAR,PCLS,PCOPY,PEEK,PLAY,PMODE,POINT,POKE,POS,PPOINT,PRESET,PRINT,PSET,PUT,READ,RESET,RESTORE,RETURN,RIGHT$,RND,SCREEN,SET,SGN,SIN,SKIPF,SOUND,SQR,STEP,STOP,STR$,STRING$<_дЖ TAB,TAN,THEN,TIMER,TROFF,TRON,USING,USR,VAL,VARPTR,#,@,^,?,),*,/,=,-,+,;,>,<,.,0lЕ З(VM$(J,1))▓230зVC│VCл1:VM$(VC,0)│VM$(J,0):VM$(VC,1)│VM$(J,1):VM$(J,1)│B$:J│60000000:Бе1920>AvVM$(J,1)│VM$(J,1)л","лB$:J│60000000>HАЛJ>}КЕJ┤50000000зVC│VCл1:VM$(VC,0)│A$(I):VM$(VC,1)│B$>ДФЛI>КЮР>Си:Г>б▓Е PN▓│NP зК>к╝VC│0>┤╞Бе850>╗╨:Г>┼┌╚0:└1>╬фБе30VCл1:VM$(VC,0)│VM$(J,0):VM$(VC,1)│VM$(J,1):VM$                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ж630:Бж630:Бе750(?╞╗(Xм1,Tл4)м(Xл10,Tл12),╛,BF:╔"T255;8;9;2;1"(b╨ЕH│0зS1│S1л1:ДЕH│1зH│0:S2│S2л1(h┌Р(▌ф╚3,1:АR│1е20й3:┬(TX,192),R, Д(3)л1,.6:Л:Бж630:╚4,1:┐1:АR│1е20:┬(TX,192),R,0,.6:Л:╗(TXм28,175)м(TXл18,192),╛,BF:Р)&юЮ:З б(32,"*"):З@10,"astro blast";:Т1039,32:З@320,"TOTAL............")И°З@64,"":З:З"YOUR SCORE:":З"MINES...........";S1:З"BONUS MINES.....";S2:З"ATTACK SHIPS....";S3)╕ЕS1│0з780:ДАT│1еS1:SC│SCл50:╔"2":З@336,SC:Л)щ ЕS2│0з790:ДАT│1еS2:SC│SCл200:╔"6":З@336,SC:Л*MЕS3│0з800:ДАT│1еS3:SC│SCл1000:╔"12":З@336,SC:Л:АT│1е200:Л:ЕSC▓10000зАT│1е50:Ю Д(8):а Д(255),1:Л+ ЕSC▓20000зA$│"EXCELLENT GAME!!!!!":ДЕSC▓10000зA$│"PRETTY DARN GOOD!":ДЕSC▓5000зA$│"NOT BAD!!!":ДЕSC▓2500зA$│"GOOD GAME!":ДЕSC▓1000зA$│"BETTER KEEP YOUR EYES OPEN NEXT TIME!":ДA$│"TRY AGAIN"+╥*З@336,SC:З@416,A$:АT│1е500:Л:Й"ANOTHER GAME [Y/N]";A$:Е О(A$,1)│"Y"зS1│0:S2│0:S3│0:SK│9:GF│0:FP│0:BP│109:B8│2:SC│0:╝:О40:ДЮ:Т65494,0:З:Зд7)"THANKS FOR PLAYING":Зд4)"******ASTRO BLAST*******+т4З@300,"";:К,>>╗(45,0)м(256,7),╛,BF:W│240:АV│1еB8:W│Wм24:┼(Wл1,0)м(Wл39,7),D,▒:╔"T255;O1;1;2;1;O4":Л:Р,vHАI│&H3F07 е &H3F29:НA:ТI,A:Л:╣ Г0│&H3F07:Т&HFF23,63,ПRТ&H3F00,00:Т&H3F01,5,Я\Т&H3F02,155,╤fТ&H3F03,&H90:Т&H3F04,0:Т&H3F05,&H91:Т&H3F06,0,ўpТ&HFF23,( Ж(&HFF23)▒8):A│ Г0(0):РXм1,T)м(Xл10,Tл12),╛,BF:╔"T255;*кАккка     └AA0A<┴AЁ?     А А Акп ·кАкикикиО *кАккUUPUUPUUP*А и и|є╧4C╧ЪБж450"HдЛ:H│0"dоЕ Д(SKл18)│1зБж650:Д300"n╕Бе300"е┬АY2│1е2:Е Ж(343)│247зBP│BPм8:ДЕ Ж(344)│247зBP│BPл8"─╠ЕBP┤5зBP│5:ДЕBP▓212зBP│211"т╓┼(BP,180)м(BPл38,187),D,╜#8рЕ а(BPл18,192)┤▓0▒ а(BPл19,192)┤▓0зTX│BPл18:Бж740:BP│109:B8│B8м1:ЕB8│0з750:ДБж830#EъGF│GFл.5#╖ЇЕGF▓0зЕFP▓3з520:Д╗((FPн10),2)м((FPн10)л10,4),╜,BF:FP│FPл1:╔"V15T255;O5;"л И(FPн2)л";"л И(FPн2м1)л"O4;V30":Л:Р#┐■Л:Р#цTC│0:ЕBPл18▓Xм1░BPл18┤Xл8зTC│Tм108$МЕ Ж(345)│247зFP│0:HJ│1:╗(0,2)м(41,4),╛,BF:╗(BPл19,177)м(BPл19,120лTC),╜:Т&H3F02,1:Бж880:Т&H3F02,155::╗м(BPл19,177),╛:ЕBPл18▓Xм1░BPл18┤Xл9зБж710:T│200:Бе510:Бе300$╬ЕHJ│1зHJ│0:ЕJ9│1зЕBP▓BXм18░BP┤BXл10░BV▓109зJ9│0:S3│S3л1:Бж630$╓&Л:Р$√0HK│0:MS│ Д(6):ЕMS│MR зHK│Tл6м103% :ЕNM(MS)│0зР%;DLX│X(MS)л4:Е а(LX,192)┤▓0▒ а(LXл1,192)┤▓0зР&NLX│X(MS):╗(LX,110лHK)м(LXл4,192),╜:╗(LXл8,110лHK)м(LXл4,192),╜:Т&H3F03,19:Т&H3F05,20:Т&H3F02,1:Бж880:Т&H3F03,&H90:Т&H3F05,&H91:Т&H3F02,155:╗(LX,110лHK)м(LXл4,192),╛:╗(LXл8,110лHK)м(LXл4,192),╛&3XЕ а(LXл4,192)┤▓0▒ а(LXл5,192)┤▓0зTX│LXл4:Бж740&╔bЕLXл4▓BPл9░LXл4┤BPл25з┼(BPл5,180)м(BPл35,190),A:Бж630:╗(BPл3,180)м(BPл42,192),╛,BF:BP│109:GF│м10:FP│0:╗(0,2)м(41,4),╛,BF:B8│B8м1:ЕB8│0з750:ДБж830&╧lР&█vБж880:Р&сАР'КMR│0:АT│1е2:╔"T255;1;2;3;4;5;6;7;8;9;5;4;3;2;1":Л'NФJ9│1:BV│40:M│ Д(3):ЕM│1зBX│10:ДЕM│2зBX│112:ДBX│216'ЛЮАT│1е28:┼(BXл15м(Tо2),BV)м(BXл15л(Tо2),BVл15),G,╜:╔"1":Л'╠иБж450:Бж560:BV│BVл8:┼(BXл1,BV)м(BXл29,BVл15),G,╜:ЕBV▓170з700'∙▓ЕJ9│1з680:Д╗(BX,BV)м(BXл29,BVл15),╛,BF:Р(╝БLOTTO, 8 0 2 39 DATE, 5 3 1ST NO., 2 5 2ND NO., 2 5 3RD NO., 2 5 4TH NO., 2 5 5TH NO., 2 5 6TH NO., 2 5 BONUS NO., 2 5 "л Л(8)л Л(9)л Л(10)л Л(94)лAT$:РJ│1е4:Q$│ Р(M$(K),(Jм1)н32л1,11):Е П(Q$,3)│"DT " ░  К(Q$)┤▓0 з Q$(L)│ О(Q$,8):AA$(L)│Q$(L)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 :Ь(23,9,5):Ь(29,9,5):Ь(33,9,5):Ь(35,9,5)8ЫlАX│5е37:Ь(X,10,5):Л:Э(10,10):Э(14,10):Э(15,10):Э(16,10):Э(22,10):АX│24е28:Э(X,10):Л:АX│30е32:Э(X,10):Л:Э(34,10)8їmЬ(5,11,5):Ь(7,11,5):Ь(11,11,5):Ь(21,11,5):Ь(23,11,5):Ь(29,11,5):Ь(33,11,5):Ь(35,11,5)9OnЬ(5,12,5):Ь(8,12,5):Ь(11,12,5):Ь(21,12,5):Ь(23,12,5):Ь(29,12,5):Ь(33,12,5):Ь(35,12,5)9мoАX│5е39:Ь(X,13,5):Л:Э(6,13):Э(7,13):Э(8,13):Э(10,13):Э(16,13):Э(22,13):Э(28,13):Э(34,13)9■pАX│50е53:Ь(X,5,7):Ь(X,9,7):Л:АX│49е54:Ь(X,6,7):Ь(X,8,7):Л:АX│48е55:Ь(X,7,7):Л:!qАY│10е16:Ь(51,Y,7):Ь(52,Y,7):Л::rАX│44е59:Ь(X,12,7):Л:┬sЬ(50,17,7):Ь(53,17,7):Ь(49,18,7):Ь(54,18,7):Ь(48,19,7):Ь(55,19,7):Ь(47,20,7):Ь(56,20,7):Ь(46,21,7):Ь(57,21,7):Ь(45,21,7):Ь(58,21,7):═tАN│1е5:·uЬ(50,6,7):Ь(52,6,7):Э(50,7):Э(52,7):╔"C";'vЬ(50,7,7):Ь(52,7,7):Э(51,7):Э(53,7):╔"C";TwЬ(51,7,7):Ь(53,7,7):Э(51,6):Э(53,6):╔"C";БxЬ(51,6,7):Ь(53,6,7):Э(50,6):Э(52,6):╔"C";ЗyЛ;ЭzЬ(52,6,7):Э(53,6);и{АN│1е5;╘|Ь(50,8,7):Ь(51,8,7):Ь(52,8,7):Ь(53,8,7);¤}Э(50,8):Э(51,8):Э(52,8):Э(53,8):╔"C"<~ЛЕЗ@455,"BY HENRY SCHROY";:АNN│1е2>@ЖЬ(51,6,7):Э(50,6):Ь(53,6,7):Э(52,6)>SЗ╔"C":АN│1е70:Л>АИЬ(52,6,7):Э(53,6):Ь(50,6,7):Э(51,6):╔"C">фЙЬ(50,8,7):╔"BC":Э(50,8):Ь(51,8,7):╔"BC":Э(51,8):Ь(52,8,7):╔"BC":Э(52,8):Ь(53,8,7):╔"BC":Э(53,8)>єКАN│1е100:Л>∙ЛЛ?"МАN│1е2:╔"L32O3CFAO4CP16O3AP16L255":Л?5НАX│1е29:╔"O1C"?ИОЗ@383лX,D$;:З@414лX,D$;:З@446лX,D$;:З@384лX,A$;:З@415лX,B$;:З@447лX,C$;:╔"O1C"?ОПЛ?бРАC│1е2:╔"O5BC"?╔СЬ(53,6,7):Э(52,6):Ь(51,6,7):Э(50,6)?єТЬ(52,6,7):Э(53,6):Ь(50,6,7):Э(51,6):Л@2УАN│1е2:╔"O5FA":Ь(58,28,0):Ь(59,28,0):Ь(60,28,0):Ь(61,28,0)@\ФЭ(58,28):Э(59,28):Э(60,28):Э(61,28):Л@bХРA:Ц┐1,0:╔"V18T3O3L3GP100GP100GP100V31L1.E-P1V18L3FP100FP100FP100V31L1.DP1O1L9E-P100E-P100E-P100CP100O2E-P100E-P100E-P100CO3P100E-P100E-P100E-P100CP2O2CP100CP100CP100O1GP100O2FP100FP100FP100DP100O3FP100FP100FP100DP2AHЧ╚3,1:┐1,1A┬Ш╔"O2GP100GP100FP100E-P100O1":┐1,0:╔"E-P100E-P100FP100GP100O2GP100GP100FP100E-P100":┐1,1:╔"O1E-P100E-P100FP100GP100O2"B Щ╔"GP100":╚4,1:┐1,1:╔"GP100":┐1,0:╔"FP100":╚3,1:┐1,1:╔"E-":┐1,0:╔"P2C":┐1,1:╔"P2L255":╚4,1BLЪАN│1е30:┐1,0:╔"G":┐1,1:╔"G":Л:╚4,1:┐1,1BUЫ┐1,0BoЬЕSCо12│ Б(SCо12)з┐1,1BzЭ╝:Бе38FP100GP100O2GP100GP100FP100E-P100":┐1,1:╔"O1E-P100E-P100FP100GP100O2"B Щ╔"GP100":╚4,1:┐1,1:╔"GP100":┐1,0:╔"FP100":╚3,1:┐1,1:╔"E-                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 {&Я:Г HENRY SCHROY 2790 NE 57TH COURT FT. LAUDERDALE, FL 33308 COPYRIGHT (C) CLOAD 1982&╞╔"L255;V31;O1":Ю(0):Бж105:X│ Д( Я)&щЖ 9,2,9,13,8,2,8,4,8,6,8,14,99'pЖ 8,14,7,14,6,15,6,19,6,19,4,19,10,14,13,17,13,17,13,19,13,19,12,19,10,8,10,9,11,9,11,11,11,11,12,11,7,10,5,10,5,11,5,9,5,9,4,9,99'жЖ 999,9,14,9,19,9,19,7,19,6,11,7,11,10,9,10,10,99'▒╚4,1:╝'█НA:ЕA│99з7:ДНB,C,D:╗(A,B)м(C,D),╜:Бе6(НA:ЕA│99з8:ДНB,C,D:╗(A,B)м(C,D),╜:Бе7(3МA(9.975),B(9.975):─(1,1)м(20,20),A,G:╝:П(^ НA:ЕA│99з10:ДНB,C,D:╗(A,B)м(C,D),╜:Бе9(p НA:ЕA┤▓999з10(Ь НA:ЕA│99з12:ДНB,C,D:╗(A,B)м(C,D),╜:Бе11(╡ ─(1,1)м(20,20),B,G:╝(╬ П:МC(9.975),D(9.975))НA:ЕA│99з15:ДНB,C,D:╗(21мA,B)м(21мC,D),╜:Бе14)2НA:ЕA│99з16:ДНB,C,D:╗(21мA,B)м(21мC,D),╜:Бе15)M─(1,1)м(20,20),C,G:╝:П)НA:ЕA│99з18:ДНB,C,D:╗(21мA,B)м(21мC,D),╜:Бе17)СНA:ЕA┤▓999з18)├НA:ЕA│99з20:ДНB,C,D:╗(21мA,B)м(21мC,D),╜:Бе19)▄─(1,1)м(20,20),D,G:╝)ї╝:МE(9.975),F(9.975)*!╗(10,2)м(11,4),╜,BF:╗(8,5)м(13,12),╜,BF*Z╗(9,13)м(9,19),╜:╜(8,19):╗(12,13)м(12,15),╜:╜(13,15)*╗(7,7)м(7,10),╜:╗(14,7)м(14,8),╜*Ц─(1,1)м(20,20),E,G*дМG(9.975)*╩╗(7,9)м(7,10),╛:╗(14,8)м(14,10),╜+╗(9,16)м(9,19),╛:╛(8,19):╗(12,16)м(12,19),╜:╜(13,19):╛(13,15):╜(8,15)++─(1,1)м(20,20),F,G+C╗(1,1)м(20,20),╛,BF+Т┼(0,0)м(19,19),E,╜:╗(11,15)м(11,18),╜:╛(12,14):╜(12,18):─(0,0)м(19,19),G,G+в ╝:МH(2.475)+╢!┬(5,5),5:├(5,5)+╚"╛(3,3):╛(7,3)+█#╗(3,7)м(7,7),╛+Є$─(1,1)м(10,10),H,G+°%╝,&╚3,1:┴3,0:╗(0,30)м(255,40),╜,BF,6'╗(0,70)м(255,80),╜,BF,R(╗(0,110)м(255,120),╜,BF,n)╗(0,150)м(255,160),╜,BF,С*X2│ Д(8)н20л25:Y2│10:╚4,1:┴5,0-.+XP│ Д(20)н10:╗(XP,70)м(XPл29,80),╛,BF:X│ Д(18)н10л20:╗(X,110)м(Xл29,120),╛,BF:X│ Д(20)н10:╗(X,150)м(Xл29,160),╛,BF:X│ Д(18)н10л20:╗(X,30)м(Xл29,40),╛,BF-7,Бе46-г-╗(X2,Y2)м(X2,Y2л5),╜:╗м(X2м5,Y2л9),╜:╗(X2,Y2л5)м(X2л5,Y2л9),╜:┬(X2,Y2м2),2:╗(X2м5,Y2л2)м(X2л5,Y2л2),╜:Р-м.Бж45-╒/┐1,1:X│230:Y│170:ЕSCо6│ Б(SCо6)з┐1,0-т0AM│1:A│0-■1╗(XP,70)м(XPл28,80),╜,B.2┼(X,Y)м(Xл19,Yл19),G,╜.И3XX│X:YY│Y:ЕY┤170░ а(X,Yл20)│0░ а(Xл19,Yл20)│0░ а(Xл18,Yл20)│0зY│Yл20:PX│1:╗(XX,YY)м(XXл19,YYл19),╛,BF:Бе50.д4ЕPX│1з╔"O1;L255;C":PX│0.▓5XX│X:YY│Y/66ЕX│X2м5 ▒X│X2м15 зЕY│Y2 зЕPL│0з╔"1;2;3;4;5;6;7;8;9;10;11;12":╗(X2м5,Y2м10)м(X2л5,Y2л10),╛,BF:PL│1:X2│ Д(11)н20л25:Y2│10:SC│SCл10 7ЕPL│1░Y│170зPL│0:SC│SCл1:ЕSCо6│ Б(SCо6)з150:ДЗ@396,"SCORE:";:З@462,SC;:╔"T5L16O3AL8.O4CP8P16L16C+DL8.O3AP8P16L8AL16GAGO4CO3L8.AL16FP4O2L32T1CDCL255E-O1AO2E-O1AO2E-O1AO2E-O1AO2E-O1AO2E-O1AO2E-O1AO2E-O1A":╝:Бе3808AA│A039ЕAM│1зA│Aл15:ЕA▓│240зAM│00O:ЕAM│0зA│Aм15:ЕA┤│0зAM│10А;╗(AA,20)м(AAл9,29),╛,BF:┼(A,20)м(Aл9,29),H,▒0╜<╗(250мAA,60)м(241мAA,69),╛,BF:┼(250мA,60)м(241мA,69),H,▒0Є=╗(AA,100)м(AAл9,109),╛,BF:┼(A,100)м(Aл9,109),H,▒13>╗(250мAA,140)м(241мAA,149),╛,BF:┼(250мA,140)м(241мA,149),H,▒1p?Е а(X,Yл15)▒ а(Xл10,Yл15)▒ а(Xл26,Yл14)▒ а(Xл30,Yл15)з901Ш@ЕX▓0зЕ а(Xм5,Yл15)▒ а(Xм10,Yл15)з901╒AЕA▓175з╗(XP,70)м(XPл28,80),╜,B :Д╗(XP,70)м(XPл28,80),╛,B1щBЕ Ж(338)│254з831·CЕ Н(0)│63з762 DЕ Н(0)▓0з502EX│Xм10:ЕX┤0зX│023FЕ а(X,Yл10)зX│XX2oG╗(XX,YY)м(XXл19,YYл19),╛,BF:XX│X:┼(X,Y)м(Xл19,Yл19),A,▒2ГHX│Xм10:ЕX┤0зX│02ШIЕ а(X,Yл10)зX│XX2╧J╗(XX,YY)м(XXл19,YYл19),╛,BF:┼(X,Y)м(Xл19,Yл19),B,▒2╪KБе512ЁLX│Xл10:ЕX▓230зX│2303MЕ а(Xл10,Yл10)зX│XX3DN╗(XX,YY)м(XXл19,YYл19),╛,BF:XX│X:┼(X,Y)м(Xл19,Yл19),C,▒3\OX│Xл10:ЕX▓230зX│2303tPЕ а(Xл10,Yл10)зX│XX3лQ╗(XX,YY)м(XXл19,YYл19),╛,BF:┼(X,Y)м(Xл19,Yл19),D,▒3┤RБе513╩SY│Yм10:ЕY┤10зY│103ЄTЕ а(X,Y)▒ а(Xл19,Y)▒ а(Xл10,Y)зY│YY4)U╗(XX,YY)м(XXл19,YYл19),╛,BF:┼(X,Y)м(Xл19,Yл19),E,▒4DVYY│Y:Y│Yм10:ЕY┤10зY│104lWЕ а(X,Y)▒ а(Xл10,Y)▒ а(Xл19,Y)зY│YY4гX╗(XX,YY)м(XXл19,YYл19),╛,BF:┼(X,Y)м(Xл19,Yл19),F,▒4мYБе534№Z╗(0,Y)м(X,Yл19),╛,BF:╗(Xл19,Y)м(Xл40,Yл19),╛,BF:┼(Xл5,Yл10)м(Xл14,Yл19),H,▒5[АN│1е30:╔"L255;O1;CBF":Л5*\АY│Y е180й105H]╗(X,YY)м(Xл19,YYл19),╛,BF5c^┼(X,Y)м(Xл19,Yл19),G,╜5l_YY│Y5r`Л5Рa╗(X,YY)м(Xл19,YYл19),╛,BF5Щb╔"C"5сc╗(X,191)м(Xл19,191),╜:╗(X,190)м(Xл4,190),╜:╗(Xл19,189)м(Xл19,190),╜5Ёd╔"5;7;2;1"62e╔"T1;O2;L4C;C;C;L8.;E-L16;DL8.DL16CL8.CL16O1BL4O2C;L255;T255"6AfАN│1е500:Л6ЯgЗ@462,SC;:З@396,"SCORE:";:АN│1е400:Л:З@462,D$;:З@396,D$лD$;:З@426,"GAME OVER";:АN│1е400:Л7hЗ@426,D$лD$лD$;:Е Ж(338)┤▓254з103:ДЗ@413,D$;:З@476,D$;:З@444,D$;:Бж116:╝:PL│0:SC│0:X│ Д( Я):Бе387ДiA$│ Л(131)л Л(131):B$│ Л(135)л Л(135)л Л(139)л Л(139):C$│ Л(132)л Л(131)л Л(131)л Л(136):D$│ Л(128)л Л(128)л Л(128)л Л(128)7╒jАX│5е39:Ь(X,8,5):Л:Э(10,8):Э(16,8):Э(22,8):Э(28,8):Э(34,8):АX│30е32:Э(X,8):Л8'kЬ(5,9,5):Ь(9,9,5):Ь(11,9,5):Ь(17,9,5)  Z&:Г R.W. ODLIN 2125 HOOGDAL ROAD SEDRO-WOOLLEY, WA 98284&Н ╝:└4:╚4,1&┬М LO$(7),N1(75),N2(75),N3(75),N4(75),X(35),Y(35)&╩Q│0&┌(╝:╚3,1:┐1,0'и2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк"(v4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк")D6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"*8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк"*р:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк"+оLO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк",╨ALO$(7)│"╜│эО  Ж 4жа4 4Ж4╞жДздГ рГ рZ&ыГ Є5J&█5жА5 5J&╞9",ьFVP│0:AD│0:VP│ Э(LO$(0))- KAD│ Ж(VPл2)н256л Ж(VPл3)-PVP│ Э(LO$(7))-=UQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q-PXТQл7, Ж(25)м25-~Z╞"S4A0C3BM0,191R255U149L255D148R255BM0,0"-Л_Q│ Г(AD)-ЦdБж1170-╞шВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS.-╠ЄЮ-ь№З@38,"CHROMASETTE MAGAZINE".З" ISSUE #22 APRIL 1983";. З.BЗ:З" ALL PROGRAMS CONTAINED HEREIN".cЗ" COPYRIGHT (C) CLOAD".Ж$З" MAGAZINE P.O. BOX 1448".к.З" SANTA BARBARA, CA 93102.".╬8З" REPRODUCTION BY ANY MEANS".єBЗ" PROHIBITED. CLOAD MAGAZINE"/LЗ" ASSUMES NO RESPONSIBILITY FOR"/?VЗ" ERRORS, OMISSIONS OR DAMAGES"/d`З" CAUSED BY THE USE OF THESE"/yjЗд11)"PROGRAMS."/К~АI│1е2000:ЛI/РИО/еТВ COVER MATERIAL/▒ЬT│0:Z│2/╩жB│ Д(8)л2:C│ Д(8):┴C/ю░АX│0 е255йB:╗(X,44)м(X,191),╜:Л0║АY│44 е191йBоZ:╗(0,Y)м(255,Y),╜:Л0.─T│Tл1:ЕT▓6з1230:Д11900S╬ЕT▓12з1240:Д╚4,1:┐1,1:Z│1:Бе11900Y╪РF THESE"/yjЗд11)"PROGRAMS."/К~АI│1е2000:ЛI/РИО/еТВ COVER MATERIAL/▒ЬT│0:Z│2/╩жB│ Д(8)л2:C│ Д(8):┴C/ю░АX│0 е255йB:╗(X,44)м(X,191),╜:Л0║АY│44 е191йB                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ╟╚  ┬!┬╞$┬&'(─ +├                        TARTCOV BAS ]FOOL BAS"ФRESCUINSBAS#фRESCUE BAS~FILES BAS%sOTTO DT  ВOTTO I  OTTO DAT )NASTBLASTBASZPENIPEDEBIN*VARMAP BAS╥                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 С&%:ГCOPYRIGHT (C) 1983 CLOAD INC.&^:ГPROGRAM BY ARIZIN PO BOX 8825 SCOTTSDALE, AZ 85252&g О 30&ъТ &HF8,&H32:Т &HF9,&H62:Т &HFA,&H1C:Т&HFB,&HAF:Т&HFC,&H7E:Т&HFD,&HAD:Т&HFE,&HA5:Т&H19A,&H39:Т&H19B,&H0:Т&H19C,&HF8:Т&H19A,&H7E&Ї(D│159'2Ю:АI│1е800:Л'з<Е  Ж(188)┤▓6з 70 :ДЗ"EXTENDED COLOR BASIC 1.0 COPYRIGHT (C) 1891 BY DANDY UNDER LICENSE FROM NICROSOFT OK":Бе80(1FЗ"DISK EXTENDED COLOR BASIC 1.0 COPYRIGHT (C) 1891 BY DANDY UNDER LICENSE FROM NICROSOFT OK"(<PБе 150(VZЗA$;:Е A$┤▓ Л(13)з 80(wdП:АI│1е Д(9):НA$:Л:ЗA$:З"OK"(АnБе80)ExЖ"?SN ERROR ON YOUR FACE","?BS ERROR (YOU'RE FULL OF)","?REDUNDANT ERROR ERROR","?APRIL FOOL ERROR","?PROCESSOR ERROR IN REGISTER X","?TV ERROR IN CHANNEL 3","?LOOSE NUT BEHIND KEYBOARD ERROR")eВЖ"?I/D ERROR (WHO ARE YOU)")ЖМЖ"?6809 SAYS 'HA-HA' TO YOU")УЦЗ  Л(D);)оаD│Dл16:Е D▓255 з D│159)╗кА X│1е15)▌┤A$│ Т:Е A$┤▓"" зЗ Л(8);:Бе210)у╛Л)Ў╚З  Л(8);:Бе150*╥З A$;*▄Е A$│ Л(13) з 100*!цБе 150╜╖@ЯPН ╜б┴& НaВ╜б┴'яЧS╞╜╡mЦS╜╡зД~╡LЮP0И@О╞4╞ oДжаЕ'lДoЕ'l0Z&щ1ир╞ oДжаЕ'lДoЕ'l0Z&щjф&╟5ДЮP1Й0Д╞@жазАZ&∙ЮP1И@0Й@╞@жазАZ&∙9ЮP0И@ОЖ4╞ 4▐P3╔А╞АЖН6ЖН2ч└jф&Ё▐P3╔А╞ чфцд+01! ц└ЖНЖНчаjф&ц5jф&╝5В4жллИ┴лИ└лИ┐лИ?лИ@лИAБ' % Б&ър жД&°509                                          ЮP1Й0Д╞@жазАZ&∙ЮP1И@0Й@╞@жазАZ&∙9ЮP0И@ОЖ4╞ 4▐P3╔А╞АЖН6ЖН2ч└jф&Ё▐P3╔А╞ чфцд+01! ц└ЖНЖНчаj                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  с&С:Г COPYRIGHT (C) 1982 CLOAD HENRY SCHROY 2790 NE 57 COURT FT. LAUDERDALE, FL 33308&о:Г RESCUE INSTRUCTIONS&╖Бе10&└Бе20&╤╔"V31L255O4"&р ╚4,1:╝:Бе3'%МA(3):┬(5,5),5:├(5,5):╛(3,3):╛(7,3):╗(4,6)м(6,6),╛:╛(3,7):╛(7,7)'<─(0,0)м(10,10),A,G'HFМL$(90)'^ZАZ│32е90:НL$(Z):Л'g_╚4,1'q`A│300'wd╝'Аn┐1,1'ИxX│1'ШВ╞ "BM10,10"'бЗY│10'├МНA$:ЕA$│"999"зЕA│300з300:Д400'╘НАXX│1е З(A$)'ъОZ│ К( Р(A$,XX,1))'їЦ╞L$(Z)(а╞L$(32)(еЕZ┤▓32з╔"L200E-"( кX│Xл1(G┤ЕX▓30з╞"BM10,"л И(Yл12):X│1:Y│Yл12(M╛Л(t╚╞"BM10,"л И(Yл12):X│1:Y│Yл12:Бе140(╙,╔"O1":XX│1:АX│1е245й5:╗(XX,148)м(XXл10,158),╛,BF:┼(X,148)м(Xл10,158),A,╜:XX│X:╔"C":Л:╔"O4"(у6A│400:Бе100(ЄРЕ Т│""з400(¤шЖ"BR4")ЄЖ"BR2U0BU2U4BM+2,6").№Ж"BRBU6D2BR2U2BEBD6")UЖ"BRU2LR4LD2BL3BU4RU2D2R2U2D2RBD4")sЖ "BUR2DUREHL2HERUDR2BD5")СЖ "BUE4BL3LURDBR3BD5URDL")н$Ж "BR4BU2G2LHE3UHLGDF4")─.Ж "BR2BU6D2BR2BD5")┘8Ж "BR4BU6LGD4FR")юBЖ "REU4HLBR4BD6"*LЖ "BUE4G2U2D4U2L2R4L2H2F4BD"*(VЖ "BU3R4L2U2D4BR2BD"*A`Ж "BR3BULURD2GBR2BU"*VjЖ "BRBU3R2BRBD3"*itЖ "BR2LURDBR2"*y~Ж "UE4UBD6"*ХИЖ "BUU4ER2FD4GL2HBR4BD"*лТЖ "BRBU5ED6LR2BR"*└ЬЖ "BU5ER2FDG4R4"*▀жЖ "BU5ER2FDGLRFDGL2HBR4BD"*Ї░Ж "BR3U6G3R4BD3"+║Ж "BUFR2EUHL3U3R4BD6"+,─Ж "BU3R3FDGL2HU3E2RBRBD6"+A╬Ж "BU6R4G3D3BR3"+g╪Ж "BR4BU2DGL2HUER2L2HUER2FDGFBD2"+ЕтЖ "BUFR2EU4HL2GDFR2BRBD3"+гьЖ "BRBURULDBU3RULDBR3BD4"+╞ЎЖ "BR2BULURD2GBRBU5LURDBR2BD4"+┘Ж "BR4BU6G3F3"+ў Ж "BRBU4R2BL2BD2R2BR3BD2", Ж "E3H3BR4BD6",&Ж "BU5ER2FDG2BD2UBR2BD",C(Ж "BU5ER2FD4GL2HUER3BD3",Z2Ж "U4E2F2D2L4R4D2",x<Ж "RU6LR3FDGL2R2FDGL3BR4",ФFЖ "BR4BUGL2HU4ER2FDBD4",мPЖ "RU6LR3FD4GL2BR3",╞ZЖ "U3R4L4U3R4BD6L4R4",▄dЖ "U3R4L4U3R4BD6",№nЖ "BR2BU3R2D2GL2HU4ER2FBD5"-xЖ "U6D3R4U3D6"-'ВЖ "BRR2LU6LR2BRBD6"-=МЖ "BU2DFR2EU5BD6"-OЦЖ "U6BR4G3F3"-dаЖ "R4L4U6BR4BD6"-uкЖ "U6F2E2D6"-З┤Ж "U6DF4U5D6"-Ъ╛Ж "R4L4U6R4D6"-▓╚Ж "U6R3FDGL3BR4BD3"-╤╥Ж "BUU4ER2FD4GL2HBR2BU1F2"-ц▄Ж "U6R3FDGL3RF3".цЖ "BUFR2EUHL2HUER2FBD5".ЁЖ "BU6R4L2D6BR2".*·Ж "U6D6R4U6D6".AЖ "BU6D4F2E2U4BD6".VЖ "U6D6E2F2U6D6".qЖ "UE2H2UDF2E2UDG2F2D".Л"Ж "BU6DF2E2UDG2D3BR2".е,Ж "BU6R4DG2LR2LG2DR4".┐6Ж" RESCUE".╚@Ж" ".эJЖ" THE OBJECT OF THE GAME IS"/TЖ"TO RESCUE THE BABY AT THE TOP"/*^Ж"OF THE BUILDING."/KhЖ" THE EENIE-MEANIES ARE"/orЖ"GUARDING THE BABY AND IF YOU"/Ф|Ж"GET TOO CLOSE THEY WILL CATCH"/╡ЖЖ"YOU AND THROW YOU OFF THE"/╞РЖ"BUILDING."/ьЪЖ" "," "," EENIE-MEANIE"/°дЖ "999"0оЖ" WHEN YOU GET TO THE BABY"0?╕Ж"YOU HAVE TO COME BACK DOWN."0d┬Ж" YOU CONTROL YOUR MAN WITH"0Ж╠Ж"THE RIGHT JOYSTICK AND THE"0й╓Ж"RED BUTTON MAKES HIM CLIMB."0╒рЖ" "," "," NOW CLOAD AND RUN RESCUE."0ръЖ"999"E-MEANIE"/°дЖ "999"0оЖ"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 p$:ГCOPYRIGHT(C) 1983 CLOAD INC.4 :Г filesX:Г BY R.A.D. HEWKO MAY 22/82_:Гj(Бе1370Т2Х1000:МDN$(30),NA(30),NT(30),NS(30)п<Ю:З@10,"files":З@162,"";╔FЙ"DATE MM/DD/YY ";D0$.PCM$│"$$########.## ":CI$│"######## ":CL$│"% %":NB(1)│5:NB(2)│13:NB(3)│0:NB(4)│13:NB(5)│99ZБж1580KdБж1600:Бж1280pnЮ:█ 0:З"SESSION IS TERMINATED":КЧxЕNI│0зN│1:Бе160 :ДN3│1:Бж520:Бе150ЭВЮnМЗ" key":З:З"DD","--> NEXT RECORD":З"ELETE","<-- LAST RECORD":З"DIT","^ UP 10":З"IND","V BACK 10":З"EY","IST":З"FF","

RINT":З"ESET","EARCH":З"ERO","@ PRESENT RECORD"wСM9│1┬ЦЕ M9 з З@390,"your choice";:Д З@384,"your choice---or enter for menu";щЧM9│0:Бж1000:N│ Ю(AT$,D$):Е N│0з1309аЗ:И N Бж 290,330,630,760,760,760,760,690,720,790,130,1010,610,1260,1510,520jкЕD$│"O" з M│0:Р :Д Е N0│0з 150 :Д N0│0:Бе160┤Й"FILENAME ";DD$╢╛D$│DD$л"/DT":N(1)│0:Щ"I",#2,D$:Й#2,DK$,NF,NI,NX,NT╚NS│0:АI│1 е NF:Й#2,DN$(I),NT(I),NS(I):NA(I)│NB(NT(I)):ЕNA(I)│0 з NA(I)│NS(I):ЕNA(I)┤10 з NA(I)│10.╥Л:NT(0)│1:█ 0Г▄Щ"D",#2,DD$л"/I",256:╨#2,1  з DY$,255  з DX$:─#2,1:NI│ К(DY$):DI$│ О(DX$,NI):█ 0╙цN│0:Щ"D",#2,DD$,NT:NS(0)│1:АI│0еNF:╨#2,N  з CD$,NS(I)  з DV$(I):N│NлNS(I):Л ЁDK$│ б(16м З(DK$)о2,32)лDK$:DN$(0)│"CODE":NA(0)│5:РL·N3│(N3▓0 ░ N3┤│ З(DI$))нмN3:N3│N3м(N3│0):KI│ К( Р(DI$,N3,1))kЕKI▓NI ▒ KI┤1 зKI│1:Р :Д РИ─#2,KI:АJ│0еNF:Бж460:Л:РзАJ│0еNF:Бж420:ЛJ:┼ #2,KI:Р▄"Е NI│255 зЗ"file space full":Р :ДNI│NIл1:E│0:F│0,Бж320:З:З" ":З"record #";NI:KI│NI:Бж260V6АJ│1еNF:ЗDN$(J),:Бж360:Бж420:Л:┼#2,KI:L│NS(1):Бж600:Бж520:Рh@Ю:З#P,DK$:З:Р╡JЕ JP│1 з Р:Д █ 0:Щ"D",#2,DD$л"/I":Бж340:╘DY$│ Л(NI):╘DX$│DI$:┼#2,1:█ 0:Р╙T╨#2,1  з DY$,255  з DX$:Рэ^╘DY$│ Л(0):╘DX$│DI$:Р hИNT(J)Бе370,370,380,370,390"rET(J)│0:ЙET(J):Р<|BT$(J)│" ":╗ЙBT$(J):РnЖC$│"":B$│D0$:З б(10,8);:Й"MM/DD/YY ";C$:Бж410░РBT$(J)│ Л( Й( П(B$,2)))л Л( Й( О(B$,2)))л Л( Й( Р(B$,4,2))):Р╓ЪЕC$│""зЗ@(Jн32л144),B$:Р:ДB$│C$:Р∙дИ NT(J) Бе 430,440,450,440,450о╘DV$(J)│ Л(ET(J)):Р)╕╘DV$(J)│ ж(ET(J)):Р>┬╘DV$(J)│BT$(J):Рa╠И NT(J) Бе 470,480,490,480,510Й╓ET(J)│ К(DV$(J)):BT$(J)│ И(ET(J)):Р▒рET(J)│ в(DV$(J)):BT$(J)│ И(ET(J)):Р┼ъBT$(J)│DV$(J):РыЇA$│ П( И( К( Р(B$,A,1))л100),2):РM■B$│DV$(J):A│2:Бж500:BT$(J)│A$л"/":A│3:Бж500:BT$(J)│BT$(J)лA$л"/":A│1:Бж500:BT$(J)│BT$(J)лA$:РaЕ IV з Р:ДБж250rБж320:─#2,KI╕З#P,"record #";KI;д23);D0$:ЕDV$(0)│ Л(17) зЗ@200,"file deleted":Р√&АJ│1еNF:Бж460:З#P,J;DN$(J);д16);:ИNT(J) Бе 560,560,560,570,5800З#P,BT$(J):Бе590*:З#P,═ CM$;ET(J):Бе590?DЗ#P,═ CL$;BT$(J)GNЛ:РБXK│KI:DS$│BT$(1):N2│0:N1│NI:N3│1:Бж660:N3│N3л1:Бж680:РмbБж1330:З#P,"":Бж540:З#P,"":P│0:Ю:Бе520┴lЗ#P, Л(11):P│0:РюvЕNT(1)│5з670:ДЗ"search for";DN$(1);:ЙDS$ПАL│ З(DS$):Е О(DS$,1)│"#"зKI│ Й( П(DS$,Lм1)):N3│ Ю(DI$, Л(KI)):Бж260:Бж320:─#2,KI:Бе540:ДБж650:ЕJF│1зЗ"file not found":Й" TO CONTINUE";D$:Бе520:ДБе520еКN2│0:N1│NIл1:JF│0 =ФЕN1мN2┤│1зJF│1:N3│N2:Р:ДN3│ Б((N1лN2)о2):KI│ К( Р(DI$,N3,1)):Бж260:─#2,KI:BT$(1)│ О(DV$(1),L):Е DS$┤BT$(1)з N1│N3:Бе660:ДЕDS$▓BT$(1)зN2│N3:Бе660:ДР ЕЮL│4:Й"search for cv#";NQ:DS$│ Л(NQ)л" ":Бж650:N3│N3м(N3┤NI):Бе520 чиЕN3│NI з DI$│DI$л Л(K):Р:Д Е N3│1 з DI$│ Л(K)лDI$:Р :Д DI$│ О(DI$,N3м1)л Л(K)л П(DI$,NIмN3):Р!▓З"delete (Y/N/U) ";:Бж1000:ЕD$│"N"зР!1╝A1$│ Л(17):ЕD$│"U"зA1$│ Л(0)!P╞╘DV$(0)│A1$:┼#2,KI:Бж530:Р!з╨З@416,"edit field #";:Бж1000:Е К(D$)┤48 ▒  К(D$)▓57 ▒  Й(D$)┤0 ▒  Й(D$)▓NF зN0│1:Р!┘┌J│ Й(D$):Бж460:З:З"change";BT$(J);"to";:Бж360")фБж420:┼#2,KI:ЕJ│1зC$│ Л(KI):K│ Ю(DI$,C$):DI$│ О(DI$,Kм1)л П(DI$,NIмK):Бж600"3юБе520"R°K│NлNм9:ЕK▓1зK│10н(NлNм13)"tN3│N3лK:N3│N3м(N3│0)нNI:Бе520"Х АJ│0еNF:ЗJ;" ";DN$(J):Л:З:Р#Ю:З" subsystem":З:Бж780:З"SCREEN(S) OR LIST(L) ";:Бж1000:D1$│D$:З:Й"# OF SEARCH FIELDS";M:ЕM│0зБе520# АI│1еM:ЕI▓1зЮ:Бж780#М*Й"search field";NK(I):J│NK(I):З"comparison data";:Бж360:B1$(I)│BT$(J):ЕNT(J)│3 ▒ NT(J)│5 з 820:Д E(I)│ET(J)$94З" (1) LESS THAN":З" (2) NOT LESS THAN":З" (3) GREATER THAN":З" (4) NOT GREATER THAN":З" (5) EQUAL TO":З" (6) NOT EQUAL TO":Й"comparison type";NH(I):Л$T>ЕD1$│"L"зБж1020:Бж1070$ЙHАL│1еNI:KQ│1:N3│L:Бж250:Бж270:ЕDV$(0)│ Л(17)з880$·RАK│1еM:J│NK(K):Бж460:ЕNH(K)▓4 ░ NT(J)│3 з KF│ Ю(BT$(J),B1$(K))л1:KF│KFнм(NH(K)│5)м(NH(K)│6)н((KF│1)л1):Бе870%<\N6│(NH(K)л1)о2:N7│N6лN6мNH(K):ЕNT(J)│3 ▒ NT(J)│5зБж920:ДБж960%_fKQ│(KFм1)нKQ:Л:Е KQ┤▓0 з Бж900%АpЛ:Е D1$│"L" з Бж1230:Бж1000%КzБе520%╢ДЕ D1$│"L" з Бж1120:Р :Д Бж520:Бж1000:Р%╬ШИ N6 Бе 930,940,950%ъвKF│N7м(BT$(J)┤B1$(K)):Р&мKF│N7м(BT$(J)▓B1$(K)):Р&"╢KF│N7м(BT$(J)│B1$(K)):Р&:└И N6 Бе 970,980,990&S╩KF│N7м(ET(J)┤E(K)):Р&l╘KF│N7м(ET(J)▓E(K)):Р&Е▐KF│N7м(ET(J)│E(K)):Р&░шD$│"":D$│ Т:Е  З(D$)│0 з 1000 :ДЗD$;:Р&█ЄБж1020:ЕN│0зР:ДБж1070:Бж1100:P│0:Бе520'№Ю:З" subsystem":Бж780:Бж1560:Й"# OF FIELDS";N'IЕN▓NF з NS│0:N│NF:АI│0еNF:NG(I)│I:NS│NSлNA(I):Л:Р'YNS│0:АI│1еN'│З@448, б(63,32);:З@448,I;:Й"field #";NG(I):ЗDN$(NG(I));" (Y/N)";:Бж1000:ЕD$┤▓"Y"з1050'╦$NS│NSлNA(NG(I)):Л:Р'·.Е и(YT) з Бж1330:З#P,DK$;" ";D0$:З#P," "(z8Е YT з Бж1330:Р :Д АI│1еN:J│NG(I):Е NT(J)┤▓3 з B$│ б(NA(J)м З(DN$(J)),32)лDN$(J)л" " :Д B$│DN$(J)л б(NA(J)м З(DN$(J))л1,32)(кBЗ#P,B$;:FT(J)│0:Л:З#P," ":З#P, б(NSлN,45):Р(юLАI│1еNI:KI│ К( Р(DI$,I,1)):Бж260:Бж270:ЕDV$(0)│ Л(17)зЛI:Бе1230) VБж1120:Л:Бж1230:YT│0:Р)?`АJ│1еN:K│NG(J):И NT(K) Бе1130,1150,1170,1190,1210)ГjЕK│0зЗ#P,═"#### ";KI;:Бе1220:ДЗ#P,═"#### ";ET(K);:Е YT з З#P,"")ОtБе1220)░~З#P,═CI$;ET(K);:Е YT з З#P,"")╗ИБе1220)єТЗ#P,BT$(K)л б(NA(K)м З(BT$(K))л1,32);:Е YT з З#P,"")■ЬБе1220*2жЗ#P,═CM$;ET(K);:FT(K)│FT(K)лET(K):Е YT з З#P,""*=░Бе1220*`║З#P,═CL$;BT$(K);:Е YT з З#P,""*o─Л:Бж1570:Р*Ы╬Е YT з YT│0:Р :Д З#P, б(NSлN,45):АI│1еN*┘╪ЕNT(NG(I))│4зЗ#P,═CM$;FT(NG(I));:ДЗ#P, б(NA(NG(I))л1,32);*∙тЛ:З#P," ":Е P з Бж620:Р:Д Р+]ьL│NS(1):DI$│"":АI│1еNI:NI│I:KI│NI:Бж260:─#2,KI:BT$(1)│DV$(1):Бж600:З@480,"record #";NI;" ";+eЎЛ:Р+pБж1350+Г M│Mм1:ЕM│0 з Р+│ЕM┤Nм1з DD$│AA$(M):Бж190:Бж120:ЕD$│"O"з1280+╠ЕM│Nм1зЗ:Бж180:Бе120+▐(Бж1380:Бе1280,2З:З"LINEPRINTER (Y/N) ";:Бж1000:ЕD$│"Y" з P│м2 :Д Ю:P│0,"<З:Р,ФFN│N9:Ю(W1):З@W,DR$;:АI│1еN:Q│36лIн32:З@Q,═"#";I;:З@Qл4,Q$(I);:ЛI:Q│36лIн32:З@Q,═"#";0;:З@Qл4,"return";:Q│Qл64,╠PЗ@Q,"your choice";:Бж1000:M│ Й(D$)л1:ЕM▓Nл1з1360:ДР,цZ┌ И:╚0:└1:╤2,768:Бе50,єd:Гcreate--nЮ:AT$│"BNSMD":NX(1)│1:NX(2)│5:NX(3)│0:NX(4)│5:NX(5)│3-╔xЗд5)"create a new file":З:Й"name of diskfile ";DF$:Е З(DF$)▓8з1400 :Д З:Й"file title--or enter for same name as above";DK$:ЕDK$│""з DK$│DF$:З@175,DK$-щ}Й"number of fields";NF:NT│0.ВАI│1еNF:Ю:З"#";I:Й"field name ";DN$(I).|МЗ"field type":З:З"bYTE":З"nUMBER":З"sTRING":З"mONEY":З"dATE":З:Й"your choice";DT$:NT(I)│ Ю(AT$,DT$).зЦЕDT$│"S"зЙ"field length ";NS(I):Бе1450.╗аNS(I)│NX(NT(I)).╒кNT│NTлNS(I):Л:NT│NTл1.ы┤Щ"O",#1,DF$л"/DT"/-╛З#1,DK$;",";NF;NI;N;NT;:АI│1еNF:З#1,DN$(I);",";NT(I);NS(I);:Л/s╚Щ"D",#2,DF$л"/I":╨#2,1  з DY$,255  з DX$:╘DY$│ Л(0):┼#2,1:Ъ#2:Ъ#1/К╥ЗDK$;" IS CREATED"/Ц╫Бж 1600/б▄Бе1580/╘цЗ"ZERO FILES (Y/N) ";:Бж1000:ЕD$│"Y"з1520 :Д Р/■ЁЗ:З"ZERO ECORD OR ILE ";:Бж10000\·ЕD$│"F" з 1540 :Д АJ│1еNF:ЕNT(J)┤3▒NT(J)│4зET(J)│0:Бж420:Л:┼#2,KI:Бе520 :Д Л:┼#2,KI:Бе5200░АI│1еNI:KI│ К( Р(DI$,I,1)):Бж260:Бж270:АJ│1еNF:ЕNT(J)┤3▒NT(J)│4 з ET(J)│0:Бж4200╬ЛJ:┼#2,KI:ЛI:KI│1:Бж530:Р1&Й"ORIZ OR ERT ";YT$:YT│(YT$│"V"):Е YT з Й"# LINES BETWEEN RECORDS ";YN:Р :Д Р1?"АM7│1еYN:З#P," ":Л:Р1╥,L│1:N3│1:АI│3е10:▀ 0,17,I,M$(0),M$(1):АK│0е1:АJ│1е4:Q$│ Р(M$(K),(Jм1)н32л1,11):Е П(Q$,3)│"DT " ░  К(Q$)┤▓0 з Q$(L)│ О(Q$,8):AA$(L)│Q$(L):L│Lл1216ЛJ,K,I:█0:DR$│"files":W1│2:Q$(L)│"other files":Q$(Lл1)│"create new file":W│10:N│Lл1:N9│N:Р2o@AT$│"DEFKLPRZ@":AT$│"AOS"л Л(8)л Л(9)л Л(10)л Л(94)лAT$:РJ│1е4:Q$│ Р(M$(K),(Jм1)н32л1,11):Е П(Q$,3)│"DT " ░  К(Q$)┤▓0 з Q$(L)│ О(Q$,8):AA$(L)│Q$(L):L│Lл1216ЛJ,K,I:█0:DR$│"files":W1│2:Q$(L)│"other                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 XД`ЕЕhЖЖЖ ЕHWД0Д@ЕЕ0ЖЖ,Е`                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   Ж╖┌Ж ╖┘ОБ┐5О╢┐dЖ┐╖7╖▄╖▌╖▐╖▀╖р╖сЖ╚╖[Ж╖_О┐\Ж╖cYОЖАзАМ&∙О┐╙Ж╖┌╖^╖O╖P╖Q╖R╖S╖T╖UЖ╖:╖;╖<╖=╖>╖?╖@О┐M0┐K0┐I0┐G0┐E0┐C0┐AЖ╖ "╜╩╜ъ╜p╜╕╜└╜}╜4╜╜У╜?Є╜X╜╢╒L╖╒Б&яЖ╖╒╜╢:&┴╢;&╝╢<&╖╢=&▓╢>&н╢?&и╢@'▀ Я╢7ОцД┴В'&┴Г'"┴Ч'┴П'┴Я'┴┬'┴├'┴╫' ┴╨'┴▀'зД0И М▐' М┐-╟0Й■A ┴╢7А*ОзД0И М┐-Ў╢7ОзД0И М▀&Ў╢7Б┐'ОжДБА'Б└,А@зД0М╛&ы9ОжДБА'Б┐/Л@зД0М╛&ы9╢7Ў7А└╛5зАчД9╛5жА▒7'Би'Б╜' Б¤'Бш&$жД▒7'Би'Бш' Б╜'Б¤&■╬Ж·╖ ╞╢ А ╖ ЧМБ'╜йQ ы╢ J╖ Б'm■#╜б┴╢YБў&╢XБ&Ж╖X╛50Ир┐Y╠0¤8Оч╢XБў'╢WД'/╢VД'i╢UД'9Мч'ф9╛50жД▒7& ╘╛50┐5 ╩╛50жД▒7& ├╛50┐5 ╣╛5М -G0ИржА▒7&;жД▒7&2╛50Ир┐59╛5М┐. Н0И жА▒7& БжД▒7& x╛50И ┐59ОЇ0М&∙9╢7А;Ў7└*¤8╢:'╛A№8эД╢;'╛C№8эД╢<Б'╛E№8эД╢=Б'╛G№8эД╢>Б'╛I№8эД╢?Б'╛K№8эД╢@Б' И╛M№8эД9╢:Б'╢O╛A╜!╖O┐A╢;Б'╢P╛C╜!╖P┐C╢<Б'╢Q╛E╜!╖Q┐E╢=Б'╢R╛G╜!╖R┐G╢>Б'╢S╛I╜!╖S┐I╢?Б'╢T╛K╜!╖T┐K╢@Б'╢U╛M╜!╖U┐M№ЩБ'0жД▒7'Ж0И ъ0жД0▒7'Ж0И! ╪0ЖМ╛-■пО9╢XОP┐8Б'■Ь╛YжДББ'Б┴&╝\'60╝\'-▒7'БА'LБЗ'HБ╟'DБЛ'@Б╦'<Б░'8БЁ'4ББ'Б┴' =╛╙0 ┐╙Ж╖^╖X№a╛\эДМ-0Ир Ї┐\КЖ╖┌╖X╛╙0┐╙w╛╙1!┐╙БВ'&Б┬'"БЧ'(Б╫'$БГ'*Б├'&Б╧'*БП'&БЯ'*Б▀'& ,╢7А<зД░╢7А зДж╢7зДЮ╢7зДЦ╢7зДОЖ╝A&╖: Z╝C&╖; P╝E&╖< F╝G&╖= <╝I&╖> 2╝K&╖? (╝M&╖@ 0Оч ░╢7АзД0Ир┐YМ.¤O ┐т╛╙1!┐╙╛т╢7Ў7А=└(Мч&0эДЖ╖XО┐Y{╛5╢7зАзА9╛╙0 ┐╙ОжД▒7'<БА'8БХ'4Б╒'0Б└',БЧ'БЯ'Б╫'Б▀'╢7Ў7А=└(эД ╢7Ў7А=└(0эА0М┐&╢╢7Б┐'Ж┐╖7ОжДА@зАМ┐&ї∙ЁЖ ╖7ОжДЛ@зАМ┐&ї∙┌╢^&№╢_L╖_▒[-9╢[Б- А╖[Ж╖_╛\0 М-0ИсЖ╖^╖`ьД¤a┐\9╢^'№<╛\╢7А>зАзД╢`J╖`Б' ╠П¤8~Ж╖_╛\№aэД0И М┐-Ж╖^0Й■┐\╠П¤8T┐\ьД¤a▒7&ё7'Ж╖` Ж╖`╢7А>зАзД╢cJ╖cБ&$╛dжА&О╢ ў┐d╖c╢7А=Ў7└(¤aЖ╖`╠П¤8ї╢┘J╖┘Б&√ЖЖ ╖┘Ж╖█Ос┐╓Ж╖┌9╢┌Б'√gЖ ╖┘╛╓╢▄зА╢▌зА╢▐зД0И╢▀зА╢рзА╢сзД╢█L╖█Б9'Д╢╪L╖╪Б &Ж╖╪Б- ╛╓0Ис┐╓ ╛╓0И ┐╓╛╓жА╖▄жА╖▌жД╖▐0ИжА╖▀жА╖ржД╖с╛╓╢7А8зА╢7АзА╢7А4зД0И╢7А8зАЖАзА╢7зДА4зД╠░¤8Ж╖┌╖█О┐╓9О╠4<╖ ╖ ў #Ж╖  №84Z&¤Ў  ╚№ў  5J&ю9Ж╖ "╢┌цД?ўbЖ╖ "Ж╖ Ж`ОзАМ&∙ОfО╜0ОvО$╜0ОПОI╜0ОЫОу╜0╛╙ЖМш-0Й№L ЇЛ0╖TЖМd-0ИЬL їЛ0╖UЖМ -0L ЎЛ0╖VЖМ-0L ЎЛ0╖W╜б┴Б &∙ўжА' БA,Л@за Є9╛╙╞Мш-0Й№\ ЇОф┴'Z1$ ўжаЛА╖╫жаЛА╖╪жаЛА╖ўжаЛА╖°Мd-0ИЬ\ їОф┴'Z1$ ўжаЛА╖┘жаЛА╖┌жаЛА╖∙ждЛА╖·М -0\ ЎОф┴'Z1$ ўжаЛА╖█жаЛА╖▄жаЛА╖√ждЛА╖№М'0\ ЎОф┴'1$Z ўжаЛА╖▌жаЛА╖▐жаЛА╖¤жаЛА╖■Ор╢ Б' J╞ЧчА╞ВчА ёЖАзАзАзАзАзА9j┐ДХьп6л&┐┐┐┐┐,╚i┐и╩ PENNYPEDE RUDOLPH K WINNACKER 1982LAST SCORE: HIT TO START        sFЪ ┐┐┐┐┐иn  + # 65 & 6 5 & 6 U ╢ Б' J╞ЧчА╞ВчА ёЖАзАзАзАзАзА9j┐ДХьп6л&┐┐┐┐┐,╚i┐и╩ PENNYPEDE RUDOLPH K WINNACKER 1982LAST SCORE: HIT TO START        sFЪ ┐┐┐┐┐иn  + # 65