CORDS":З:ЗдV)"2> PRINT BY NAME":З:ЗдV)"3> MAIN MENU"AQ┤З:З:ЗдVл2)"< PRESS ONE >"Ah╛A$│ Т:Е A$│""з4030Az╚ЕA$│"1"з 5000AЛ╥ЕA$│"2"з6000AЫ╫Е A$│"3"з80Aж▄Бе4030A▓ИT│0:C│0A║ТI│1AўЧЗ#м2, Л(27); Л(104); Л(1):З#м2,д10)"MEDICAL RECORDS ";YB жЗ#м2, б(40,"-")BА░З#м2, Л(27); Л(104); Л(0);:З#м2," NAME DATE SERVICE AMOUNT"BФ╡З#м2, б(80,"-")B╧║З#м2,I;:З#м2,д5)N$(I);:З#м2,д14)D$(I);:З#м2,д23)S$(I);B▄─T│TлA(I)Bъ╬C│CлIN(I)C ╪Е  З(N$(I))│0з I│Iм1:Бе5160C(тЗ#м2,д70);:З#м2,═ W$;A(I)C2ьI│Iл1C=Бе5050Ck(З#м2:З#м2:З#м2," TOTAL: ";C{2З#м2,═ X$;TCД<З#м2CиFЗ#м2," INSURANCE: ";C╕PЗ#м2,═ X$;CC┴ZЗ#м2CхdЗ#м2," BALANCE: ";CўnЗ#м2,═ X$;TмCDxZ│I:Бе80DpT│0:C│0DzЗ"NAME: ";D'ДЙP$DbОЗ#м2, Л(27); Л(104); Л(1):З#м2,д10)"MEDICAL RECORDS";YDwУЗ#м2, б(40,"-");DбШЗ#м2, Л(27); Л(104); Л(0);:З#м2,д3)P$D√мЗ#м2," DATE SERVICE AMOUNT INS/REC."E╢З#м2, б(80,"-")E└А I│1е ZE8╩Е N$(I)│P$з6100:Д6180:ГE[╘З#м2,д3)D$(I);:З#м2,д12)S$(I);Ej▐З#м2,д59);E~шЗ#м2,═ W$;A(I);EОЄЗ#м2,д70);;Eв№З#м2,═ W$;IN(I)E▓R│Rл1:A│Aл1E┐T│TлA(I)E═C│CлIN(I)E╘$ЛIEт.З#м2:З#м2F8З#м2," TOTAL: ";FBЗ#м2,═ X$;TFLЗ#м2F7VЗ#м2," INSURANCE: ";FG`З#м2,═ X$;CFWjЗ#м2:Бе6260FutЗ#м2," BALANCE: ";FЗ~З#м2,═ X$;TмCFФИZ│I:Бе80Fр'Е  м│26з ё24,5:°6,1,B:З"*** FILE NOT ON DISK ***":АQ│1е500:°3,1:Л:Бе895G}'Е  м│28 ░  н│865з ё28,8:°6,1,B:З"** DISK FULL **":°6,1:ё20,10:З"Press any key to return to menu":ё20,12:З"and save file to a different disk":в44539:Бе80G░'З м:З  н:З"PRESS ANY KEY FOR MENU":в44539:Бе80Gэ.рЮ:З"BE SURE TO SAVE CURRENT FILE":З:З"ARE YOU SURE":Й S$H.ъЕ S$│"Y"з13000:Д80H2╚Т65496,0:Ц:°6,1:ё20,10:З"Press any key to return to menu":ё20,12:З"and save file to a different disk":в44539:Бе80G░'З м:З  н:З"PRESS ANY KEY FOR MENU":в44539:Бе80Gэ.рЮ:З"BE SURE TO SAVE CURRENT FILE":З:З"ARE YOU SURE":Й S$H.ъЕ S$│"Y"з1300                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                /7Зд2)D$(I);/#8Зд2);:З═ W$;A(I)/89°2,1:ЗS$(I):°3,1/E:T│TлA(I)/SDC│CлIN(I)/rNЕ  З(N$(I))│0з I│Iм1:Бе640/|bI│Iл1/еgЕ I│7░ W│40Бе800:ДЕ I│14з H│м7:Бе710/╤hЕ I│21░ W│40Бе802:Д Е I│28з H│м21:Бе710/№iЕ I│35░ W│40Бе804:ДЕ I│42з H│м35:Бе7100'jЕ I│49░ W│40Бе806:ДЕ I│56з H│м49:Бе7100QkЕ I│63░W│40Бе808:ДЕ I│70з H│м63:Бе7100{lЕ I│77░W│40Бе810:ДЕ I│84з H│м77:Бе7100еmЕ I│91░W│40Бе812:ДЕ I│98з H│м91:Бе7100╥nЕ I│105░W│40Бе814:ДЕ I│112з H│м105:Бе7100 oЕ I│119░W│40Бе816:ДЕ I│126з H│м119:Бе7101,pЕ I│133░W│40Бе818:ДЕ I│140з H│м133:Бе7101YqЕ I│147░W│40Бе820:ДЕ I│154з H│м147:Бе7101ЖrЕ I│161░W│40Бе822:ДЕ I│168з H│м161:Бе7101РvБе5551┤А°7,1:З:З " TOTAL : ";1╩КИяБе10000:З═ X$;T1щЮЗ:З" INSURANCE : "; 1їиЗ═ X$;C2▓З:З" BALANCE : ";2!╝З═ X$;TмC20┴°3,1:Бе7602V╞°7,1:З"PRESS ANY KEY TO CONTINUE"2a╦ИЁБе902k╨A$│ Т2{┌Е A$│""з7202БфЮ2ЛюБе5302л°З:З"PRESS FOR MENU"2╢¤ИЁБе902╠A$│ Т:Е A$│""з7702┘ Z│I:Бе802юИя Бе10000:Ю:Z│I2№ H│0:Бе7103 "H│м14:Бе7103$H│м28:Бе7103,&H│м35:Бе7103<(H│м56:Бе7103L*H│м70:Бе7103\,H│м84:Бе7103l.H│м98:Бе7103}0H│м112:Бе7103О2H│м126:Бе7103Я4H│м140:Бе7103░6H│м154:Бе7103┼RИя Бе10000:Ю:Z│I3╙\YR$│ И(Y)3уaЩ"O",#1,YR$3яdЗ#1,Y,Z3№fА I│1е Z4!h┘#1,N$(I),S$(I),D$(I),A(I),IN(I)4(jЛI40pЪ#149uБе804EzХ5000:Ю4y|М I(150),N$(150),S$(150),D$(150),A(150),IN(150)4И}Ия Бе100004й~W$│"$####.##":X$│"$$####.##"4╤З:З"What year do you wish to load";4┌АЙ YR4щДYR$│ И(YR)5╢Е  З(YR$)▓2 з YR$│ Л(32)л П(YR$,2)5 ╧Щ"I",#1,YR$5,╥Й#1,Y,Z58╘АI│1е Z5]┘Й#1,N$(I),S$(I),D$(I),A(I),IN(I)5d█ЛI5mуЪ #15|шI│Iм1:Бе805ВЄЮ5Щ№Бж20:V│10:H│6:ёV,H5╖З"ENTER NUMBER OF ITEM ";5╟ Е W│40з V│15╧Й N5■ёV,Hл2:З"WHICH ENTRY DO YOU WANT CHANGED?"6$ёVл5,Hл4:°1,16,.З" 1) NAME : "N$(N)6M8ЗдVл5)" 2) SERVICE : "S$(N)6nBЗдVл5)" 3) DATE : "D$(N)6ОLЗдVл5)" 4) AMOUNT : "A(N)6пVЗдVл5)" 5) INSURANCE: "IN(N)6╤W°6,1:З:ЗдVл5)" 6) ABORT":°3,16ч`A$│ Т:ЕA$│""з11207eE│ Й(A$):Е E┤1 ▒ E▓6 з10507iЕW│40з V│217=jИ E Бе 1140,1150,1160,1170,1180,807ЗtЕ W│80з ёVл19,Hл4:Д Е W│40з ёVм1,Hл4:°6,1:Т282,255:ЙN$(N):°1,1:Бе12007мv°6,1:Т282,255:ЙN$(N):°1,1:Бе12007·~Е W│80з ёVл19л47,Hл5:°6,1:З Л(125):ёVл19,Hл5:Т282,0:╗ЙS$(N):°1,1:Т282,2558.АЕ W│40зёV,Hл5:°6,1:Т282,0:╗ЙS$(N):°1,1:Т282,2558ЭГЕ  З(S$(N))▓45 за100,2:°6,1:З:З" ** STRING TOO LONG! UNDER 45 CHARS. **":АQ│1е250:Л:Бе11508иДБе12008ъИЕ W│80з ёVл19,Hл6:Д Е W│40з ёVм1,Hл7:°6,1:Й D$(N):°1,1:Бе12009К°6,1:Й D$(N):°1,1:Бе12009IТЕ W│80з ёVл19,Hл7:Д Е W│40 з ёVм1,Hл8:°6,1:Й A(N):°1,1:Бе12009eФ°6,1:Й A(N):°1,1:Бе12009иЬЕ W│80з ёVл19,Hл8:Д Е W│40з ё Vм1,Hл9:°6,1:Й IN(N):°1,1:Бе12009┼Ю°6,1:Й IN(N):°1,1:Бе12009▀░Е W│80з ё10,19:Дё5,19:╡З"nother change enu":║A$│ Т:ЕA$│""з1210:1─ЕA$│"A"з1240:Д1230:F╬T│0:C│0:Z│I:Бе80:В╪ё4,19:°4,1:З" ":Бе1120:ЧPЮ :ГLIST BY NAME:╗ZT│0:C│0: V│10:HO│6:R│0:I│0:WI│1:╒dБж20:ё2,4:З "NAME: ";:чn°6,1:ЙP$:°3,1;HВЕ W│80з ё4,6:З"DATE SERVICE AMOUNT INSURANCE";АЗЕ W│40зё4,6:З"DATE AMOUNT INS. SERVICE";ММА I│1еZ;иЦЕ N$(I)│P$ з 1435:Д1510;╥ЫЕ W│80Бе1440:Д1445:Г IF W=40 GOTO1445)╧Е R│105░ W│40Бе1634:ДЕ R│112з HO│м106:Бе1640>6╥T│TлA(I)>D▄C│CлIN(I)>KцЛI>i·°7,1:З:З" TOTAL : ";>uЗ═ X$;T>ОЗ:З" INSURANCE : ";>ЪЗ═ X$;C>│"З:З" BALANCE : ";>┴,З═ X$;TмC>╩1°3,1>╘6A$│ Т>х@Е A$│""з1590>ЄJZ│I:Бе80?THO│0:Бе1640?VHO│м14:Бе1640?&XHO│м28:Бе1640?8ZHO│м42:Бе1640?J\HO│м56:Бе1640?\^HO│м70:Бе1640?n`HO│м84:Бе1640?АbHO│м98:Бе1640?жh°7,1:З"PRESS ANY KEY TO CONTINUE"?░iA$│ Т?└rЕA$│""з1641?╔s°3,1@zЕW│40 зЮ:Бж20:ё3,4:°6,1:ЗP$:°3,1:ё4,6:З"DATE AMOUNT INS. SERVICE"@"|Бе1430@ЭЕЕ W│80зЮ:Бж20:ё3,4:°6,1:З P$:°3,1:ё4,6:З"DATE SERVICE AMOUNT INSURANCE"@гаЮ@╔еТ150,7:Г 9600BAUD AT DOUBLE SPEED@▀жЕ W│80зV│30:ДV│10A3кБж20:З:ЗдV)"1> PRINT ALL RE Н(1):BU│ Ж(&HFF00)░1/ЄР/(╧В MOTORON/D╨Т&HFF21, Ж(&HFF21)▒ 8:Р/S ╖В MOTOROFF/q ╕Т&HFF21, Ж(&HFF21)░&HF7:Р/Къ_В D. BODNAR 11-11-86/лъ`┌И:╪"DARKROOM":╪"DARKROOM:1"UNT▓6 з BCOUNT│1.╤ОА X│1 е BCOUNT.рШ╔"T20AP30".швЛ X.юмР/шJ0│ Н(0):J1│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "&$:ГCOPYRIGHT 1989, FALSOFT INC.&G:Г****************************&j:Г* MEDIC3 *&Н:Г* *&░:Г* RON HINTON *&╙:Г* 50339 STAGECOACH *&Ў:Г* E.LIVERPOOL, OH 43920 *':Г* (c)opyright 1989 *'<:Г****************************'N V│10:H│6:Y│00'n уў:у14,9:у1,0:у10,55:у13,45'wБе40'пё TAл1,1:°7,1:З"MEDICAL RECORDS";Y:ё0,3:°3,1:ЗPR$:Р'╣(Х5000'э2М I(150),N$(150),S$(150),D$(150),A(150),IN(150)(7ИЁБе90:ИяБе10000(",ё|A$│ Т:ЕA$│""з380-ЖЕ A$│"N"з450-ЛЕ A$│"n"з450-РБе260-(Ъё35,15-Xд°7,1,B:З I;" ITEMS":ё35,Hл17:З"BUFFER FULL"-sоа200,1:АQ│1е300:Л:Бе80-╕Ю:Бе270-М┬Z│I:Бе80-ТЇЮ-ж■T│0:C│0:H│6:I│1-пБж20-┴ё Vм27,5:°7,1.Е W│80зЗ" NAME DATE SERVICE AMOUNT".K!Е W│40зЗ" NAME DATE AMOUNT SERVICE".V&°3,1:З.j+Е W│40з565:Д560.Б0Е W│80з ё0,HлI:ЗI;.Ф1ё4,HлI:ЗN$(I);.и2ё14,HлI:ЗD$(I);.┴3°2,1:ё22,HлI:ЗS$(I);.у4°3,1:ё68,HлI:З═ W$;A(I):Бе570.є5Е W│40з ЗI;. 6ЗN$(I); ╥&T В"THE BASKETBALL MATH DRILL- STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1989"&БЮ0:X│ Д(м Я):А X│1408 е 1471:Т X,246:Л X&бА X│1377 е 1383:Т X,172:Л X&┴(А X│1400 е 1406:Т X,172:Л X&ц2А Y│1156 е 1348 й 32:Т Y,239:Л Y' <А Y│ 1179 е 1371 й 32:Т Y,239:Л Y'?FА X│2 е 16:А Y│0 е 7:Ь(X,Y,8):Л Y,X:Т 1060,191'tPА X│47 е 61:А Y│0 е 7:Ь (X,Y,8):Л Y,X:Т 1083,191'СZЗ@99,"000";:З@122,"000";'лdТ 1196,223:Т 1203,197'╨nА Y│1228 е 1296 й 32:Т Y,218:Л Y(xТ 1323,214:Т 1354,214:Т 1324,221:Т 1357,217(/ВТ 1260,222:Т 1229,214:Т 1259,214:Т1290,212(TМА Y│1204 е 1300 й 32:Т Y,202:Л Y(ГЦТ 1331,198:Т1362,198:Т 1332,205:Т 1365,201(иаТ 1268,206:Т 1237,198:Т 1206,194(═кТ 1267,204:Т 1234,201:Т 1201,193)┤AA│10л Д(5):BB│ Д(9):CC│AAнBB:В SET-UP OF THE EXAMPLES)D╛З@448,"":З@452,AA;"TIMES";BB;"= ";:Т1199,148:В-THE BALL)m╚╗Й DD$:DD│ Й(DD$):В-STUDENT'S ANSWER)Ж╥Е DD│CC з 250 :Д 220)╝▄А Y│1199 е 1080 йм30: Т Y,148:а 230,2:Т Y,128:Л Y*цА T│1 е 3:Т 1083,239:╔"L10A":Т 1083,191:╔"G":Л T:B│Bл2:З@122,B;*ЁЗ@474,CC;:Бе 270*J·А Y│1199 е 1080 йм34:Т Y,148:а 230,2:Т Y,128:Л Y*НА T│1 е 3:Т 1060,239:╔"L10F":Т 1060,191:╔"F":Л T:A│Aл2:З@99,A;*ШEN$│ Т*╔Е EN$│ Л(13) з 180 :Д Е EN$│"E" з 290 :Д 270*╤"Ю:К9:╔"L10A":Т 1083,191:╔"G":Л T:B│Bл2:З@122,B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  м&$:ГCOPYRIGHT 1989, FALSOFT INC.&n Як:BEEP│10:ENLARGER│30:EO│2:ГEO=2 IF ENLARGER OFF;EO=0 IF ENLARGER ON&╛I$│"*":BL$│ Л(128):P1│32н5л4:P2│P1л12:P3│P1л24:J0│30: Я│0:BCOUNT│0:PAUSE│80&╬cВ MAIN LOOP'3dЮ0:З@32н1л3,"COMPUTER"лBL$л"OPERATED"лBL$л"DARKROOM";:З@32н3л8,"(C)"BL$"D."BL$"BODNAR"BL$"1986";'иkЕ J0┤20 з З@P1,I$;:З@P2,BL$;:З@P3,BL$; :Д Е J0▓40 з З@P3,I$;:З@P1,BL$;:З@P2,BL$; :Д З@P2,I$;:З@P1,BL$;:З@P3,BL$;(/nЗ@32н7л2,"beep";:З@32н8л2,"time";:З@32н7л12,"enlarger";:З@32н10л15,"on";:З@32н12л15,"off";:З@32н7л24,"enlarger";:З@32н8л26,"time";(XsЗ@32н10л2,BEEP;:З@32н10л26,ENLARGER;(ЙxБж 1000 :Г READ JOYSTICKS 0 AND 1 AND BUTTON(т}Е BOFF┤▓м1 зЗ@32н12л2,BEEPм Б( Яо60);:Е  Я▓│BEEPн60 з Бж 900:ГSOUND BEEP IF ENABLED)ВЕ (J0┤40 ░ J0▓20) ░ J1┤20 з EO│0:Бж 500 :Г ENLARGER OFF)YМЕ (J0┤40 ░ J0▓20) ░ J1▓40 з EO│2:Бж 500 :Г ENLARGER ON)НЦЕ (J0┤40 ░ J0▓20) ░ BU│0 з Бж 600:Г ENLARGER ON)▓аЕ J0┤20 з Бж 700:Бе107:ГSET BEEP)ркЕ J0▓40 з Бж 800:Бе107:ГSET ENLARGER TIME*"┤З@32н15л3,BL$;BL$;"button"BL$"to"BL$"start"BL$"enlarger";BL$;*-РБе 107*LєВ ENLARGER ON/OFF TO FRAME*lЇЕ EO│0 з Бж 2000 :Д Бж 3000*╗∙Е EO│0 з З@32н10л13,I$;:З@32н12л13,BL$; :Д З @32н10л13,BL$;:З@32н12л13,I$;*┴■Р*▄WВ ENLARGER ON FOR TIME+>XEO│0:З@32н15л3,BL$;BL$;BL$;"button";BL$;"to";BL$;"stop";BL$;"enlarger";BL$;: Я│0:Бж2000:Бж500+t]FF│0:ГFF IS TO AVOID DOUBLE HIT ON BUTTON - DELAY+┘bFF│FFл1:Бж1000:Е (BU│0░ FF▓10) з Бе 620 :Д З@32н12л26,ENLARGERм Б( Яо60);:Е  Я┤ENLARGERн60 з 610, lEO│2:Бж500:З@32н12л25, б(5,128);:BCOUNT│0:Р,╗В SET BEEP,e╝З@32н15л3,"button"BL$"to"BL$"set"BL$"beep"BL$"time";BL$;BL$;BL$;:Бж 1000,}╞Е BU│1 з BCOUNT│0:Р,░╨Е J1▓40 з BEEP│BEEPм1 :Д Е J1┤20 з BEEP│BEEPл1,╪┌Е BEEP┤1 з BEEP│0:BOFF│м1 :Д BOFF│0,ь▀З@32н10л2,BEEP;-/сА DE│1 е PAUSE:Л :Г DELAY TO MAKE SETTING MORE EASY TO CONTROL-:фБе 700-RВ ENLARGER TIME SET-Ч З@32н15л3,"button"BL$"to"BL$"set"BL$"enlarger"BL$"time";:Бж 1000-п*Е BU│1 з BCOUNT│0:Р-Є4Е J1▓40 з ENLARGER│ENLARGERм1 :Д Е J1┤20 з ENLARGER│ENLARGERл1.>Е ENLARGER┤1 з ENLARGER│1.)CЗ@32н10л26,ENLARGER;.lEА DE│1 е PAUSE:Л :Г DELAY TO MAKE SETTING MORE EASY TO CONTROL.wHБе 800.ВГВ BEEP.╛ДЕ BOFF з Р :Д Я│0:BCOUNT│BCOUNTл1:Е BCOUNT▓6 з BCOUNT│1.╤ОА X│1 е BCOUNT.рШ╔"T20AP30".швЛ X.юмР/шJ0│ Н(0):J1│ MM/DD/YY";G1$:ЕG1$│""з525:ДЕG1$│"M"з100:ДЗ:Й" ENDING DATE OF PERIOD MM/DD/YY ";G2$:ЕG2$│""з525:ДЕG2$│"M"з100:ДБж70A┼Ю:З@193,"PROCESSING TOTALS OF ACCOUNTS":З@228,"FOR "G1$" TO "G2$:Бж25:D1│1:C│LAїА R│1еL:─#1,R:D1$(D1)│CA$:D1│D1л1:ЛR:Ъ:Бж30B!ЕL│0з100BN&АR│1е L:─#1,R:Бж80:АD1│1е C:ЕG3$┤│TD$ ░ TD$┤│G4$ ░ D1$(D1)│AC$з555:ДЛD1BЗ+Е Й(CN$)▓0з V(D1)│V(D1)м Й(AM$):ДV(D1)│V(D1)л Й(AM$)BО0ЛRC5Ъ:Ю:З@37,"TOTALS OF EACH ACCOUNT":З@68,"FOR "G1$" TO "G2$:З@132,"LIST ON SCREEN PRESS A":З@164,"PRINT ON PRINTER PRESS B"C6:A$│ Т:ЕA$│"A"з575:ДЕA$│"B"з610:Д570CL?D1│1:C2│99:C3│115CwDЮ:З@34,"TOTALS OF ACCOUNTS FOR PERIOD"C╔IЗ@C2,D1$(D1):З@C3,═C$;V(D1):D1│D1л1:C2│C2л32:C3│C3л32:ЕC2▓355▒ D1▓C з590:Д585DNC2│99:C3│115:З@421,"TO CONTINUE PRESS SB":З@453,"FOR MAIN MENU PRESS M"DASA$│ Т:ЕA$│ Л(32)з600:ДЕA$│"M"з605:Д595DUXЕD1▓C з605:Д580Dv]АD1│1е C:V(D1)│0:ЛD1:Ъ:Бе100EbЮ:З@37,"READY TO PRINT TOTALS":З@99,"DISABLE PRINTER AUTOMATIC":З@137,"LINE ADVANCE":З@197,"WHEN PRINTER IS READY":З@233,"PRESS ENTER"E gA$│ Т:ЕA$│ Л(13)з620:Д615EulЕG1$│""з625:ДЗ#м2,д18)"TOTAL OF EACH ACCOUNT FOR "G1$" TO "G2$ Л(10) Л(10):Бе630E╢qЗ#м2,д23)"TOTAL OF EACH ACCOUNT FOR ENTIRE FILE" Л(10) Л(10)E═vD1│1:D2│2:ЕC│1з645F%{З#м2,д13)D1$(D1)д28):З#м2,═C$;V(D1):З#м2,д45)D1$(D2)д60):З#м2,═C$;V(D2):З#м2, Л(10)FВАD1│D1л2:D2│D2л2:ЕCо2│ Б(Cо2) ░ D1┤C з635:ДЕCо2│ Б(Cо2) ░ D1│Cл1 з650:ДЕD1┤(Cм1)з635:Д645FкЕЗ#м2,д13)D1$(D1)д28):З#м2,═C$;V(D1)F╔КАD1│1е C:V(D1)│0:ЛD1:Бе100FЇП:ГTOTAL OF ONE ACCOUNT FOR ENTIRE FILEGВФЮ:З@38,"TOTAL OF ONE ACCOUNT":З@72,"FOR ENTIRE FILE":З@453,"FOR MAIN MENU ENTER M":З@96:Й"NAME OF ACCOUNT";D1$:ЕD1$│""з660:ДЕD1$│"M"з100G╛ЩЮ:З@193,"FIGURING TOTAL OF "D1$:З@232,"FOR ENTIRE FILE"HЮD$│" ":D2$│ О(D1$лD$,11):Бж30:V│0:R│1:ЕL│0з Ъ:Бе100H.г─#1,R:ЕD2$│AC$ з680:ДR│Rл1:ЕR▓L з685:Д675HLиБж75:R│Rл1:ЕR▓L з685:Д675HФнЮ:З@101,"TOTAL OF "D2$:З@171,═C$;V:Ъ:З@453,"FOR MAIN MENU PRESS M"Hп▓A$│ Т:ЕA$│"M"з100:Д690H▀╖:ГTOTAL OF ONE ACCOUNT FOR A CERTAIN PERIODI<╝Ю:З@38,"TOTAL OF ONE ACCOUNT":З@70,"FOR A CERTAIN PERIOD":З@453,"FOR MAIN MENU ENTER M"Iw┴З@128,"NAME OF ACCOUNT":ЙD1$:ЕD1$│""з700:ДЕD1$│"M"з100J ╞З@224,"STARTING TIME MM/DD/YY ":ЙG1$:ЕG1$│""з700:ДЕG1$│"M"з100:ДЗ@320,"ENDING TIME MM/DD/YY ":ЙG2$:ЕG2$│""з700:ДЕG2$│"M"з100JG╦Ю:З@193,"FIGURING TOTAL OF "D1$:З@228,"FOR "G1$" TO "G2$JА╨Бж70:D$│" ":D2$│ О(D1$лD$,11):Бж30:V│0:R│1J╔╒─#1,R:Бж80:ЕG3$┤│TD$ ░ G4$▓│TD$ ░ D2$│AC$ з730:ДR│Rл1:ЕR▓L з735:Д725Jч┌Бж75:R│Rл1:ЕR▓L з735:Д725KH▀Ю:З@102,"TOTAL OF "D2$:З@132,"FOR "G1$" TO "G2$:З@203,═C$;V:Ъ:З@453,"FOR MAIN MENU PRESS M"KcфA$│ Т:ЕA$│"M"з100:Д740KеДХ 500:МD1$(50):МV(50):C$│"$######.##":CC$│"$#######.##":Бе 102$│AC$ з730:ДR│Rл1:ЕR▓L з735:Д725Jч┌Бж75:R│Rл1:ЕR▓L з735:Д725KH▀Ю:З@102,"TOTAL OF "                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                C1$│CN$:D1$│DN$:D2$│DT$:P1$│PT$:F1$│FR$:A1$│AC$:A2$│AM$:S1$│"Y":B1$│BL$/░├╘ CN$│C1$:╘ DN$│D1$:╘ DT$│D2$:╘ PT$│P1$:╘ FR$│F1$:╘ AC$│A1$:╘ AM$│A2$:╘ ST$│S1$:╘ BL$│B1$:┼#1,R:Бе155/█╚Ю:З@194,"CALCULATING VERIFIED BALANCE"04═АR│1е L:─#1,R:ЕST$│"Y" ░  Й(CN$)▓0 з V│Vм Й(AM$):ДЕST$│"Y" ░  Й(DN$)▓0 з V│Vл Й(AM$)0;╥ЛR0К╫Ю:З@200,"VERIFIED BALANCE":З@235,═CC$;V:З@451,"FOR MAIN MENU PRESS ENTER"0й▄A$│ Т:ЕA$│ Л(13) з225:Д2200╡сЪ:Бе1000╩ц:ГSEARCH ROUTINE0щыБж30:╨#1,157 з B$:ЕL┤1з2951ЪЁЮ:З@39,"SEARCH IN RECORDS":З@101,"SEARCH IN PRESS":З@164,"CHECK NUMBER . . A":З@196,"DEPOSIT NUMBER . B":З@228,"DATE . . . . . C":З@260,"PAID TO . . . . D"2/їЗ@292,"FOR . . . . . E":З@324,"ACCOUNT . . . . F":З@356,"AMOUNT . . . . G":З@388,"STATUS . . . . H":З@420,"FOR MAIN MENU . . I"2─·A$│ Т:ЕA$│"A"з E│1:ДЕA$│"B"з E│10:ДЕA$│"C"з E│19:ДЕA$│"D"з E│27:ДЕA$│"E"з E│77:ДЕA$│"F"з E│127:ДЕA$│"G"з E│138:ДЕA$│"H"з E│147:ДЕA$│"I"з295:Д2502ы З:Й"SEARCHING FOR: ";B1$:B│ З(B1$)3АR│1е е(1):─#1,R:Е Р(B$,E,B)│B1$з2753" ЕR│L з2853)ЛR3OБж40:З@453,"CONTINUE SEARCH Y/N?"3wA$│ Т:ЕA$│"Y"з265:ДЕA$│"N"з285:Д2803╙Ю:З@40,"SEARCH FINISHED":З@101,"ANOTHER SEARCH PRESS A":З@133,"FOR MAIN MENU PRESS B"3√"A$│ Т:ЕA$│"A"з240:ДЕA$│"B"з295:Д2904'Ъ:Бе1004,:ГPRINT4Ь1Ю:З@38,"PRINTOUT OF RECORDS":З@99,"PRINT ENTIRE FILE PRESS A":З@131,"PRINT PART OF FILE PRESS B":З@163,"FOR MAIN MENU - - PRESS C"4╤6A$│ Т:ЕA$│"A"з315:ДЕA$│"B"з340:ДЕA$│"C"з100:Д3105M;Ю:З@38,"PRINTING ENTIRE FILE":З@100,"DISABLE PRINTER AUTOMATIC":З@138,"LINE ADVANCE":З@195,"PRESS SPACE BAR WHEN READY"5k@A$│ Т:ЕA$│ Л(32)з325:Д3205УEБж30:R│1:V│0:C│1:C8│0:ЕL│0з Ъ:Бе1005иJ─#1,R:Бж75:Бж3755╙OR│Rл1:ЕR┤│L з330:ДЕC│2з Бж400:ДЪ:Бе1005▀RЪ:Бе1005°T:ГPRINT PART OF FILE6yYЮ:З@35,"PRINTING PART OF THE FILE":З@451,"FOR MAIN MENU PRESS ENTER":З@99,"DISABLE PRINTER AUTOMATIC":З@137,"LINE ADVANCE":З7^Й" DATE PRINTOUT IS TO START AT MM/DD/YY";G1$:ЕG1$│""з345:ДЕG1$│"M"з100:ДЗ:Й" DATE PRINTOUT IS TO FINISH AT MM/DD/YY";G2$:ЕG2$│""з345:ДЕG2$│"M"з1007AcБж70:Бж30:C│1:R│1:C8│0:V│0:ЕL│0з Ъ:Бе1007lh─#1,R:Бж80:ЕTD$▓│G3$ ░ TD$┤│G4$з Бж3757ЭmR│Rл1:ЕR▓L ░ C│2з Бж400:ДЕR▓L ░ C│1з370:Д3607йrЪ:Бе1007╗wЕC│1з380:Д3907▄|Е Й(CN$)▓0з E1$│CN$:ДE1$│DN$8&БE0│R:E2$│DT$:E3$│PT$:E4$│FR$:E5$│AC$:E6│ Й(AM$):E7$│ST$:E8$│BL$:C│2:Р8GЖЕ Й(CN$)▓0з F1$│CN$:ДF1$│DN$8ЛЛF0│R:F2$│DT$:F3$│PT$:F4$│FR$:F5$│AC$:F6│ Й(AM$):F7$│ST$:F8$│BL$9 РЗ#м2,д4)"RECORD "E0 д42)"RECORD "F0; Л(10):З#м2,д4)"CKDP "E1$ д42)"CKDP "F1$; Л(10):З#м2,д4)"DATE "E2$ д42)"DATE "F2$; Л(10)9rТЗ#м2,д4)"TO " О(E3$,19) д42)"TO " О(F3$,19); Л(10):З#м2,д4)  П(E3$,31) д42)  П(F3$,31); Л(10)9╪УЗ#м2,д4)"FOR " О(E4$,19) д42)"FOR " О(F4$,19); Л(10):З#м2,д4)  П(E4$,31) д42)  П(F4$,31); Л(10):LХЗ#м2,д4)"ACC "E5$ д42)"ACC "F5$; Л(10):З#м2,д4):З#м2,═"AMT "лC$;E6:З#м2,д42):З#м2,═"AMT "лC$;F6:З#м2, Л(10):┌ЪЗ#м2,д4)"STAT "E7$ д42)"STAT "F7$; Л(10):З#м2,д4):З#м2,═"BAL "лCC$; Й(E8$):З#м2,д42):З#м2,═"BAL "лCC$; Й(F8$):З#м2, Л(10); Л(10); Л(10): ЬC8│C8л2:ЕC8│10з З#м2, Л(10):C8│0;DЯC│1:F0│0:F1$│"":F2$│"":F3$│"":F4$│"":F5$│"":F6│0:F7$│"":F8$│"":Р;[д:ГACCOUNT TOTALING<йЮ:З@8,"TOTAL OF ACCOUNTS":З@65,"TOTAL OF EACH ACCOUNT":З@97,"FOR ENTIRE FILE- - - PRESS A":З@161,"TOTAL OF EACH ACCOUNT":З@193,"FOR A CERTAIN PERIOD - PRESS B<│оЗ@257,"TOTAL OF ONE ACCOUNT":З@289,"FOR ENTIRE FILE- - - PRESS C":З@353,"TOTAL OF ONE ACCOUNT":З@385,"FOR A CERTAIN PERIOD - PRESS D":З@449,"FOR MAIN MENU - - - PRESS E"=│A$│ Т:ЕA$│"A"з440:ДЕA$│"B"з520:ДЕA$│"C"з655:ДЕA$│"D"з695:ДЕA$│"E"з100:Д435=*╕:ГTOTAL OF ACCOUNTS FOR ENTIRE FILE=╠╜C1│0:Ю:З@37,"TOTAL OF EACH ACCOUNT":З@72,"FOR ENTIRE FILE":З@132,"PRINT ON SCREEN PRESS A":З@164,"PRINT ON PRINTER PRESS B":З@196,"FOR MAIN MENU PRESS C">┬A$│ Т:ЕA$│"A"з460:ДЕA$│"B"з455:ДЕA$│"C"з100:Д450> ╟C1│1>j╠Ю:З@193,"PROCESSING TOTALS OF ACCOUNTS":З@232,"FOR ENTIRE FILE":Бж25:D1│1:C│L:G1$│"":G2$│"">Ъ╤АR│1е L:─#1,R:D1$(D1)│CA$:D1│D1л1:ЛR:Ъ:Бж30>╦╓АR│1е L:─#1,R:АD1│1е C:ЕD1$(D1)│AC$з475:ДЛD1?█Е Й(CN$)▓0з V(D1)│V(D1)м Й(AM$):Д V(D1)│V(D1)л Й(AM$)?рЛR:Ъ:ЕC1│1з610?.хD1│1:C2│99:C3│115?MъЮ:З@39,"TOTAL OF ACCOUNTS"?ЯяЗ@C2,D1$(D1):З@C3,═C$;V(D1):D1│D1л1:C2│C2л32:C3│C3л32:ЕC2▓355▒ D1▓C з500:Д495?юЇC2│99:C3│115:З@421,"TO CONTINUE PRESS SB":З@453,"FOR MAIN MENU PRESS M"@∙A$│ Т:ЕA$│ Л(32)з510:ДЕA$│"M"з515:Д505@-■ЕD1▓C з515:Д490@NАD1│1е C:V(D1)│0:ЛD1:Ъ:Бе100@~:ГTOTAL OF EACH ACCOUNT FOR A CERTAN PERIOD@▄ Ю:З@37,"TOTAL OF EACH ACCOUNT":З@70,"FOR A CERTAIN PERIOD":З@453,"FOR MAIN MENU ENTER M"ArЗ@96:Й"STARTING DATE OF PERIODL8"A]В NATURALA*bЖ"BD42BR58NU24E6U4H6"AfgЖ"BD38BR32U6NR8U6R8BR6D12R8BR6U12R8D6NL8D6BR12U12L6R12"AСlЖ"BD40BR52U24D12M+12,-6D12ND12M-12,+6"A¤qЖ"BD38BR14U12M+10,+12U12BR6ND12R8D6NL8D6BR8U12L4R8BR6D12R8U12BR6ND12R8D6L8R2F6BR6U12R8D6NL8D6BR6NU12R8"B vВ ACCENTSBM{Ж"BD40BR54M+8,-20M+8,+20BR12M+20,-8M-20,-8BL40M-20,+8M+20,+8"B╣АЖ"BD38BR14U12R8D6NL8D6BR6NR8U12R8BR6NR8D12R8BR6NR8U6NR8U6R8BR6ND12M+10,+12U12BR4R4ND12R4BR4NR8D6R8D6L8"BЇЕЮ0:АI│1е18:TEM$│P$(I,1):P$(I,1)│P$(I,2):P$(I,2)│TEM$:ЛB■КБе100CBПЮ:З@101,"YOU TRIED"NCлNW"TIMES &":З@165,"ANSWERED"NC"CORRECTLY"CdФЗ@229,"WHILE DOING"NW"WRONG."C~ЩNQ│NCлNW:Е NQ│0з NQ│1CУЮMS│ Б(NCоNQн100)C│гЗ@293,"YOUR SCORE IS"MS"%."C╓иЗ@357,"ANOTHER TRY (Y/N/C) ?";CынX$│ Т:ЕX$│"Y"з ОC√▓ЕX$│"N"зЮ:КD ╖ЕX$│"C"з265D╝Бе685лNW"TIMES &":З@165,"ANSWERED"NC"CORRECTLY"CdФЗ@229,"WHILE DOING"NW"WRONG."C~ЩNQ│NCлNW:Е NQ│0з NQ│1CУЮMS│ Б(NCоNQн100)C│гЗ@293,"YOUR SCORE IS"MS"%."C╓иЗ@357,"ANOTHER TRY (Y/N/C) ?";CынX$│ Т:ЕX$│"Y"з ОC√▓ЕX$│"N"зЮ:КD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  %ж&O:ГCHECK2/BAS CHECK, BUDGET MANAGEMENT PROGRAM VERISION 2.00.00 09/01/86&r:ГCOPYRIGHT 1989, FALSOFT INC.&}Бе 900&З Бе100&╣Щ"D",#1,"CHECK/ACC",11:╨#1,11 з CA$:L│ е(1):Р'/Щ"D",#1,"CHECK/DAT",157:╨#1,9 з CN$,9 з DN$,8 з DT$,50 з PT$,50 з FR$,11 з AC$,9 з AM$,1 з ST$,10 з BL$:L│ е(1):Р'j(ЕST$│"N"з S2$│"NOT VERIFIED":ДЕST$│"Y"з S2$│"VERIFIED"((-Ю:З@40,"RECORD NUMBER "R:З@96,"CHECK NO. . ."CN$:З"DEPOSIT NO. ."DN$:З"DATE. . . . ."DT$:З"PAID TO . . ."PT$:З"FOR . . . . ."FR$:З"ACCOUNT . . ."AC$:З"AMOUNT. . . .":З"STATUS. . . ."S2$(@2З@365,═C$; Й(AM$):Р(ОFG3$│ П(G1$,2)л О(G1$,2)л Р(G1$,4,2):G4$│ П(G2$,2)л О(G2$,2)л Р(G2$,4,2):Р(║KЕ Й(CN$)▓0з V│Vм Й(AM$):Д V│Vл Й(AM$):Р(фPTD$│ П(DT$,2)л О(DT$,2)л Р(DT$,4,2):Р)нdЮ:З@32,"CHECK, BUDGET MANAGEMENT PROGRAM":З@97,"STATEMENT VERIFACATION PRESS A":З@129,"SEARCH IN RECORDS - - PRESS B":З@161,"PRINTOUT OF RECORDS - PRESS C":З@193,"TOTALS OF ACCOUNTS- - PRESS D")╪iЗ@225,"FOR OTHER ROUTINES- - PRESS E"*.nA$│ Т:ЕA$│"A"з115:ДЕA$│"B"з235:ДЕA$│"C"з300:ДЕA$│"D"з420:ДЕA$│"E"з О"CHECK1":Д110*Op:ГBANK STATEMENT VERIFACTION*╛sV│0:Ю:З@2,"BANK STATEMENT VERIFACATION":З@66,"HAVE ALL DEBITS AND CREDITS,":З@101,"TO DATE, BEEN ENTERED?"+3xЗ@173,"DEBITS":З@192," CHECK, CASH WITHDRAWL, SERVICE CHARGE,TELEPHONE TRANSFER, OR AUTOMATIC PAYMENTS"+п}З@300,"CREDITS":З@320,"DEPOSIT, INTEREST, CASH ADVANCE,DIRECT DEPOSIT, PAYROLL SAVINGS, OR TRANSFERS INTO YOUR ACCOUNT"+┌ВЗ@449,"PRESS Y TO VERIFY N FOR MENU",ЗA$│ Т:ЕA$│"Y"з140:ДЕA$│"N"з100:Д135,7МБж30:ЕL┤1з225:ДАR│1е L:─#1,R:ЕST$│"Y"з ЛR :ДR1│R,├СЕRм1┤▓L з155:Д Ю:╔"DCD":З@65,"ALL RECORDS HAVE BEEN VERIFIED":З@226,"FOR VARIFIED BALANCE PRESS V":З@290,"FOR MAIN MENU PRESS ENTER",юЦA$│ Т:ЕA$│"V"з200:ДЕA$│ Л(13)з225:Д150-БЫB0$│"":Ю:З@37,"ENTER CHECK/DEPOSIT NO.":З@196,"FOR VERIFIED BANK BALANCE":З@236,"ENTER V":З@453,"FOR MAIN MENU ENTER M":З@64:ЙB0$:ЕB0$│""з155-╝аB1$│" ":B2$│B0$лB1$:ЕB0$│"V"з200:ДЕB0$│"M"з225-їеАR│R1 е L:─#1,R:ЕCN$│ О(B2$,9)▒DN$│ О(B2$,9)з180:ДЛR.КкЮ:╔"DCD":З@40,"CHECK/DEPOSIT NO.":З@76,B0$:З@107,"NOT FOUND":З@164,"TO CONTINUE VERIFICATION":З@202,"PRESS ENTER":З@453,"FOR MAIN MENU ENTER M".╡пA$│ Т:ЕA$│ Л(13)з155:ДЕA$│"M"з225:Д175.╥┤Бж40:З@458,"VERIFY Y/N?".·╣A$│ Т:ЕA$│"Y"з190:ДЕA$│"N"з155:Д185/F╛ыZ│0/ Ё╚0,4/)ї╞ A$(1)л"C0":╞P$(A(Y),1)/O·╞ A$(B(2))л"C1":╞P$(B,2):╞P$(B,3)/u ╞ A$(B(3))л"C1":╞P$(C,2):╞P$(C,3)/б╞ A$(B(4))л"C1":╞P$(A(Y),2):╞P$(A(Y),3)/п ╚0,1:┐1,1/╟╗(8,6)м(120,80),╜,B/ъX$│ Т:ЕX$│" "з285:ДЕX$│"@"з6550 ┴1,0:╗(8,6)м(120,80),╛,B:Бе2700 Z│Zл1:ЕZ│4зZ│10F"┴1,0:╗(C(Z),D(Z))м(E(Z),F(Z)),╜,B0y'X$│ Т:ЕX$│" "з285:ДЕX$│ Л(13)з305:ДЕX$│"@"з6550е,┴1,0:╗(C(Z),D(Z))м(E(Z),F(Z)),╛,B:Бе2900╖1ЕZл1│B(4)з3150Є6NW│NWл1:АK│1е5:╚0,4:┐1,1:а10,3:╚0,1:┐1,1:а1,3:ЛK:Бе2901V;NC│NCл1:╚0,4:╝1:╗(0,40)м(256,126),╛,B:╗(6,44)м(124,122),╛,B:╗(130,44)м(248,122),╛,B:├(2,42),0,01n@╞ A$(5):╞P$(A(Y),1)1ТE╞ A$(6):╞P$(A(Y),2):╞P$(A(Y),3)1ЫJ┐1,11╡OX$│ Т:ЕX$┤▓ Л(13)з3351╛T╚0,11┌Y╟3е1:┐1,1:╟2е4:ЛY:Бе6552;^╚0,2:╝1:┐1,1:╗(0,40)м(256,126),╛,B:╗(6,44)м(124,122),╛,B:╗(130,44)м(248,122),╛,B:├(2,42),0,02XcАI│1е18:╞ A$(5):╞P$(I,1)2vh╞ A$(6):╞P$(I,2):╞P$(I,3)2РmX$│ Т:ЕX$┤▓ Л(13)з3652╠r┴1,0:╗(8,46)м(122,120),╜,BF:╗(132,46)м(246,120),╜,BF:ЛI2╥wО2▐|В STAFF3 БЖ"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8R90"3_ЖЖ"BD40BR26R8U6L8U6R8BR4R6ND12R6BR4ND12R10D6NL10D6BR6U6NR8U6R10BR4NR10D6NR8D6"3lЛВ G CLEF3╩РЖ"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BR24ND40U10F8D4G8L4G6D6F6R10E6U4H6L6G4D4F2R4E2"4"ХЖ"BD40BR20U12R10BD6NL4D6NL10BR18NR10U12R10BR4D12R8BR4NR10U6NR10U6R10BR6NR10D6NR8D6"4/ЪВ F CLEF4ЛЯЖ"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BR24BD12NR4U2NR6NL2U4E4R8F6D8NG12BR4BU3UBU7U"4▀дЖ"BD40BR20U6NR8U6R10BD12BR18NR10U12R10BR4D12R8BR4NR10U6NR10U6R10BR6NR10D6NR8D6"4ЁйВ WHOLE NOTE53оЖ"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BD16R44F4G4L4H4E4R4"5╦│Ж"BD28BR24NU12R6NU12R6NU12BR6U12D6R10D6U12BR6ND12R10D12NL10BR6NU12R8BR6NR8U6NR8U6R8BD20BL66ND12F12U12BR6D12R10U12NL10BR4R8ND12R8BR4NR10D6NR10D6R10"5█╕В HALF NOTE6#╜Ж"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BD16R44F4G4L4H4E4R4F4U24"6з┬Ж"BD28BR30U12D6R10U6D12BR6U12R10D6NL10D6BR6NU12R10BR4U6NR8U6R10BD20BL60ND12F12U12BR6D12R10U12NL10BR4R8ND12R8BR4NR10D6NR10D6R10"6║╟В QUARTER NOTE7╠Ж"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BD16R44F2NL8F2NL10G2NL8G2L4H4E4R4F4U24"7═╤Ж"BD28BR10U12R10D12NH4NF4NL10BR6NU12R10NU12BR6U12R10D6NL10D6BR6U12R10D6L10R4F6BR8U12L4R8BR6NR8D6NR8D6R8BR6U12R10D6L10R4F6BD8BL84ND12F12U12BR6D12R10U12NL10BR4R8ND12R8BR4NR10D6NR10D6R10"7▀╓В EIGHTH NOTE8=█Ж"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BD16R44F2NL8F2NL10G2NL8G2L4H4E4R4F4U24NF6D2NF6"8▌рЖ"BD28BR20NR8U6NR8U6R8BR6D12BR6U12R10BD6NL4D6NL10BR6U12D6R10D6U12BR4R6ND12R6BR6D12U6R10U6D12BD8BL70ND12F12U12BR6D12R10U12NL10BR4R8ND12R8BR4NR10D6NR10D6R10"8ЄхВ SIXTEENTH NOTE9ZъЖ"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BD16R44F2NL8F2NL10G2NL8G2L4H4E4R4F4U24NF6D2NF6D4NF6D2NF6":яЖ"BD28BR8R8U6L8U6R8BR6D12BR6E6NH6NF6E6BR4R4ND12R4BR4NR6D6NR6D6R6BR4NR6U6NR6U6R6BR4ND12M+8,+12U12BR4R4ND12R4BR4D12U6R8U6D12BD8BL80ND12F12U12BR6D12R10U12NL10BR4R8ND12R8BR4NR10D6NR10D6R10":)ЇВ WHOLE REST:j∙Ж"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BD16R38D4R10U2L10";■Ж"BD28BR24NU12R6NU12R6NU12BR6U12D6R10D6U12BR6ND12R10D12NL10BR6NU12R8BR6NR8U6NR8U6R8BD20BL62ND12R10D6L10R4F6BR6NR8U6NR8U6R8BR6NR10D6R10D6NL10BR10U12L6R12";В HALF REST;YЖ"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BD16R38U2R10U2L10";у Ж"BD28BR30U12D6R10U6D12BR6U12R10D6NL10D6BR6NU12R10BR4U6NR8U6R10BD20BL56ND12R10D6L10R4F6BR6NR8U6NR8U6R8BR6NR10D6R10D6NL10BR10U12L6R12";ЎВ QUARTER REST<<Ж"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BD8R42NH4F2NG4L2G4F4G4"< Ж"BD28BR10U12R10D12NH4NF4NL10BR6NU12R10NU12BR6U12R10D6NL10D6BR6U12R10D6L10R4F6BR8U12L4R8BR6NR8D6NR8D6R8BR6U12R10D6L10R4F6BD8BL78ND12R10D6L10R4F6BR6NR8U6NR8U6R8BR6NR10D6R10D6NL10BR10U12L6R12"=!В EIGHTH REST=c&Ж"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BD24R42BU4M+10,-20G4L6H2E2R2G2R2E2"> +Ж"BD28BR20NR8U6NR8U6R8BR6D12BR6U12R10BD6NL4D6NL10BR6U12D6R10D6U12BR4R6ND12R6BR6D12U6R10U6D12BD8BL66ND12R10D6L10R4F6BR6NR8U6NR8U6R8BR6NR10D6R10D6NL10BR10U12L6R12">0В SIXTEENTH REST>Ж5Ж"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90BD24R42BU4M+10,-20G4L6H2E2R2G2R2E2BD8BR2G4L6H2E2R2G2R2E2"?J:Ж"BD28BR8R8U6L8U6R8BR6D12BR6E6NH6NF6E6BR4R4ND12R4BR4NR6D6NR6D6R6BR4NR6U6NR6U6R6BR4ND12M+8,+12U12BR4R4ND12R4BR4D12U6R8U6D12BD8BL76ND12R10D6L10R4F6BR6NR8U6NR8U6R8BR6NR10D6R10D6NL10BR10U12L6R12"?\?В REPEAT BARS?├DЖ"BD50BR18NR90BU8NR90BU8NR90BU8NR90BU8NR90D32R2U32R4D32R82U32R4D32R2U32D12BL12L2BD8NR2BL70R2BU8L2"@qIЖ"BD28BR20U12R8D6L8R2F6BR6NR8U6NR8U6R8BR6R8D6L8U6D12BR14NR8U6NR8U6R8BR6ND12R8D6NL8D6BR10U12L6R12BL66BD20ND12L2R10D6NL8D6NL10BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6R8U6L8U6R8"@}NВ SHARP@оSЖ"BD40BR48U24BR8D24BE8BU2M-26,+6BU10M+26,-6"AXЖ"BD38BR28R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6 ╛&:ГLISTING1&Х500&) ╚4,1:╝:┐1,0&U╗(0,96)м(255,96),╜:╗(128,0)м(128,191),╜&ФA$│"R6D6H3NDNRBF2RGNUNRL5U6":ГA$="BM+4,-2ND4R4D4L4BM+8,-2"&нB$│"R6D4HNDRGNRL5U4"&╞C$│"U4R5NDRNDGRD3L6"&сD$│"U2R6D4HNDRGNRL5U2"& E$│"U2E4RNDRNGDNHNLDG4L2"'!F$│"RGDE2RG3RE2DGRNU3L3U3NR3"'6G$│"BH2R4D4L4U4"'JH$│"BHR4D4L4U4"'aI$│"BR4U2R4D4L4U2"'АJ$│"BM+4,-2R4D4L4U4BM-4,2"'Х╞"A0S16BM128,96"'Я╞"A1"'й ╞"A2"'│!╞"A3"'╜dБе100RD3L6"&сD$│"U2R6D4HNDRGNRL5U2"& E$│"U2E4RNDRNGDNHNLDG4L2"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &"В***************************&CВ* MUSIC 101:MUSICAL SIGNS *&dВ* COPYRIGHT (C) 1989 *&ЕВ* BY FRED B. SCERBO *&жВ* 60 HARDING AVENUE *&╟В* NORTH ADAMS, MA 01247 *&шВ***************************&ЄХ3000'+ Ю0:З б(32,220); б(32,204);:АI│1е224:НA:З Л(Aл128);:Л'G З б(32,195); б(32,211);'iЗ@390," MUSICAL SIGNS ";'йЗ@422," BY FRED B.SCERBO ";:З@454," COPYRIGHT (C) 1989 ";'■Ж61,60,60,62,60,61,48,61,,,,62,48,62,60,60,60,61,48,61,56,53,60,60,60,61,48,,,,,(5Ж53,,,58,,53,,53,,,,58,48,58,,,,,,53,,53,,,,,,,,,,(z#Ж53,,,58,,53,,53,,,,58,48,58,,,,,,53,,53,,,71,,78,76,76,74,65,74(┴(Ж53,,,58,,53,,53,,,,58,,60,60,60,60,61,,53,,53,,,69,,74,,64,74,,74)-Ж53,,,58,,53,,53,,,,58,,,,,,53,,53,,53,,,76,72,76,76,76,72,68,76)=2Ж53,,,,,53,,53,,,,58,,50,,,,53,,53,,53,,,,49,,,,,,)М7Ж60,56,,,,60,56,52,60,60,60,56,,60,60,60,60,60,,60,56,52,60,60,60,60,,,,,,)е>>"+ZЗ:З б(32,"=");+M_X$│ Т:X│ Д(м Я):ЕX$│"A"з350:ДЕX$│"B"з100:ДЕX$│"C"з645:Д95+\dЮ0:╚0,1:╝1+ui╗(0,0)м(254,170),╛,B+Оn╗(6,4)м(122,82),╛,BF+иs╗(128,4)м(248,82),╛,B+┬x╗(6,86)м(122,164),╛,B+▐}╗(128,86)м(248,164),╛,B,┴В╞"BM26,188C0NU10R10NU10BR6R10U6L10U4R10BR6NR10D4NR10D6R10BR12BU6NE4D2F4BR6R10U6L10U4R10BR6ND10R10D4NL10BR6NR10D6U10R10D10BR6NR10U10R10BR6NR10D4NR10D6R10BR10U10NL4R10D4NL10D6NL14BR6U10R10D4NL10D6BR6U10R10D4L10R4F6BR6E4U2H4",яЗЖ130,6,246,80,6,86,120,162,130,86,246,162-М├(2,2),0,0:╟1е3-С╚0,4:╝1-)Ц╗(0,0)м(254,170),╛,BF-BЫ╗(8,6)м(120,80),╜,BF-Uа╟4е2:╚0,1:┐1,1-аеЖ"BM2,8C1","BM130,8C0","BM2,90C0","BM130,90C0","BM2,48C0","BM130,48C0"-мкАI│1е18-╦пA(I)│ Д(18):ЕN(A(I))│1з175-щ┤N(A(I))│1:ЛI:АY│1е18:┴1,0-Ї╣АI│2е4.╛B(I)│ Д(3)л1:ЕN(B(I))│0з190.5├N(B(I))│0:ЛI:АI│1е4:N(I)│1:Л.P╚B│ Д(18):ЕB│A((Y))з200.q═C│ Д(18):ЕC│B ▒ C│A((Y))з205.Й╥╞ A$(1):╞P$(A(Y),1).к╫╞ A$(B(2)):╞P$(B,2):╞P$(B,3).╦▄╞ A$(B(3)):╞P$(C,2):╞P$(C,3).Єс╞ A$(B(4)):╞P$(A(Y),2):╞P$(A(Y),3).√ц┴1,0/ к&$:Г COPYRIGHT 1989 FALSOFT,INC&2:ГJOURNAL&E:ГKATHY RUMPEL&\:ГROUTE 1 BOX 67-A&u:ГARCADIA, WI 54612&ОТ 150,18 :Г2400 BAUD&ШХ 500&юЮ:З@74,"**JOURNAL**":З@229,"NUMBER OF FORMS: ";:ЙNF:А TI│1 е NF:З@394,"FORM: ";TI''S1$│ б(10," "):S2$│ б(30," "):S3$│ б(3," "):NU$│"##"'> А P│1 е 3:З#м2:Л P'O З#м2, Л(15);'╜ З#м2, Л(27); Л(14);:З#м2,д19);"JOURNAL";:З#м2, Л(27); Л(15);:З#м2, Л(27); Л(20);:З#м2,д70);"PAGE: "'▀ З#м2, Л(27); Л(19);:З#м2:Бж21(R З#м2," ";:Бж27:З#м2,S1$;:Бж27:З#м2,S2$;:Бж27:З#м2,S3$;:Бж27:З#м2,S1$лS3$л" ";:Бж27:З#м2,S1$лS3$л" ";:Бж27:З#м2(нЗ#м2, Л(15);:З#м2," ";:Бж27:З#м2," DATE"лS3$;:Бж27:З#м2,д23);"DESCRIPTION"лS1$;:Бж27)З#м2,"REF";:Бж27:З#м2," DEBIT ";:Бж27:З#м2," CREDIT ";:Бж27:З#м2, Л(14))А Y│1е26).З#м2," "л Л(124);:Бж29)8Бж 32)@Л Y)ZЗ#м2, Л(12);:Л TI:Ю:К)k:ГPRINT LINE)~ST$│ б(78," "))ПЗ#м2, Л(15);)ЬЗ#м2,ST$)нЗ#м2, Л(14);)│Р)╟:ГPRINT DIVIDER)█З#м2, Л(124);:Р)ш:ГLINE 1*ZЗ#м2,S1$;:Бж27:З#м2,S2$;:Бж27:З#м2,S3$;:Бж27:З#м2,S1$;:Бж27:З#м2,S3$;:Бж27:З#м2,S1$;:Бж27:З#м2,S3$;:Бж27:З#м2*`Р*m :ГLINE 2*М!З#м2, Л(15);:З#м2,═ NU$;Y;*г"Бж 29:З#м2, Л(14);*й#Р;)│Р)╟:ГPRINT DIVIDER)█З#м2, Л(124);:Р)ш:ГLINE 1*ZЗ#м2,S1$;:Бж27:З#м                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &Ad:Г HIGH-RESOLUTION JOYSTICK INTERFACE FOR REAL-WORLD INPUTS&PnТ &HFFD9,0&axХ 200,&H7EFF&gВЮ&МА A│&H7F00 е &H7F42&ЩЦН H$: Т A, Й("&H"лH$)&баЛ A&▓к╣  Г0│&H7F00&╜┤Бж 210&┌╛Е ( Ж(&HFF00)░1)▓0 з 180&х╚Бе 180&√╥X│ Г0(0):Y│ Г0(8)'▄Е X│LX ░ Y│LY з Ю: З @230, X, Y'.цLX│X: LY│Y'4ЁР'j·Ж BD,B3,ED,E7,8C,3D,B6,FF,01,84,F7,AA,8C,35,B7,FF'жЖ 01,B6,FF,03,84,F7,B7,FF,03,8D,06,1F,10,BD,B4,F4,39,B6'▄Ж FF,20,84,03,8A,FC,B7,FF,20,5F,5A,26,FD,8E,00,94(Ж 84,23,B7,FF,20,30,1F,26,FC,30,01,B6,FF,00,2A,F9("Ж 39Y'.цLX│X: LY│Y'4ЁР'j·Ж BD,B3,ED,E7,8C,3D,B6,FF,01,84,F7,AA,8C,35,B7,FF'жЖ 01,B6,FF,03,84,F7,B7,FF,03,8D,06,1F,10,BD,B4,F4,39,B6'▄Ж FF,20,84,03,8A,FC,B7,FF,20,5F,5A,26,FD,8E,00,94(Ж 84,23,B7,FF,20,30,1F,26,FC,3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 F&$:Г COPYRIGHT 1989 FALSOFT,INC&2 Т 65497,0&HЮ0:З@43,"escape";&|╔"T2O1V31L7DFCL10GAL25CV25CV19CV11CV7CV2CL30P3"&С(╔"T255L255O1V31"&Ъ2Q│20&┼Ю,ыHР.."; A$; " ";G$;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 b&$:Г COPYRIGHT 1989 FALSOFT,INC&= Х 2000:МA$(72),D(72)&MA│0:K│0:F│0&[АX│3 е 11&o(▀0,17,X,N1$,N2$&Ж2T$│N1$л О(N2$,127)&ТZА N│0е7&оdNAM$(N)│ Р(T$,Nн32л1,8)&╩nEXT$(N)│ Р(T$,Nн32л9,3)&шxC(N)│ К( Р(T$,32нNл12,1))&ЁВЛ N&№МА N│0е7'0ЦЕ C(N)┤▓2 ░ C(N)┤▓0 ▒  О(NAM$(N),1)│ Л(0) з 180'XаA$(A)│NAM$(N)л"/"лEXT$(N):D(A)│C(N)'bкA│Aл1'j┤Л N'r╛Л X'░╚Ж 32,64,96,128,160,192,224,256,288,320,352,384,416,448,11'╢╥Ю'├▄АB│0еAм1'╙цЕ K│0 з Н P(ЁЕP│11зП:НP:З@480,"enter 0 for more";:F│1:Бж320(%·З@(14нKлP),Bл1; О(A$(B),8)(=Е K│▓1 з K│0:ДK│Kл1(EЛ B(|ЕF│1зЗ@480,"enter 0 to see previous screen";:П:K│0(З"Бж 320(Т,Бе 220(Ш6К(╝@З@0,"":З@0,"ENTER FILE NO.";:ЙR(хJЕR│99 з З@480,"";:К :Д ЕR┤0▒R▓A з320) TЕR│0░F│0з320::ДЕR│0зЮ:K│0:F│1:Р)a^Е D(Rм1)│0 з ╙A$(Rм1),R :Д З@0,"can't load ml file--try again";:А D│1е2500:ЛD:Бе320 previous screen";:П:K│0(З"Бж 320(Т,Бе 220(Ш6К(╝@З@0,"":З@0,"ENTER FILE NO.";:ЙR(хJЕR│99 з З@480,"";:К :Д ЕR┤0▒R▓A з320) TЕR│0░F│0з320::ДЕR│0зЮ6L2M-4,+26L12M-6,-42R9M+4,+26M+4,-26R12M+4,+26M+4,-26" 51 POKE178,129:PAINT(6,14),,1:POKE178,33:PAINT(48,14),,1:POKE178,62:PAINT(74,14),,1:POKE178,150:PAINT(94,14),,1:POKE178,62:PAINT(142,14),,1:POKE178,190:PAINT(181,18),,1:POKE178,34:PAINT(214,14),,1:PCOPY3TO1:PCOPY4TO2 52 CIRCLE(14,170),16,1,.9:CIRCLE(14,170),10,1,.9:PAINT(2,170),3,1:DRAW"BM34,182C1U24R6F12U12R6D24L6H12D12L6":PAINT(36,180),3,1 53 PCOPY3TO1:PCOPY4TO2 54 DRAW"BR54U18L10U6R26D6L10D18L6BR18M+9,-24R10M+9,+24L6M-4,-8L8M-4,+8NL6M+4,-8BU4BR2R4U4L2U2LD2L2D4BM140,182U24R20D2R2D12L2D2L14D8NL4BU14U4R10D4L10BR24BD14U24R20D6L14D4R14D4L14D4R14D6L20" 55 PAINT(92,180),1,1:PAINT(110,180),1,1:PAINT(142,180),1,1:PAINT(172,180),1,1:PCOPY3TO1:PCOPY4TO2 56 FORI=0TO24STEP24:CIRCLE(216+I,176),12,2,.85,.85,.7:CIRCLE(216+I,176),10,2,.85:CIRCLE(216+I,176),8,2,.85:CIRCLE(216+I,164),10,2,.85:CIRCLE(216+I,164),8,2,.85:NEXTI 58 PCOPY3TO1:PCOPY4TO2 59 FORII=1TO1000 60 IFINKEY$=""THEN61ELSE600 61 NEXTII 600 REM START MENU TEXT 610 DIM A$(40) 620 READ MN$ 630 FORP=1TO34:READ A$(P):IF A$(P)="END"THEN640ELSENEXTP 640 IF A$(P)="END"THEN A$(P)="" 650 CLS 660 PRINT" RAINBOW ON TAPE" 670 PRINT" (C) FALSOFT, 1987" 680 PRINT 690 PRINT " (XX)=PAGE NUMBER OF LISTING":KK=LEN(MN$):KK=INT(KK/2):PRINTTAB(9-KK)"IN "MN$"'S RAIN ╨&$:Г COPYRIGHT 1989 FALSOFT,INC&, т40&;у4,0:у8,63&DЮ(5)&M(ё0,0&_2Й"HSCREEN";HS&П<ЕHS│1▒HS│4зDO│4:ДЕHS│2зDO│2:ДЕHS│3зDO│8:Д40&ШFЮ(5)&╣PЗ"HGET(x1,y1)-(x2,y2),buffer&┐ZЗ&╠dЙ"x1";X1&┘nЙ"y1";Y1&цxЙ"x2";X2&єВЙ"y2";Y2'МЙ"buffer";BU' ЦЮ(5)'$аA│ Б(X1оDO):A│AнDO';кB│ Б(X2оDO):B│BнDO'S┤ЕA▓B зC│AмB :ДC│BмA'd╛C│Cл1:C│CоDO'Б╚Е Б(C)┤▓C зC│Cл1:C│ Б(C)'Я╥ЕY1▓Y2 зD│Y1мY2 :ДD│Y2мY1'й▄D│Dл1'╣цE│CнD:E│Eм1'╧ЁЗ"HBUFF";BU;",";E"y1";Y1&цxЙ"x2";X2&єВЙ"y2";Y2'МЙ"buffe22) HORROR"," (27) SCROLL"," (29) QUEENS"," (32) SCRNDMP"," (36) SCRNDMPS"," (38) LP78DMPS"," (39) TESTSCRN"," (46) ENERGY" 1020 DATA " (50) GRAFTRAN"," (63) DESKTOPL"," (68) DESKTOPH"," (72) GENFONT1"," (75) GENFONT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOART"," (81) MIRORPIX" 1030 DATA " (82) P178&GL"," (82) WINDCHIL"," (83) FOOTBALL"," (95) CCBLITZ"," (99) MENUGEN"," (99) COCODRAW","(103) 3DLETTER","(107) READPROG","(118) ANIMATE","(124) PICTBOOK" 9999 DATA END ," (78) FUNFACE"," (79) MARTIAN"," (80                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 6& └4:Х200,&H3FFF&)╙M"COCOCALC.BIN"&5в&H40000 01245 67 89  :; <=>@A BC D─╪┘╒╙P├┐┐┴┬C├D╨┐┐┐┐ &НCца Н7ьб4* ННьфCS├·┐ ╓НЙTTTT─4╞:┘X5юЕ0МTжЕ zDXYUSЖ>МЖ< +▓Ч▄2Нє■P Нщ■P0М┌╕,PC╥&■&¤Б   !" #$)CHR$(255)CHR$(252)CHR$(253)CHR$(250)CHR$(159)CHR$(156)CHR$(157)CHR$(154)CHR$(164)CHR$(173)CHR$(174)CHR$(168)R$CHR$(191)CHR$(188)CHR$(188)CHR$(191)CHR$(213)CHR$(222)CHR$(220)CHR$(223)CHR$(228)CHR$(237); 12 PRINTCHR$(238)CHR$(236)CHR$(239)CHR$(133)CHR$(140)CHR$(143)CHR$(140)CHR$(138)R$CHR$(255)R$CHR$(245)CHR$(250)CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)CHR$(208)CHR$(223)R$CHR$(229); 13 PRINTCHR$(234)R$CHR$(239)CHR$(133)R$CHR$(143)R$CHR$(138)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)CHR$(208)CHR$(223)R$CHR$(229); 14 PRINTCHR$(234)R$CHR$(236)CHR$(133)R$CHR$(143)R$CHR$(138)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)CHR$(208)CHR$(223)R$CHR$(229); 15 PRINTCHR$(234)R$R$R$R$CHR$(143)R$R$R$CHR$(255)CHR$(240)CHR$(245)CHR$(250)CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(176)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 16 PRINTCHR$(234)R$CHR$(239)R$R$CHR$(143)R$R$R$CHR$(255)CHR$(252)CHR$(253)CHR$(250)CHR$(159)CHR$(156)CHR$(157)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(188)CHR$(188)CHR$(188)CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 17 PRINTCHR$(238)CHR$(236)CHR$(239)CHR$(224)R$CHR$(143)R$R$R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 18 PRINTCHR$(234)R$R$CHR$(224)R$CHR$(143)R$CHR$(105)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 19 PRINTCHR$(234)R$R$R$R$CHR$(143)R$CHR$(110)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)CHR$(161)CHR$(162)CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 20 PRINTCHR$(234)R$R$R$R$CHR$(143)R$CHR$(99)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)CHR$(165)CHR$(170)CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 21 PRINTCHR$(234)R$R$R$R$CHR$(14 Д&$:Г COPYRIGHT 1989 FALSOFT,INC&Л:ГMARQUEE TITLE PAGE DEMO (C) 1989 FROM BILL BERNICO SOFTWARE 'oЮ:З"THIS DEMO PROGRAM WILL SHOW YOU HOW TO MAKE A MARQUEE-TYPE TITLEPAGE FOR YOUR OWN PROGRAM PRE- SENTATION. WITH THE USE OF THE PALETTE SWITCHING ABILITIES OF THE COCO3, YOU CAN CREATE THE ILLUSION OF A MOVING BORDER(IЗ"AROUND YOUR GRAPHICS TITLE PAGE.YOU CAN CHANGE THE COLORS TO ANYTHING YOU LIKE, JUST MAKE SURE THAT THE HPAINT NUMBERS ARETHE SAME AS THE NUMBERS SWITCHEDIN THE PALETTE COMMANDS THAT IMMEDIATELY FOLLOW.(jЗ@486,"HIT ENTER TO TRY IT";(|Е Т┤▓ Л(13)з5(НХ1000:ИЁБе32(Юф2:ц4:ч8,4:ў(╢B$│"R10D10L10U10R10(╠ C$│"U10R9D10L9U10(ы D$│C$лC$лC$лC$лC$лC$лC$лC$) A$│B$лB$лB$лB$лB$лB$лB$лB$лB$лB$лB$лB$лB$лB$лB$)C ї"BM0,0"лA$:ї A$лB$л"R9D10L9U10)i ї"BM0,181"лA$:ї A$лB$л"R9D10L9U10)Аї D$лD$л"U10BR9D10)Яї"BM0,181"лD$лD$л"U11R9D11)╛АX│1е311й20:ш(X,2),12,8:ЛX)рАX│12е191й20:ш(315,X),12,8:ЛX*АX│309е0йм20:ш(X,190),12,8:ЛX*"АX│163е0йм20:ш(2,X),12,8:ЛX*AАX│11е311й20:ш(X,2),3,8:ЛX*aАX│2е191й20:ш(315,X),3,8:ЛX*ВАX│312е0йм20:ш(X,190),3,8:ЛX*бАX│173е0йм20:ш(2,X),3,8:ЛX*┼ю(9,6),"MARQUEE TITLE PAGE DEMO*▀ю(13,8),"(C)1988 FROM+ю(9,10),"BILL BERNICO SOFTWARE+)ю(7,20),"HIT ANY KEY TO START OVER+@у 3,0:у 12,36:Бж31+Wу 3,36:у 12,0:Бж31+hЕ Т│""з28:Д7+yАY│1е50:ЛY:Р+Г ў:Ю:КАX│173е0йм20:ш(2,X),3,8:ЛX*┼ю(9,6),"MARQUEE TITLE PAGE DEMO*▀ю(13,8),"(C)1988 FROM+ю(9,10),"BILL BERNICO SOFTW(197)CHR$(203)CHR$(192)CHR$(199)CHR$(203)CHR$(192)CHR$(207)CHR$(195)CHR$(207); 29 FORI=1TO1000:IFINKEY$=""THENNEXTI 30 PMODE2,1:PCLS1:SCREEN1,1:PMODE1:PCLS0:SCREEN1,1:POKE65314,248 31 PMODE2,3:PCLS1:PMODE1,3 32 DRAW"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45" 33 LINE(50,80)-(78,100),PSET,BF:LINE(194,80)-(166,100),PSET,BF:LINE(102,80)-(142,100),PSET,BF:LINE(86,84)-(94,96),PSET,BF:LINE(150,84)-(158,96),PSET,BF 34 PCOPY3TO1:PCOPY4TO2 35 PMODE2,3:PCLS1:PMODE1,3 36 DRAW"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12" 37 PAINT(128,116),1,1:DRAW"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12" 38 PAINT(128,90),3,1:DRAW"BU20C1" (49) READHI"/#№Ж " (50) MAZEWAY"/9¤Ж " (54) AOPTION"/P■Ж " (62) MUSIC101"/e Ж " (76) CHECK1"/zЖ " (79) CHECK2"/МЖ " (84) PRT"/бЖ " (85)*PRTASM"/╖Ж " (90) CCTRATE"/╠Ж " (95) BASKET"/уЖ " (98) DARKROOM"/∙Ж "(112) GUITAR3"0Ж "(118) MEDIC3"0.Ж "END"WAY"/9¤Ж " (54) AOPTION"/P■Ж " (62) MUSIC101"/e Ж " (76) CHECK1"/zЖ " (79) CHECK2"/МЖ " (84) PRT"/бЖ " (85)*PRTASM"/╖Ж " (90) CCTRATE"/╠Ж " (95) BASKET"/уЖ " (98) DARKROOM"/∙Ж "(112) GUITAR3"0Ж                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 E&$:ГCOPYRIGHT 1989, FALSOFT INC.&qdЮ:Х5000:PR$│"LCDNEW/BAS:0":╣ ╠MD(M)│Nм(Mн Б(NоM)):SP$│" ":&┬nЗ:З" FRACTION MATH AND LEAST COMMON":З" DENOMINATOR BY ELLIS/WULFSBERG":З &╫xБж310:A│AX:B│BX:&■ВЗ:З" CHOOSE +-*/ (A)NOTHER (E)ND"'МY$│ Т:ЕY$│""з140'FЦZ│ Ю("+-*/AE",Y$):ИZ Бе170,170,170,170,100,290'PаБе140'ШкЗ"NOW ENTER THE SECOND FRACTION "; Р("+-*/",Z,1):З:Бж310:C│AY:D│BY'╜мЗA;"/";B; Р("+-*/",Z,1);C;"/";D;'╤┤:ГMATH ROUTINES'Ї╛Е Z│1 з A│(AнD)л(CнB):B│(BнD):(╚Е Z│2 з A│(AнD)м(CнB):B│(BнD)(2╥Е Z│3 з A│(AнC):B│(BнD)(N▄Е Z│4 з A│(AнD):B│(BнC)(vцЗ:З"THE ANSWER IS:":AX│A:BX│B:Бж320(М·З"WOULD YOU LIKE"(зЗ"(A)NOTHER, OR (E)ND"(┐Y$│ Т:Е Y$│"" з 270(╤ЕY$│"A" з 100(ф"Ю:З"GOODBYE":К(■,:ГSUBROUTINES FOR LCD)i6J│1:Й"NUMERATOR ";AX:AY│AX:З" ----":Й"DENOMINATOR";BX:BY│BX:ЕBX│0зЗ"/0 NOT ALLOWED":Бе310:)В@ЕBX┤0 зBX│мBX:AX│мAX)├JЕBX│1з350:ДАJ│BX е2 йм1:N│AX:Е(╠MD(J)│0)зN│BX: Е╠MD(J)│0з350)╬TЛ:J│1:*^ЕAX│0 зЗ,0 :ДAX│AXоJ:BX│BXоJ:BX$│ И(BX):З, И(AX);"/"; П(BX$, З(BX$)м1):*'_З,AXоBX:*x`CX│AXоBX:SI│ А(CX):SI$│ Р("- +",SIл2,1):AB│ В(CX):AI│ Б(CX):ЕAI│0зЗSP$;SI$;:*ЧbЕAI▓│1 зЗSP$;" ";AI;"and";*╣dЕAI┤│м1зAI│AIл1:ЗSP$;" ";SI$;*╓eЕAI┤│м1зЗ Л(8);AI;"and";+fN│ В(AX):AX│╠MD(BX):B$│ И(BX):З И(AX);"/"; П(B$, З(B$)м1)+2g:Г'PRINTAY;BY;AX;BX;:STOP+DhAX│AY:BX│BY:Р- +",SIл2,1):AB│ В(CX):AI│ Б(CX):ЕAI│0зЗSP$;SI$;:*ЧbЕAI▓│1 зЗSP$;" ";AI;"and";*╣dЕAI┤│м1зAI│AIл1:ЗSP$;" ";SI$;*╓eЕAI┤│м1зЗ Л(8);AI;"and";+fN│ В(AX):AX│╠MD(BX):B$│ И(BX):З И(AX                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    №?№??№?   №  └№╒╨  №ї?№Ц?╬?№╬?ЦФ?    O╩H№H╒╒ ёї?№Ц?╬╧№╬?ЦЦГ Ё? O╩H№H├ ёї╧№Ц?╬╧№╬?АР  O╩H№H?╘ ёї╧№Ц?╬├№╬?ПЁЦ?╩C J2C?Ё╘ ёї╧№Ц?╬├№╬?П№<╩C J2C?№╘?┼ї╧№Ц?╬╠№╬?П№ ╩C J2C?№╘ ┼┼є№Ц?┬╠№╬?П№Ц<?Ё╩C J2C?└╘ ┼┼є№Ц?┬╬<╬?П┬Ц2 № C 2C├ 51є№Ц?╠╬<╬?АРЄ   C 2C╒╒ 51є№Ц?╠╬<╬?ЦЦГЄ   HH JC╒╒? 51Ї№Ц?╧╠╬?ЦФ?┬  HH JO╒╒├ 51Ї№Ц?╧╠╬?АГЄ  2HC╩JO╙№Ї№Ї№Ц?╧╬└╬?ПЁРЄ  2HC╩JO?┴╙№ЇЇ№Ц?╧╬└╬?П№2 №2JC╩JO?ё╙№їїї<Ц?╧╬╠╬?П№<?ЁЄJC╩JO?ё╙ёїїї<Ц?╧Є╠╬?П№Ц ЄJC╩JO?ё╘ёЁ5<Ц?╧Є╬╬?П┬Ц?ЄJC╩JO?ё╘ёє 5<Ц?╧№╬╬?АЦ?№JOЄJ??Ё╘ё╧ ┼╠Ц?╧№╬╬?ЦЦР №JOЄJ??№╘┼╧ ┼╠Ц?╧ ╬?ЦЦГ Ё?№JOЄJ??№└ └ ? ??   №Ё?                       №                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     &#:Г***************************&E:Г* RAINBOW ON DISK GRAPHIC *&g:Г* BY FRED B. SCERBO *&Й:Г* COPYRIGHT (C) 1985 *&л:Г* UNDER LICENSE TO *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** &¤ Ю0:Х1000'OAA$│ б(3,143):АI│1е5:╙M" FALSOFT/"лAA$:╙M"PRESENTS/"лAA$:ЛI:╙M" RAINBOW/"лAA$'fАI│1е300:Е Т│""зЛI'Н(╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,248'Ю2╚2,3:╝1:╚1,3'▒<╙M" ON/"лAA$'┐F╟3е1:╟4е2(P╝0:╗(40,190)м(212,60),╛,BF:┬(126,126),24,0,.9:├(126,126),0,0:┬(126,126),20,1,.9(LZ┬(170,126),8,0,.9:╞"BM122,186C0R10E4U26H4L10G4D26F4"(hd╟3е1:╟4е2:▀0,17,2,A$,B$(Бn╙M" DISK/"лAA$:╟3е1)'x╚1,1:╞"BM70,88C3U12R12D12NL12BR8U12F12NU12BR16R2U12NL2R10F2D8G2NL10BR12NU12BR10R10U6L10U6R10BR8D12U6R4NE6NF6BM98,156C2R14D10L14NU10R14D10L14BR44BU20R14D20L14U20")5ВАII│1е500)IМЕ Т│""з150:Д160)QЦЛII)gаВ START MENU TEXT){кМ A$(34),B$(34))▓┤АI│1е26:B$(I)│ Л(64лI):Л:АI│27е34:B$(I)│ Л(22лI):Л)╝╛Н MN$)ц╚АP│1е34:Н A$(P):Е A$(P)│"END"з210:ДЛP*╥Е A$(P)│"END"з A$(P)│""* ▄NP│Pм1*'цАI│NPл1е34:B$(I)│"":Л*-ЁЮ*L·З" RAINBOW ON DISK"*kЗ" (C) FALSOFT, 1989"*ФЗ" PRESS LETTER TO LOAD BASIC ONLY";*эЗ " (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"*є"З+,АP│1е6:ЗB$(P)A$(P),B$(6лP)A$(Pл6):ЛP+B6З:З" *=ASSEMBLY LANGUAGE SOURCE"+g@З" PRESS TO CONTINUE";+|JX$│ Т:ЕX$│""з330+МTЕX$│" "з370+ж^АI│1е12:ЕX$│B$(I)з500+│hЛI:Бе330+╣rЮ+т|З:З " (XX)= PAGE NUMBER OF LISTING"+ъЖЗ:З,РАP│13е17:ЗB$(P)A$(P),B$(5лP)A$(Pл5):ЛP,=ХЗ:З" *=ASSEMBLY LANGUAGE SOURCE":З,АЪЗ " PRESS TO RETURN TO FIRST PAGE OF MENU",идЗ " PRESS ^ (UP ARROW) FOR ";,└оXX$│ Т:Е XX$│""з430,╫╕ЕXX$│ Л(94)з Ю:╬:Ц,ш┬ЕXX$│" "з240-╠АI│13е NP:ЕXX$│B$(I)з500-╓ЛI:Бе430-!рЕXX$┤▓з430-+ъБе240-KЇQ$│A$(I):Е П(Q$,1)┤▓"*"з540-Т■Ю:З@138,"SORRY, BUT":З:Зд8)Q$:З:З" IS A MACHINE LANGUAGE PROGRAM."-їЗ:З" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME."-√Ц.Q│ З(Q$):Q│Qм6:SL$│ П(Q$,Q).'&╙ SL$,R.8шЖ "FEBRUARY".OЄЖ " (12) FRACTION".fєЖ " (30) COCOCALC".{ЇЖ " (34) LOADER".ТїЖ " (35) MARQUEE3".дЎЖ " (36) MCP".╕ўЖ " (36) HBUFF".═°Ж " (37) ESCAPE".т∙Ж " (38) LISTER".°·Ж " (40) JOURNAL"/ √Ж р╝┐╝╜║┐╝╜║┤╜╛╕А┐╝╝┐╡╛╝┐┤╜╛╝┐╡╝┐╝║А┐░╡║┐А╡║А╡║А░┐А░┐╡║░┐░╡║░┐╡░┐░║А ААА Ёї·Аї·АА АЁ ї·╨ Аї·А№їЁ Ё·А ААЁ Аї·Аї·АА ЁА ї·╨ Аї·АААА АААЯЁХЪЯАХЪАХЪААЯАР░ХЪРЯАХЪРЯААЯАААЯЬЭЪЯЬЭЪАХЪААЬЬЬЯХЪРЯРХЮЬЯрРЯАААПАААПАЕКАЕКААПААПЕКАПАЕКААрАПАААПАААПАЕКАЕКААПААПЕКАПАЕКААААПАААпАААпАекАекбвпаАпекАпаекААААпАААпАААпЁекАекекпААпекАпАекААААпААуяуруяРхытчычъяууяхыуясчытААсятА└└└└└р└└└└└└а└└└└└└└└└└└└└└└└└└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ПАЕКАЕКААПААПЕКАПАЕКАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                рьяьэъяьэъфэюшАяььяхюьяфэюьяхьяьъАя░хъяАхъАхъА░яА░яхъ░я░хъ░яхря░ъАпАААпЁекАекААпАЁпек╨пАекАмеЁпакапААЁпАекАекААпЁапек╨пАекААААпАААПЁЕКПАЕКАЕКААПАР░ЕКРПАЕКРПААПАААПМНКПМНКАЕКААМММПЕКРПРЕОМПрРПАААЯАААЯАХЪАХЪААЯААЯХЪАЯАХЪААрАЯАААЯАААЯАХЪАХЪААЯАРЯХЪАЯРХЪААААЯААА ААА Аї·Аї·ёЄ аА ї·А аї·АААА ААА ААА Ёї·Аї·ї· АА ї·А Аї·АААА АА│┐│░│┐Р╡╗▓╡╗╖║┐││┐╡╗│┐▒╖╗▓АА▒┐▓А└└└└└р└└└└└└а└└└└└└└└└└└└└└└└░└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ЯАХЪАХЪААЯАРЯХЪАЯРХЪАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ╚ ┴┼ ┬ ─ ┬┼├╞╟─┬┴╞┬╞╟┬┬├$%╟'()*+,-─/┬123╚╔6╚89:┴<=┴       FALSOFTППП ъPRESENTSППП!ъ RAINBOWППП" ON ППП# DISK ППП MENU BAS FRACTIONBASHCOCOCALCBAS&цLOADER BAS9MARQUEE3BASЗMCP BASeHBUFF BAS╙ESCAPE BASILISTER BASяJOURNAL BASнREADHI BASMAZEWAY BAS.нAOPTION BAS┴MUSIC101BASCHECK1 BAS0zCHECK2 BASйPRT BAS4▄PRTASM ASM 5kCCTRATE BAS7BASKET BAS╒DARKROOMBAS пGUITAR3 BAS;ўMEDIC3 BAS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                № №¤·ЯЬЭЪдноиА┐╝╝┐╒▐▄▀фэюьяЕМПМКА Аї·ЯАХЪАекАА┐АА┐╒┌╨▀АхъАяЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъАьЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъААААПААА Ёї·ЯАХЪАекАА┐АА░╒┌А▀АхъАяААПААА №¤·ЯЬЭЪАекАА╝╝╝┐╒┌А▀АхюьярАПААА АААЯАХЪАекАА┐АА┐╒┌А▀АхъААрАПА А АААЯАХЪАекАА┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦└╧├╧А ЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           №       Ё?      └       ЁЁ           №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       └                             №         №         Ё?  Ё?        Ё?    Ё?        └      └         └?      Ё?Ё              └        №?    Ё       №?  Ё       Ё?      Ё  ?      └└      └ 0       0       0     №  └     №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          Bу&$:ГCOPYRIGHT 1989, FALSOFT INC.&H:Г'''''''''''''''''''''''''''''&l:Г COCOCALC 1.0 '&Р:Г BY '&┤:Г JOHN STEWART '&╪:Г COPYRIGHT (C) 1986 '&№:Г''''''''''''''''''''''''''''''$Ю:З@231,"WORKING PLEASE WAIT":Бе 18'7└1:Х200,&H3FFF'Y Ю:З@231,"WORKING PLEASE WAIT"'q А X│&H4000 е &H5C68'Ж Т X, Ж(Xл&H2000)'Н ЛX'е А X│&H5C69 е &H5EB2'пТ X,0'╢ЛX'р╪M"COCOCALC.BIN",&H4000,&H5EB2,&H4000'цК'∙└1:Х200,&H5FFF(F│33(А X│&H6000 е &H7C68 й 50()F│Fл1(2Н A$(;OT│0(JА Z│0 е 49(hK│ Й("&H"л Р(A$,Zн2л1,2))(tТ XлZ,K(АOT│OTлK(ИЛ Z(СН B$(┼Е OT┤▓ Й("&H"лB$) з З"DATA ERROR IN LINE #";F:К(═Л X) Ю:З"READY YOUR DISK OR TAPE AND TYPERUN 8 THEN PRESS ENTER")!╡ 18м)И"Ж B7FF40B7FFDF1A508601B79000B69000810126058EFE0020038E7FFFBF5C95B7FFDE9EBA8C0600273BB6C1558131261A8ECA,1717)°#Ж 07BF5C8D8ECDBCBF5C8F8ECA04BF5C918ECC24BF5C9320318EC959BF5C8D8ECCE2BF5C8F8EC956BF5C918ECB52BF5C932017,1A1C*h$Ж 867EB7501CB74F12B74EF78E4126BF501DBF4F13BF4EF810FF5CAABE018FBF5C8BBE0168BF5C89BD4EAD8E5EB2BF5DB0BF5D,1894*╪%Ж AE8E4D52BF01688E5DB28608A7808C5EB225F910FE5CAAB7FFDF1A508E4FFCBF018F0F6FBD4549BD44C4BD448CBD4908BD44,1874+H&Ж 47C6B8BD4631BD4324C6B0BD4631BD42E5BD42F97D5C81270BBD4114BD46F62503BD4647BD52FC810D272E810A1027025B81,153A+╕'Ж 5E102702BF8108102703268109102702FE812F1027001516044DF65C63FB5C78B65C62BB5C7739BD491C2083BD4B3C861EB7,1086,((Ж 5C6FBD414ABD52FC813025F9814C22F581392302800780308E417C486E96865AC6148E54370F6F7F5C827F5C7D7C5C7EB75C,14ED,Ш)Ж 67B75C6DF75C68A6802705BD53CF20F78664B75C678606B75C687F5C7E394DE941C440A9501C4F124EF75BDA5BC65C52516D,16DF-*Ж 42A94BB041CF5B114BBC59E9507C42955A8241AC0000000000000000BD41F7BD427FBD42061600D18E5682BD422B4D1027FF,1289-x+Ж 6339BD41B80F71B7FFDE7EA027BD41B816FEB63410BD4B893510BD52F68646B75C6F7E4556BD52FC81592706814E26F54F39,1735-ш,Ж 8601398E5587BD422BB75CAC8EFFD6A786398E566CBD422B4D2613863CC6048E000CB75C64F75C651F10F75C6639862FC605,14D2.X-Ж 8E000F20EBBD41D57E41E7BD41D57E42CB3414BD52F6F75C6FBD5348BD52F63514F75C6F7E4556BD53637E52E9B65C653DFB,18EA.╚.Ж 5C66F75C6D398124102704BB812E102704B5812D102704AF8130102504A28139102304A31604998E5596BD422BB75C80398E,105D/8/Ж 55AABD422BB75C8116FE918E55BFBD4231BD52D6C12E24F3BD5423E78420E98E55D3BD42315D27F7C1EC22F3F75C62BD5309,19B8/и0Ж 5D27EAF75C637F5C787F5C7716FDDEBD52F68650B75C6FB7FFDEBDA393B7FFDF8E02DDBD531B7E530F86A8C605B75C6FF75C,1B7901Ж 6D8620BD5363863E7E536386B8B75C6F8614B75C6DBD53488614B75C6D8652BD424DBD411ABD534EBD52E98643BD424DBD52,16800И2Ж D67E534E8678B75C6D86B8B75C6F8E5432BD4556BD52E9FC5C95B35DB0DD50C69043B7FFDEBDBC86BDBDD9B7FFDF8E03DB7E,1D6F0°3Ж 4556BD4447B65C77811327097C5C77BD444716FD6ABD411A81FF27F39EBA308913E0BF5C859EBA30890100A6890100A780BC,15BF1h4Ж 5C8526F5BE5C8530890100BF5C853089FF00BD53547C5C62B65C628B13BD450AC6A0F75C6F7F5C6DBD4528B65C627D5C7727,15EE1╪5Ж 028B13BD48F020A37D5C77270CBD44477A5C77BD444716FD02B65C62810127F6BD44479EBA308901FFBF5C8530891300A689,14D42H6Ж FF00A784301FBC5C8526F39EBA30890100BD53547A5C62B65C62BD450AC608209D7D5C79260BBD44477C5C78BD444720B3BD,14DB2╕7Ж 52D681FF1027FF3F7C5C637A5C7816FC7E7D5C78270BBD44477A5C78BD444720DCB65C63810127D57A5C6320E1BD5420B65C,16033(8Ж 78BD5404F75C83F15C64222ABD4253B65C774CC6083DF75C6FBD52D6BD5423E68434048608BD424D3504B65C6D81FA22055A,159D3Ш9Ж 270820EB8601B75C79397F5C7939B65C63B75CADBD450A7F5C6FBD54207F5C84E68054FB5C84F15C64241A3410BD4253BD45,154A4:Ж 28BD44EA3510E61FFB5C84F75C847C5CAD20DB39B65C62BD450AC608F75C6F7F5C6D4F3402BD45283502811327E54CBD44EA,15DD4x;Ж BD52DD7F5C6D20E9F65C76C10927047C5C76397F5C76F65C75C10927047C5C75397F5C757C5C74395F8163230580645C20F7,14AB4ш<Ж F75C745F81092305800A5C20F7F75C75B75C7639B65C742708BD535EBD52E92005B65C752709B65C75BD535EBD52E9B65C76,15CB5X=Ж 7E535E9EBA3189180010BF5C857E5354A6801027FF67BD424D20F58E01DAA780F65C66F75C6DC6A8F75C6FBD5363BD52FC81,18895╚>Ж 0D272E81082711F65C6DC1FA22EEBD52E9A780BD536320E48620BD5363301FB65C6DB15C661027FB4BB05C65B75C6D20CBB6,16AC68?Ж 5C66B75C6D6F848620BD424DB65C6D81FA23F48E01DAA684812B26233001BD49768E5CAE9FA68EFFFF9F68B7FFDEBDB821B7,19BE6и@Ж FFDF8E02DCBD4114BD4734203EF65C7834043410BD44473510BD4722B65C843412BD41143404BD47DFBD4114BD48293502BD,13287AЖ 54233522A0842F09E68430A57C5C7820DC3504F75C78BD44477D5C801027FA9B16FAF0B65C66B75C6DF75C6F8620BD424DB6,16887ИBЖ 5C6D81FA23F439B65C66B75C6D86B0B75C6FA6023003108E5CAEBD536D6FA48E5CAEB7FFDEBDB7C7B7FFDF8E02DDA68027D4,1AE17°CЖ 8122271D8141260EA684813D270486412004300120E6BD424DB65C6D81FA23DC39BD5114240AA6848141272181532730A684,11698hDЖ E6013410BD46E43510BD52E9A6048122262A3002862CBD424D20E38641BD424D8656BD424D8647BD424D300120D08653BD42,136C8╪EЖ 4D8655BD424D864D20EB3003208A3404BD534EBD52E9862CBD424D35027E534EBE5DAEBF5CA58E5EB22009BE5DB0BF5CA5BE,15AA9HFЖ 5DAEBC5CA52409A1842708BD533E20F21A0139E10126F41CFE39FD5C9734164F6D8027034C20F9B75C843596BD47223410BD,13DA9╕GЖ 46F63520250FB65C84A102224E1025007F1E12202C3420BE5DB0B65C848B03308610BE5DB0BF5DB0A6A4A78410BC5DAE2706,12B7:(HЖ 301F313F20F010BE5DAEBF5DAE3510FC5C97EDA1B65C84A7A07D5C8410270163E680E7A07A5C8420F03420A00210BE5DB031,1662:ШIЖ A6BF5C85BE5DB010BF5DB03410BE5DAE3086BF5DAE3510A684A7A4301F313FBC5C8526F3351010BE5C8520B13430B65C8431,1599;JЖ 863123BD533EBD537935301E1220E9BD47223410BD470135202414B65C848B03342010BE5DB030A6BF5DB0351020C9B65C84,1204;xKЖ A1021027FF433420BD53A2BD539435203410B65C8430863003BF5DB0351016FF28BD4447BD4114BD4701102500BFB65C62A1,1294;шLЖ 84102200B68B13A184102500AEB65C63A101102200A5B65CAD4CA1011025009BA601B05C63B75C693410BD5420B65C69BD54,1210QЖ 5EB2BC5DAE27BAA684E601FD5C993410BD49483510BD533E20E83406BD4A948E02DCBD531BB7FFDEBDADC69E1B3002BDBC14,1790>ИRЖ BDBDD9B7FFDF8E03DAA68481202602300135067E47DF108E5CAEEC84108349462705CC413DEDA1A6802740814E2757814527,155B>ўSЖ 3B81532776814127628130252481392220A684271A812C102700C3A6012710812C102700B9A6022706812C102700AFA61FA7,E4E?gTЖ A0108C5DAE23BC6FA439A68481492604864520EBEC1D10834C5326F48645A7A02010EC1D108348452704864E20D1864EA7A0,1431?╫UЖ CC413DEDA1208AEC84108356472704864120BAC641200EEC841083554D2704865320AAC6538622A7A03003E7A03420BD42DF,148A@GVЖ F75C97BD5309F75C98BD5309F75C99BD5309F75C9A3520B65C97A7A0B65C98A7A0B65C99A7A0B65C9AA7A0B65C9AB15C9810,1A75@╖WЖ 25059FB65C99B15C97102505959EA63001862216FF538622A7A03420301FBD42DFF75C97BD5309F75C989EA63520B65C97A7,15B3A'XЖ A0B65C98A7A020D7108E02DCE60230035D1027FF2AA68081222705A7A05A20F0BD5114244FA6848153271B34143420BD523E,1340AЧYЖ FC5CA7B7FFDEBDB4F48E5D9EBDBB8FB7FFDF201034143420BD523E8E5D9EB7FFDEBDBC14B7FFDEBDBDD9B7FFDF35208E03DA,1E1CBZЖ A6802704A7A020F835143006C007209C3404A680E681BD4B103504C00416FF8C3430BD4701240735308630A7A039BF5C8735,1233Bw[Ж 303410BE5C87E60230035D270BA68081242702A7A05A20F23590C611F75C72C673F75C699EBA30890289BD4B77B65C693412,1498Bч\Ж F65C72863FA78086FFA7805A26FB86FCA78035123088204A26E47E4B77308820BD4B77B65C728B0234106F804A26FB351030,15AECW]Ж 882039BD4B9D863CB75C6F865AB75C6D8E5694BD455639C646F75C69C60FF75C729EBA308906EA16FF9CBD4114BD4D32BD4D,179FC╟^Ж 4316F4EDBD4B9D863CB75C6F865AC6648E54F3BD4151BD52FC813127558132271F813327168134270D813510270CCC813626,13FFD7_Ж E316F538BD4CF320C9BD4D2A20C4BD4C2FB65CA3B75C97B65C9FB75C98FC5C9DFD5C998601B75C7DBD4CF9B65CA3B75C97B6,1B2BDз`Ж 5C9FB75C987F5C7DBD4CF916FF92BD4C2F208DBD5147FC5C97FD5C9BF75C9FB75CA3FC5C99FD5C9DBD4114FD5CA0B75CA4F7,1C0CEaЖ 5CA2FC5C9BBD46F62512B65CA0B75C99B75C9AFC5C9BFD5C97BD50A9B65C9CB15C9E27087C5C9C7C5CA120D6B65C9BB15C9D,1A87EЗbЖ 27147C5C9B7C5CA0B65C9FB75C9CB65CA2B75CA120BAB65CA4B75CA0B65CA2B75CA1B65CA3B75C9BB65C9FB75C9CFC5C9BBD,1B0CEўcЖ 47012510A6023003B75C84FC5CA0FD5C97BD47E2B65C9CB15C9E27087C5C9C7C5CA120D8B65C9BB15C9D27147C5C9B7C5CA0,16A7FgdЖ B65C9FB75C9CB65CA2B75CA120BC397F5C7DBD5147FC5C977D5C7D2605BD4D322003BD4D43B65C98B15C9A27057C5C9820E3,1696F╫eЖ B65C87B75C98B65C97B15C9927057C5C9720D0398601B75C7D16FFC43406BD46F62508BD53A21E12BD53793586BD47012509,1500GGfЖ BD53A2BD5394BF5DB0390D6F27046E9F5C89815C1027F3C63436810D273681082626B65C6DB15C672411B65C6F8146230A80,1308G╖gЖ 08B75C6F86CDB75C6DB05C65B75C6D8620BD5363200ABD424DB65C6D81CD240235B6B65C82B15C68270EBD52DDB65C67B75C,1671H'hЖ 6D7C5C8220E89EBA308908CB86303412C60FA6890100A7805A26F735123088204A26EBC6083414860FC6FFE7804A26FB3514,1457HЧiЖ 3088205A26EDBD52F620B1BD4B897F5C82BD52F68646B75C6FBE5C8BBF018FB7FFDEBDAC73B65C697D5C7E26098120260586,1813IjЖ 087F5C69C6043DC356C9FD5C6AB65C6D84077E56C910BE5C6A7F5C7BBE5C708608F65C73F75C72E6A4BD4E6D7A5C72270B7D,1724IwkЖ 5C7C27035820015420F03402B65C7C7D5C692604EA862002E886E78635024A1027FA8A308820BD4E9020C43402B65C658105,1242IчlЖ 260BB65C6981082604C6F8358235027D5C7B27055858585839C4F0397D5C7B27067F5C7B3121397C5C7B397F5C7C7E4E2586,11CDJWmЖ 01B75C7C7E4E25B7FFC7B7FFC9B7FFCBB7FFCCB7FFCEB7FFD0B7FFD2B7FFC0B7FFC3B7FFC5B6FF2284078AF8B7FF2296BA81,2309J╟nЖ 062603B7FFCA39BD4F76B7FFDE1CAFAD9F5C911A50B7FFDF8E4FD9BF018F390F6FBD5147BD4F767A09577A0958BD4EE28601,17BDK7oЖ 976FB75C7D16026FBD4EDF4FBD53E3FC5DB0835DAEBD53E31F98BD53E3CC5DAEBD53E31F98BD53E38E5DAEBC5DB0270BA680,1AABKзpЖ 3410BD53E3351020F086FFBD53E34FBD53E34FBD53E3CC40A9BD53E31F98BD53E3B7FFDEBDA42DB7FF407D5CAC2703B7FFD7,1C2ELqЖ 1A50B7FFDF16F1B08E55E9B7FFD6BD41D5BD53A910240005351016F19B108E094C8E02DD34308620A7A0108C095726F83530,15EALЗrЖ A6802720812F270C812E2708A7A0108C095426EC108E0954A6802708A7A0108C095726F48602B709577F0958108E09596FA0,10BBLўsЖ 108C096C26F839B7FF40B7FFDEBDD233BDA7E9B7FFDF8E55F4BD41D5BD52FC96EA81021027F09216F0AD8E564DBD41D5BD52,1CCDMgtЖ FC16F0A18E565AB7FFDFBD41D5BD52E9FC5C99BD46E420E6BD4F768E4FFCBF018FB7FFDE1CAFAD9F5C8DAD9F5C8FAD9F5C8F,1DCBM╫uЖ 1F89AD9F5C8F1E89FD5C85AD9F5C8FAD9F5C8F1A50B7FFDF8E4FD9BF018F8E5DAE10BE5C85108C000027183420B7FFDE1CAF,17ACNGvЖ AD9F5C8F1A50B7FFDF3520A780313F20E216FEE18E55FEBD4231F75C998E560FBD4231F15C9925ECF75C9ABD4114FD5C97F7,1A16N╖wЖ 5CA1BD46F61025FF59BD50A916F07D108E02DCA60230034D2744E680C1222639E7A03402BD5114240DA680A7A0BD50DD3502,1511O'xЖ 80033402BD50DDA680A7A03502800420D4B65C99B05C974AAB80A7A0B65CA1B05C98AB80A7A039E7A04A20B96FA48E02DCA6,189AOЧyЖ 80272C812226F8BD511424046C0130036C84300320E9A60581221026F603A68481531027F5F481411027F5EE16F5F2B65C99,13C9PzЖ F65CA18E02DCBD4734B65C99B15C9A27057C5C9920B4398E561EBD521EF75C97B75C98B75C878E5635BD521EF75C99F15C97,1807Pw{Ж 25E3B75C9AB15C9825DB390F6FB7FFD6BD51477F5C7D86FE976F860DBD53CFB65C98BD5423E6843406FC5C97BD4701350625,181CPч|Ж 31E102220C3003A680BD53CF5A26F82024A603BD425E2509E002BD5235E60220E4A60230033402A680BD53CF35025A4A26F3,1286QW}Ж BD5235B65C98B15C9A27057C5C9820ABB65C87B75C98B65C97B15C99270B7C5C97860DBD53CF16FF920F6F7D5C7D1027FD6E,16BFQ╟~Ж B65C7D810210260013B7FFDE1CAFBDA437BDA7EB1A50B7FFDF16EE950C6F861FBD53CF16FD3F3410BD423135105D27F63414,1605R7Ж BD53091F9835144D27EA398620BD53CF5A26F839108E000010BF5CA73001A680B75C97A680B75C98B75C7FA680B75C99A680,15B2RзАЖ B75C9A8E5CAE8630A7846F01BD53BCB7FFDEBDBC35B7FFDFFC5C97BD47012538A603BD425E2531E6028124260330015A3003,165ASБЖ 108E5CAE1E89BD536D6FA0BD53BCB7FFDEBDB9C28E5D9EBDBC35B7FFDFFC5CA7C30001FD5CA7B65C98B15C9A27057C5C9820,1B0FSЗВЖ B3B65C7FB75C98B65C97B15C991027F61E7C5C97209EB65C63BB5C78393402B65C6F8B08B75C6F35823402B65C6DBB5C65B7,165ESўГЖ 5C6D35828664B75C6D39B7FFDEAD9FA00027F7B7FFDF39B7FFDEBDB26DB7FFDEBDB73D1F10B7FFDF399FA6B7FFDE9DA5B7FF,1F12TgДЖ DF39A685B15C99230E7D5CA927046A8520026C8516F3DD16F3E13402A6023003308635828E56AE7E4556BD450A7E452886FF,143ET╫ЕЖ A780BC5C8526F9398B307E5363B75C693410BD4E0335904D1027F57DE680E7A04A20F4BC5DAE270BBC5DB0270CA680A7A020,1661UGЖЖ F010BF5DAE20EF10BF5DB03910BC5DB01027F553A6A0A78020F2A6023186312339BD52F6B75C6F7F5C82B7FFDEBDA393B7FF,19D2U╖ЗЖ DF398E5CAEBD531BB7FFDEBDBD128E5D9EB7FFDF39B7FFDE1CAF7D5C7D260AAD9FA0021A50B7FFDF393404F65C7DC1022607,1954V'ИЖ BD540F350420EA3504B7FFDE1CAF3436AD9F5C93353620D95F4D1027F4E54AEB8020F63410B7FFDE1CAFBDA2901A50B7FFDF,181CVЦЙЖ 3590B65C638E5DB2817F230530887F807F3086394D454D3D00302042415349432020204120474F544F0D3120515549542020,ECDWКЖ 20204220424C414E4B0D322052455455524E20204320434C4541520D33204C4F414420202020442044454C4554450D342053,B1EWtЛЖ 415645202020204520424C4F434B0D3520444153434949202046205345415243480D3620434C4F414420202047205245504C,B57WуМЖ 49434154450D37204353415645202020482057494454480D382043415343494920204920494E534552540D39205052494E54,C06XRНЖ 2020204A204F5054494F4E530020202020424C4F434B2020434F4D4D414E44530D312E20434F50590D322E204D4F56450D33,B3EX┴ОЖ 2E20434C45415220454E545259530D342E20434C45415220464F524D554C41530D352E20534F52540D362E2052455455524E,C82Y0ПЖ 0D20202020594F55522053454C454354494F4E3F000000000000000000000000000000000000000000000000000000000000,4E1YЯРЖ 00000000000000000000004641535420535045454420592F4E004155544F43414C43554C4154494F4E20592F4E0044495350,A43ZСЖ 4C415920464F524D554C415320592F4E00454E54455220434F4C554D4E2057494454483F00474F544F205748455245202052,D16Z}ТЖ 4F572C434F4C203F0046494C454E414D45203F00492F4F204552524F5200454E54455220535441525420524F573F00454E54,C8AZьУЖ 455220454E4420524F573F005550504552204C45465420434F524E455220522C433F004C4F57455220524947485420434F52,CF0[[ФЖ 4E455220522C433F0053594E544158204552524F5200464F524D554C41204552524F522041542000353120434841522E2053,C70[╩ХЖ 435245454E2020592F4E3F0041524520594F55205355524520592F4E3F0048495420534849465420434C45415220544F2052,C8A\9ЦЖ 455455524E00202020202020202020202020202020202020005710571D5726572FB75C6EB65C6D444444B75C6CB65C6FC620,D5E\йЧЖ 3DD3BA1F01F65C6C3ABF5C707E56F5FFFFFFFFFFFFFFFF666F6000F65C6EC1032F08C004588E56C16E955C7E570AC601F75C,1A37]ШЖ 737E4E9FC605BD570A8605B75C737E4EA5C606BD570A860420F1C607BD570A860320E8C608BD570A860220DF092324374646,12D0]ИЩЖ 4600130B54484D0953545800000000222220209990000066F6F66027861E20DD24BBB04AA4A9606648000034CCC430C23332,FCB]ўЪЖ C009669000044E440000006648000F0000000003300112244069BBDD6026222270691688F0691619601359F110F8E1196034,DD9^gЫЖ 8E9960F124888069969960699712C006600660660664801248421000F0F00084212480691240406915DD60699F9990E99E99,1466^╫ЬЖ E069888960E99999E0F88E88F0F88E8880788B9970999F9990722222701111196099ACA990888888F09FF999909DDBB99069,1C60_GЭЖ 999960E99E88806999B710E99EA99069861960F666666099999960999996609999FF909996999099971A40F11248F0F88888,1B6D_╖ЮЖ F027F22220F11111F027F222205458095A5A3200280061797088E999E000698960117999700069F870254E44400799971E88,132A`'ЯЖ EA999060E666F060E2226C889ACA9062222270009FF99000ADD990006999600E999E880799971100AD8880007861E066F666,17F6`ЧаЖ 3000999960009996600099FF90009969900999971E00F17F5C7DBD5147B65C97B75C878E5B8DBD4231F15C9A1022F730F15C,1676aбЖ 981025F729F75C7F8E5B9FBD422BB75C7A7F5C7CB65C97F65C7FBD470124037C5C7C1F127C5C97B65C97B15C99224CF65C7F,167DavвЖ 3420BD4701352025D67D5C7C2709B65C97F65C975A202A3430E622A6237D5C7A260FA1032515220F5A270C3001312120EAA1,FEBaцгЖ 03220627F1353020A43530A684E6A4BD595C7C5C7D20967D5C7D1027F26C7F5C7DB65C87B75C9716FF838E5EB2FD5C70BC5D,16A0bVдЖ AE2744FC5C70BD59BAA60230034D2709E680C12227084A20F4FC5C7020E0B75C69BD51142412FC5C703001BD59BA3002B65C,1488b╞еЖ 698003B75C69FC5C70BD59BA3003B65C69800420C6BC5DB01027EF3DBD59BABD533E20F1A1842609BD59D3250FE784200BE1,165Bc6жЖ 842607BD59D32502A784393404E601F15C982509F15C9A22041CFE20021A0135848E5B40BD42318E02DD108E5EB210BC5DB0,12C1cжзЖ 1027004D3430A6223123E68027174AE1A027F74D27058E02DD20EF3530A62231A6312320D78E5B51C65ABD4237BD52E93530,12C2dиЖ A6A4E6213420BD46E4C6648E5B5BBD4237BD41E735204D27118E02DD16FFCCC6648E5B6BBD4237BD52FC16E6CD8E5B7CBD41,1828dЖйЖ D5BD52FC8143271381522709815C26EB351016E6B35FBD411A2005C601BD52D6B75C9939BD5A597F5CA98E5EB2BC5DAE273A,15AAdїкЖ BD5326A602341030033402A6808122261DBD5114240D3001BD53263002350280033402BD5326300335028003200235024A26,B5FeeлЖ D63510BD533E20C1BC5DB02708BD5326BD533E20F35D2734B65C99BD54237D5CA9270BA601A7808C5EB226F7201E1F128E5D,1405e╒мЖ B2312110BF5C85308900FFA61FA784301FBC5C8526F58608A78416E615BD5A598E5EB2BC5DB0271CA685B15C9926103414A6,153CfEнЖ 84E601BD4D32BD4D43351420E4BD533E20DF8601B75CA916FF4853454152434820464F5220574841543F00464F554E442041,115Bf┤оЖ 542000434F4E542053454152434820592F4E00534F5252592C204E4F5420464F554E4400434F4C204F5220524F572020432F,C55g#пЖ 523F00454E54455220534F525420434F4C554D4E00415343454E44494E47204F5244455220592F4E3F00BD5C0A4FB7FFDE1C,EE4gУ░Ж AFBDA65B1A50B7FFDF39BD5BB48E5DAEA680BC5DB01027F62CBD540F20F2BD5C0AB7FFDE1CAFBDA6291A50B7FFDF8E5DAE0F,1A39h▒Ж 703410B7FFDE1CAFBDA17F1A50B7FFDF3510A780BC5DB025E616F5F78E55E9BD41D5BD53A91025F36F8E01D16F808620A780,1A3Chs▓Ж 8C01DA25F98E02DD108E01D2A680270DA7A0108C01DA27057C01D120EF86FF9768B7FFDE1CAFBDA7CA1A50B7FFDF3916F334,188Ahт│Ж 0F6FBD5147BD5BB48602B75C7D16F51F01012F050F6406000000000000000000000000000000000000000000000000000000,790025F36F8E01D16F808620A780,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  к&$:ГCOPYRIGHT 1989, FALSOFT INC.&2:ГMAZEWAY&E:ГSTEVE OSTROM&a:Г12612 CEDAR LAKE ROAD&}:ГMINNETONKA, MN 55343&Р:Г612-546-7608&Ч:Г&е:ГRAINBOW&╣:ГJULY 10, 1989&└ :Г&╚ Ю3 &с АY│&H400 е &H5C0 й32&ё W│0:АX│0е16&■ НZ:W│WлZ' ТYлX,Z'ЛX:НZ:ЕW┤▓Z з17')ЛY:Бе20'TЮ:З"ERROR IN DATA LINE #";(Yм320)о32л1(!З"CHECK EACH DATA LINE CLOSELY. MAKE SURE EACH LINE HAS 18 ENTRIES. MAKE SURE THE ONLY NUMBERS USED ARE: 49,50,51,52,70,83,128,175 MAKE SURE THERE ARE 15 LINES OF DATA."('К(?З@19,"NEXT NUMBER";(xD│1:V│52:C│128:L│&H420:X│114:Y│м1:M│0:ТL,191:З@55,1;(МA$│ Т:ЕA$│""з22(ЮЕA$│ Л(94)з28(░ЕA$│ Л(10)з48(┴ЕA$│ Л(8)з55(╥ЕA$│ Л(9)з61(█Бе36(чЕD│1з36(°ЕL┤&H420 з36)A│ Ж(Lм32))ЕA│128зD│0:Бе39)6 ЕA│Vл1 зV│Vл1:D│0:Бе37)S!ЕA│49░V│52зV│49:D│0:Бе37)`"ЕA│83з21)m#ЕA│70з67)}$а10,10:Бе22)М%ЕV│52зV│48)Ы&З@55,Vм47;)к'ТL,C:M│Mл1)╞(ЕD│0зB$│"U":L│Lм32:Бе44)т)ЕD│1зB$│"D":L│Lл32:Бе44)¤*ЕD│2зB$│"L":L│Lм1:Бе44*+L│Lл1:B$│"R"*1,C│ Ж(L):Y│Yл1:ЕY▓13зY│0:X│Xл32*?-ЕX▓510з83*M.З@XлY,B$;*]/ТL,191:Бе22*i0ЕD│0з36*z1ЕL▓&H5C0 з36*Й2A│ Ж(Lл32)*Э3ЕA│128зD│1:Бе39*╕4ЕA│Vл1 зV│Vл1:D│1:Бе37*╒5ЕA│49░V│52зV│49:D│1:Бе37*▐6Бе34*ъ7ЕD│3з36*°8A│ Ж(Lм1)+ 9ЕA│128зD│2:Бе39+':ЕA│Vл1 зV│Vл1:D│2:Бе37+D;ЕA│49░V│52зV│49:D│2:Бе37+M<Бе34+Y=ЕD│2з36+g>A│ Ж(Lл1)+{?ЕA│128зD│3:Бе39+Ц@ЕA│Vл1 зV│Vл1:D│3:Бе37+│AЕA│49░V│52зV│49:D│3:Бе37+╝BБе34+ўCЮ:З"YOU ARE THE WINNER.":З:З"IT TOOK YOU";M;" MOVES":К,CDЖ83,175,128,128,128,128,128,128,50,128,128,128,128,128,128,175,175,2194,МEЖ128,175,51,175,49,175,52,175,175,175,51,175,128,175,50,175,175,2259,╒FЖ128,49,128,52,128,49,128,128,128,128,128,52,128,128,128,49,128,1787-GЖ175,175,128,175,50,175,175,175,50,175,128,175,52,175,51,175,128,2337-hHЖ175,175,128,50,128,51,128,49,128,175,49,175,128,128,128,175,70,2040-│IЖ175,175,51,175,128,175,128,175,128,175,128,175,51,175,50,175,175,2414-¤JЖ128,128,128,49,128,52,128,52,128,49,128,175,128,128,128,175,175,2007.FKЖ128,175,52,175,51,175,175,175,51,175,128,175,52,175,49,175,175,2261.СLЖ128,175,128,49,128,50,128,128,128,128,128,51,128,128,128,175,175,2083.╪MЖ128,175,51,175,52,175,52,175,51,175,50,175,52,175,50,175,175,2061/"NЖ128,175,128,50,128,49,128,128,128,50,128,51,128,128,128,175,175,2005/oOЖ128,175,175,175,175,175,175,175,175,175,175,175,51,175,175,175,175,2804/╜PЖ128,175,175,175,128,128,128,128,128,128,128,128,128,175,175,175,175,25050QЖ128,175,175,175,49,175,50,175,51,175,175,175,175,175,175,175,175,25530VRЖ128,128,128,128,128,128,128,128,128,175,175,175,175,175,175,175,175,25520}SЮ:З"TOO MANY MOVES":З:З"GAME OVER"0йTЗ@480,"PRESS TO RESTART";:ЙA$:О,175,175,175,25050QЖ128,175,175,175,49,175,50,175,51,175,175,175,175,175,175,175                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "w&N:ГCHECK1/BAS CHECK, BUDGET MANAGEMENT PROGRAM VERSION 1.00.00 09/01/86&q:ГCOPYRIGHT 1989, FALSOFT INC.&|Бе 900&ЙМD$(165)&Ф Бе 100&╞Щ"D",#1,"CHECK/ACC",11:╨#1,11 з CA$:L│ е(1):Р'<Щ"D",#1,"CHECK/DAT",157:╨#1,9 з CN$,9 з DN$,8 з DT$,50 з PT$,50 з FR$,11 з AC$,9 з AM$,1 з ST$,10 з BL$:L│ е(1):Р'Ь#╘ CN$│C1$:╘ DN$│D1$:╘ DT$│D2$:╘ PT$│P1$:╘ FR$│F1$:╘ AC$│A1$:╘ AM$│A2$:╘ ST$│S1$:╘ BL$│B1$:Р'╫(ЕST$│"N"з S2$│"NOT VERIFIED":ДЕST$│"Y"з S2$│"VERIFIED"(Ь-Ю:З@35,"RECORD NUMBER "R" OF "L:З@96,"CHECK NO. . ."CN$:З"DEPOSIT NO. ."DN$:З"DATE. . . . ."DT$:З"PAID TO . . ."PT$:З"FOR . . . . ."FR$:З"ACCOUNT . . ."AC$:З"AMOUNT. . . .":З"STATUS. . . ."S2$(╪2З"BALANCE . . .":З@365,═C$; Й(AM$):З@429,═CC$; Й(BL$):Р)D5Ю:З@38,"DELETE ACCOUNT NAME":З@356,"FOR ACCOUNT MENU ENTER 0":З@96,"NUMBER OF ACCOUNT TO BE DELETED?":Р)Ё7Ю:З@40,"DELETING RECORDS":З@451,"FOR MAIN MENU PRESS ENTER":З@101,"RECORDS MUST BE DELETED":З@135,"IN NUMERICAL ORDER":З@202,"WHICH RECORD":З@232,"IS TO BE DELETED":Р*<ЕR9│0з R9│R :ДЕR┤R9 з R9│R*=Р*╖dЮ:З@32,"CHECK, BUDGET MANAGEMENT PROGRAM":З@97,"TO ENTER RECORDS - - PRESS A":З@129,"TO VIEW RECORDS- - - PRESS B":З@161,"TO EDIT RECORDS- - - PRESS C"+WiЗ@193,"TO DELETE RECORDS - - PRESS D":З@225,"TO INSERT RECORD - - PRESS E":З@257,"FOR ACCOUNT ROUTINES - PRESS F":З@289,"FOR OTHER ROUTINES- - PRESS G"+╟nA$│ Т:ЕA$│"A"з385:ДЕA$│"B"з545:ДЕA$│"C"з610:ДЕA$│"D"з725:ДЕA$│"E"з850:ДЕA$│"F"з115:ДЕA$│"G"з О"CHECK2":Д110+уs:ГACCOUNT NAME ROUTINES,пxЮ:З@40,"ACCOUNT ROUTINES":З@99,"ESTABLISH ACCOUNT- PRESS A":З@131,"VIEW ACCOUNTS - - PRESS B":З@163,"DELETE ACCOUNT- - PRESS C":З@195,"PRINT OF ACCOUNTS- PRESS D":З@227,"FOR MAIN MENU - - PRESS E"-}З@195,"SORT ACCOUNTS - - PRESS D":З@227,"PRINT ACCOUNTS- - PRESS E":З@259,"FOR MAIN MENU - - PRESS F"-xВA$│ Т:ЕA$│"A"з135:ДЕA$│"B"з190:ДЕA$│"C"з230:ДЕA$│"D"з340:ДЕA$│"E"з285:ДЕA$│"F"з100:Д130-ТЗ:ГENTER ACCOUNT NAMES-ЯМБж25:R│L-┤СR│Rл1:ЕR▓165з185.SЦЮ:З@34,"ESTABLISHING AN ACCOUNT LIST":З@74,"ACCOUNT "R:З:Й"NAME OF ACCOUNT";C2$:ЕC2$│"^^"з180:ДЕ З(C2$)▓11з╔"DCD":Ю:З@233,"ENTRY TO LONG":АC│1е500:Л:Бе150.sЫB$│" ":B1$│C2$лB$.▓аЕR│1з170:ДАR1│1е Rм1:─#1,R1:ЕCA$│ О(B1$,11)з165:ДЛR1:Бе170.яе╔"DCD":Ю:З@229,"ACCOUNT ALREADY EXIST":АC│1е500:ЛC:Бе150/*к╘ CA$│C2$:┼#1,R:З@449,"ESTABLISH ANOTHER ACCOUNT Y/N?"/NпA$│ Т:ЕA$│"Y"з145:ДЕA$┤▓"N"з175/Z┤Ъ:Бе120/а╣Ю:З@198,"NO MORE ACCOUNT NAMES":З@231,"CAN BE ESTABLISED":Ъ:Бе120/╣╛:ГVIEW ACCOUNT NAMES/╧├Бж25:R│1:ЕL│0з2250d╚Ю:B1│0:З@2,"LIST OF ESTABLISHED ACCOUNTS":З@36,"THERE ARE "L" ACCOUNTS":B│79:АR│R е L:─#1,R:B│Bл16:B1│B1л1:З@B,R;CA$:ЕB1│20 ░ R┤L з205:ДЛR:Бе2150Ш═B1│0:R│Rл1:З@450,"TO CONTINUE LIST PRESS ENTER"0╢╥A$│ Т:ЕA$│ Л(13)з200:Д2100▀╫З@450,"FOR ACCOUNT MENU PRESS ENTER"0∙▄A$│ Т:ЕA$┤▓ Л(13)з2201сЪ:Бе1201ц:ГDELETE ACCOUNT NAME1YыR│1:R2│0:Бж25:Щ"D",#2,"TEMP/ACC",11:╨#2,11 з T4$:Бж531аЁЗ@160," ":З@128:ЙR1:ЕR1┤▓0 ░ R1┤R ▒ R1▓L з240:ДЕR1│0з Ъ:Бе1201╜їАR│1е L:─#1,R:ЕR1│R з2651┌·╘ T4$│CA$:R2│R2л1:┼#2,R21с ЛR2Ъ:╥"CHECK/ACC":╓"TEMP/ACC"е"CHECK/ACC":Бе1202a Ю:З@43,"ACCOUNT "R:З:З"ACCOUNT NAME ."CA$:З@452,"DELETE THIS ACCOUNT Y/N?"2|A$│ Т:ЕA$│""з270:ДБж532┤З@160," ":З@128:ЙR1:ЕR1┤▓0 ░ R1┤│R ▒ R1▓L з2752╔ЕA$│"Y"з255:Д2502ф:ГHARDCOPY OF ACCOUNTS3Р"Ю:З@37,"PRINTOUT OF ACCOUNTS":З@99,"DISABLE PRINTER AUTOMATIC":З@137,"LINE ADVANCE":З@229,"WHEN PRINTER IS READY":З@266,"PRESS ENTER":З@451,"FOR ACCOUNT MENU ENTER M"3╖'A$│ Т:ЕA$│"M"з100:ДЕA$┤▓ Л(13)з2953╥,Бж25:ЕL│0з335:ДR│1:C│14/1З#м2,д24)"CHECK, BUDGET MANAGEMENT PROGRAM"; Л(10):З#м2,д34)"ACCOUNT LIST"; Л(10); Л(10)4L6─#1,R:З#м2,д10)R д13)CA$4{;R│Rл55:ЕR▓L з330:Д─#1,R:З#м2,д30)R д33)CA$4к@R│Rл55:ЕR▓L з325:Д─#1,R:З#м2,д50)R д53)CA$4╙ER│Rм109:ЕR▓55з335:ДЗ#м2, Л(10):Бе3105JR│Rм54:ЕR▓55 ▒ R▓L з335:ДЗ#м2, Л(10):Бе3105OЪ:Бе1205.T:ГALPHABETIZE ACCOUNT NAMES5XYЮ:З@194,"ALPHABETIZING ACCOUNT NAMES"5o^Бж25:ЕL│0з Ъ:Бе1005ФcАR│1е L:─#1,R:D$(R)│CA$:ЛR:R│Rм15└hАR1│1е L:АR2│R1 е L:ЕD$(R1)┤D$(R2) з3705шmD2$│D$(R1):D$(R1)│D$(R2):D$(R2)│D2$5∙rЛR2:ЗR1;:ЛR16wАR3│1е L:╘ CA$│D$(R3):┼#1,R3:ЛR36*|Ъ:Бе1206>Б:ГENTER RECORDS6zЖБж25:L0│L:ЕL0│0з395:ДАD│1е L0:─#1,D:D$(D)│CA$:Л:Ъ:Бе4006┼ЛЮ:З@197,"NO ACCOUNTS HAVE BEEN":З@234,"ESTABLISHED":АC│1е750:Л:Ъ:Бе1006эРБж30:R│L:V│0:X│1:X1│1:X2│1:ЕL│0з4107Х─#1,L:V│ Й(BL$)7 ЪR│Rл17*ЯЮ:З@39,"RECORD NUMBER "R:З7БдЙ"CHECK NO(OR MMDDYIIN)";C1$:ЕC1$│"^"з535:ДЕC1$│"^^"з540:ДЕ З(C1$)▓9з ╔"DCD":Бе4207ОйЕX│2з6457хоЙ"DEPOSIT NO.(MMDDYIIN)";D1$:ЕD1$│"^"з535:ДЕD1$│"^^"з540:ДЕ З(D1$)▓9з ╔"DCD":Бе4308п│Е Й(C1$)▓0░  Й(D1$)▓0▒  Й(C1$)│0░  Й(D1$)│0з ╔"DCD":Ю:З@101,"EACH RECORD MUST HAVE":З@140,"EITHER":З@167,"A CHECK NUMBER OR":З@199,"A DEPOSIT NUMBER":З@229,"BUT CAN NOT HAVE BOTH":АC│1е2000:Л:Бе5358╝╕ЕX│2з6559╜Й"DATE. . . .(MM/DD/YY)";D2$:ЕD2$│"^"з535:ДЕD2$│"^^"з540:ДЕ З(D2$)▓8з ╔"DCD":Бе4459 ┬ЕX│2з6659p╟Й"PAID TO . . .";P1$:ЕP1$│"^"з535:ДЕP1$│"^^"з540:ДЕ З(P1$)▓50з ╔"DCD":Бе4559}╠ЕX│2з6759═╤Й"FOR . . . . .";F1$:ЕF1$│"^"з535:ДЕF1$│"^^"з540:ДЕ З(F1$)▓50з ╔"DCD":Бе4659┌╓ЕX│2з685:*█Й"ACCOUNT . . .";A1$:ЕA1$│"^"з535:ДЕA1$│"^^"з540:ДЕ З(A1$)▓11з ╔"DCD":Бе475:Мх╘ AC$│A1$:АD│1еL0:ЕAC$│D$(D)з490:ДЛD:╔"DCD":Ю:З@229,"ACCOUNT DOES NOT EXIST":АC│1е500:Л:Бе535:ЩъЕX│2з695:шяЙ"AMOUNT. . . .";A2$:ЕA2$│"^"з535:ДЕA2$│"^^"з540:ДЕ З(A2$)▓9з ╔"DCD":Бе495:їЇЕX│2з705; ∙S1$│"N":З"STATUS. . . . NOT VERIFIED";I■Е Й(C1$)▓0з V│Vм Й(A2$):ДV│Vл Й(A2$);tB1$│ И(V):З═"BALANCE "лCC$;V:Бж35;П┼#1,R:З"MORE DATA Y/N";╝ A$│ Т:ЕA$│"Y"з410:ДЕA$┤▓"N"з525:ДЪ:Бе100;╚Ъ:Бе100;сЕX1│1з415:ДЕX1│2з625;·ЕX2│1з530:ДЕX2│2з620<!:ГVIEWING ROUTINE<$&Бж30:C0$│"####"<╒+Ю:З@40,"VIEWING RECORDS":З@101,═"THERE ARE"лC0$л" RECORDS";L:З@138,"IN THE FILE":З@451,"FOR MAIN MENU PRESS ENTER":З@196,"WHICH RECORD IS VIEWING":З@234,"TO START AT":З:ЙR<°0ЕR┤0 ▒ R▓L з555:ДЕR│0з Ъ:Бе100=5─#1,R= :Бж40=5?З@449,"<^> R-1 R+1 MENU"=?DA$│ Т=_IЕA$│"^" ░ R▓1 з R│Rм1:Бе605=ВNЕA$│ Л(32) ░ R┤L з R│Rл1:Бе605=ЧSЕA$│"M"з555:Д580=╞]─#1,R:Е Й(CN$)▓0з V│Vм Й(AM$):ДV│Vл Й(AM$)=╨`Бе570=уb:ГEDIT ROUTINE>)gБж25:L0│ е(1):АD│1еL0:─#1,D:D$(D)│CA$:Л:Ъ:X│2:X1│2:X2│2:R9│0:Бж30>╧lЮ:З@40,"EDITING RECORDS":З@451,"FOR MAIN MENU PRESS ENTER":З@106,"WHICH RECORD":З@136,"IS TO BE EDITED":ЙR:ЕR┤0 ▒ R▓L з620:ДЕR│0 ░ R9│0з622:ДЕR▓0з625:ДЕR9▓0з800>█nЪ:Бе100?q─#1,R:Бж40:З@454,"EDIT THIS RECORD Y/N"?/vA$│ Т:ЕA$│"Y"з635:ДЕA$│"N"з620:Д630?j{Ю:З@37,"EDIT CHECK NUMBER Y/N":З@96,"CHECK NUMBER."CN$?УАA$│ Т:ЕA$│"Y"з642:ДЕA$┤▓"N"з640:Д644?вВБж60:Бе420?оДC1$│CN$?щЕЮ:З@40,"EDIT DEPOSIT NO. Y/N":З@96,"DEPOSIT NO. .";DN$@КA$│ Т:ЕA$│"Y"з652:ДЕA$┤▓"N"з650:Д654@!МБж60:Бе430@3ОD1$│DN$:Бе435@fПЮ:З@40,"EDIT DATE Y/N":З@96,"DATE. . . . ."DT$@УФA$│ Т:ЕA$│"Y"з445:ДЕA$┤▓"N"з660:ДD2$│DT$@╔ЩЮ:З@40,"EDIT PAID TO Y/N":З@96,"PAID TO . . ."PT$@ЎЮA$│ Т:ЕA$│"Y"з455:ДЕA$┤▓"N"з670:ДP1$│PT$A(гЮ:З@42,"EDIT FOR Y/N":З@96,"FOR . . . . ."FR$AUиA$│ Т:ЕA$│"Y"з465:ДЕA$┤▓"N"з680:ДF1$│FR$AЛнЮ:З@40,"EDIT ACCOUNT Y/N":З@96,"ACCOUNT . . ."AC$A╕▓A$│ Т:ЕA$│"Y"з475:ДЕA$┤▓"N"з690:ДA1$│AC$Aэ╖Ю:З@40,"EDIT AMOUNT Y/N":З@96,"AMOUNT. . . ."AM$B╝A$│ Т:ЕA$│"Y"з702:ДЕA$┤▓"N"з700:Д704B%╛Бж60:Бе495B1└A2$│AM$Bf┴Ю:З@40,"EDIT STATUS Y/N":З@96,"STATIS. . . ."ST$BЩ╞A$│ Т:ЕA$│"Y"з715:ДЕA$┤▓"N"з710:ДS1$│ST$:Бе720B▌╦З:Й"STATUS. . . .";S1$:ЗS1$:Е S1$┤▓"Y" ░ S1$┤▓"N"з ╔"DCD":Бе715B·╨B1$│BL$:Бж35:┼#1,R:Бе620C╒:Г DELETE ROUTINECЧ┌Бж30:Щ"D",#2,"CHCKTEMP/DAT",157:╨#2,9 з TC$,9 з T3$,8 з TD$,50 з TP$,50 з TF$,11 з T1$,9 з T2$,1 з TS$,10 з TB$:R│1:Бж55:R9│0:R2│0Cю▀З@288," ":З@256:ЙR1:ЕR1┤▓0 ░ R1┤R ▒ R1▓L з735:ДЕR1│0з Ъ:╥"CHCKTEMP/DAT":Бе100D фАR│1е L:─#1,R:ЕR│R1 з760Dxщ╘ TC$│CN$:╘ T3$│DN$:╘ TD$│DT$:╘ TP$│PT$:╘ TF$│FR$:╘ T1$│AC$:╘ T2$│AM$:╘ TS$│ST$:╘ TB$│BL$:R2│R2л1:┼#2,R2DюЛRD╜єЪ:╥"CHECK/DAT":╓"CHCKTEMP/DAT"е"CHECK/DAT":ЕR9▓0з799:Д100Dц°Бж40:З@453,"DELETE THIS RECORD Y/N?"E¤A$│ Т:ЕA$│""з765:ДБж55E9З@288," ":З@256:ЙR1:ЕR1┤▓0 ░ R1┤│R ▒ R1▓L з770ENЕA$│"Y"з780:Д745E] Бж60:Бе750EfБж30Eв :ГROUTINE FOR RECALCULATING THE BALANCE OF THE RECOREDSE╢%ЕR9▓L з Ъ:Бе100E═&V│0:ЕR9│1з808:Д830Eс(АR│R9 е L:─#1,RF%*C1$│CN$:D1$│DN$:D2$│DT$:P1$│PT$:F1$│FR$:A1$│AC$:A2$│AM$:S1$│ST$FN/Е Й(C1$)▓0з V│Vм Й(A2$):ДV│Vл Й(A2$)Fr4B1$│ И(V):Бж35:┼#1,R:ЛR:Ъ:Бе100FУ>R│R9м1:─#1,R:V│ Й(BL$):Бе808FоR:ГINSERT EMPTY RECORD GWЩ"D",#1,"CHECK/DAT",157:╨#1,157 з Z$:L│ е(1):Щ"D",#2,"TEMP/DAT",157:╨#2,157 з Y$G[\R1│0:Ю:З@451,"FOR MAIN MENU PRESS ENTER":З@0:Й" LAST RECORD BEFORE INSERT ";R9Gz^ЕR9│0з Ъ:╥"TEMP/DAT":Бе100GЙ_ЕR9▓L з860G╢aАR│1е R9:─#1,R:╘ Y$│Z$:R1│R1л1:┼#2,R1:ЛRG╫fX$│"":╘ Y$│X$:R1│R1л1:┼#2,R1H kАR│R9л1 е  е(1):─#1,R:╘ Y$│Z$:R1│R1л1:┼#2,R1:ЛRH<mЪ:╥"CHECK/DAT":╓"TEMP/DAT"е"CHECK/DAT":Бе100HvДХ 2500:╤ 2,400:C$│"$######.##":CC$│"$#######.##":Бе 80GЙ_ЕR9▓L з860G╢aАR│1е R9:─#1,R:╘ Y$│Z$:R1│R1л1:┼#2,R1:ЛRG╫fX$│"":╘ Y$│X$:R1│R1л1:┼#2,R1H kАR│R9л1 е  е(1):─#1,R:╘ Y$│Z$:R1│R1                                                                                                                                                                                                                                                                 ┘&$:ГCOPYRIGHT 1989, FALSOFT INC.&*Ю&K Х 500, Ж(39)н256л Ж(40)м&HD9&eS│ Ж(39)н256л Ж(40)л1&Д:ГDO NOT USE &H4000-&H5FFF&мЕ S ▓ &H5FFF ▒ Sл&HD9 ┤ &H4000 з 40&╜Х 500,&H3F25&╩#S│&H3F26&╪(М RT(7,6)&ы-:ГEXEC ADDRESS&°2E│Sл&H81'7A│ Б(Eо256)'<Т 157,A'&AТ 158,EмAн256'EFЗ " BUILDING PRINT SCREEN"'KKЗ'ePЗ " START ADDRESS ";S'ДUЗ " END ADDRESS ";Sл&HD9'ЮZЗ " EXEC ADDRESS ";E'▒_А X│S е Sл&HD9'║dН A$'╬iТ X, Й("&H"лA$)'╓nЛ X'їs:ГDEFAULT: FUNCTION KEY F2'√xЗ(}З "ENTER DESIRED KEY"(9ВQ$│ Т:Е Q$│"" з 130 :Д Q│ К(Q$)(IЗЕ Q│4 з 245(lМ:ГREAD KEYBOARD ROLLOVER TABLE(zСА B│0 е 6(ИЦА A│0 е 7(СЫН A$(йаRT(A,B)│ Й("&H"лA$)(│еЛ A,B(┴кА A│0 е 7(╧пА B│0 е 6(ц┤Е RT(A,B)│ Q з 205(Ё╣Л B,A(Ў╛З)├З "SORRY, CAN NOT USE ";Q$) ╚Бе 120)+═A│Aл82)9╥А X│0 е B)B╫Н V$)T▄V│ Й("&H"лV$))\сЛ X)hцТ Sл8,A)uыТ Sл10,V)ВЁТ Sл17,A)ИїЮ)Ю·З " PRINT SCREEN")д З)кЗ)╞ З " NSTALL AND QUIT")╓З " AVE")цЗ " UIT")ьЗ* З " SAVE BEFORE INSTALLING"*$"Q$│ Т:Е Q$│"" з 290*7'Е Q$│"Q" з 315*K,Е Q$│"S" з 320 *_1Е Q$┤▓"I" з 245*e6в*k;К*q@З*ЗEЙ " FILE NAME";F$*НJЗ*╢OЗ "SAVEM ";F$;",";S;",";Sл&HD9;",";E*╠T╪M F$,S,Sл&HD9,E *╫YБе 245*▐^:Г*¤c:ГMACHINE LANGUAGE PROGRAM+еhЖ 34,36,6F,8D,00,8E,B6,01,58,81,BF,26,71,86,FF,B7,01,58,86,FE,97,6F,96,E7,4A,27,3C,4A,27,77,8E,04,00,A6,80,27,1C,81,80,24,18,81,1B,24,04,8B,60,20,12,81,40,2D,0C,81,MmЖ 5E,2D,0A,81,60,2D,04,80,40,20,02,86,20,AD,9F,A0,02,1F,10,58,58,58,26,02,8D,66,8C,06,00,26,CC,20,1A,8D,53,A6,81,8D,61,AD,9F,A0,02,C1,28,26,02,8D,4F,8C,47,80,26,ED,їrЖ 86,3A,B7,FF,A2,86,0C,AD,9F,A0,02,A6,8D,00,19,27,01,39,35,36,7E,BE,01,6B,AF,8C,FA,30,8D,FF,75,BF,01,6B,30,8D,00,3A,9F,9D,39,8D,15,A6,81,8D,23,AD,9F,A0,02,C1,50,26-гwЖ 02,8D,11,8C,4F,00,26,ED,20,C0,86,36,B7,FF,A2,8E,40,00,5F,39,86,0D,AD,9F,A0,02,5F,39,81,80,23,02,80,80,81,20,2C,02,86,20,5C,39,34,36,86,FF,A7,8D,FF,C0,17,FF,3B,35,36,39-к|:Г-╚Б:ГKEYBOARD ROLLOVER TABLE-цЖЖ 40,41,42,43,44,45,46,47.ЛЖ 48,49,4A,4B,4C,4D,4E,4F."РЖ 50,51,52,53,54,55,56,57.@ХЖ 58,59,5A,5E,0A,08,09,20.^ЪЖ 30,31,32,33,34,35,36,37.|ЯЖ 38,39,3A,3B,2C,2D,2E,2F.ЪдЖ 0D,0C,00,40,BD,67,04,00.бй:Г.╜о:ГROLLOVER TABLE VALUES.╪│Ж FE,FD,FB,F7,EF,DF,BF44,45,46,47.ЛЖ 48,49,4A,4B,4C,4D,00100 00110 ********************************* 00120 *..........Name:...PRT.......... 00130 00140 *postion.independent.code. 00150 00160 *after.installing.either 00170 *function.key..or 00180 *.prints.screen 00190 00200 *do.not.change.org.to.$4000-5FFF 00210 *the.40.or.80.width.screens.are 00220 *copied.to.this.memory.area 00230 00240 *exec.address.changes.from. 00250 *to..after.1st.execution 00260 00270 *parts.of..written 00280 *over.after.1st.execution. 00290 00300 ********************************* 00310 ORG $7000 00320 00330 ********************************* 00340 *..........definitions........... 00350 00360 *device.number 00370 DEVNUM EQU $6F 00380 00390 *ml.exec.address 00400 EXEC EQU $9D 00410 00420 *type.screen 00430 TYPE EQU $E7 00440 00450 *rollover.table 00460 ROLL EQU $158 00470 00480 *input.driver 00490 INPT EQU $16B 00500 00510 *character.out 00520 CHROUT EQU $A002 00530 00540 *MMU.location.address 00550 MMU EQU $FFA2 00560 00570 ********************************* 00580 *..........main.program.......... 00590 PRT PSHS Y,X,B,A 00600 CLR TEST,PCR 00610 00620 *poll.keyboard.table.for. 00630 LDA ROLL 00640 CMPA #$BF 00650 BNE FIN 00660 00670 *clear.keyboard.rollover.table 00680 LDA #$FF 00690 STA ROLL 00700 00710 *prepare printer 00720 PT1 LDA #$FE 00730 STA DEVNUM 00740 00750 *type.screen 00760 LDA TYPE 00770 DECA 00780 BEQ MEDRES 00790 DECA 00800 BEQ HIRES 00810 00820 ********************************* 00830 *........32.width.screen......... 00840 LDX #$400 00850 LR1 LDA ,X+ 00860 00870 *convert.screen.character.to.ASCII 00880 BEQ LR3 00890 CMPA #$80 00900 BCC LR3 00910 CMPA #$1B 00920 BCC LR2 00930 ADDA #$60 00940 BRA LR4 00950 LR2 CMPA #$40 00960 BLT LR3 00970 CMPA #$5E 00980 BLT LR4 00990 CMPA #$60 01000 BLT LR3 01010 SUBA #$40 01020 BRA LR4 01030 LR3 LDA #$20 01040 LR4 JSR [CHROUT] 01050 01060 *check.for.end.of.line 01070 TFR X,D 01080 LSLB 01090 LSLB 01100 LSLB 01110 BNE LR5 01120 BSR CR 01130 01140 *done? 01150 LR5 CMPX #$600 01160 BNE LR1 01170 BRA CL1 01180 01190 ********************************* 01200 *........40.width.screen......... 01210 MEDRES BSR IN 01220 01230 ME1 LDA ,X++ 01240 BSR CV 01250 JSR [CHROUT] 01260 01270 *check.for.end.of.line 01280 CMPB #$28 01290 BNE ME2 01300 BSR CR 01310 01320 *done? 01330 ME2 CMPX #$4780 01340 BNE ME1 01350 01360 ********************************* 01370 *.......cleanup.and.end.......... 01380 CL LDA #$3A 01390 STA MMU 01400 01410 CL1 LDA #$0C 01420 JSR [CHROUT] 01430 01440 *test.for.direct.exec 01450 LDA TEST,PCR 01460 BEQ FIN 01470 RTS 01480 01490 FIN PULS A,B,X,Y 01500 01510 *program.exit. 01520 RTN FCB $7E JUMP 01530 ********************************* 01540 *........install.program......... 01550 01560 START LDX INPT 01570 STX 1+RTN,PCR 01580 01590 LEAX PRT,PCR 01600 STX INPT 01610 01620 LEAX DIR,PCR 01630 STX EXEC 01640 01650 TEST RTS 01660 01670 ********************************* 01680 *........80.width.screen......... 01690 HIRES BSR IN 01700 01710 HR1 LDA ,X++ 01720 BSR CV 01730 JSR [CHROUT] 01740 01750 *check.for.end.of.line 01760 CMPB #$50 01770 BNE HR2 01780 BSR CR 01790 01800 *done? 01810 HR2 CMPX #$4F00 01820 BNE HR1 01830 BRA CL 01840 01850 ********************************* 01860 *...move.high.resolution.screen.. 01870 IN LDA #$36 01880 STA MMU 01890 01900 LDX #$4000 01910 CLRB 01920 RTS 01930 01940 ********************************* 01950 *.........end.of.line............ 01960 CR LDA #$0D 01970 JSR [CHROUT] 01980 CLRB 01990 RTS 02000 02010 ********************************* 02020 *....convert.hi&med.res.chars.... 02030 CV CMPA #$80 02040 BLS CV1 02050 SUBA #$80 02060 CV1 CMPA #$20 02070 BGE CV2 02080 LDA #$20 02090 CV2 INCB 02100 RTS 02110 02120 ********************************* 02130 *..........direct.exec........... 02140 DIR PSHS Y,X,B,A 02150 02160 *set.variable 02170 LDA #$FF 02180 STA TEST,PCR 02190 02200 *print.screen 02210 LBSR PT1 02220 02230 *exit 02240 PULS A,B,X,Y 02250 RTS 02260 02270 ********************************* 02280 02290 END START 02300 02310 ********************************* variable 02170 LDA #$FF 02180 STA TEST,PCR 02190 02200 *print.screen 02210 LBSR PT1 02220 02230 *exit 02240 PULS A,B,X,Y 02250 RTS 02260 0227                                                                                                                                                                                                                                                                 &$:ГCOPYRIGHT 1989, FALSOFT INC.&F :Г===========================&f:Г C O N C E N T R A T E !&m:Г&Н:Г Written By Eric A. Wolf&к:Г Copyright (C) 1989&╠#:Г===========================&р(Т65497,0:└1:т32&·-Х1000:М B(10,5),C(16)'2ф2:ф0'7Т&HA27E,0'<:Г'7A:Г Set monitor type HERE!'>F:Г'_KMO│1 :Г(1=RGB and 0=CMP/TV)'fP:Г'ВU:Г Display Title Screen'ЙZ:Г'ї_A1$│"":A2$│"":АZ│1е8:A1$│A1$л Л(159)л Л(159)л Л(175)л Л(175):A2$│A2$л Л(175)л Л(175)л Л(159)л Л(159):ЛZ( dЕ MO│1 з ў :Д Ў($iт32:Т359,57:Т&HFF22,80(vnЗ@0,A1$:З@260,"Written By Eric A. Wolf":З@294,"Copyright (C) 1989":З@448,A1$;(їs╔"T200L200":T$│"CONCENTRATE!":АY│1 е 12:АX│64 е 160 й 32:Т1026л(Yн2)лXм32,96:З@2л(Yн2)лX, Р(T$,Y,1):╔ И(Y):ЛX:АZ│1е50:ЛZ,Y)xАY│6е12:АX│Y е 12:╔  И(X):ЛX,Y)Н}АY│0е2:З@384, б(31,32);:Т1439,96:АZ│1е200:ЛZ:З@384,"< Press any key to begin game!";:Т1439,126:АZ│1е200:ЛZ,Y:R│1)╩ВD│20:Е R│1 з З@0,A1$;:З@448,A1$;: :Д З@0,A2$;:З@448,A2$;)╘ЗR│1мR)ъМD│Dм1:Е D│0 з 130*СA$│ Т:ЕA$│""з140 :Д АY│1е16:З@480:АZ│1е50:ЛZ,Y*wЦЗ@32,"Will the first player please enter their name below...":I│128:Бж175:N$(0)│N$*╤ЫЗ@192,"Thank you. Now, will the secondplayer enter their name.":I│288:Бж175:N$(1)│N$+8аЮ:A$│"Welcome "лN$(0)л" & "лN$(1):З@16м З(A$)о2,A$:З@34,"to the game of CONCENTRATE !":З б(32,"=")+PеP│0:Бж180:P│1:Бж180+[кБе 200+{пЗ@I,"";:╗ЙN$:N$│ О(N$,10):Р+▐┤АY│96е448й32:З@Y, б(32,32);:ЛY:З@128,N$(P);", please select your":З@160,"method of input...":З,╣З"1) Right Joystick":З"2) Left Joystick":З"3) Keyboard",F╛A$│ Т:ЕA$┤"1"▒A$▓"3"з190:ДP(P)│ Й(A$)м1,L├Р,i╚Ю:З@266,"Please wait...",p═:Г,П╥:Г Select correct palettes,Ц╫:Г,Ї▄Е MO│1 з PA$│"00095663075200326040542518345636" :Д PA$│"00113263165300075626364518213207",√с:Г-ц:Г Store Flip Card Animation-#ы:Г-kЁТ&HE6,2:х &H6E000,&HFF:х&H6E001,&HFF:Т&HE0D4,&H37:АY│1е17:эY,455:ЛY-ОїТ&HE0D4,&H34:АY│1е17:эY,455:ЛY.·BL│0:А L│0 е 15 й 4:АY│0е29й2:є(Y,0,1):є(Yл1,1,1):є(Yл1,0,2):є(Y,1,2):ЛY:ы(0,0)м(29,1),BLл1:АY│2е29 й2:ь(0,Y)м(29,Yл1),BLл1,╜:Л.9 Бж265:BL│BLл1:ы(0,0)м(29,29),BL:ЛL.ЛАL│12 е 0 йм4:ч3:ъ(0,0)м(29,29),╜,BF:Бж265:BL│BLл1:ы(0,0)м(29,29),BL:ЛL:Бе295.Ъ ЕL│0 з 275.╪АL1│0 е Lм1:ъ(0,L1)м(29,L1),╛:ъ(0,29мL1)м(29,29мL1),╛:ЛL1/=ї"C0;BM0,"л И(L)л";ND1R1;BM0,"л И(29мL)л";NU1R1;BM29,"л И(L)л";ND1L1;BM29,"л И(29мL)л";NLU1U1":Р/D:Г/_:Г Store 16 Card Faces/f":Г/к'ц:Т&HE0D4,&H34:ь(0,0)м(29,29),1,╜:Т&HE0D4,&H37:ы(0,0)м(29,29),10+,BL│1:АY│1е16:Т&HE0D4,&H34:ь(0,0)м(29,29),8,╜:Т &HE0D4,&H37:Н D1$,D2$,P1,P2:ї D1$:ш(P1,P2):ї D2$:BL│BLл1:ы(0,0)м(29,29),BL:ЛY021:Г0I6:Г Start the game!0P;:Г0q@Бж485:P│1:TF│0:S(0)│0:S(1)│00кESW│0:P│1мP:ъ(0,176)м(319,191),╛,BF:A$│N$(P)л", use "1JЕ P(P)│0 з A$│A$л"right joystick" :Д Е P(P)│1 з A$│A$л"left joystick" :Д A$│A$л"Keyboard"17OA$│A$л" to select":ч2:ю(20м З(A$)о2,23),A$1UTB│0:O1│м1:O2│м1:X1│4:Y1│21qYИ P(P)л1 Бе 350,355,3601к^B│ Ж(65280) ░ 1:B│1мB:X1│ Н(0)о7:Y1│ Н(1)о12.8:Бе3901ЎcB│ Ж(65280) ░ 2:B│(Bо2)н1:B│1мB:X1│ Н(0):X1│ Н(2)о7:Y1│ Н(3)о12.8:Бе3902hЕ O1┤0 з 390 :Д A$│ Т2'mB│0:Е A$│" " з B│12yrX1│X1м11:Y1│Y1м11:X1│ Б(O1о32):Y1│ Б(O2о32):Е A$│ Л(8) з X1│X1м1:ЕX1┤0 з X1│02ЪwЕA$│ Л(9)зX1│X1л1:ЕX1▓9зX1│92╛|ЕA$│ Л(94)зY1│Y1м1:ЕY1┤0 з Y1│02тБЕA$│ Л(10)зY1│Y1л1:ЕY1▓4 з Y1│43ЖX1│ Б(X1)н32л11:Y1│ Б(Y1)н32л11:Е X1│O1 з Е Y1│O2 з 4053RЛТ&HE0D4,&H34:Е O1▓м1 з ь(O1,O2)м(O1л7,O2л7),9,╜3ЦРO1│X1:O2│Y1:ы(X1,Y1)м(X1л7,Y1л7),9:ч2:ъ(X1,Y1)м(X1л7,Y1л7),╜,BF3жХЕ B│0 з 3453╘ЪX│X1м11:Y│Y1м11:X│ Б(Xо32)л1:Y│ Б(Yо32)л13щЯЕ B(X,Y)│0 з 3454дSW│SWл1:Е SW│1 з C1│X:C2│Y:Бж605:Бе3404CйЕ C1│X ░ C2│Y з SW│SWм1:Бе340 :Д C3│X:C4│Y4∙оБж605:Е B(C1,C2)┤▓B(C3,C4) з ъ(0,176)м(319,183),╛,BF:ч15:ю(7,22),"Sorry, no match that time!":╔"T150L150":АY│12е1йм1:╔  И(Y):ЛY:АZ│1е100:ЛZ:X│C1:Y│C2:Бж610:X│C3:Y│C4:Бж610:Бе3255│C1│C1м1:C2│C2м1:C3│C3м1:C4│C4м15U╕╔"T200L200":ч3:ю(7,22),"Great Match! Keep going!"5╨╜АZ1│1 е 12 й3:АZ│Z1 е 12:╔  И(Z):ЛZ,Z1:ъ(C1н32,C2н32)м(C1н32л30,C2н32л30),╛,BF:ъ(C3н32,C4н32)м(C3н32л30,C4н32л30),╛,BF6S┬S(P)│S(P)л1:B(C1л1,C2л1)│0:B(C3л1,C4л1)│0:SW│0:ъ(160,160)м(176,167),╛,BF:ъ(304,160)м(319,167),╛,BF:ю(19,20),S(0):ю(37,20),S(1)6m╟TF│TFл1:Е TF┤25 з 3406К╠Е S(0)▓S(1) з W│0 :Д W│16Ф╤Бе5606Ы╓:Г6║█:Г Make & Draw a new board6┴р:Г6юхАY│1е16:у Yм1, Й( Р(PA$,(Yм1)н2л1,2)):ЛY7ъф2:ч2:ю(11,12),"Shuffling Cards...":TC│071яАY│0е15:C(Y)│0:ЛY7[ЇF│ Д(16):Е C(Fм1)▓0 з 500 :Д C(Fм1)│17Н∙X│ Д(10):Y│ Д(5):Е B(X,Y)▓0 з 505 :Д B(X,Y)│F7┐■X│ Д(10):Y│ Д(5):Е B(X,Y)▓0 з 510 :Д B(X,Y)│F7чTC│TCл1:Е TC│16 з АW│0е15:C(W)│0:ЛW7∙Е TC┤25 з 5008X ъ(88,96)м(258,103),╛,BF:Т&HE0D4,&H37:АY│0е4:АX│0е9:ь(Xн32,Yн32)м(Xн32л29,Yн32л29),1,╜:ЛX,Y8Лч10:ю(36,20),"-":ю(18,20),"-":ю(0,20),"Score:"8┴ч0:ю(0,23),N$(0):ч10:ю(7,20),N$(0):ю(25,20),N$(1)8╟Р8╬!:Г8ч&:Г We have a winner!8ю+:Г9/0╔"T200L200":АY│1е12:АX│Y е12:╔  И(X):ЛX,Y:ф0:Е MO│1 з ў :Д Ў9w5ф0:Ю:З@39,"We have a winner !":З@138,"Final Score":З@170, б(11,"-")9й:З@202,N$(0):З@214,S(0):З@234,N$(1):З@246,S(1)9▐?З:З:A$│N$(W)л" is our winner!":Зд16м З(A$)о2);A$:DЗ@483,"Care to play again (Y/N) ?";:;IA$│ Т:ЕA$│"N" з Т359,126:ў:К :Д ЕA$│"Y"зО :Д 585:BN:Г:^S:Г Flip a specific card:eX:Г;]X1│(Xм1)н32:Y1│(Yм1)н32:╔"T20L20":Т&HE0D4,&H34:АZ│1е8:ь(X1,Y1)м(X1л29,Y1л29),Z,╜:╔  И(Z):АZ1│1е50:ЛZ1,Z:Т&HE0D4,&H37:ь(X1,Y1)м(X1л29,Y1л29),B(X,Y)л1:Р;tbX1│(Xм1)н32:Y1│(Yм1)н32:╔"T20L20":Т&HE0D4,&H34:АZ│7 е 1 йм1:ь(X1,Y1)м(X1л29,Y1л29),Z,╜:╔  И(Z):АZ1│1е50:ЛZ1,Z:Р;{g:Г;Цl:Г Card Face Grfx Data;Эq:Г<;vЖ "BM13,7;C15;E3R5F3D6G10H10U6E3R5F3","",15,15,"BM14,4;C14;G10F10E10H10","",14,14,"BM12,8;C13;D16RU16RD16RU16;BM14,2;C12;M+12,+19;L24;M+12,-19;","",14,15<╔{Ж "BM15,13;C13;L12R24H1L22ER20HL18ER16HL14ER12HL10ER8HL6;BM15,26;C11;R12U12L24D12R12L2U6R4D6;L1;C13;U5LD5LU5;BM6,4;D6RU6RD6;C11","",15,15=dАЖ "BM15,4;C10;R6F6D10G6L12H6U10E6R12;BM9,8;D5R3U5L2D1;C0;D3RU3;BM18,8;C10;D5R3U5L2D1;C0;D3RU3;C10;BM5,17;R2F4R8E4R2G6L8H6R2;D1;C0;F4R8E4;C10","",15,15=╪ЕЖ "BM3,4;C1;M+8,+20;R16;M-8,-20;L16","",8,5,"BM2,18;C9;R24U4;M-2,-4;H2;M-4,-2;L8;M-4,+2;G2;M-2,+4;D4;","",15,15>QКЖ "C8;BM9,4;D24R4;M+4,-2;E4;M+2,-4;U6;M-2,-4;H4;M-4,-2;L4D2;","",15,15,"C13;BM3,4;R22D6H2L6D16L6U16L6G2U6;","",15,15>щПЖ "C7;BM4,3;R22D5L18D4R18D5L18D4R18D5L22U23;","",6,6,"C0;BM10,5;D16GL3HU3ER3FU11R12UL12UR12D16GL3HU3ER3FL4DR4DL4DR4","C3;BM6,19;E1;BM18,19;E1",8,20?RФЖ "C2;BM4,4D20RU20R1;C15;R20DL20BD2R20DL20BD2R20DL20BD2R20DL20;BM6,4;C1;D5RU5RD5RU5RD5RU5;C0","",0,0?╞ЩЖ "BM4,4;C0;R22D22L22U22","C3;BM26,7;LDR1;BM15,15;NL2NR2U1NL2NR2U1NL1NR1D3NR2NL2D1NL1R1;BD2;BL1D6EU4L2D4",15,15@LЮЖ "C0;BM3,4;D20RU20RD20RU20RD20RU20RD20RU20R1;C4;D20RU20RD20RU20RD20RU20RD20RU20R1;C14;D20RU20RD20RU20RD20RU20RD20RU20;C0","",0,0@▌гЖ "C9;BM3,5;E3R18F3D21H3G3H3G3H3G3H3G3U21;","C8;BM8,11;R4EL6UR6UL6ER4;C10;L1GR3DL3DNR3FR1;C8;BM18,11;R4EL6UR6UL6ER4;C10;L1GR3DL3DNR3FR1",8,8AиЖ "C5;BM4,4;D22R22H22","",6,16Aн:ГA ▓КU20RD20RU20R1;C14;D20RU20RD20RU20RD20RU20RD20RU20;C0","",0,0@▌гЖ "C9;BM3,5;E3R18F3D21H3G3H3G3H3G3H3G3U21;","C8;BM8,11;R4EL6UR6UL6ER4;C10;L1GR3DL3DNR3FR1;C8;BM18,11;R4EL6UR6UL6ER4;C10;L1GR3DL3DNR3FR1",8,8AиЖ "C5;BM4,4;D22R22H22","",6,1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ї&$ :ГCOPYRIGHT 1989, FALSOFT INC.&`:ГGUITAR CHORDS (C) 1989 FROM BILL BERNICO SOFTWARE&пТ65497,0:ф2:ц4:ч8,4:ў:Т65434,63:э 1,5000:ы(25,35)м(95,145),1::ГONBRKGOTO97'I(ю(17,1),"A":ю(17,2),"Am":ю(17,3),"A7":ю(17,4),"A# or Bb":ю(17,5),"A#m or Bbm":ю(17,6),"A#7 or Bb7":ю(17,7),"B":ю(17,8),"Bm":ю(17,9),"B7":ю(17,10),"C'№2ю(17,11),"Cm":ю(17,12),"C7":ю(17,13),"C# or Db":ю(17,14),"C#m or Dbm":ю(17,15),"C#7 or Db7":ю(17,16),"D":ю(17,17),"Dm":ю(17,18),"D7":ю(29,1),"D# or Eb":ю(29,2),"D#m or Ebm"(<ю(29,3),"D#7 or Eb7"(╬Fю(29,4),"E":ю(29,5),"Em":ю(29,6),"E7":ю(29,7),"F":ю(29,8),"Fm":ю(29,9),"F7":ю(29,10),"F# or Gb":ю(29,11),"F#m or Gbm":ю(29,12),"F#7 or Gb7":ю(29,13),"G":ю(29,14),"Gm":ю(29,15),"G7)aPю(29,16),"G# or Ab":ю(29,17),"G#m or Abm":ю(29,18),"G#7 or Ab7":ю(0,0),"SELECT CHORD":ю(0,1),"WITH ARROW":ю(0,2),"KEYS AND":ю(0,3),"HIT ENTER)zZE$│ Л(13):H│135:V│15)╒dBX$│"U8R80D8L80":ь(25,35)м(95,145),1:ч4:ю(4,22),"HIT SPACEBAR TO TRY ANOTHER CHORD":ч8)єnї"C8BM=H;,=V;"лBX$:в43345*xX$│ Т:ЕX$│""з120*Вї"C4BM=H;,=V;"лBX$*5МЕ X$│ Л(94)зV│Vм8*KЦЕ X$│ Л(10)зV│Vл8*aаЕ X$│ Л(8)зH│Hм96*wкЕ X$│ Л(9)зH│Hл96*Л┤Е X$│"Q" з 1020*п╛ЕX$│E$░ V│15░ H│135зБж960:Бе600*╙╚ЕX$│E$░ V│23░ H│135зБж960:Бе610*ў╥ЕX$│E$░ V│31░ H│135зБж960:Бе620+▄ЕX$│E$░ V│39░ H│135зБж960:Бе630+?цЕX$│E$░ V│47░ H│135зБж960:Бе640+cЁЕX$│E$░ V│55░ H│135зБж960:Бе650+З·ЕX$│E$░ V│63░ H│135зБж960:Бе660+лЕX$│E$░ V│71░ H│135зБж960:Бе670+╧ЕX$│E$░ V│79░ H│135зБж960:Бе680+єЕX$│E$░ V│87░ H│135зБж960:Бе690,"ЕX$│E$░ V│95░ H│135зБж960:Бе700,<,ЕX$│E$░ V│103░ H│135зБж960:Бе710,a6ЕX$│E$░ V│111░ H│135зБж960:Бе720,Ж@ЕX$│E$░ V│119░ H│135зБж960:Бе730,лJЕX$│E$░ V│127░ H│135зБж960:Бе740,╨TЕX$│E$░ V│135░ H│135зБж960:Бе750,ї^ЕX$│E$░ V│143░ H│135зБж960:Бе760-hЕX$│E$░ V│151░ H│135зБж960:Бе770->rЕX$│E$░ V│15░ H│231зБж960:Бе780-b|ЕX$│E$░ V│23░ H│231зБж960:Бе790-ЖЖЕX$│E$░ V│31░ H│231зБж960:Бе800-кРЕX$│E$░ V│39░ H│231зБж960:Бе810-╬ЪЕX$│E$░ V│47░ H│231зБж960:Бе820-ЄдЕX$│E$░ V│55░ H│231зБж960:Бе830.оЕX$│E$░ V│63░ H│231зБж960:Бе840.:╕ЕX$│E$░ V│71░ H│231зБж960:Бе850.^┬ЕX$│E$░ V│79░ H│231зБж960:Бе860.В╠ЕX$│E$░ V│87░ H│231зБж960:Бе870.ж╓ЕX$│E$░ V│95░ H│231зБж960:Бе880.╦рЕX$│E$░ V│103░ H│231зБж960:Бе890.ЁъЕX$│E$░ V│111░ H│231зБж960:Бе900/ЇЕX$│E$░ V│119░ H│231зБж960:Бе910/:■ЕX$│E$░ V│127░ H│231зБж960:Бе920/_ЕX$│E$░ V│135░ H│231зБж960:Бе930/ДЕX$│E$░ V│143░ H│231зБж960:Бе940/йЕX$│E$░ V│151░ H│231зБж960:Бе950/╝&Е V▓151 з V│15/╧0Е V┤15 з V│151/у:Е H▓231 з H│231/ўDЕ H┤135 з H│1350NБе 11003Xщ(54,83),5:щ(66,83),5:щ(78,83),5:Бж970:Бе1000dbщ(54,83),5:щ(66,83),5:щ(78,58),5:Бж970:Бе1000бlщ(54,83),5:щ(66,83),5:щ(78,83),5:щ(90,108),5:Бж970:Бе1000рvщ(54,108),5:щ(66,108),5:щ(78,108),5:щ(90,58),5:Бж970:Бе1001Ащ(54,108),5:щ(66,108),5:щ(78,83),5:щ(90,58),5:Бж970:Бе1001\Кщ(54,108),5:щ(66,58),5:щ(78,108),5:щ(90,58),5:Бж970:Бе1001ЫФщ(54,133),5:щ(66,133),5:щ(78,133),5:щ(90,83),5:Бж970:Бе1001┌Ющ(54,133),5:щ(66,133),5:щ(78,108),5:щ(90,83),5:Бж970:Бе1002ищ(42,83),5:щ(54,58),5:щ(66,83),5:щ(90,83),5:Бж970:Бе1002H▓щ(42,108),5:щ(54,83),5:щ(78,58),5:Бж970:Бе1002z╝щ(42,108),5:щ(54,58),5:щ(78,58),5:Бж970:Бе1002╕╞щ(42,108),5:щ(54,83),5:щ(66,108),5:щ(78,58),5:Бж970:Бе1002ї╨щ(54,108),5:щ(66,58),5:щ(78,83),5:щ(90,58),5:Бж970:Бе1003&┌щ(54,83),5:щ(66,58),5:щ(78,83),5:Бж970:Бе1003Xфщ(54,108),5:щ(66,58),5:щ(90,58),5:Бж970:Бе1003Кющ(66,83),5:щ(78,108),5:щ(90,83),5:Бж970:Бе1003╝°щ(66,83),5:щ(78,108),5:щ(90,58),5:Бж970:Бе1003эщ(66,83),5:щ(78,58),5:щ(90,83),5:Бж970:Бе1004, щ(54,58),5:щ(66,108),5:щ(78,133),5:щ(90,108),5:Бж970:Бе1004kщ(54,133),5:щ(66,108),5:щ(78,133),5:щ(90,83),5:Бж970:Бе1004к щ(54,58),5:щ(66,108),5:щ(78,108),5:щ(90,108),5:Бж970:Бе1004█*щ(42,83),5:щ(54,83),5:щ(66,58),5:Бж970:Бе10054щ(42,83),5:щ(54,83),5:Бж970:Бе1005>>щ(42,83),5:щ(54,83),5:щ(66,58),5:щ(78,108),5:Бж970:Бе1005{Hщ(54,108),5:щ(66,83),5:щ(78,58),5:щ(90,58),5:Бж970:Бе1005╕Rщ(54,108),5:щ(66,58),5:щ(78,58),5:щ(90,58),5:Бж970:Бе1005Ї\щ(54,58),5:щ(66,83),5:щ(78,58),5:щ(90,58),5:Бж970:Бе10062fщ(54,133),5:щ(66,108),5:щ(78,83),5:щ(90,83),5:Бж970:Бе1006opщ(54,133),5:щ(66,83),5:щ(78,83),5:щ(90,83),5:Бж970:Бе1006мzщ(54,83),5:щ(66,108),5:щ(78,83),5:щ(90,83),5:Бж970:Бе1006▀Дщ(30,108),5:щ(42,83),5:щ(90,108),5:Бж970:Бе1007Ощ(41,58),5:щ(78,108),5:щ(90,108),5:Бж970:Бе1007DШщ(30,108),5:щ(42,83),5:щ(90,58),5:Бж970:Бе1007Авщ(54,58),5:щ(66,58),5:щ(78,58),5:щ(90,83),5:Бж970:Бе1007▓мщ(54,58),5:щ(66,58),5:щ(90,133),5:Бж970:Бе1007ю╢щ(54,58),5:щ(66,58),5:щ(78,58),5:щ(90,83),5:Бж970:Бе1008N└ї"C8BM=H;,=V;"лBX$:ч8,4:АY│40е140й25:ъ(30,Y)м(90,Y),╜:ЛY:АX│30е90й12:ъ(X,40)м(X,140),╜:ЛX:Р8Ш╩ю(4,22),"HIT SPACEBAR TO TRY ANOTHER CHORD":ю(13,23),"Hit to Quit8н╘I$│ Т:ЕI$│""з9808└▐Е I$│"Q"з 10208╙шЕ I$│ Л(32)з Р8▐ЄБе 9808є№Т65496,0:т32:ў:К8BM=H;,=V