GAVE MY GIRLFRIEND A DIAMOND RING', THE WORD 'GIRLFRIEND' IS THE INDIRECT OBJECT.":Бж260/┤▄З:JK$│"   'GIRLFRIEND' TELLS TO WHOM THE ACTION OF THE VERB 'GAVE' IS EXPRESSED.":Бж260/╛сБж5300NцЮ:З:JK$│"   IN THE FOLLOWING QUIZ YOU WILL BE ASKED TO IDENTIFY BOTH THE DIRECT OBJECT AND THE INDIRECT OBJECT IN A SAMPLE SENTENCE.":Бж2600└ыJK$│"   SIMPLY TYPE IN THE CORRECT ANSWER. THE COMPUTER WILL TELL YOU IF YOU ARE CORRECT OR INCORRECT.":Бж26011ЁJK$│"   PRESSING THE <@> KEY WILL SHOW YOUR SCORE. YOU MAY PRESS <C> TO CONTINUE THE QUIZ. GOOD LUCK.":Бж2601;їБж5301m·Ю0:МAO(50),A$(50),D$(50),I$(50),V$(50),NP(50)1z Ю0:Бе2951М
AA$│JK$:Бж1101г
	Е  З(JK$)┤│SW з2851╦
А T│SW е 0йм1:Е  Р(JK$,T,1)│" "з2801┘
Л T:Бе2852
L$│ О(JK$,T):W$│L$:Бж290:JK$│"   "л П(JK$,( З(JK$))мT):Бе2652+
W$│JK$:ЗW$:Р25
"ЗW$:Р2n
'АJ│1е50:Н A$(J),D$(J),I$(J),V$(J):Е A$(J)│"END" з3052u
,ЛJ2Ж
1В START QUIZ2Щ
6J│Jм1:АI│1 е J2й
;AO(I)│ Д(J)2┴
@Е NP(AO(I))│1 з 3152╘
ENP(AO(I))│1:ЛI2ц
JА Y│1е1000:ЛY2Ё
OБе4752√
TFX│0:Ю3
YЗ@35,"HERE IS EXAMPLE NUMBER";P3%
^Р3u
cAA$│"   WHAT IS THE DIRECT OBJECT       OF THIS SENTENCE ?"::Бж110:З@96,AA$3Э
hЗ@192,"";:JK$│"   "лA$(AO(P)):Бж2603│
mЗ:З"   => ";:╗ЙA$3┼
rЕA$│"@"зБж5453▌
wЕ FX│1 зБж340:Бе3553ї
|Е A$┤▓D$(AO(P))з3954<
БЗ:JK$│"   YOU ARE CORRECT! THE DIRECT OBJECT IS: "лD$(AO(P)):Бж2604N
ЖCR│CRл1:Бе4054У
ЛЗ:JK$│"   WRONG! THE CORRECT DIRECT OBJECT IS: "лD$(AO(P)):Бж2604Я
РIR│IRл14й
ХБж5304п
ЪР5
ЯAA$│"   WHAT IS THE INDIRECT            OBJECT OF THIS SENTENCE ?":Бж110:З@96,AA$5-
дЗ@192,"";:JK$│"   "лA$(AO(P)):Бж2605C
йЗ:З"   => ";:╗ЙA$5U
оЕA$│"@"зБж5455m
│Е FX│1 зБж340:Бе4155Е
╕Е A$┤▓I$(AO(P))з4555╬
╜З:JK$│"   YOU ARE CORRECT! THE INDIRECT OBJECT IS: "лI$(AO(P)):Бж2605р
┬CR│CRл1:Бе4656'
╟З:JK$│"   SORRY! THE CORRECT INDIRECT OBJECT IS: "лI$(AO(P)):Бж26063
╠IR│IRл16=
╤Бж5306C
╓Р6N
█АP│1еJ6e
рWW│ Д(2):ЕWW│1з4906М
хFX│0:Бж340:Бж355:Бж340:Бж415:Бе4956н
ъFX│0:Бж340:Бж415:Бж340:Бж3556│
яЮ6Ё
ЇЗ@32,"";:JK$│"   IN THE SENTENCE '"лA$(AO(P))л"',":Бж2607m
∙З:JK$│"   THE DIRECT OBJECT, '"лD$(AO(P))л"', IS THE THING WHICH IS BEING ACTED UPON BY THE VERB, '"лV$(AO(P))л"'":Бж2607х
■JK$│"   WHILE THE INDIRECT OBJECT, '"лI$(AO(P))л"' NAMES TO WHOM OR WHAT THE ACTION OF THE VERB IS DIRECTED.":Бж2607яБж5307ўЛ P8
Бж545:О8+З@483," PRESS <ENTER> TO CONTINUE";8EX$│ Т:ЕX$┤▓ Л(13)з5358KР8W!Ю:З:З:З8q&PQ│CRлIR:Е PQ│0з PQ│18Р+З"    NUMBER CORRECT = "CR8Ц0З8╡5З"    NUMBER WRONG   = "IR8ц:З:З"    STUDENT SCORE  = "; Б(CRн100оPQ);"%"9?З:З"    ANOTHER TRY (Y/N/C)";9DW$│ Т:Е W$│""з58093IЕ W$│"C"з FX│1:Р9DNЕ W$│"Y" з О9WSЕ W$│"N" з Ю:К9aXБе5809╝▐В ENTER DATA AT LINE 1000 IN THIS ORDER: SENTENCE, DIRECT OBJECT, INDIRECT OBJECT,VERB9■шЖ I MAILED MY BROTHER A LARGE PACKAGE.,PACKAGE,BROTHER,MAILED:;ЄЖ MY UNCLE GAVE ME A NEW FOOTBALL HELMET.,HELMET,ME,GAVE:q№Ж WILL YOU TELL ME A BEDTIME STORY?,STORY,ME,TELL:иЖ DON'T ASK ME ANY MORE QUESTIONS,QUESTIONS,ME,ASK:ЇЖ I JUST BOUGHT MYSELF A BRAND NEW AUTOMOBILE.,AUTOMOBILE,MYSELF,BOUGHT;/Ж FEED YOUR CAT THIS BRAND OF CAT FOOD.,BRAND,CAT,FEED;x$Ж HE SENT ME A BEAUTIFUL BIRTHDAY CARD FOR MY BIRTHDAY.,CARD,ME,SENT;╗.Ж COULD YOU LEND ME TEN DOLLARS UNTIL TUESDAY?,DOLLARS,ME,LEND;э8Ж I DO NOT OWE YOU ANYTHING.,ANYTHING,YOU,OWE<9BЖ THE BROKER OFFERED US A GOOD PRICE FOR THE PROPERTY.,PRICE,US,OFFERED<gLЖ WE SENT HARRY A NEW TIE.,TIE,HARRY,SENT<лVЖ THOMAS OFFERED BILL A NEW JOB AT THE OFFICE.,JOB,BILL,OFFERED<ш`Ж BRING ME THE LATEST COPY OF THE RAINBOW.,COPY,ME,BRING=4jЖ THE TEAM GAVE THE COACH A TROPHY FOR HIS HARD WORK.,TROPHY,COACH,GAVE=rtЖ I SOLD HIM THE FIRST HOUSE HE LOOKED AT.,HOUSE,HIM,SOLD=ИИЖ END,END,END,END AT THE OFFICE.,JOB,BILL,OFFERED<ш`Ж BRING ME THE LATEST COPY OF THE RAINBOW.,COPY,ME,BRING=4jЖ THE TEAM GAVE TH                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ter track to seek";:Й ST/*ЬЕ ST▓80 з 5010/AжЕ A│0 з Т&HFF40,DD/Z░Т&HFF4B,ST:Т&HFF48,C/e║Бж 500/{─Е A│0 з Т&HFF40,0/Ж╬Бе 205/│pЗ@480,"insert head cleaner <hit a key>";/┴zТ&HFF40,0/╫ДA$│ Т:ЕA$│""з6010/цОТ&HFF40,DD/їША X│1 е 300	вТ&HFF48,8лHEлRT0мБж 60004╢Т&HFF4B,34:Т&HFF48,24лHEлRT0?└Бж 6000G╩Л X0]╘Е A│0 з Т&HFF40,00h▐Бе 2050УXЗ@480,"enter new default drive (0-3)";0ЫbЙ D0▒lЕ D▓3 ▒ D┤0 з70100┬vЕ D│0 з DD│90╘АЕ D│1 з DD│100цКЕ D│2 з DD│120°ФЕ D│3 з DD│721ЮБе 2051DLЗ@480,"new step rate (6,12,20,30ms)";:Г CHANGE STEPPING RATE1LVЙ R1V`RT│м11gjЕ R│6 з RT│01xtЕ R│12з RT│11Й~Е R│20з RT│21ЪИЕ R│30з RT│31▓ТЕ RT┤0 ▒ RT▓3 з75101╝ЬБе2051ю@Е HE│0 з HE│8 :Д HE│0::Г SET LOAD/UNLOAD FLAG1°JБе2052A!4Е A│0 з A│DD :Д A│0:Г SET DRIVE ACTIVITY FLAG AND (DE)ACTIVATE DRIVE2O!>Т&HFF40,A2Y!HБе205 R│6 з RT│01xtЕ R│12з RT│11Й~Е R│20з RT│21ЪИЕ R│30з RT│31▓ТЕ RT┤0 ▒ RT▓3 з75101╝ЬБе2051ю@Е HE│0 з HE│8 :Д HE│0::Г SET LOAD/UNLOAD FLAG1°JБе2052A!4Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Й& 
В ************************&?В *  RECOGNIZING DIRECT  *&^В * AND INDIRECT OBJECTS *&}В *   BY FRED B.SCERBO   *&ЬВ *    60 HARDING AVE.   *&╗В * NORTH ADAMS,MA 01247 *&┌В *  COPYRIGHT (C) 1988  *&∙В ************************'	Х3000'
Ю0:АI│1е64:З Л(172);:Л'<АI│1е192:НA:З Л(Aл128);:Л'йЖ126,124,124,120,53,60,60,53,60,56,59,48,58,60,61,60,56,62,60,53,50,53,53,60,60,53,60,56,112,126,124,124'√Ж122,,,,52,60,61,53,56,,58,57,58,,53,,48,62,48,53,52,55,53,,,53,56,,112,122,,(bЖ123,115,115,114,52,60,60,52,60,56,56,,56,,52,,48,60,60,52,48,52,52,60,60,52,60,56,112,123,115,115(▀#Ж80,,80,122,124,125,124,120,126,124,122,122,80,117,117,124,124,124,116,124,126,124,117,80,80,122,126,124,122,122,112,112)O(Ж80,80,80,122,80,117,80,80,126,126,120,122,80,117,117,80,80,80,80,80,122,80,117,80,,122,126,126,120,122,,80)╠-Ж123,115,115,122,80,117,112,,122,116,114,123,115,119,117,115,115,115,112,80,122,,117,115,115,122,122,116,114,123,115,115)ф2АI│1е64:З Л(163);:Л*K7З@357,"  RECOGNIZING DIRECT   ";:З@389," AND INDIRECT OBJECTS  ";:З@421," (T)ALKING OR (N)OT ?  ";*p<З@453,"   BY FRED B.SCERBO    ";*ХAЗ@485,"  COPYRIGHT (C) 1988   ";*╡FX$│ Т:XX│ Д(м Я):ЕX$│"T"з90*─KЕX$│"N"з85*═PБе70*▄UNT│1:Бе150*уZЮ0*√_XX│&HFF00:YY│&HFF7E+dТXXл1,52:ТXXл3,63+%iТXXл35,60:Бе150+1nЕNT│1зР+CsАII│1е З(AA$)+\xЕ  Ж(YY)░ 128│0 з120+u}ТYY, К( Р(AA$,II,1))+}ВЛII+УЗЕ Ж(YY)░128│0з135+ЮМТYY,13+░САI│1е1000:Л:Р+║ЦSW│31+сЫЮ:З@228,"(I)NSTRUCTION OR (Q)UIZ";,	аX$│ Т:ЕX$│"Q"з250:ДЕX$│"I"з165:Д160,еЮ0,{кЮ:З:JK$│"   IN THIS PROGRAM WE WILL QUIZ YOUR KNOWLEDGE OF DIRECT OBJECTS AND INDIRECT OBJECTS.":Бж260,╜пЗ:JK$│"   BEFORE WE DO THAT WE MUST DEFINE SOME TERMS.":Бж260-2┤З:JK$│"   FIRST, A DIRECT OBJECT IS A WORD IN A SENTENCE WHICH RECEIVES THE ACTION EXPRESSED BY THE VERB.":Бж260-<╣Бж530-▒╛Ю:З:JK$│"   IN THE SENTENCE, 'I GAVE MY GIRLFRIEND A DIAMOND RING', THE WORD 'RING' IS THE DIRECT OBJECT.":Бж260- ├З:JK$│"   'RING' RECEIVES THE ACTION EXPRESSED BY THE VERB 'GAVE'.":Бж260.n╚З:JK$│"   THE DIRECT OBJECT ANSWERS THE QUESTION 'GAVE WHAT?'. I 'GAVE' THE 'RING' (DIRECT OBJECT).":Бж260.x═Бж530.▌╥Ю:З:JK$│"   THE INDIRECT OBJECT NAMES THE THING OR PERSON TO WHOM THE ACTION IS DIRECTED.":Бж260/X╫З:JK$│"   IN THE SENTENCE, 'I ╘&%
:Г*****************************&I:Г*        WAVE EDITOR        *&m:Г*    BY JEREMY SPILLER      *&С:Г*          (C) 1987         *&╡:Г*****************************'	S$│ Л(13)л Л(94)л Л(10)л Л(8)л Л(9)л Л(95)л Л(91)л Л(21)л Л(93)л"12345":МP(6,6)'2Ю:З"  WAVE EDIT   BY JEREMY SPILLER"'КЗ:З"      1) LOAD WAVEFORMS":З"      2) SAVE WAVEFORMS":З"      3) EDIT WAVEFORM":З'и(╗ Й"ENTER SELECTION: ";I$'╩2И  Й(I$) Бж 100,200,300:Бе 20(dЮ:З"LOAD WAVEFORM":Бж 250:Е T$│"T" з ЧM N$ :Д ╙M N$(nР(]╚Ю:З"SAVE WAVEFORM":Бж 250:Е T$│"T" з Бе 205 :Д ╪M N$,&HFB00,&HFDFF,&HB44A:Бе 210(|═ШM N$,&HFB00,&HFDFF,&HB44A(В╥Р(┤·З:Й"(D)ISK OR (T)APE";T$:ЕT$┤▓"D"░T$┤▓"T"з250(╘
╗ Й"ENTER FILE NAME: ";N$:Р):
,Ю:╗Й"WHICH WAVE FORM WOULD YOU LIKE  TO WORK ON (1-3): ";W$:W│ Й(W$):Е W┤▓ Б(W) ▒ W┤1 ▒ W▓3 з 300)f
6╚4,1:╝:┐1,1:X│128:╗(0,X)м(255,X),╜:Y│64)Ъ
@W│&HFB00л(Wм1)н256:А I│0 е 255:╜(I, Ж(WлI)о2):Л)Ї
JH│((Xм3┤0)л1)н(Xм3):V│((Yм3┤0)л1)н(Yм3):─(H,V)м(Xл3,Yл3),P,G:╞"BM=X;,=Y;NE3NF3NG3NH3"*В
TI$│ Т:Е I$│"" з 340 :Д ┼(H,V)м(Xл3,Yл3),P,╜:И  Ю(1,S$,I$) Бж 500,550,600,650,700,750,800,850,900,950,950,950,950,950:Е I$┤▓"M" з 330 :Д Р*├
Ї╛(X, Ж(WлX)о2):╜(X,Y):Т WлX,Yн2:X│Xл1:Е X▓255 з X│255:Р :Д Р*┘&Y│Yм1:Е Y┤0 з Y│0*▀0Р*∙XY│Yл1:Е Y▓127 з Y│127* bР+КX│Xм1:Е X┤0 з X│0+ФР+5╝X│Xл1:Е X▓255 з X│255+;╞Р+QюY│Yм4:Е Y┤0 з Y│0+W°Р+q Y│Yл4:Е Y▓127 з Y│127+w*Р+НRX│Xм8:Е X┤0 з X│0+У\Р+нДX│Xл8:Е X▓255 з X│255+│ОР+╙╢╔"V31L4T4W"лW$л"O"лI$л"C":РY│0*▀0Р*∙XY│Yл1:Е Y▓127 з Y│127* bР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Z&
:Г DRIVE EXERCIZER&7:Г BY SCOTT HONAKER  11/87&Д:Г THIS PROGRAM DIRECTLY PROGRAMS THE 1773/1793 FDC WITH TYPE I COMMANDS&Л(:Г&л-:Г $FF40 - CONTROL REGISTER&╥2:Г $FF48 - COMMAND/STATUS REGISTER&Ё7:Г $FF49 - TRACK REGISTER'<:Г $FF4A - SECTOR REGISTER',A:Г $FF4B - DATA REGISTER'3F:Г'ZВЮ:З:З"    DISK DRIVE DEMONSTRATOR"'{ЗЗ:З"       BY SCOTT HONAKER"'┴СЗ:З:З"     USED TO DEMONSTRATE":З" western digital 1773/1793 FDC"'хЦЗ"  TYPE I COMMANDS AND ERRORS"(ЫА T│1 е 3000:Е  Т│"" з Л(а:Г INITIALIZE VARIABLES(jеHE│0:MO│0:DR│0:R│30:RT│3:DD│9:A│0:BL$│"                               "(Г╚:Г PRINT MENU SCREEN(б═T│ Ж(&HFF49):S│ Ж(&HFF48)(▌╥Ю:З"TRACK: ";T,"STATUS: ";S,"DRIVE: ";D,"RATE: ";R;"MS")
╫З:З"<i> STEP IN (HIGHER TRACK)")'▄З"<o> STEP OUT (TOWARDS TRACK 0)")PсЗ"<m> STEP- MOVE IN LAST DIRECTION";)tцЗ"<r> RESTORE- MOVE TO TRACK 0")ЬыЗ"<s> SEEK- MOVE TO SPECIFIC TRACK")╕ЁЗ"<c> CLEAN DRIVE MODE")╤їЗ"<d> DEFAULT DRIVE")ъ·З"<t> STEPPING RATE"* Е HE│0 з З"<h> LOAD HEAD":Д З"<h> UNLOAD HEAD"*]
Е A│0 з З"<a> KEEP DRIVE ACTIVE" :Д З"<a> DEACTIVATE DRIVE"*p
	З:З"command:";*И
A$│ Т:Е A$│"" з 270*Т
З A$;*ж
Е A$│"I" з 1000*║
Е A$│"O" з 2000*╬
"Е A$│"M" з 3000*т
'Е A$│"R" з 4000*Ў
,Е A$│"S" з 5000+

1Е A$│"C" з 6000+
6Е A$│"D" з 7000+2
;Е A$│"T" з 7500+F
@Е A$│"H" з 8000+Z
EЕ A$│"A" з 8500+w
JЕ A$│"Q" з Ю:Т&HFF40,0:К+В
OБе 205+─
ЇЕ( Ж(&HFF48)о2)┤▓ Б( Ж(&HFF48)о2)з500::Г DELAY UNTIL NOT BUSY+╩
■Р+ъXA$│ Т:Е A$│""з610 :Д X│30:Р,bЕ( Ж(&HFF48)о2)┤▓ Б( Ж(&HFF48)о2)з600,lР,IшC│80лHEлRT::Г STEP IN "N" NUMBER OF TRACKS,rЄЗ@480,"step in how many tracks";:Й N,Й№Е A│0 з Т&HFF40,DD,ЧА X│1 е N,еТ&HFF48,C,░Бж 500,╕$Л X,╬.Е A│0 з Т&HFF40,0,┘8Бе 205-╨C│112лHEлRT::Г STEP OUT "N" TRACKS-*┌З@480,"step out how many tracks";:Й N-AфЕ A│0 з Т&HFF40,DD-OюА X│1 е N-]°Т&HFF48,C-hБж 500-pЛ X-ЖЕ A│0 з Т&HFF40,0-С Бе 205-╨╕C│48лHEлRT::Г STEP IN DIRECTION OF LAST MOVEMENT "N" TIMES-Ў┬З@480,"step how many tracks";:Й N.
╠Е A│0 з Т&HFF40,DD.╓А X│1 е N.)рТ&HFF48,C.4ъБж 500.<ЇЛ X.R■Е A│0 з Т&HFF40,0.]Бе 205.БаC│0лHEлRT::Г RESTORE TO TRACK 0.ШкЕ A│0 з Т&HFF40,DD.ж┤Т&HFF48,C.▒╛Бж 500.╟╚Е A│0 з Т&HFF40,0.╥╥Бе 205.ёИC│16лHEлRT::Г SEEK A TRACK/ТЗ@480,"en *&$
:Г****************************&G:Г*        SUPERPLAY         *&j:Г*       (C) 1987 BY        *&Н:Г*      JEREMY SPILLER      *&░:Г****************************&─
Х 2000,&H7B7C:П&■PO│&H7B7D:CH│0:А D│1 е 11:Ю:З"WORKING ON LINE";D:CH│0'OН D$:А X│1 е  З(D$)о2м1:P│ Й("&H"л Р(D$,Xн2м1,2)):Т PO,P:CH│CHлP:PO│POл1:Л X'И(Е  П(D$,2)┤▓ П("00"л Ь(CH),2) з З"ERROR IN LINE";D:С'Р2Л D'ї<Ю:З"POKING PITCH TABLE":R│1.0594631:PITCH│545:В--------MODIFY 'PITCH' IF THE NOTES     SEEM OFF.(HFZ│&H7C80:S│1:АX│0е60:P│SнPITCH:A│ Б(Pо256):B│PмAн256:ТZ,A:ТZл1,B:Z│Zл2:S│SнR:Л(аP╚ 4,1:╝:┐ 1,1:B│&H7C00:А W│1 е 3:╝:B│Bл256:A│0:Z│0:А X│0 е 6.2831853 й 0.0246399424(╖RИ W Бж 490,600,510(╪TТ BлZ,A:╜(Z,Aо2):Z│Zл1:Л X,W(хZв &H7B7D(ЇdJS$│"V31W1)nJ1$│"T4L2O3CD")1xJ2$│"L4EGFFAGGO4CO3BO4CO3GECDEFGAGFE")IВJ3$│"DECO2GBO3DFED")WМJ4$│"ECD")nЦJ5$│"O2GO3CO2BO3C")БаJ6$│"L4EGO4CP2)ЮкJ7$│"W3T3L1O3EL2FGCGFDED)╛┤J8$│"T4L4DW2FEFDO2BGBO3DFED)═╛J9$│"W1ECD)Ў╚J$│"W1"лJ2$лJ3$л"W2"лJ4$лJ2$лJ5$лJ6$*6╥Т&HFFDE,0:Ю:З"THIS IS HOW THE old PLAY STATE- MENT SOUNDS!"*Y▄╔ J1$лJ2$лJ3$лJ4$лJ2$лJ5$л"P1"*ХцТ&HFFDF,0:Ю:З@140,"SUPERPLAY":З@200,"BY JEREMY SPILLER"*лЁ╔ "P1"лJS$лJ1$лJ$*╚·╔ J7$лJ8$лJ7$лJ8$лJ9$лJ$*▀
D1$│"V31W1T4O3L8C"+
D2$│"L8CFFL4EDCO2AO3L4O1W3AA+#
D3$│"W2O3L8CCFFL4EDD+EO4W3O1EE+M
"D4$│"T4W3O3L4EECDW1EECDW2L8EEL4EDCO2A+В
,D5$│"T4L4O1W3FO3AAP4O1CO3AAP4O1FO3AO1CO3AO1FO3AA+╢
6╔ D1$лD2$лD3$лD4$лD5$лD1$лD2$лD3$лD4$л"L2O1FP1"+█
@L1$│"V31T5O3L3EL8DL4CDEDECDDDL1D,

JL2$│"L4DL8CL4O2BO3CDCDO2BO3CCCL1C,,
TL3$│"L3O2GL8G+L3AL8G+L3GL8G+L3AL8G+L4G,Ж
^╔ "W1"лL1$л"W2"лL2$л"W3"лL3$л"O3DDL1DW2"лL3$л"O3EEL1E"л"W1"лL1$л"W3L4DL2C+L4DL2EEL1G",е
hЮ:З@136,"THATS ALL FOLKS!"-0
rЗ@256,"WELL, NOT QUITE ALL! IF YOU     WANT TO SAVE THIS VERSION OF    SUPERPLAY AS AN ML PROGRAM,     PRESS <T>APE, <D>ISK OR <Q>UIT"-G
|A$│ Т:Е A$│""з 380-Б
ЖЕ A$│"Q"з К :Д Е A$│"T"з 400 :Д Е A$│"D" з 430 :Д 380.
РЮ:З"YOU HAVE CHOSEN A SAVE TO TAPE. PLEASE PLACE A TAPE IN YOUR     RECORDER AND PREPARE TO RECORD  THIS VERSION OF SUPERPLAY.":Q$│"CLOADM":Бж 450.*
ЪЕ F$│"" з 360.P
дШM F$,&H7B7D,&H7FFF,&H7B7D:Бе 460.╓
оЮ:З"YOU HAVE CHOSEN A SAVE TO DISK. PLEASE PLACE A DISKETTE IN YOUR DRIVE TO SAVE THIS VERSION OF   SUPERPLAY.":Q$│"LOADM":Бж 450/
╕Е F$│""з 360 :Д ╪M F$,&H7B7D,&H7FFF,&H7B7D:Бе 460/l
┬З:З"PLEASE TYPE A SUITABLE FILENAME (8 LETTERS OR LESS) OR <ENTER>  ALONE TO ABORT.":Й F$:Р/у
╠Ю:З F$:З"HAS NOW BEEN SAVED AS A STAND-  ALONE ML PROGRAM. TO INSTALL    IT SIMPLY RUN THE FOLLOWING     PROGRAM:"0\
╓З:З"10 CLEAR 200,&H7B7C":З"20 ";Q$; Л(34);F$; Л(34):З"30 EXEC":З"40 CLEAR 200,&H7FFF":З"50 PLAY"; Л(34);"V31"; Л(34)0Т
рЗ:Й"ANOTHER SAVE (Y OR N)";A$:Е A$│"Y" з 360 :Д К1

хВ THE LINE NUMBERS OF ANY     OF THE FOLLOWING FORMULAS       MAY BE PLUGGED INTO LINE 82.    (ON W GOSUB XXX,XXX,XXX)1B
ъA│ Х(X)н88л Х(Xн2)н44л Е(Xн3)н22л Х(Xн4)н11л95:Р1Б
ЇA│ Е(X)н64л Е(Xн2)н32л Е(Xн3)н16л Е(Xн4)н8л Е(Xн8)н8л128:Р1н
■A│80н Ф( Е(5нX)л Ц(.2нX)л Х(3нX))л128:Р1уA│ Е(X)н32л Х(Xн2)н32л Е(Xн3)н32л Х(Xн4)н32л128:Р2A│20н Ц( Е(X)л Х(X))л128:Р2$A│ Е(XнX)н63л Х(XнX)н63л128:Р2<&A│ Х(Xо2)н127л128:Р2\0A│ Х(Xо2)н32л Е(X)н96л128:Р2r:A│ Е(X)н127л128:Р2ЦDA│114н Ф( Х(4нX)л Е(3нX))л127:Р2╢NA│230н Ц( Е(X)н Х(X))л128:Р2▀XA│210н Ц( Е(Xн.99)н Х(Xн1.01))л133:Р3bA│127н Щ(Xл.01)н Е(X)н Х(X)л127:Р3'lA│100н Ф( Х(4нX)н Е(X))л118:Р3╢qВ THE DATA BELOW CONTAINS     ONLY ZEROS. THERE ARE NO        LETTER O'S, AND NO COMMAS.      ALL LINES ARE EXACTLY THE       SAME LENGTH!3яvЖ 86FB97F9B6FA8043B7FA80B1FA8027161A508E80007FFFDEF14(АЖ EC847FFFDFED818CFA8025F11CAF338D001E308CD3ECC127634aКЖ 16308B10AEC1ECC13402A680A7A0350283000126F320E339B04ЪФЖ 00629A6D001B007D9AC7002400A19B2900620103FA8003804E4╙ЮЖ 000081572714815626168D49C11F2252D7DF585858CA07D7B65иЖ E0397E9ADCBD9CCB5D26037EB44A96E23DDDD50FFD0FFE7E315E▓Ж 9B44BD9CCB5AC102230220E7CBFBD7F93996DEC60C7FFF401F5~╝Ж 3DEBE0588EFA80EC85DDFDD6F9D7FADCE13DDDD58D46DDE3925╖╞Ж 8E00AB1F12CEFFFF1A501E881E881E881E88A69F00FAD6E02D5Ё╨Ж 3D8A03B7FF20DCFBD3FDDDFB301F26E21F21334112DCE3938E6)┌Ж D5DDE322DDFC011233CBFF0112CC0000DDE339DDD5DDE3220CBFBD7F93996DEC60C7FFF401F5~╝Ж 3DEBE0588EFA80EC85DDFDD6F9D7FADCE13DDDD58D46DDE3925╖╞Ж 8E00AB1F12CEFFFF1A501E881E881E881E88A69F00FAD6E02D5Ё╨Ж 3D8A03B7FF20DCFBD3FDDDFB301F26E21F21334112DCE3938E6)┌Ж D5DDE322                                                                                                                                                                                                                                                                 &
F1│0&8
A│ Д(м Я):PO│ Д(478):Ю:М E1(512):А X│1е24&UR│ Д(478):Е E1(R)│1 з 11&qE1(R)│1:З@R, Л(175);:ЛX&{EN│24&╨Е  Ж(341)┤▓255 ▒  Ж(342)┤▓255 ▒  Ж(343)┤▓255 ▒  Ж(344)┤▓255 з 25 :Д F1│F1л1:Бе20&сЗ@PO, Л(32);'Е  Ж(342)┤▓255 ░ PO┤478 з PO│POл32'.(Е  Ж(341)┤▓255 ░ PO▓31 з PO│POм32'R2Е  Ж(343)┤▓255 ░ PO▓0 з PO│POм1'w<Е  Ж(344)┤▓255 ░PO┤478 з PO│POл1'йFЗ@PO, Л(128);:Е E1(PO)│1 з 80 :Д F1│F1л1:Бе20(PE1(PO)│м1:EN│ENм1:F1│F1л1:Е EN│0 з З@480:З"IT TOOK";F1;"TURNS":АX│1е500:ЛX:О :Д Бе20л32'.(Е  Ж(341)┤▓255 ░ PO▓31 з PO│POм32'R2Е  Ж(343)┤▓255 ░ PO▓0 з PO│POм1'w<Е  Ж(344)┤▓255 ░PO┤478 з PO│POл1'йFЗ@PO, Л(128);:Е E1(PO)│1 з 80 :Д F1│F1л1:Бе20(PE1(PO)│м1:EN│ENм1:F1│F1л1:Е EN│0 з З@480:З"IT TOOK";F1;"TURNS":АX│1е500:ЛX:О :Д Б                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Ц&#
В ** PROGRAM TO DEMONSTRATE**&IВ ***** THE ASCII FUNCTION ******&OВ&^(И я Бе 200&d2В&s<т 40:ё 0,0&ЗFу 8,0:у 0,63:Ю1&ШPЗ  б(40,"*")&вZё 5,2&╟dЗ"TYPE A WORD,PHRASE OR NUMBERS"&╪nЗ  б(40,"*")&уx╗ Й C$&ьВЗ ""& МА I│1 е  З(C$)'ЦC│ К ( Р(C$,I,1))'2аЕC┤▓32з З ═ "####";C;:ДЗ'<кЛ I:З'O┤А T│1 е 1000:Л'Z╛Бе 100'u╚З "PLEASE, TRY AGAIN!"'К╥А T│ 1 е 500:Л T'Х▄Бе 100&вZё 5,2&╟dЗ"TYPE A WORD,PHRASE OR NUMBERS"&╪nЗ  б(40,"*")&уx╗ Й C$&ьВЗ ""& МА I│1 е  З(C$)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╫&
Ю&З@128, б(32,"*");&3З@288, б(32,"*");&](З@194,"EXPLORERS--BY GIP W. PLASTER";&m2АX│1е500:ЛX&Б<З@161,"m o r e"&нFЗ@416," REMEMBER THAT SOUND ??????????"&╕PАP│1е3&╩ZАI│255е200йм1&▀dТ140,I:в43345:ЛI&цnЛP&ЎxАI│255е1йм1'ВТ140,I:в43345:ЛI'МЗ@416'6Ц╔"O1;T3;CDEFGAB;P8;B;P8;BAB"'Zа╔"T5;L3;CDEFGCCDDEEFGGFFEEDDCC"'кк╔"L6;CDEFGFEDCAGAGAGAGAFAFAFADADADAEAEAEACACACABABABBBBAAAGGGFFF;L1;GF;P4;"'╡┤АN│1е2("╛╔"L5;GFDCDFGFDCDFEDFCGFDDAEDCFGDFGFDEDCFGFDA;L4;GGGGFFFFEEEECDCECFCGCCFCDCEDECEFEGEDECEFEGEFEDECE;L4;F;"()╚ЛN(U╥З@416,"SOMETHING ELSE IS ATTACKING ..."(w▄АAA│1е150:Т140,200:в43345:ЛAA(ЗцАL│1е500:ЛL(иЁ╔"ED;T2;C;T1;CCC;V8;B;V13;C"(─·╔"O1;L2.;GAG;V22;P10;G"(╓
АL│1е500:ЛL:ЮDFGFDEDCFGFDA;L4;GGGGFFFFEEEECDCECFCGC                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 с&
Ю0:АLL│1е500:ЛLL&Ю&BЗ:З:З:З:З"THE UNEXPLORED CAVE---"&i(З"    WHAT IS AWAITING INSIDE ???"&w2╔"O1;T5;"&╣<╔"L16;CDEFGABCDEFGABCDEFGABCDEFGABCDEFGAB;L8;CDEFGABCDEFGAB;"&┘FЗ"LET'S GO CHECK IT OUT..."&№PЗ"EVERYTHING'S GOOD SO FAR..."'IZ╔"CCCCCDDDDEEEFFG;FFFFFEEEEDDDCC;DDDDDEEEEFFFGGG;L4;FF;L2;G;L4;CC;L2;D;"'mdЗ"THERE'S SOMETHING STRANGE..."'ЛnЗ"JUST MY IMAGINATION..."'фx╔"L1;CDE;L2;CDEDC;L4;CDEDC;L1;FF;GG;O2;GFDFGFDFGFECCDEAB;O3;CFEDGACFEDGA;O2;GGFEDC;"(?ВЮ0:Ю:Ю2:Ю3:Ю4:Ю5:Ю:З:З"I WAS RIGHT--- IT IS THE PURPLE   COLOR COMPUTER EATER !!!!!!!"(JМАA│1е3(КЦАAA│1е130:Т140,AA:в43345:ЛAA:АAA│30е1йм1:Т140,AA:в43345:ЛAA(СаЛA(╕кЗ:З:З"I THINK WE WILL GET AWAY..."(т┤╔"L3;AABBAAGGFFGGDDEECCDDEECCFFEEGG;")╛З:З:З"UNLESS...":З:З:З:З"WE RUN OUT OF GAS !!!!!!!!")8╚╔"L1;FDE;T3;FDE;T1;DFC;")q╥╔"FGC;T2;C;T7;P1;D;P1;D;P1;T1;D;T5;L16;C;O1;BAGFEDC")═▄Ю:З"THE UNEXPLORED CAVE WAS WRITTEN AND PREPARED FOR PUBLICATION BY GIP WAYNE PLASTER.")рцЗ" GOOD-BYE !")╛З:З:З"UNLESS...":З:З:З:З                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
є&m
Ю:Х200,&H29FF:C│0:АN│0е14:НA$:A│ Й("&H"лA$):C│CлA:ТNл&H2A00,A:Л:НD:ЕD┤▓C зЗ"CHECKSUM ERROR!":К:Дв&H2A00&ХЙ"FILENAME TO SAVE AS";F$:ЕF$│""з20&╫Й"TO (T)APE OR (D)ISK";A$:A$│ О(A$,1):ЕA$│"T"з50:ДЕA$┤▓"D"з30&√(╪M F$,&H2B00,&H5000,&H3003:Бе60'2ШM F$,&H2B00,&H5000,&H3003'[<Й"ANOTHER COPY (Y/N)";A$:A$│ О(A$,1):ЕA$│"Y"з50:ДЕA$┤▓"N"з60'ЦFв&H3003  :ГBUSINESS IS FINISHED, LET'S PLAY THAT GAME!'еPЖ 8E,2A,0F'╖ZЖ A6,89,2E,E0'├dЖ A7,80'╥nЖ 8C,51,20'▐xЖ 26,F5'чВЖ 39'ЄМЖ 16603:Бе60'                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ї&:ГPITCH TESTER&=Ю6:З@256,"     MEMORIZE THIS PITCH!"&RX│ Д(255):аX,50 &╪Ю4:З@192,"   NOW MATCH IT! USE YOUR RIGHT JOYSTICK TO ADJUST THE TONE UP  OR DOWN. PRESS THE BUTTON WHEN  YOU THINK YOU HAVE IT."&щ	А D│1е300:ЛD&ў
S│ Д(255)'Е S▓255 з S│255'Е S┤1 з S│1'%а S,1'9H│ Н(0):V│ Н(1)'K#Е V┤1 з S│Sл3'^%Е V┤25 з S│Sл1'q(Е V▓37 з S│Sм1'Д+Е V▓62 з S│Sм3'Ф2P│ Ж(65280)'е<Е P│126 з 83'╢FЕ P│254 з 83'└PБе 27'╬SA│ В(SмX)'хUЕ S▓X з E$│"SHARP"'√WЕ S┤X з E$│"FLAT"(YЕ S│X з E$│"PERFECT"(0[Е A┤4 ░ A▓0 з E$│"GOOD"(fdЮ3:З@32,"MY PITCH WAS";X:З@128,"YOUR PITCH WAS";S(РnЗ@224,"DIFFERENCE OF";A;"PITCH UNITS"(мxЗ@320,"YOUR EAR IS ";E$(▌ВЗ@416,"DO YOU WANT TO PLAY AGAIN?":Й"Y/N";R$(ЇЗЕ R$│"Y" з0 :Д Ю:КLAT"(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ./дЖ ..WWWWW../ оЖ ...WWW.../3╕Ж 18724,3,11,0/C┬Ж ...WWW.../S╠Ж ..WWWWW../c╓Ж .WWW.WWW./sрЖ WWW...WWW/ГъЖ WW.....WW/УЇЖ WW.....WW/г■Ж WW.....WW/│Ж WWW...WWW/├Ж .WWW.WWW./╙Ж ..WWWWW../у&Ж ...WWW.../Ў0Ж 18858,3,11,00:Ж ...WWW...0DЖ ..WW.WW..0&NЖ .WW...WW.06XЖ WW.....WW0FbЖ W.......W0VlЖ W.......W0fvЖ W.......W0vАЖ WW.....WW0ЖКЖ .WW...WW.0ЦФЖ ..WW.WW..0жЮЖ ...WWW...0╕иЖ 19515,3,7,00╚▓Ж BB.......0╪╝Ж BBB......0ш╞Ж .BBBBBWW.0°╨Ж .BBBBBBBB1┌Ж ..OOOO...1фЖ ..BBB....1(юЖ .BBB.....1:°Ж 19601,3,7,01JЖ .......BB1ZЖ ......BBB1jЖ .WWBBBBB.1z Ж BBBBBBBB.1К*Ж ...OOOO..1Ъ4Ж ....BBB..1к>Ж .....BBB.1╜HЖ 11200,4,11,01╤RЖ OOWO.BBB.OOWO1х\Ж OOWO.BBB.OOWO1∙fЖ OOWOBBBBBOOWO2
pЖ ...BBBBBBB...2!zЖ .WWWWWWWWWWW.25ДЖ WWOOOOOOOOOWW2IОЖ W.BBBBBBBBB.W2]ШЖ .B.W..W..W.B.2qвЖ .BOWBOWBOWBB.2ЕмЖ .B.W..W..W.B.2Щ╢Ж ..BBBBBBBBB..2л└Ж 11378,3,6,02╗╩Ж .W.......2╦╘Ж ..W......2█▐Ж ...W.....2ышЖ ....W....2√ЄЖ .....W...3№Ж ......W..3	Ж 14336,3,6,03-	Ж ...W.....3=	Ж ...W.....3M	$Ж ....W....3]	.Ж .....W...3m	8Ж .....W...3}	BЖ ......W..3П	LЖ 11452,3,6,03Я	VЖ ....W....3п	`Ж ....W....3┐	jЖ .....W...3╧	tЖ .....W...3▀	~Ж ......W..3я	ИЖ ......W..4
	ТЖ 14508,3,6,04	ЬЖ .....W...4!	жЖ .....W...41	░Ж .....W...4A	║Ж .....W...4Q	─Ж ......W..4a	╬Ж ......W..4s	╪Ж 14848,3,6,04Г	тЖ .....W...4У	ьЖ .....W...4г	ЎЖ .....W...4│
Ж ......W..4├

Ж ......W..4╙
Ж ......W..4х
Ж 14656,3,6,04ї
(Ж .....W...5
2Ж .....W...5
<Ж ......W..5%
FЖ ......W..55
PЖ ......W..5E
ZЖ ......W..5W
dЖ 11526,3,6,05g
nЖ ......W..5w
xЖ ......W..5З
ВЖ ......W..5Ч
МЖ ......W..5з
ЦЖ ......W..5╖
аЖ ......W..5╔
кЖ 14730,3,6,05┘
┤Ж .......W.5щ
╛Ж .......W.5∙
╚Ж ......W..6	
╥Ж ......W..6
▄Ж ......W..6)
цЖ ......W..6;
ЁЖ 14922,3,6,06K
·Ж .......W.6[Ж .......W.6kЖ .......W.6{Ж ......W..6Л"Ж ......W..6Ы,Ж ......W..6н6Ж 14582,3,6,06╜@Ж .......W.6═JЖ .......W.6▌TЖ .......W.6э^Ж .......W.6¤hЖ ......W..7
rЖ ......W..7|Ж 11600,3,6,07/ЖЖ ........W7?РЖ ........W7OЪЖ .......W.7_дЖ .......W.7oоЖ ......W..7╕Ж ......W..7С┬Ж 14410,4,6,07е╠Ж .........W...7╣╓Ж .........W...7═рЖ ........W....7съЖ .......W.....7їЇЖ .......W.....8	■Ж ......W......8Ж 11674,4,6,08/Ж ...........W.8CЖ ..........W..8W&Ж .........W...8k0Ж ........W....8:Ж .......W.....8УDЖ ......W......8жNЖ 19687,1,70,18▓XЖ ..W..8╛bЖ .W.W.8╩lЖ .W.W.8╓vЖ .W.W.8тАЖ .W.W.8юКЖ .W.W.8·ФЖ ..W..9ЮЖ ..W..9иЖ .WW..9▓Ж ..W..9*╝Ж ..W..96╞Ж ..W..9B╨Ж ..W..9N┌Ж .WWW.9ZфЖ ..W..9fюЖ .W.W.9r°Ж ...W.9~
Ж ..W..9К
Ж .W...9Ц
Ж .W...9в
 Ж .WWW.9о
*Ж ..W..9║
4Ж .W.W.9╞
>Ж ...W.9╥
HЖ ..W..9▐
RЖ ...W.9ъ
\Ж .W.W.9Ў
fЖ ..W..:
pЖ .W...:
zЖ .W.W.:
ДЖ .W.W.:&
ОЖ .WWW.:2
ШЖ ...W.:>
вЖ ...W.:J
мЖ ...W.:V
╢Ж .WWW.:b
└Ж .W...:n
╩Ж .W...:z
╘Ж .WW..:Ж
▐Ж ...W.:Т
шЖ ...W.:Ю
ЄЖ .WW..:к
№Ж ..W..:╢Ж .W...:┬Ж .W...:╬Ж .WW..:┌$Ж .W.W.:ц.Ж .W.W.:Є8Ж ..W..:■BЖ .WWW.;
LЖ ...W.;VЖ ...W.;"`Ж ..WW.;.jЖ ..W..;:tЖ ..W..;F~Ж ..W..;RИЖ ..W..;^ТЖ .W.W.;jЬЖ .W.W.;vжЖ ..W..;В░Ж .W.W.;О║Ж .W.W.;Ъ─Ж ..W..;ж╬Ж ..W..;▓╪Ж .W.W.;╛тЖ .W.W.;╩ьЖ ..WW.;╓ЎЖ ...W.;тЖ .W.W.;ю
Ж ..W..;ЎЖ 0.WWW.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                4LBM25,39S4U16HLG4D2BF3E7BF4BDHL2GD2FR2L2GD2FR2ERERU8DERERFD5FERU7ERERFU8D14UGLGLGEREREFREU3ER2L2HU2ER2FHL2GD2FGD2FR3EREREU7LDR2FRFD2FRE":в44539:╝/з:ГGIBSON LES PAUL0О╞"BM45,28S4U6HLGLGLGLG2D25RE2RERERE2U9D25U10E7U10BU15URDLBD15D10RFRERE2U27D27R2ER2EREU10HLGLRERFD9R2E2DU2R2FR2EREU2HL2HL2HU2ERER2FRDU2D2ERERD7FREREREU8BL3BU2GLGLD2BF7U2ERERD2U12D2ERERERFD19FRERBM105,60":┬(29,138),3:┬(41,137),315┬(33,149),3:┬(45,148),3:┬(22,146),2:┬(36,128),2:┬(36,109),2:╗(38,109)м(38,128),╜:╗(34,109)м(34,128),╜:╞"BM44,111D16R4U16L4BR10U2D20R11U20L11BR25D16NL13D4R11U20L112%┬(90,100),2:╞"BM54,129D7M53,144FR2M70,140ERER2M81,136R4EREREU7R115U12L115R115L8D12L8U12L8D12L8U12L7D12L7U12L7D12L7U12L6D12L6U12L6D12L5U12L5D12L5U12L5D12L5U12L4D12L4U12L4D12U12R119ERERERM229,113M239,111ER3FDFDFDFDFDGLRFDGDGDGDGDBM56,1112Ў╞"RBR2RBR2RBR18RBR2RBR2RBM56,127RBR2RBR2RBR18RBR2RBR2RBM243,131L3HL3HL4UL5DL6DL5H2LHLHL4BM206,114D12":├(56,131),0:┬(219,107),2:┬(228,108),2:┬(237,107),2:┬(219,134),2:┬(229,133),2:┬(238,134),2:┬(219,115),13╖┬(228,116),1:┬(237,117),1:┬(219,126),1:┬(229,125),1:┬(238,124),1:┬(37,120),35,0,1,.15,.86:┬(67,86),11,0,1,.16,.39:┬(85,110),19,0,1,.65,.04:┬(69,154),12,0,1,.63,.85:┬(85,130),18,0,1,.11,.334_┬(109,129),18,0,1,.39,.55:┬(1,120),2:╞"BM206,114L168D2R168D2L168D2R168D2L168D2R168BM185,119LBL15LBL13LBL12LBM206,115R12D2L12R21D2L21NR31D3NR31D2NR21D2R12":в44539:О,1,.16,.39:┬(85,110),19,0,1,.65,.04:┬(69,154),12,0,1,.63,.85:┬(85,130),18,0,1,.11,.334_┬(109,129),18,0,1,.39,.55:┬(1,120),2:╞"BM206,114L168D2R168D2L168D2R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ў&0
Х200,23199:Ю:МG(100):A│ Ж(186)н256л Ж(187)&KНP:ЕP│0з210:ДP│Pл12000&НW,H,F:╚4,1:╝0:┐1,1:╚3,1:ЕF│0зТP,W:ТPл1,H:P│Pл2&┴(АY│0еHм1:НA$:АX│1е З(A$):╜(Xн2м2,Y, Ю(".OBW", Р(A$,X,1))):Л:Л&¤2─(0,0)м(40,40),G,G:Бж90:ЕF з20:Д┼(2,0)м(42,40),G,╜:Бж90'1<┼(4,0)м(44,40),G,╜:Бж90:┼(6,0)м(46,40),G,╜:Бж90':FБе20'~ZАY│0еHм1:АX│0еWм1:ТP, Ж(AлXлYн32):P│Pл1:Л:Л:╚4,1:╝0:┐1,1:╚3,1:Р'Я╚З@Pл16м З(A$)о2,A$;:P│Pл32:Р($╥Ю0:C│2:АX│0е63:C│ Б(Xо8)л1:Ь(63мX,0,C):Ь(63мX,4,C):Ь(X,31,C):Л:АY│1е31:C│ Б(Yо4)л1:Ь(0,Y,C):Ь(1,Y,C):Ь(62,31мY,C):Ь(63,31мY,C):Л(:▄З@11,"B L I T Z";(cцЗ@34,">>>> BY GEORGE PHILLIPS <<<<";(ЦЁP│96:A$│"USE THE LEFT AND RIGHT ARROWS ":Бж200(─·A$│"TO MOVE THE GUN BARREL AND THE":Бж200)
A$│"TANK TO SHOOT DOWN THE PLANES.":Бж200:A$│"PRESS 'F' TO FIRE BULLETS":Бж200)Й
A$│"PRESS 'P' TO PAUSE THE GAME,":Бж200:A$│"'R' TO RESUME THE GAME,":Бж200:A$│"BREAK TO STOP THE GAME.":Бж200)н
A$│"G O O D   L U C K !":Бж200))╬
"A$│"(YOU'LL NEED IT!)":Бж200)·
,P│Pл32:A$│"STARTING LEVEL (0-9)?":Бж200*
6A$│"0 = EASY, 9 = HARD":Бж200*>
@АN│1024е1535:ТNл30944, Ж(N):Л*m
JP│23776:АX│0е191:ТPлX, Б(2н Ы(191мX)л.5):Л*О
TЮ5:З"OK, NOW RUN PROGRAM 3."*бшЖ 17920,3,11,0*▒ЄЖ .........*┴№Ж .........*╤Ж .........*сЖ .........*ёЖ ....W....+
$Ж ...WWW...+.Ж ....W....+!8Ж .........+1BЖ .........+ALЖ .........+QVЖ .........+d`Ж 18054,3,11,0+tjЖ .........+ДtЖ .........+Ф~Ж .........+дИЖ ....W....+┤ТЖ ...WWW...+─ЬЖ ..WWWWW..+╘жЖ ...WWW...+ф░Ж ....W....+Ї║Ж .........,─Ж .........,╬Ж .........,'╪Ж 18188,3,11,0,7тЖ .........,GьЖ .........,WЎЖ .........,gЖ ...WWW...,w
Ж ..WWWWW..,ЗЖ ..WWWWW..,ЧЖ ..WWWWW..,з(Ж ...WWW...,╖2Ж .........,╟<Ж .........,╫FЖ .........,ъPЖ 18322,3,11,0,·ZЖ .........-
dЖ .........-nЖ ...WWW...-*xЖ ..WWWWW..-:ВЖ .WWWWWWW.-JМЖ .WWWWWWW.-ZЦЖ .WWWWWWW.-jаЖ ..WWWWW..-zкЖ ...WWW...-К┤Ж .........-Ъ╛Ж .........-н╚Ж 18456,3,11,0-╜╥Ж ...WWW...-═▄Ж ..WWWWW..-▌цЖ .WWWWWWW.-эЁЖ WWWWWWWWW-¤·Ж WWWWWWWWW.
Ж WWWWWWWWW.Ж WWWWWWWWW.-Ж WWWWWWWWW.="Ж .WWWWWWW..M,Ж ..WWWWW...]6Ж ...WWW....p@Ж 18590,3,11,0.АJЖ ...WWW....РTЖ ..WWWWW...а^Ж .WWWWWWW..░hЖ WWWWWWWWW.└rЖ WWWB.OWWW.╨|Ж WWW...WWW.рЖЖ WWWB.OWWW.ЁРЖ WWWWWWWWW/ЪЖ .WWWWWWW8/АX│1е5:Е Р(S$(S),CPм1,1)│V$(X) зFG$│"1":X│58БЛX:ЕFG$│"1" з1560:ДЗ@448, б(20,32);:З@448,"invalid use of sharp";:а5,5:Бе12708│:Г*** UP CURS POS. BY ONE - CONTINUE EDIT ***8╬FG$│"0":CP│CPл1:Бе13809!:Г*** CHECK FOR CORRECT FORMAT OF FUNCTIONS ***9b"АX│1е L:A$│E$л П( И(X), З( И(X))м1)л";":З@416,A$,E$;:ЕA$│ Р(S$(S),CP, З(A$)) зX│255:FG$│"1"9╞,ЛX:ЕFG$│"1" зCP│CPл З(A$):FG$│"0":Бе1380 :ДЗ@448, б(20,32);:З@448,"invalid format";:а5,5:Бе12709ф╧:Г*** INCREASE OCTAVE ***:╨ЕOCT│5 з1000:ДOCT│OCTл1:Бе2020:%┘:Г*** DECREASE OCTAVE ***:A┌ЕOCT│1 з1000:ДOCT│OCTм1:ТфITM$│ П( И(OCT),1):╔"O"лITM$:З@103,OCT;:H$│"O":ЕFL$│"1" зБж2030:Бе1000:Д1000:┐э:Г*** PLACE INTO SONG IF FLAG IS SET ***;
юS$(N)│S$(N)лH$лITM$л";":З@6,S$(N);:Е З(S$(N))▓80 зБж3000:Р:ДР;$ў:Г*** INCREASE NOTE LENGTH ***;[°ЕNL│1 з1000:ДЕNL┤8 зNL│NLм1:Бе2060:ДNL│NLо2:Бе2060;~
:Г*** DECREASE NOTE LENGTH ***;йЕNL│64 з1000:ДЕNL▓3 зNL│NLн2 :ДNL│NLл1<ITM$│ П( И(NL), З( И(NL))м1):╔"L"лITM$:З@120,NL;:H$│"L":ЕFL$│"1" зБж2030:Бе1000:Д1000<:Г*** REST ***<xЕFL$│"0" з1000:ДH$│"P":ITM$│ П( И(NL), З( И(NL))м1):Бж2030:Е З(S$(N))▓80 зБж3000:Бе1000:Д1000<У:Г*** CHANGE TEMPO ***=* E$│ Т:ЕE$│""з2080 :ДЕ К(E$)│13 з2090:ДЕ К(E$)│8 зTP$│ О(TP$, З(TP$)м1):З@186,"    ";:З@186,TP$;:Бе2080:ДTP$│TP$лE$:З@186,"    ";:З@186,TP$;:Бе2080=М*Е Й(TP$)┤1 ▒  Й(TP$)▓255 за5,5:Бе2080:Д╔"T"лTP$:ЕFL$│"1" зITM$│TP$:H$│"T":Бж2030:Бе1000:Д1000=и╖:Г*** CHANGE STANZA ***=┼╕N│Nл1:З@6,D$;:З@175,N;:Р=▀┴:Г*** HELP SCREEN ***>Ю┬Ю:З@0,"***** SONG WRITER COMMANDS *****";:З"UP ARROW     INCREASE OCTAVE":З"DN ARROW     DECREASE OCTAVE":З"<-           INCREASE NOTE":З"->           DECREASE NOTE":З"SPACE BAR    REST"?r╠З"-            CHANGE TEMPO":З"@            TOGGLE ON/OFF LEARN";:З"SHIFT CLEAR  END PROGRAM":З"CLEAR        DISPLAY SUB-MENU":З" eDIT SONG     sAVE SONG":З" pLAY SONG     lOAD SONG":З" nEW SONG      rETURN"@/╓З:З"SHIFT UP ARROW  HELP SCREEN":╔"T2;O3;L8;CO2;EEO3;CL2;CL8;CO2;EEO3;CCO2;EFEDDDBL2;BL8;BDDBBDEDCCCAL2;AL8;ACCAACDCO1;BBBO2;G+L2;G+L8;G+ABFL1;E":З@484,"press any key to return";:З@0,;@EрЕ Т│"" з3040:Д510NG     lOAD SONG":З" nEW SONG      rETURN"@/╓З:З"SHIFT UP ARROW  HELP SCREEN":╔"T2;O3;L8;CO2;EEO3;CL2;CL8;CO2;EEO3;CCO2;EFEDDDBL2;BL8;BDDBBDEDCCCAL2;AL8;ACCAACDCO1;BBBO2;G+L2;G+L8;G `&
:ГGUITARS by Bill Bernico&<:ГRICKENBACKER MODEL 360&ч╚4,1:╝1:┐1,1:┴0,1:╞"BM196,92S4L68D8R68U8R3ERER14FRDFDFDFDFD2LGLGL16HLHLHLUR15FR4UH4LHL3HL10":├(216,92),0:┬(214,88),1:┬(209,88),1:┬(204,88),1:┬(206,105),1:┬(211,105),1'╞┬(216,105),1:┬(153,95),25,0,1,.35,.70:┬(133,87),20,0,1,.68,.85:┬(130,105),15,0,1,.13,.35:┬(94,94),30,0,1,.15,.84:╞"BM110,69HF2RFRFR3ERER2BD46BL2L6GLBM125,102U12L6D12R6BL15U12R6D12L6BL10U12R6D12L6BL5BD3U18L4D18R4BL14BU2(Я╞"U14L16R16D14L14BM126,105L22GL2GL2GL2GL2GLGLGLGLGLD2F3RFRFR10EREREREREREREREREREREREREREREUL":├(85,85),0:╞"BM196,94L100D2R100D2L100D2R30U8L30R37D8R3U8R3D8R4U8R4D8R5U8R6D8R7U8R7D8R8U8R8D8":┬(87,116),1:┬(92,113),2)O┬(94,117),2:┬(97,112),2:┬(99,116),2:┬(102,112),1:┬(199,96),1:╞"BM200,97S3R4NU2R4NU2R4NU2R4U2BM69,96S4D4U8R5FD3GL3F4BM5,32S8U12L2R7FD4GL4F6NL9R4U6BU3UDBD3D6R4U6R5ND2L5D6R5U*'╞"DR4EDU12D8E4RDULG3F5L7R11U2EHU2ER3FDUHL3GD2FR2L2GDFL5R12EU6DER3FD6L9UDR4UDR9U12D12UFR6U5HL2DFRDFRFRFL20R24LU5ER4FUD6L6R10U6R5D2U2L5D6R5UDR4U12D8E4RDULG3F5L7R11U2EHU2ER3FDUHL3GD2FR2BM199,32R4NUR4U7DER3FDBD5L5R7*A:ГFENDER STRATOCASTER+	в44539:╝:╞"BM104,95S4;R100D10L100U10R7U4HU2HL2G":╗(106,88)м(100,89),╜:╗м(94,89),╜:╞"L4HLH":╗(88,87)м(80,85),╜:╗м(76,84),╜:╞"L2HL5GL2GLGLGDGD2R3D17L9U17R6BD17D3GDGDGDGDGDGDGDFDFR3ER2ERERERERER2ERER2ER2ER4"+ь
╗(85,118)м(108,124),╜:╞"R5URUHL2HL2ULHLHLHUHUHU2EUEUE2":┬(59,122),3:┬(64,116),3:╞"BM98,95D11GL2HU11ER2FBL11D11GL2HU11ER2FD11BM77,95DGDGDGDGDGDGL2HUEUEUEUEUEUER2F":┬(117,111),8,0,1,.25,.65:┬(109,110),19,0,1,.17,.33,А┬(87,157),35,0,1,.65,.83:╞"BM115,117;FRFRDRDGDGDL":┬(53,109),24,0,1,.23,.5:╞"BM65,130;LGLGL3BH29D5U18":┬(53,89),24,0,1,.5,.73:╞"BM51,66R3FR2FR2-:┬(90,48),30,0,1,.18,.33:╞"BM62,68;FRFRFRFRFRFR2":┬(118,100),30,0,1,.68,.85:┬(126,89),8,0,1,.4,.79:╞"BM128,82R2ERERU3":┬(49,115),4,0,1,.6,.99:╞"BM46,114GDGDGD3E2RE2RERER":┬(49,115),2-ї
┬(49,115),1:├(107,89),0:╞"BM204,95;R2ERERERM243,102D2":┬(238,102),7,0,1,.1,.4:╞"BM232,106;M214,110LULUHLHLHL2":┬(216,90),2:┬(221,92),2:┬(226,94),2:┬(231,95),2:┬(236,97),2:┬(241,99),2.╧┬(214,96),1:┬(219,98),1:┬(224,99),1:┬(229,101),1:┬(234,102),1:┬(239,104),1:╞"BM213,95L160D2NR165D2NR171D2NR176D2NR181D2R186BM196,95D10L8U10L8D10L8U10L7D10L7U10L7D10L6U10L6D10L5U10L5D10L5U10L4D10L4U10LD10L3U10L3D10/С╞"L3BM205,95D10BM184,100LBL14LBL13LBL12LBL1 F&#
:Г***************************&E:Г******* SONG WRITER *******&g:Г**** BY GARRY L SHELTON ***&Й(:Г******* MARCH 1986 ********&л1:Г*** INTRODUCTORY SCREEN ***';2Ю:З@33, б(30,214);:З@449, б(30,214);:АX│65е417й32:З@X, Л(214);:З@Xл29, Л(214);:ЛX:З@138,"song writer";:З@206,"by";:З@264,"garry l shelton";'Б<P$│"O2;L4;T3;GGAL3;F+;L16;GL4;ABBO3;CO2;L3;BL16;AL4GAGF+L2;G":╔P$'жc:Г*** PROGRAM INITIALIZATION ***(dТ65495,0:Х5000:МK$(12),N$(21),S$(25):АX│1е12:НK$(X):ЛX:АX│1е21:НN$(X):ЛX:АX│1е7:НV$(X):ЛX:C$│ б(12,32):D$│ б(90,32)(<nЖ Z,S,X,D,C,V,G,B,H,N,J,M(xxЖ C,C+,D,D+,E,F,F+,G,G+,A,A+,B,94,10,8,9,32,12,64,45,95(МВЖ C,D,F,G,A,E,B(┤
є:Г*** SET INITIAL "PLAY" VALUES ***(▀
ЇOCT│2:NL│4:TP$│"2":N│1:NV$│"0":FL$│"0")
¤:Г*** SET UP MAIN SCREEN ***)и
■Ю:З@0,"SONG:";:З@96,"OCTAVE:";:З@108,"NOTE LENGTH:";:З@128,"LEARN MODE:":З@160,"STANZA NUMBER:":З@179,"TEMPO:":АX│16е27:АY│10е51:Ь(Y,X,5):ЛY:АY│15е45й6:Э(Y,X):ЛY,X*RАX│16е21:АY│14е20й6:Э(Y,X):Э(Yл2,X):ЛY:АY│32е44й6:Э(Y,X):Э(Yл2,X):ЛY,X:З@192, б(32,230);:З@327,"s";:З@330,"d";:З@336,"g";:З@339,"h";:З@342,"j";:З@422,"z";:З@425,"x";*НЗ@428,"c";:З@431,"v";:З@434,"b";:З@437,"n";:З@440,"m";+1З@6,D$;:З@6,S$(N);:З@103,"   ";:З@103,OCT;:З@120,"   ";:З@120,NL;:З@145,C$;:З@175,"   ";:З@175,N;:З@186,"    ";:З@186,TP$;:ЕFL$│"1" зЗ@140,"ON ";:ДЗ@140,"OFF";+]&╔"O"л И(OCT)л";"л"L"л И(NL)л";"л"T"лTP$+{ч:Г*** INPUT A COMMAND ***+ЬшE$│ Т:ЕE$│"" з1000:ДE│ К(E$)+╠ЄЕE│92 з1100:ДБж1130:ЕNV$│"0" з1000:ДNV$│"0"+х№ЕE│64 зБж1170:Бе1000,VЕE│12 з1180:ДЕE│94 з2000:ДЕE│10з2010:ДЕE│8 з2040:ДЕE│9 з2050:ДЕE│32 з2070:ДЕE│45 зTP$│"":Бе2080:ДЕE│95 з3010,ФЕFL$│"1" зS$(N)│S$(N)лE$:З@6,S$(N);:Е З(S$(N))▓80 зБж3000,╡Т65494,0:╔E$:Т65495,0:Бе1000,╟K:Г*** END ***,▌LЗ@145,"end? y/n";-	VE$│ Т:ЕE$│"" з1110:ДЕE$│"Y" зТ65494,0:К-`З@145,C$;:Бе1000-Fi:Г*** CHECK FOR VALID CHARACTER ***-sjАX│1е12:ЕE$│K$(X) зE$│N$(X):X│12:NV$│"1"-ЖtЛX:ЕNV$│"1" зР-о~АX│13е21:ЕE│ Й(N$(X)) зX│21:NV$│"1"-╖ИЛX:Р-╫С:Г*** CHANGE LEARN FLAG ***.ТЕFL$│"1" зFL$│"0":З@140,"OFF";:Р:ДFL$│"1":З@140,"ON ";:Р.2Ы:Г*** SET UP SUB-MENU ***.LЬЗ@145,"e p n s l r ";.╞жE$│ Т:ЕE$│"" з1190:ДЕE$│"P" з1400:ДЕE$│"E" з1210:ДЕE$│"N"з1410:ДЕE$│"S"з1440:ДЕE$│"L"з1460:ДЕE$│"R" зЗ@145,C$;:Бе1000.╤░Бе1190.щ╣:Г*** EDIT SONG ***/л║Ю:S│1:CP│1:З@296,"EDIT COMMANDS":З@36,"STANZA: ";S:З@56,"edit":З@320,"clear TO QUIT    space TO EDIT":З@352,"UP ARROW - DISPLAY PREV. STANZA.":З@384,"DN ARROW - DISPLAY NEXT STANZA.":Бж1260/╠─E$│ Т:ЕE$│"" з1220:ДE│ К(E$)0╬ЕE│10 з1240:ДЕE│94 з1250:ДЕE│32 зЗ@448, б(20,32);:Бе1270:ДЕE│12 з510:Д122005╫:Г*** NEXT STANZA ***0Y╪ЕS┤N зS│Sл1:Бж1260:Бе1220:Д12200wс:Г*** PREVIOUS STANZA ***0ЬтЕ S▓1 зS│Sм1:Бж1260:Бе1220:Д12200╣ы:Г*** DISPLAY STANZA ***0щьЗ@44,S;:CC│ З(S$(S)):З@96,D$;:З@96,S$(S);:Р1ї:Г*** EDIT STANZA ***1dЎA$│ Р(S$(S),CP,1):E$│ Т:З@95лCP, Л(191);:З@95лCP, Л(191);:З@95лCP,A$;:ЕE$│"" з1270:ДE│ К(E$)1ЩЕE│8 з1320:ДЕE│9 з1330:ДЕE│12 з1340:ДЕE│13 з13701┼	:Г*** PLACE INPUT CHAR. INTO STANZA ***1▀
Е CC▓│90 за5,5:Бе12702'ЕCP│1 зS$(S)│E$лS$(S) :ДS$(S)│ О(S$(S),CPм1)лE$л П(S$(S),CCм(CPм1))2NЗ@96,S$(S);:CC│CCл1:CP│CPл1:Бе12702r':Г*** MOVE EDIT CURSOR LEFT ***2Т(ЕCP│1 з1270:ДCP│CPм1:Бе12702╖1:Г*** MOVE EDIT CURSOR RIGHT ***2╪2ЕCP│CC з1270:ДCP│CPл1:Бе12702Є;:Г*** DELETE CHAR ***3
<ЕCC┤│1 за5,5:Бе12703pFЕCP│1 зS$(S)│ П(S$(S),CCм1) :ДЕCP│CC зS$(S)│ О(S$(S),CCм1) :ДS$(S)│ О(S$(S),CPм1)л П(S$(S),CCмCP)3╕PЗ@96,D$;:З@96,S$(S);:ЕCP│CC зCP│CPм1:CC│CCм1:Бе1270:ДCC│CCм1:Бе12703сY:Г*** CHECK FOR VALID EDIT CHARS ***3■ZCP│1:Y│ З(S$(S)):FG$│"0"4PdЕCP▓Y зЗ@448, б(20,32);:З@448,"edit complete";:CP│1:Бе1220:ДE$│ Р(S$(S),CP,1)4[nБе15004ww:Г*** PLAY THE SONG ***4╥xТ65494,0:╔"O2;L4;T2;V15":АX│1е N:З@6,D$;:З@6,S$(X);:З@175,X;:╔S$(X):ЛX:Т65495,0:Бе11904ъБ:Г*** NEW SONG? ***5ВЗ@145,"new song? yn";5eМE$│ Т:ЕE$│"" з1420:ДЕE$│"Y" зАX│1е N:S$(X)│"":Л:OCT│2:NL│4:TP$│"2":N│1:NV$│"0":FL$│"0":Бе5405pЦБе11805КЯ:Г*** SAVE "SONG" ***5║аТ65494,0:З@145,"recorder    ";:Е Т│"" з14406кЩ"O",#м1,"SONG":З#м1,OCT,NL,TP$:АX│1е N:З#м1,S$(X):Л:Ъ:Т65495,0:Бе11806│:Г*** LOAD "SONG" ***6O┤Т65494,0:З@145,"recorder    ";:Е Т│"" з14606w╛N│0:Щ"I",#м1,"SONG":Й#м1,OCT,NL,TP$6е╚Е М(м1) зЪ:FL$│"0":NV$│"0":Т65495,0:Бе5406┴╥N│Nл1:Й#м1,S$(N):Бе14806▀█:Г*** EDIT SUBROUTINE ***73▄L│255:ЕE$│"T" ▒ E$│"P" ▒E$│"L" з1570:ДЕE$│"O" зL│5:Бе1570:ДЕE$│"V" зL│31:Бе15707Yх:Г*** CHECK FOR CORRECT NOTES ***7{цАX│1е7:ЕE$│V$(X) зX│7:FG$│"1"7СЁЛX:ЕFG$│"1" з15607╪·ЕE$│"+" з1540 :ДЗ@448, б(20,32);:З@448,"invalid note";:а5,5:Бе12707 :Г*** CHECK FOR CORRECT SHARPS ***╗м(176,52),╜/╗м(192,80),╜/-&╗м(208,16),╜/>0╗м(192,16),╜/O:╗м(184,36),╜/`D╗м(176,32),╜/qN╗м(168,36),╜/ВX╗м(160,16),╜/Уb╗м(144,16),╜/еl├(176,42),8,5/╧v╞"C5BM216,16D48F4E4U48L8BD56R8D8L8U8"/сА├(220,40),5,5/єК├(220,76),5,50Ф╞"C5BM232,16D48F4E4U48L8BD56R8D8L8U8"0/Ю├(236,40),5,50Aи├(236,76),5,50k▓╞"C5BM16,112D64R48U16L32U32R32U16L48"0}╝├(24,144),6,50Щ╞╗(72,144)м(120,176),╜,B0╡╨╗(88,160)м(104,164),╜,B0╟┌├(80,160),6,50Єф╞"C5BM136,112D64R48U16L32U32R32U16L48"1ю├(144,140),6,51"°╗(192,144)м(240,176),╜,B1?╗(208,160)м(224,164),╜,B1R├(200,160),6,51fА P│ 1е 700:Л P1n Л B1|*Т 65494,01З4Бе 250)м(120,176),╜,B0╡╨╗(88,160)м(104,164),╜,B0╟┌├(80,160),6,50Єф╞"C5BM136,112D64R48U16L32U32R32U16L48"1ю├(144,14R$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 д&
:Г *********************&;:Г *   AUTO 3 UTILITY  *&X:Г *                   *&u:Г *        BY         *&Т:Г *  CHUCK KATSEKES   *&п:Г *                   *&╠:Г *********************&фу 0,4:у 8,63:т80:Ю1& (ё 13,1:З"INSTRUCTIONS"'D)ё 1,3:З"THIS UTILITY WILL LOAD ANY BASIC (BAS) PROGRAM BY TIMER"'В*ё 1,4:З"IT WILL LOAD BOTH COCO II AND COCO III PROGRAMS."'┼+ё 1,5:З"TO LOAD COCO II PROGRAMS YOU CAN EITHER PLACE WIDTH32"(,ё 1,6:З"AT THE BEGINNING OF THE PROGRAM YOU WANT TO LOAD, OR(;-ё 1,7:З"PLACE WIDTH32 AFTER THE CLS IN LINE 370"(|.ё 1,8:З"YOU MUST HOWEVER, ENTER THE NAME OF THE PROGRAM YOU"(╖/ё 1,9:З"WANT TO AUTO LOAD AFTER THE (RUN) IN LINE 370"(Є0ё 1,10:З"SEE THE EXAMPLE BELOW.......................")1ё 1,13:З"(FOR COCO II PROGRAM)")=2ё 1,14:З"370 CLS:WIDTH32:RUN'DEMO")b3ё 1,16:З"(FOR COCO III PROGRAM)")Б4ё 1,17:З"370 CLS:RUN'DEMO")к5ё 5,22 :З"PRESS <ENTER> TO CONTINUE")╟6E$│ Т:Е E$│"" з 54:Бе 55*7Ю:ё 1,6:З"TO CHANGE LINE 370 PRESS <BREAK> KEY AND TYPE"*>8ё 1,7:З"LIST 370. MAKE THE APPROPRIATE CHANGES PRESS"*{9ё 1,8:З"<ENTER> THEN TYPE RUN. FOLLOW THE PROMPTS AFTER"*и:ё 1,9:З"TYPING RUN....................."*╒;ё 1,13:З"PRESS <ENTER> TO START PROGRAM"+<ё 1,15:З"PRESS <BREAK> TO CHANGE LINE 370"+!FE$│ Т:Е E$│""з 70:Бе 170+'кЮ+?┤у 0,8:у 8,63:т80:Ю1+E╛Ю+X╚Й "PROGRAM";P$+g╥Й "HOUR";H+y▄Й "MINUTES";M+ПцЙ "START HOUR";SH+зЁЙ "START MINUTE";SM+н·Ю+э
ё 10,12:З"* * *   LOADING ";P$;" @    ";SH;":";SM;"  * * *"+■
А H │ H е 23,
А M │ M е 59, 
"А S │ O е 59,;
,Е H│SH ░ M│SM з Бе 370,b
6ё 1,2:ЗH;:ё11,2:ЗM;:ё21,2:ЗS;:ё0,2,t
@А T │ 1 е 493,|
JЛ T,Д
TЛ S,М
^Л M,Ф
hЛ H,Э
rЮ:О",г
|КM+н·Ю+э
ё 10,12:З"* * *   LOADING ";P$;" @    ";SH;":";SM;"  * * *"+■
А H │ H е 23L45"
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"BU20C1BEERS"," (79) EXPLORE2"," (79) THECAVE"," (80) MUSICPRO"/ПЖ " (81) LOTTO48"," (82) COLLECT"," (82) ASCIIREF"," (86) MAGPARTS"," (96) JUKEBOX"/хЖ "(105) SUPRPLAY","(108) WAVEDIT","(111) FDCAID","(141) CHORDS","(155) SENTENCE"/я.Ж END"," (79) 99XREF","(182) COMMANDO"0.Ж END) FILESRCH"/ЗЖ "(102) LOADER","(103) CADPRINT","(108) RESTORE","(117) ROBOCISE","(135) WHO AM I"/рЖ "(146) TIN EAR","(147) KOLAROLA","(150) SUBTRACT","(162) SUPERCLS","(166) SOUND 2"0$Ж "(167) SOUNDGEN","(172)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  И&"
:Г##########################&C:Г#       COCO BLUES       #&d:Г#           BY           #&Е:Г#       VAL BURKE        #&ж:Г##########################&╣
А S│1 е 20 й 5&╠╚ 3,1:╝4:┐ 1,0&Є╞"C2BM60,8R32D8L24D24R24D8L32U40"'(├(64,24),3,2'/2╞"C2BM100,28R24D20L24U20BR8BD8R8D4L8U4"'A<├(104,36),3,2'hF╞"C2BM132,8R32D8L24D24R24D8L32U40"'zP├(136,28),3,2'жZ╞"C2BM172,28R24D20L24U20BR8BD8R8D4L8U4"'╕d├(176,36),3,2'▐n╞"C2BM68,56R12F4D4G4F4D4G4L12U24"'їx╞"C2BM92,88D24R16"(В╞"C2BM120,56D20F4R8E4U20"(<М╞"C2BM150,88R16BL16D12R10BL10D12R16"(cЦ╞"C2BM188,56L12G4D4F4R12F4D2G4L12"(vаА P│1е 400:Л P(Щк╔"O4T60L8BL8CL8EL8GL8BL8D":Л S)!┤╞"C2BM28,144D8E4H4BF4R132F8D8G8L96H8U8E12R30U6L3BR3R3BL3D6R12U6L3BR3R3BL3D6R12U6L3BR3R3BL3D6R84E4U1E4U1E4U1E4D36H4U1H4U1H4U1H2L2U1")3╛├(128,96),3,2)D╚├(76,68),3,2)W╥├(216,144),3,2)j▄├(116,160),3,2)|ц├(112,38),3,2)ОЁ├(184,38),3,2*В·A$│"O3T3L8.EL16GP32L16AP8L64FL64G-L8L2GP8L8.AO4L16CP32L16DP8O3L64B-L64BO4L8L4CP8O3L16AP8L2.8P8P4O1L16BP32O2L16CP8O1L16CP32L4CP32L4GP32L8L4G-P16O3L8.AO4L16CP32L16DP8O3L64B-L64BO4L4.CP32P4O3L8.AO4L16CP32L16DP8O3L64B-L64BO4L8L4CO3P8L16AP8L1G"+G
B$│"O1T3P8L16BP32O2L16CP8O1L16CP32L4B-P32L16AP32L16EP32L16CP32L4AP32O3L8.BO4L16DP32L16EP8L64CL64C+L2DP8O3L8.AO4L16CP32L16DP8O3L64B-L64BO4L8L4CO3P8L16AP8L1GP8P16P32O1L16GP8GP32L4AP32L4B-P32L4B"+a
C$│"XA$;XB$;XA$;XB$;"+j
╔ C$,4
"╔"O4T3L8CP16L8DP16L8D+P16L8EP16L8FP16L8F+P32L8GP16L16EP32L8FP16L16GL64DL64D+L8EL16CP16O3L8GP16L8FP16L8EP16L8O4CO3P16L2.B-P2P4P8P16O5L64CO4L64BL64AL64GL64FL64EL64DL64CO3L64BL64AL64GL64FL64EL64DL64C",╣
,╔"O4T3L64CL64C+L16DP8L64O3B-L64BO4L16CO3P8L16FP16L8AP16O4L16CP8L128CL128DL16E-L128GL128C+L16DL128O3B-L128BO4L16CO3P4P4L8AP16L1G"-А
6╔"O3T3P1P4P8L16GL16BO4L16CL16C+L16DL16D+L16EL16FL16F+L16GL16EL16FL16GL128DL128E-L12EL16CO3L16GL16G+L16AO4L16FO3L16AL16A-L16GO4L16E-O3L16GL16G-L16FO4L16DO3L16FL16EL16E-O4L16CO3L16AP16L1.GP2P4P16"-О
@Т 65495,0-б
JА B│1 е 20 й 5-┴
T╔"O3T70L8CL8EL8GL8B-L8O4E-"-╟
^╝-┘
h╚ 3,1:╝7:┐1,1-у
r┴ 5,7-·
|╗(16,16)м(32,80),╜.

Ж╗м(48,52),╜.
Р╗м(64,80),╜.*
Ъ╗м(80,16),╜.:
д╗м(64,16),╜.J
о╗м(56,36),╜.Z
╕╗м(48,32),╜.j
┬╗м(40,36),╜.z
╠╗м(32,16),╜.К
╓╗м(16,16),╜.Ы
р├(48,40),8,5.╡
ъ╗(88,16)м(136,80),╜,B.╨
Ї╗(104,32)м(120,64),╜,B.с
■├(98,48),8,5.·╗(144,16)м(160,80),╜/
                                                                                                                                                                                                    №?№??№?   №  └№╒╨  №ї?№Ц?╬?№╬?ЦФ?   
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)Ax╚1,1:╞"BM70,88C3U12R12D12NL12BR8U12F12NU12BR16R2U12NL2R10F2D8G2NL10BR12NU12BR10R10U6L10U6R10BR8D12U6R4NE6NF6BM98,156C2R10D10L10NU10L2D12R14U12L2BD12BR36BU22R10D10L10NU10L2D12R14U12L2BD12")OВАII│1е500)cМЕ Т│""з150:Д160)kЦЛII)БаВ 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*AцАI│NPл1е34:B$(I)│"":Л*GЁЮ*f·З"        RAINBOW ON DISK"*Е
З"      (C) FALSOFT, 1988"*о
З" PRESS LETTER TO LOAD BASIC ONLY";+
З "  (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"+$
"З:З"           SIDE ONE"+M
,АP│1е7:ЗB$(P)A$(P),B$(7лP)A$(Pл7):ЛP+S
6З+x
@З"   PRESS <SPACE> TO CONTINUE";+Н
JX$│ Т:ЕX$│""з330+Э
TЕX$│" "з370+╖
^АI│1е14:ЕX$│B$(I)з500+─
hЛI:Бе330+╩
rЮ+є
|З:З "  (XX)= PAGE NUMBER OF LISTING",
ЖЗ:З"           SIDE ONE",;
РАP│15е20:ЗB$(P)A$(P),B$(6лP)A$(Pл6):ЛP,C
ХЗ:З,Ж
ЪЗ "    PRESS <SPACE> TO RETURN          TO FIRST PAGE OF MENU",о
дЗ "  PRESS ^ (UP ARROW) FOR <DIR>";,╞
оXX$│ Т:Е XX$│""з430,▌
╕ЕXX$│ Л(94)з Ю:╬:Ц,ю
┬ЕXX$│" "з240-
╠АI│15е NP:ЕXX$│B$(I)з500-
╓ЛI:Бе430-'
рЕXX$┤▓з430-1
ъБе240-Q
Ї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 <LOADM> THE  PROGRAM BY ITS FILENAME.".
Ц.!Q│ З(Q$):Q│Qм6:SL$│ П(Q$,Q).-&╙ SL$,R.:шЖ "JUNE".▓ЄЖ " (24) COCOBLUZ"," (28) COLLEGE"," (32) AUTO3"," (38) ROCKYTOP"," (46) SONGWRTR"," (53) PRINTUNE"," (57) GUITARS"/7№Ж " (64) BLITZ1"," (71) BLITZ2"," (76) BLITZ3"," (78) PITCHER"," (79) 99
р╝┐╝╜║┐╝╜║┤╜╛╕А┐╝╝┐╡╛╝┐┤╜╛╝┐╡╝┐╝║А┐░╡║┐А╡║А╡║А░┐А░┐╡║░┐░╡║░┐╡░┐░║А ААА Ёї·Аї·АА АЁ ї·╨ Аї·А№їЁ Ё·А ААЁ Аї·Аї·АА ЁА ї·╨ Аї·АААА АААЯЁХЪЯАХЪАХЪААЯАР░ХЪРЯАХЪРЯААЯАААЯЬЭЪЯЬЭЪАХЪААЬЬЬЯХЪРЯРХЮЬЯрРЯАААПАААПАЕКАЕКААПААПЕКАПАЕКААрАПАААПАААПАЕКАЕКААПААПЕКАПАЕКААААПАААпАААпАекАекбвпаАпекАпаекААААпАААпАААпЁекАекекпААпекАпАекААААпААуяуруяРхытчычъяууяхыуясчытААсятА└└└└└р└└└└└└а└└└└└└└└└└└└└└└└└└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ПАЕКАЕКААПААПЕКАПАЕКАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
рьяьэъяьэъфэюшАяььяхюьяфэюьяхьяьъАя░хъяАхъАхъА░яА░яхъ░я░хъ░яхря░ъАпАААпЁекАекААпАЁпек╨пАекАмеЁпакапААЁпАекАекААпЁапек╨пАекААААпАААПЁЕКПАЕКАЕКААПАР░ЕКРПАЕКРПААПАААПМНКПМНКАЕКААМММПЕКРПРЕОМПрРПАААЯАААЯАХЪАХЪААЯААЯХЪАЯАХЪААрАЯАААЯАААЯАХЪАХЪААЯАРЯХЪАЯРХЪААААЯААА ААА Аї·Аї·ёЄ аА ї·А аї·АААА ААА ААА Ёї·Аї·ї· АА ї·А Аї·АААА АА│┐│░│┐Р╡╗▓╡╗╖║┐││┐╡╗│┐▒╖╗▓АА▒┐▓А└└└└└р└└└└└└а└└└└└└└└└└└└└└└└░└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ЯАХЪАХЪААЯАРЯХЪАЯРХЪАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ╞─╞╚├┬├─┬├─╞╔├╟┴╟┬┬├$%╟'(╞*─,╔./012──╟╞╟89┴;<┼        FALSOFTППП ъPRESENTSППП!ъ RAINBOWППП"
   ON   ППП#
  DISK  ПППMENU    BASїCOCOBLUZBASЛCOLLEGE BAS&,AUTO3   BASзROCKYTOPBAS)╩SONGWRTRBASIPRINTUNEBAS+iGUITARS BAScBLITZ1  BAS-TBLITZ2  BAS·BLITZ3  BASЎPITCHER BAS°99BEERS BAS3zEXPLORE2BAS┌THECAVE BASфMUSICPROBAS4LOTTO48 BAS5░COLLECT BASASCIIREFBAS
ЩMAGPARTSBAS6tJUKEBOX BAS7SUPRPLAYBAS
-WAVEDIT BAS╫FDCAID  BAS	]CHORDS  BAS:зSENTENCEBASМ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                № №¤·ЯЬЭЪдноиА┐╝╝┐╒▐▄▀фэюьяЕМПМКА Аї·ЯАХЪАекАА┐АА┐╒┌╨▀АхъАяЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъАьЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъААААПААА Ёї·ЯАХЪАекАА┐АА░╒┌А▀АхъАяААПААА №¤·ЯЬЭЪАекАА╝╝╝┐╒┌А▀АхюьярАПААА АААЯАХЪАекАА┐АА┐╒┌А▀АхъААрАПА	А АААЯАХЪАекАА┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦└╧├╧А ЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           №       Ё?      └       ЁЁ           №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       └                             №         №         Ё?  Ё?        Ё?    Ё?        └      └         └?      Ё?Ё              └        №?    Ё       №?  Ё       Ё?      Ё  ?      └└      └0      0      0     №  └     №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          )&#d:Г         SAVING FOR COLLEGE&*n:Г&Lx:Г         COPYRIGHT (C) 1987&SВ:Г&rМ:Г         LARRY P PITTMAN&УЦ:Г         11406 MAJORCA PL.&│а:Г         FENTON, MI 48430&║к:Г&■┤Е Ж(&HF636)│15зCO│3:т40:у0,0:у8,63:Ю1::ДБе220::ГCHECK IF COCO 3'п╛З"**************COLLEGE COSTS*************":З:З:З"THIS PROGRAM WILL CALCULATE YOUR MONTHLYCOSTS THAT YOU NEED TO SAVE FOR YOUR    CHILDREN FOR COLLEGE.  YOU FIRST NEED TO";(╚З"ENTER SOME GENERAL INFORMATION AND THEN SOME SPECIFIC INFORMATION ABOUT EACH    CHILD.":З:З:З"    ";($╥Бе250(╧▄Ю:З"**********COLLEGE COSTS*********":З:З"THIS PROGRAM WILL CALCULATE YOURMONTHLY COSTS THAT YOU NEED TO  SAVE FOR YOUR CHILDREN FOR      COLLEGE.  YOU FIRST NEED TO")4цЗ"ENTER SOME GENERAL INFORMATION  AND THEN SOME SPECIFIC          INFORMATION ABOUT EACH CHILD.")<ЁЗ:З)^·З"    PRESS ANY KEY TO BEGIN")t
АX│1е200:Л:а150,2)Й
A$│ Т:ЕA$│""з270)Щ
Ю:ЕCO│3зЗ:З)╛
"З"ENTER THE NUMBER OF CHILDREN";*
,ЕCO│3з З" YOU WISH TOPUT THROUGH COLLEGE":З::ДЗ"    YOU WISH TO PUT THROUGH COLLEGE":З*И
6а150,2:╗Й"              ";NC$:NC│ Й(NC$)::ГNC=NUMBER OF CHILDREN (TEN MAX W/O ADDING DIMENSION STATEMENTS)*┤
@Е NC│1зЗ:З"WHAT IS HIS/HER NAME?":Бе340*╙
JЗ:З"WHAT ARE THEIR NAMES?"+
TАX│1еNC:а150,2:╗Й"     ";NM$(X):Л::ГNM$(X)=NAME OF CHILD(REN)+╛
^З:а150,2:ЕCO│3зЗ"ENTER WHAT YOU EXPECT THE AVERAGE       INFLATION RATE TO BE (%): ";::ДЗ"ENTER WHAT YOU EXPECT THE       AVERAGE INFLATION RATE TO       BE (%): ";+я
h╗Й" ";IR$:IR│ Й(IR$)о100::ГIR=INFLATION RATE,v
rЗ:а150,2:З"ENTER WHAT INTEREST RATE YOU":З"BELIEVE YOU COULD GET FOR":╗Й"YOUR MONEY (%): ";IT$:IT│ Й(IT$)о100::ГIT=INVESTMENT RATE-
|З:а150,2:ЕCO│3зЗ"ENTER THE AMOUNT OF MONEY YOU WOULD LIKETO HAVE AVAILABLE AT THE BEGINNING OF   EACH SCHOOL YEAR (IN SEPT): ";:Бе400-y
ЖЗ"ENTER THE AMOUNT OF MONEY YOU   WOULD LIKE TO HAVE AVAILABLE    AT THE BEGINNING OF EACH SCHOOL YEAR (IN SEPT): ";-║
Р╗Й"$";RA$:RA│ Й(RA$)::ГRA=REQUIRED AMOUNT PER CHILD PER YEAR-Є
ЪЗ:а150,2:З"ENTER THE CURRENT MONTH (1-12):       ";.
дЕCO│3зЗ"               ";.<
о╗Й" ";TM$:TM│ Й(TM$)::ГTM=TODAY'S MONTH.P
╕ЕTM┤1▒TM▓12з410.Ы
┬З:а150,2:╗Й"ENTER THE CURRENT YEAR: ";TY$:TY│ Й(TY$)::ГTY=TODAY'S YEAR.м
╠ЕTY┤1987з450.─
╓ЕCO│3зLS│40::ДLS│32/d
рАX│1еNC:Ю:З"INFORMATION ABOUT ";NM$(X):З б(LS,"*"):З:а150,2:╗Й"BEGINNING YEAR OF COLLEGE: ";FD$(X):FD(X)│ Й(FD$(X))::ГFD(X)=FUTURE COLLEGE DATE FOR CHILD X/п
ъЗ:а150,2:З"AMOUNT AVAILABLE TO INVEST NOW      ";:ЕCO│3зЗ"          ";0
Ї╗Й"$";OA$(X):OA(X)│ Й(OA$(X)):Л::ГOA(X)=ORIGINAL AMOUNT AVAILABLE TO INVEST NOW FOR CHILD X0
■:Г07:ГCALCULATION ROUTINE BEGINS0>:Г0lЮ:З:З:З"CALCULATIONS NOW BEING PERFORMED"0Р&MT│0::ГMT=MONTHLY PAYMENT TOTAL0╚0АC│1еNC:MP(C)│0::ГMP(C)=MONTHLY PAYMENT FOR CHILD C0┌:ЕTY▓FD(C)з9300сD:Г1#N:ГT1 & T2 USED FOR NO OF PAYMENT PERIODS (MONTHS) CALCULATION1*X:Г1VbЕTY│FD(C)зЕTM▓8з930::ДT1│FD(C)мTM:Бе6701wlT1│12мTMл9л(12н(FD(C)мTYм1))1╗vAM(C)│OA(C)::ГSAVE ORIGINAL AMOUNT AVAIL FOR POSSIBLE REVISIONS1┬А:Г1ўК:ГA1 & A2 USED FOR CALCULATING INFLATION EFFECTS1■Ф:Г2EЮA1│RA н ((1л(IRо12))пT1):Е AM(C)┤▓0 з AM(C)│AM(C)н((1л(ITо12))пT1)2ВиЕ AM(C) ▓A1 з AM(C)│AM(C)мA1:Бе700::ДA1│A1мAM(C):AM(C)│02о▓MP(C)│A1н((ITо12)о(((1л(ITо12))пT1)м1))2╕╝T2│T12├╞АX│1е33I╨T2│T2л12:A2│RAн((1л(IRо12))пT2):Е AM(C)┤▓0 з AM(C)│AM(C)н((1л(ITо12))п12):Е AM(C)▓A2 з AM(C)│AM(C)мA2:Бе770::ДA2│A2мAM(C):AM(C)│03В┌MP(C)│MP(C)л(A2н((ITо12)о(((1л(ITо12))пT2)м1))):ЛX,C3Йф:Г3Юю:ГSUMMARY SCREEN3е°:Г3╫Ю:ЗIRн100;"% INFLATION  ";:ЕCO│3зЗ"        ";4ЗITн100;"% INTEREST":З б(LS,"*"):З"MONTHLY AMOUNT REQUIRED FOR "4TАX│1еNC:Зд9);NM$(X);":";:Зд12);:З═"$#####.##";MP(X)4f MT│MTлMP(X):Л4~*ЕCO│3зTB│26::ДTB│154┴4З:З:З"TOTAL MONTHLY PAYMENT REQUIRED:":ЗдTB);:З═"$#####.##";MT5->ЕCO│3зё0,21:З"*****************ENTER******************   <E> END       <R> REVISE ENTRIES";:ё0,23:Бе8505zHЗ@448,"*************ENTER**************<E> END      <R> REVISE ENTRIES";5ЕRа150,25Ъ\A$│ Т:ЕA$│""з8605иfЕA$│"E"зК5╣pЕA$│"R"з10105├zБе8605╩Д:Г5сО:ГDATE ENTRY ERROR5шШ:Г6вЮ:З б(LS,"*"):З:З"TODAY'S DATE IS LATER THAN ";6xмЕCO│3зЗ"COLLEGE      START DATE FOR:   ";::ДЗ"     COLLEGE START DATE FOR:":З"       ";6Ч╢ЗNM$(C):ЕCO│3зPT│15::ДPT│66╘└АX│1еPT:З:Л:З"   ENTER <R> TO REVISE":З б(LS,"*"):а150,27
╩A$│ Т:ЕA$│""з970:ДЕA$┤▓"R"з970::ДЮ:Бе4107╘:Г7▐:ГREVISION MENU7#ш:Г7ВЄЮ:ЕCO┤▓3зЗ"************REVISION************"::ДЗ"****************REVISION****************"7ш№З:З:Зд4)"1. CHANGE INFLATION RATE":Зд4)"2. CHANGE INTEREST RATE":Зд4)"3. CHANGE ANNUAL AMT AVAIL"8
Зд4)"4. RECALCULATE":ЕCO│3зЗ:З:З8-З:Зд8)"ENTER 1, 2, 3, OR 4"8└З б(LS,"*"):З"  CURRENT SETTINGS:":Бж1270:З"         1=";IRн100;"%":Бж1270:З"         2=";ITн100;"%":Бж1270:З"         3= ";:З═"$#####.##";RA;8╦$а150,28с.A$│ Т:ЕA$│""з10709
8И Й(A$)Бе1120,1180,1240,5409B:Г9&L:ГINFLATION RATE REVISION9-V:Г9д`Ю:ЕCO│3зЗ"*************INFLATION RATE*************":ё5,18:З"CURRENT RATE = ";IRн100;"%":ё11,5:З"ENTER":ё5,6:Бе1140:jЗ"*********INFLATION RATE*********":З@455,"CURRENT RATE = ";IRн100;"%":З@105,"ENTER":З@131,"";:Itа150,2:╗Й"NEW INFLATION RATE (%): ";IR$:IR│ Й(IR$)о100:Бе1010:P~:Г:oИ:ГINVESTMENT RATE REVISION:vТ:Г:эЬЮ:ЕCO│3зЗ"*************INVESTMENT RATE************":ё6,16:З"CURRENT RATE = ";ITн100;"%":ё12,5:З"ENTER":ё6,6:Бе1200;PжЗ"********INVESTMENT RATE*********":З@455,"CURRENT RATE = ";ITн100;"%":З@106,"ENTER":З@130,"";;У░а150,2:╗Й"NEW INVESTMENT RATE (%): ";IT$:IT│ Й(IT$)о100:Бе1010;Ъ║:Г;╖─:ГANNUAL AMOUNT REVISION;╛╬:Г<e╪Ю:ЕCO│3зЗ"*************ANNUAL AMOUNT**************":ё5,18:З"CURRENT AMOUNT  ";:З═"$#####.##";RA:ё5,4:З"ENTER NEW ANNUAL AMOUNT TO":З"     BE AVAILABLE:  ";:Бе1260<ятЗ"*********ANNUAL AMOUNT**********":З@450,"CURRENT AMOUNT ";:З═"$#####.##";RA:З@130,"NEW ANNUAL AMOUNT TO BE           AVAILABLE:  ";=ьа150,2:╗Й"$";RA$:RA│ Й(RA$):Бе1010=(ЎЕCO│3зЗ:Р::ДРNTER NEW ANNUAL AMOUNT TO":З"     BE AVAILABLE:  ";:Бе1260<ятЗ"*********ANNUAL AMOUNT**********":З@450,"CURRENT AMOUNT ";:З═"$#####.##";RA:З@130,"NEW ANNUAL AMOUNT TO BE           AVAILABLE:  ";=ьа150,2:╗Й"$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);,├З Л(234)R$R$R$R$ Л(143)R$ Л(110)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170) Л(161) Л(162) Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);-^З Л(234)R$R$R$R$ Л(143)R$ Л(99)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170) Л(165) Л(170) Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);."З Л(234)R$R$R$R$ Л(143)R$R$ Л(243) Л(255) Л(243)R$ Л(147) Л(159) Л(145) Л(151) Л(155) Л(146) Л(167) Л(171) Л(167) Л(170) Л(191) Л(179) Л(179) Л(191) Л(213) Л(219) Л(211) Л(223) Л(225) Л(231);.┬З Л(235) Л(226)R$R$ Л(129) Л(143) Л(130)R$ Л(195) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195) Л(195) Л(193) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195) Л(193);/lЗ Л(195) Л(195) Л(194) Л(195) Л(194) Л(193) Л(195) Л(195 ╟&0
:Г**ROCKYTOP ARRANGED BY BECKY F. MATTHEWS&D:ГSPEED-UP POKE&QТ65495,0&b(╚4,1:┐1,1:╝0&w2:ГDRAW BUILDINGS&о<╞"C1BM213,115S3L2G1D5R3BR2BU2U2BR3U2E1NR2G1D4F1R2"'\F╞"S4BM0,114C1ND64R10NR14U7R7U14F2D2H2D12R7D7R10D64BR5U18H2U6R9NR18U2NR10L1H1U1NR14L1H1U1R8NR4U3R4D3R8D1G1L1D1G1L1D2R8D6G2D18BR6U8NR20BR3D8BR3U8BR3D8BR3U8BR3D8BR3U8BR3D8"(P╞"C1BM69,170M81,166M93,170BM78,166U2NR6U1E1NR4U2NR4H1NR5U1E1NR4U4NR4E2U8F2D2H2D6F2D4F1D1G1D2F1D4BD11BR13U14R4NR8U2R6D2R4D14BR4U56NR36M+13,-5ND5R10ND5M+13,+5D55BR10U25NL10"(фZ╞"C1BM166,177U32R2NR10U2R10ND34U1R10D2NL10R6ND34U4NR6U4R6ND41U16R6ND58NR12U6R3ND6R7NU8R4D6L8D58R8NU58BR5U30E2U20M+6,-6R14M+6,+6D20F2D30BL16U32BR3ND32BL6ND32L2U20NR10M+4,-6R3M+4,+6D20L2BU20R2R3F1R3F1BL26E1R3E1R3"(ўd:ГDRAW WINDOWS)Gn┴0,1:╗(12,109)м(22,111),╛,BF:╗(12,113)м(22,114),╛,BF:╗(3,116)м(31,120),╛,BF)pxАY│122е176й3:╗(3,Y)м(31,Yл1),╛,BF:ЛY)┴В├(244,123),1,1:├(234,123),1,1:АY│154е178й2:АX│47е56й3:╗(X,Y)м(Xл1,Y),╛:ЛX:ЛY)эМАY│166е178й2:АX│98е110й3:╜(X,Y,1):ЛX:ЛY*AЦАY│122е177й3:╗(115,Y)м(150,Yл1),╛,BF:ЛY:АY│156е177й3:╗(151,Y)м(158,Yл1),╛,BF:ЛY*РаАY│148е176й2:АX│167е176й3:╗(X,Y)м(Xл1,Y),╛:ЛX:ЛY:АY│147е177й2:АX│179е193й3*╬к╗(X,Y)м(Xл1,Y),╛:ЛX:ЛY:АY│142е176й2:╗(197,Y)м(200,Y),╛:ЛY+┤АY│122е176й2:АX│201е206й2:╗(X,Y)м(X,Y),╛:╗(Xл12,Y)м(Xл12,Y),╛:ЛX:ЛY+\╛╞"C1BM220,178R40BM237,142U12BR5D12":├(230,170),1,1:├(245,170),1,1+n╚:ГDRAW STREET+Э╥╚3:┴2:╗(0,178)м(255,182),╜,BF:├(5,190),3,2+╣▄┴1:╗(1,0)м(255,191),╜,B+╧ц:ГDRAW/PAINT MOON+єЁ┬(170,80),20,2,.9:├(170,80),2,2,·:ГWRITE "MUSIC",e
╞"C3BM20,15S4ND20F10E10ND20BR8D20R12U20BR8NR12D10R12D10NL12BR8R2NR2U20NL2R2BR8NR12D20R12",y
:ГWRITE "CITY,",═
╞"BM156,15NR12D20R12BR8R2NR2U20NL2R2BR8R6NR6D20BR22U10NH10E10BD20BR2U2R2D2L2G3",т
":ГWRITE "U.S.A."-I
,╞"BM40,50D20R12NU20BR6U2R2D2NL2BR10R12U10L12U10R12BD20BR6U2R2D2NL2BR10U12NR12U2E6F6D14BR6U2R2D2L2"-Z
6:ГPLAY NOTES-З
@А N │ 1 е 89:Н A,B,C,D:а A,D:а B,D:а C,D-П
JЛ N-Х
TП-Я
^Бе320-п
h:ГNOTE DATA-э
rЖ 147,170,185,2,108,170,185,2,147,170,185,2,108,170,185,2.7
|Ж 147,176,193,2,89,176,193,2,147,170,185,1,108,147,170,1,78,108,147,2.
ЖЖ 78,108,147,2,108,147,170,2,89,108,159,1,78,108,147,1,89,108,159,2.п
РЖ 108,147,170,2,147,170,185,2,170,185,204,1.▀
ЪЖ 108,185,108,1,125,193,125,1,140,200,140,1/
дЖ 147,170,185,2,108,170,185,2,147,170,185,2,108,170,185,2/g
оЖ 147,176,193,2,89,176,193,2,147,170,185,1,108,147,170,1,78,108,147,2/п
╕Ж 78,108,147,2,108,147,170,2,89,108,159,1,78,108,147,1,89,108,159,2/Ў
┬Ж 78,108,147,1,32,147,32,1,78,170,78,1,108,185,108,1,147,204,147,10&
╠Ж 147,204,147,1,140,200,140,1,147,204,147,10b
╓Ж 125,170,193,2,78,170,193,2,125,170,193,2,78,170,193,20Я
рЖ 108,159,185,2,58,159,185,2,108,159,185,2,108,143,159,20щ
ъЖ 133,176,197,2,89,176,197,2,133,176,197,1,89,176,193,2,133,159,185,11/
ЇЖ 89,176,193,2,89,125,147,1,32,147,185,1,89,147,176,2,32,89,125,21i
■Ж 147,176,193,2,32,89,125,2,147,176,193,2,32,89,125,21╚Ж 32,170,185,1,32,147,170,1,32,108,147,2,32,147,32,1,32,147,32,1,78,170,78,1,108,185,108,11ЄЖ 32,78,147,1,32,78,147,1,32,78,147,22Ж 5,89,159,2,58,89,159,22G&Ж 32,78,147,2,32,147,32,2,78,170,78,2,108,185,108,22q0Ж 32,78,147,1,32,78,147,1,32,78,147,22О:Ж 5,89,159,2,58,89,159,22╞DЖ 32,78,147,2,32,147,32,2,78,170,78,2,108,185,108,21ЄЖ 32,78,147,1,32,78,147,1,32,78,147,22Ж 5,89,1OFT, 1987"<иЗ<h▓З "  (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"<Е╝З:З"           SIDE ONE"<в╞АP│1е7:ЗA$(P),A$(Pл7):ЛP<и╨З<═┌З"   PRESS ANY KEY TO CONTINUE";<▌фЕ  Т│""з740<уюЮ=°З:З "  (XX)= PAGE NUMBER OF LISTING"=З=2АP│15е24:ЗA$(P),A$(Pл10):ЛP=uЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU"=Ю З "PRESS ^ (UP ARROW) TO EXIT MENU";=╤*XX$│ Т:Е XX$│ Л(94) з Ю:К :Д Е XX$│""з810:Д650=с4З б(32,45);=ёшЖ "OCTOBER">vЄЖ " (22) HORROR"," (27) SCROLL"," (29) QUEENS"," (32) SCRNDMP"," (36) SCRNDMPS"," (38) LP78DMPS"," (39) TESTSCRN"," (46) ENERGY"?№Ж " (50) GRAFTRAN"," (63) DESKTOPL"," (68) DESKTOPH"," (72) GENFONT1"," (75) GENFONT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOART"," (81) MIRORPIX"?╛Ж " (82) P178&GL"," (82) WINDCHIL"," (83) FOOTBALL"," (95) CCBLITZ"," (99) MENUGEN"," (99) COCODRAW","(103) 3DLETTER","(107) READPROG","(118) ANIMATE","(124) PICTBOOK"?╚'Ж ENDNT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOAR                                                                                                                                                                                                                                                                 f&:Г"PRINTUNE"&.:ГWRITTEN BY GREG BOOTS&U
Бж770:Х1300:МDAT(1005):DAT│1:╔"T2"&o:Г**BASIC VARIABLES**&ФA│1:B│30:C│31:D│1:E│255:X│10:S│0&и:Г**MAIN MENU**&╔Ю:З@33,"NOTE=1 ACROSS TO 12"&у(З" OCTAVE=UP OR DOWN"'2З" LENGTH=LEFT OR RIGHT"' <З" PAUSE LENGTH=^ (L)OR(R)"'<FЗ" VOLUME=^ UP OR DOWN"'JPЗ@1,"X="X'lZБж770:З@7,"SOUND#" Б(DATо5)л1(dЕED│0 зЗ@193,"PRESS <S> TO SINGLE STEP":З" <SPACEBAR> PLAYS TUNE":З" <ENTER> KEEPS SOUND#" Б(DATо5)л1:З"   <$> TO SAVE TUNE":З"   <&> TO LOAD A TUNE":З"   <?> TO PRINT TUNE"(MnЕDAT│996зЗ@19,"*LAST SOUND*":ДЕDAT▓996зS│1(XxЗ@58,D(cВЗ@90,A(oМЗ@122,B({ЦЗ@154,E(ЗаЗ@186,C(ае:Г**KEYBOARD INPUT**(┴кA$│ Т:ЕA$│""з170:ДNUM│ Й(A$)(р┤ЕNUM▓│1░NUM┤10зD│NUM:Бе400(ў╛ЕA$│"0"зD│10:Бе400)╚ЕA$│":"зD│11:Бе400)%╥ЕA$│"-"зD│12:Бе400)A▄ЕA$│"^"░A┤5зA│Aл1:Бе130)`цЕA$│ Л(10)░A▓1зA│Aм1:Бе130)ГЁЕA$│ Л(9)░B┤256мX зB│BлX:Бе140)д·ЕA$│ Л(8)░B▓0лX зB│BмX:Бе140)╚
ЕA$│ Л(93)░E┤256мX зE│EлX:Бе150)ъ
ЕA$│ Л(21)░E▓0лX зE│EмX:Бе150*

ЕA$│ Л(95)░C┤32мX зC│CлX:Бе160*/
"ЕA$│ Л(91)░C▓0лX зC│CмX:Бе160*J
,ЕA$│"X"зЕX│1зX│10:Бе80*e
6ЕA$│"X"зЕX│10зX│1:Бе80+
@ЕA$│ Л(32)зАPL│1 еDAT й5:ЕPL│DAT з90:ДЗ@13, Б(PLо5)л1:Бж780:╔"O"л И(DAT(PL))л";L"л И(DAT(PLл1))л";V"л И(DAT(PLл2))л";"л И(DAT(PLл3))л";P"л И(DAT(PLл4)):ЛPL+к
JЕA$│ Л(13)░ED│1 зED│0:DAT(DAT)│A:DAT(DATл1)│B:DAT(DATл2)│C:DAT(DATл3)│D:DAT(DATл4)│E:DAT│PAT:A│DAT(DAT):B│DAT(DATл1):C│DAT(DATл2):D│DAT(DATл3):E│DAT(DATл4):Бе20,
TЕA$│ Л(13)░S│0 зDAT(DAT)│A:DAT(DATл1)│B:DAT(DATл2)│C:DAT(DATл3)│D:DAD(DATл4)│E:DAT│DATл5,ж
^ЕA$│"S"░ED│0 зЗ@225:Зд120):З@191:Й" ENTER STARTING SOUND# ";I$:I│ Й(I$):ЕI│0▒I▓(DATо5)л1 з90:ДI│Iм1:I│(Iн5)л1:З@193,"PRESS *S* TO SINGLE STEP":З@225:Бе410-
hЕA$│ Л(36)░ED│0░PL▓1 зЗд183):З@256:Бж590:З" TO SAVE TUNE ENTER":╗Й" LESS THAN 9 LETTERS: ";ND$:ЕND$│"" з30:Д490-p
rЕA$│ Л(38)░ED│0 зЗд183):З@225:Бж590:╗Й" ENTER NAME OF TUNE: ";ND$:ЕND$│""з30:Д540-Н
|ЕA$│ Л(63)░ED│0░PL▓1з650-Ц
ЖБе80-о
Л:Г**KEYBOARD NOTE**-∙
РБж780:╔"O"л И(A)л";L"л И(B)л";V"л И(C)л";"л И(D)л";P"л И(E):Бж770:Бе90.
Х:Г**SPACEBAR PLAY**.и
ЪАPL│I еDAT й5:ЕPL│DAT з90:ДЗ@13, Б(PLо5)л1:Бж780:╔"O"л И(DAT(PL))л";L"л И(DAT(PLл1))л";V"л И(DAT(PLл2))л";"л И(DAT(PLл3))л";P"л И(DAT(PLл4)):Бж770.╞
Я:Г**SINGLE STEP ROUTINE**/=
дA$│ Т:З@225,"PRESS *E* TO EDIT SOUND":З" PRESS *P* TO REPEAT SOUND":З" PRESS *R* RETURN TO START SOUND":ЕA$│""з420/N
оЕA$│"S"з ЛPL/^
╕ЕA$│"E"з480/n
┬ЕA$│"R"з410/т
╠ЕA$│"P"зБж780:╔"O"л И(DAT(PL))л";L"л И(DAT(PLл1))л";V"л И(DAT(PLл2))л";"л И(DAT(PLл3))л";P"л И(DAT(PLл4)):Бж770/ь
╓Бе4200
█:Г**EDIT ROUTINE**0Г
рЗ@193,"*EDIT* PRESS ENTER TO KEEP":З:З:З:ED│1:PAT│DAT:DAT│PL:A│DAT(PL):B│DAT(PLл1):C│DAT(PLл2):D│DAT(PLл3):E│DAT(PLл4):Бе900Я
х:Г**DISC SAVE ROUTINE**0╖
ъЕ З(ND$)▓8 зЮ:Бе3600╨
яБж780:Щ"D",#1,ND$,251
Ї╨#1,5  з A$,5  з B$,5  з C$,5  з D$,5  з E$1
■АOD│1 еDAT й51n╘A$│ ж(DAT(OD)):╘B$│ ж(DAT(ODл1)):╘C$│ ж(DAT(ODл2)):╘D$│ ж(DAT(ODл3)):╘E$│ ж(DAT(ODл4))1╜┼#1, Б((ODо5)л1):ЛOD:Ъ#1:З" **"ND$"** IS SAVED:":АT│1е1500:ЛT:Бж770:Ю:Бе201┘:Г**DISC LOAD ROUTINE**1°Бж790:Бж780:Щ"D",#1,ND$,252(&╨#1,5  з A$,5  з B$,5  з C$,5  з D$,5  з E$2C0АDAT│1е е(1)м1:─#1,DAT2й:DAT(DATн5м4)│ в(A$):DAT(DATн5м3)│ в(B$):DAT(DATн5м2)│ в(C$):DAT(DATн5м1)│ в(D$):DAT(DATн5)│ в(E$)2╧DЛDAT:DAT│DATн5м4:Ъ#1:Бж770:Ю:Бе202ьI:Г**DISC DIRECTORY SUB**3
NЗ" TUNES ON FILE:":АSEC│3е113-XБж780:▀0,17,SEC,L$,R$:Бж7703CbDI$│L$л О(R$,127)3NlАT│0е73ШvЕ Р(DI$,Tн32л9,3)│"DAT"░ Р(DI$,Tн32л1,1)┤▓ Л(0) зЗ" " Р(DI$,Tн32л1,8)3╣АЛT:ЛSEC:DI$│"":L$│"":R$│"":Р3╙Е:Г**PRINTER ROUTINE**4CКЗд180):З@225:╗Й" NAME OF TUNE: ";N$:ЕN$│""з30:ДБж780:З#м2,N$:Бж770:T│0:S$│"PLAY"л Л(34)л"T2;":АP│1еDATм1 й54ЗФA│DAT(P):B│DAT(Pл1):C│DAT(Pл2):D│DAT(Pл3):E│ Б(DAT(Pл4)о13.4л1)4╛ЮЕA┤▓AA зS$│S$л"O"л П( И(A), З( И(A))м1):AA│A:Бж7404їиЕB┤▓BB зS$│S$л"L"л П( И(B), З( И(B))м1):BB│B:Бж7405,▓ЕC┤▓CC зS$│S$л"V"л П( И(C), З( И(C))м1):CC│C:Бж7405R╝S$│S$л П( И(D), З( И(D))м1):Бж7405v╞S$│S$л"P"л П( И(E), З( И(E))м1)5И╨ЕP│DATм5 зT│15п┌Бж740:ЛP:AA│0:BB│0:CC│0:S$│"":Бе205╨фЕ З(S$)┤242░T│0 зS$│S$л";":Р6юЕ З(S$)▓│242 ▒ T│1 зS$│S$л Л(34):Бж780:З#м2,S$:Бж770:S$│ О(S$,5):T│06°Р6A¤:Г**KEYBOARD RESPONSE POKES**6PТ65495,0:Р6_Т65494,0:Р6Н:ГERROR TRAP FOR LOADING TUNE NOT ON FILE6┌L│ З(ND$):АSEC│3е11:Бж780:▀0,17,SEC,L$,R$:Бж770:DI$│L$л О(R$,127):АT│0е77 ЕND$│ Р(DI$,Tн32л1,L)░ Р(DI$,Tн32л9,3)│"DAT" зР7e*ЛT:ЛSEC:DI$│"":L$│"":R$│"":З" **"ND$"**IS NOT ON FILE:":а60,10:АN│1е500:ЛN:Ю:Бе360ROR TRAP FOR LOADING TUNE NOT ON FILE6┌L│ З(ND$):АSEC│3е11:Бж780:▀0,17,SEC,L$,R$:Бж770:DI$│L$л О(R$,127):АT│0е77 ЕND$│ Р(DI$,Tн32л1,L)░ Р(DI$,Tн3 0Q&!
Х200,23199:P│32768:L│99:B│0&ЦL│Lл1:НA$:ЕA$│"END"зЕB┤▓401940зЮ4:З"OVERALL CHECKSUM IS INCORRECT-- DATA BAD!!":К:ДЮ5:З"OK, NOW RUN PROGRAM 2":К&─Е К(A$)│42зP│ Й("&H"л Р(A$,2)):B│BлP:Бе20'2C│0:АN│0е5:V│ Й("&H"лA$):C│CлV:ТPлN,V:НA$:Л:P│Pл6:CK│ Й("&H"лA$):B│BлCK:ЕC│CK з20'W<Ю4:З"CHECKSUM ERROR IN"L:З"VALUE " Ь(C)" SHOULD BE "A$:С'cdЖ *6EE0'eЖ B7,FF,C5,B7,FF,C3,4F4'ЫfЖ B7,FF,C0,B6,FF,22,44D'╢gЖ 84,7,8A,F8,B7,FF,3C3'╥hЖ 22,8E,FF,D2,10,BE,34F'эiЖ 41,52,C6,7,4F,78,227(	jЖ 41,52,49,A7,86,30,239(%kЖ 1E,5A,26,F4,10,BF,261(AlЖ 41,52,39,BE,41,50,21B(\mЖ 10,8E,18,0,6F,80,1A5(xnЖ 31,3F,26,FA,39,34,1FD(ФoЖ 76,8D,61,7F,41,4F,273(░pЖ F6,41,48,A6,80,A4,349(╠qЖ C0,BA,41,4F,B7,41,302(шrЖ 4F,5A,26,F3,F6,41,2F9)sЖ 4C,3A,F6,41,4D,33,23D) tЖ C5,7A,41,49,26,E2,2D1)<uЖ 7D,41,4F,35,F6,34,26C)XvЖ 76,8D,37,10,BE,41,249)swЖ A5,B6,41,A3,C6,4,309)ПxЖ 3D,31,AB,AF,A1,B6,31F)лyЖ 41,49,A7,A0,B6,41,2C8)╟zЖ 48,A7,A4,7C,41,A3,2F3)у{Ж F6,41,48,A6,84,AA,353) |Ж C0,A7,80,5A,26,F7,35E*}Ж F6,41,4C,3A,F6,41,2F4*7~Ж 4D,33,C5,7A,41,49,249*SЖ 26,E6,35,F6,7F,41,2F7*oАЖ 4D,BE,41,50,FD,41,2DA*ЛБЖ 4A,EC,C1,FD,41,46,37B*зВЖ FD,41,48,B6,41,4A,2C7*├ГЖ 81,7F,23,26,7F,41,209*▀ДЖ 4E,5F,44,56,44,59,1E4*√ЕЖ 59,B6,41,4A,40,4A,224+ЖЖ 44,44,4C,B1,41,46,20C+3ЗЖ 24,72,33,C6,B7,41,287+OИЖ 4D,B6,41,46,B0,41,27B+kЙЖ 4D,B7,41,48,20,1F,1CC+ЗКЖ 5F,44,56,44,59,59,1EF+гЛЖ B7,41,4E,86,20,B0,29C+┐МЖ 41,4E,B1,41,46,24,1EB+┌НЖ C,B7,41,48,B6,41,243+ЎОЖ 46,B0,41,48,B7,41,277,ПЖ 4D,B6,41,46,3D,B6,27D,.РЖ 41,47,3D,33,CB,F6,2B9,JСЖ 41,4E,3A,86,20,B0,21F,fТЖ 41,48,B7,41,4C,B6,283,ВУЖ 41,4B,81,BF,23,13,202,ЮФЖ BB,41,47,2F,21,B7,24A,║ХЖ 41,49,F6,41,46,B6,2BD,╓ЦЖ 41,4B,40,3D,33,CB,207,ЄЧЖ 39,C6,20,3D,30,8B,217-ШЖ 86,C0,B0,41,4B,B1,333-)ЩЖ 41,47,24,3,B7,41,1A7-CЪЖ 49,39,35,10,1A,4,E5-[ЫЖ 35,F6,0,0,0,0,12B-oЬЖ 0,0,0,0,0,0,0-ЖЭЖ 50,0,68,0,0,0,B8-бЮЖ 0,B6,41,50,F6,41,27E-╜ЯЖ 52,B7,41,52,F7,41,2D4-┘аЖ 50,BE,41,A5,10,BE,2C2-їбЖ 41,A7,BF,41,A7,10,29F.вЖ BF,41,A5,B6,41,A3,33F.-гЖ F6,41,A4,B7,41,A4,377.IдЖ F7,41,A3,39,7D,41,2D2.eеЖ A3,27,1F,FE,41,A5,2CD.БжЖ AE,C1,A6,C0,E6,C4,47F.ЭзЖ 34,10,6F,80,5A,26,1B3.╣иЖ FB,35,10,30,88,20,218.╒йЖ 4A,26,EF,33,41,7A,24D.ЁкЖ 41,A3,26,E4,39,0,227/лЖ 0,41,A9,43,A9,41,217/мЖ *7489/2нЖ B6,20,0,27,1F,B7,1D3/MоЖ 41,54,10,8E,20,1,154/hпЖ A6,A4,81,7,22,13,207/Д░Ж 6C,A0,CE,45,F0,48,357/а▒Ж EE,C6,EC,A1,17,FA,452/╝▓Ж 9D,7A,41,54,26,E8,2BA/╫│Ж 39,7A,20,0,B6,41,1CA/Є┤Ж 54,81,1,27,F5,CE,2C00╡Ж 20,1,B6,20,0,C6,1BD0&╢Ж 3,3D,33,CB,C6,3,2070B╖Ж A6,C0,A7,A0,5A,26,32D0^╕Ж F9,31,3D,20,D8,48,2A70y╣Ж 18,46,86,47,C,47,17E0Х║Ж 92,48,18,48,9E,49,2210о╗Ж 24,49,AA,3,B,0,1250║╝Ж *5EE00╘╜Ж 16,3,F,8E,32,27,10F0я╛Ж 7F,32,4E,86,3,B7,23F1	┐Ж 32,4D,BF,1,D,7F,1CB1$└Ж FF,40,10,CE,30,0,24D1>┴Ж 8E,10,0,10,8E,F,14B1Y┬Ж 0,6F,80,31,3F,26,1851t├Ж FA,8E,50,0,CE,4E,2F41Н─Ж 0,10,8E,2,0,A6,1461и┼Ж C0,A7,89,18,0,A7,2AF1─╞Ж 80,31,3F,26,F4,17,2211▀╟Ж F,C2,B6,FF,22,84,32C1·╚Ж 7,B7,FF,22,7F,FF,35D2╔Ж C4,7F,FF,C2,7F,FF,48220╩Ж C0,10,8E,2,0,8E,1EE2J╦Ж 50,0,A6,89,18,0,1972e╠Ж 2A,4,8B,10,8A,80,1D32А═Ж A7,89,18,0,A6,84,2722Ы╬Ж 2A,4,8B,10,8A,80,1D32╖╧Ж A7,80,31,3F,26,E4,2A12╙╨Ж C6,C8,5A,27,D8,AD,3942ю╤Ж 9F,A0,0,27,F7,81,2DE3
╥Ж 30,25,F3,81,39,22,2243&╙Ж EF,80,2F,B7,32,53,2DA3@╘Ж 81,6,25,3,B7,32,1983Z╒Ж 54,17,F,99,17,F,1393u╓Ж 69,17,10,BD,17,F,1733С╫Ж 90,7F,41,A3,7F,20,2923л╪Ж 0,7F,24,0,7F,22,1443╞┘Ж 0,7F,2D,FF,86,38,2693с┌Ж B7,2D,FC,86,6,B7,3233№█Ж 2D,FD,7F,26,0,7F,24E4▄Ж 37,4D,86,4,B7,2D,1F243▌Ж FE,86,38,B7,34,E9,3904N▐Ж 7F,34,EA,7F,4B,0,2674h▀Ж 7F,4B,1,7F,4B,2,1974ГрЖ 7F,4B,3,17,14,D1,1C94ЮсЖ 7D,2D,FF,2B,5,27,2004╕тЖ 3,17,6,28,B6,20,11E4╤уЖ 0,34,2,B6,26,0,1124ъфЖ 34,2,17,4,11,35,975хЖ 2,8E,10,0,B1,26,1775цЖ 0,24,3,8E,B0,0,16559чЖ BF,32,55,17,1A,53,1CA5SшЖ 17,1,54,17,4,D3,15A5nщЖ 17,19,FA,17,3,BB,1FF5ИъЖ 17,2,76,35,2,CE,1945выЖ 10,0,B1,20,0,24,1055╝ьЖ 3,CE,A0,0,CC,FB,3385╫эЖ 40,B7,FF,2,F4,FF,3EB5ЄюЖ 0,10,27,FE,D8,CC,2D96яЖ FE,4,B7,FF,2,F4,3AE6&ЁЖ FF,0,26,B,CC,FB,2F76@ёЖ 4,B7,FF,2,F4,FF,3AF6ZЄЖ 0,26,F5,B6,FF,1,2D16uєЖ 84,F7,B7,FF,1,B6,3E86РЇЖ FF,3,84,F7,B7,FF,4336кїЖ 3,B6,FF,23,8A,8,26D6┼ЎЖ B7,FF,23,10,8E,0,2776сўЖ 28,BE,32,55,A6,80,2936¤°Ж B7,FF,20,C6,17,C5,3787∙Ж 7,26,5,A6,C0,B7,24F73·Ж FF,20,5A,26,F4,31,2C47N√Ж 3F,26,E9,86,1,B7,28C7j№Ж 32,4E,7D,32,4E,26,1A37Е¤Ж FB,17,F,FA,B6,22,2F37а■Ж 0,BA,2D,FF,BA,20,2C07║ Ж 0,BA,24,0,BA,26,1BE7╒
Ж 0,10,26,FF,3E,7D,1F07ё

Ж 2D,FE,10,27,FF,37,2988

Ж 7A,2D,FE,86,38,B7,31A8(
Ж 2D,FC,86,6,B7,2D,2998D
Ж FD,7A,2D,FF,7F,32,3548`
Ж 4F,7F,32,50,7F,32,2018|
Ж 51,7F,32,52,86,46,2208Ш
Ж B7,34,E9,17,19,43,2478▓
Ж 17,3,4,B6,34,E9,1F18═
	Ж 81,38,27,3,7A,34,1918ш

Ж E9,FC,32,4F,C3,0,3299
Ж 80,FD,32,4F,F3,32,3239 
Ж 51,FD,32,51,7D,32,2809<

Ж 4F,2B,21,81,B5,23,1F49X
Ж 1D,86,B5,B7,32,51,2929t
Ж 74,32,4F,76,32,50,1ED9Р
Ж 7D,32,4F,10,27,FE,2339м
Ж DC,FC,32,4F,43,53,2EF9╞
Ж C3,0,1,FD,32,4F,2429т
Ж B6,2D,FC,F6,32,51,3589¤
Ж CE,2B,C0,17,E,55,233:
Ж C0,6,CE,2D,6,17,1DE:1
Ж E,4D,86,1,B7,32,1CB:M
Ж 4E,7D,32,4E,26,FB,26C:h
Ж 17,F,59,20,98,B6,1ED:Г
Ж FF,3,2A,20,B6,FF,301:Э
Ж 2,7D,32,4D,27,5,12A:╣
Ж 7A,32,4D,20,13,7D,1A9:╘
Ж 32,4E,27,E,7F,32,166:я
Ж 4E,86,3,B7,32,4D,20D;
Ж 17,F,E,17,D,B4,10C;
Ж 3B,0,0,0,0,0,3B;4
 Ж 0,0,0,0,0,35,35;O
!Ж 86,B6,24,0,27,67,1EE;k
"Ж B7,41,54,10,8E,24,20E;Ж
#Ж 1,CE,32,E8,EC,A4,379;б
$Ж 17,D,CE,26,23,6A,1A5;╝
%Ж 23,26,A,A6,24,A7,1C4;╪
&Ж 23,A6,A4,AB,25,A7,2E4;Ї
'Ж A4,EC,26,E3,21,ED,3A7<
(Ж 21,EC,26,C3,0,80,276<+
)Ж ED,26,A6,21,81,BF,31A<G
*Ж 22,36,20,1A,CE,20,180<`
+Ж 1,B6,20,0,C6,3,1A0<|
,Ж 3D,33,CB,6F,C0,EC,356<Ц
-Ж A4,80,3,C0,3,ED,2D7<▒
.Ж C4,7C,20,0,20,1A,19A<═
/Ж EC,A4,CE,32,E8,17,38F<ш
0Ж D,87,26,DC,EC,A4,326=
1Ж CE,32,E8,17,D,A7,2B3=
2Ж 31,28,7A,41,54,26,18E=:
3Ж A0,39,7A,24,0,B6,22D=U
4Ж 41,54,81,1,27,F5,233=o
5Ж CE,24,1,B6,24,0,1CD=К
6Ж C6,8,3D,33,CB,C6,2CF=е
7Ж 8,A6,C0,A7,A0,5A,30F=┴
8Ж 26,F9,31,38,20,D8,280=┘
9Ж 2,5,F0,0,60,0,157=Є
:Ж F0,0,F0,0,60,0,240>

;Ж 3C,0,18,0,3C,0,90>!
<Ж 3C,0,18,0,F,0,63>6
=Ж 6,0,F,0,F,0,24>N
>Ж 6,0,3,C0,1,80,14A>g
?Ж 3,C0,3,C0,1,80,207>В
@Ж CC,1B,C,FD,33,7A,29D>Ю
AЖ CC,B1,75,FD,33,7C,39E>╣
BЖ 86,4,B7,41,55,10,1E7>╒
CЖ 8E,33,81,F6,41,55,2CE>Ё
DЖ CE,3B,0,8E,33,76,240?
EЖ 3A,F7,41,54,7F,33,278?(
FЖ 83,A6,C2,E6,A4,3D,3B2?D
GЖ F3,33,82,E7,82,B7,3C8?`
HЖ 33,83,7A,41,54,26,1EB?|
IЖ EE,F6,41,55,CE,33,37B?Ш
JЖ 76,8E,33,7A,33,C5,2A9?┤
KЖ 3A,1C,FE,A6,C2,A9,365?╨
LЖ 82,A7,84,5A,26,F7,324?ь
MЖ 31,3F,7A,41,55,26,1A6@
NЖ C0,FC,33,7A,84,7F,36C@$
OЖ FD,3A,FC,FC,33,7C,3DE@>
PЖ FD,3A,FE,39,0,0,26E@R
QЖ 0,0,0,0,0,0,0@l
RЖ 32,43,F6,AD,0,0,218@Д
SЖ 1,B,8,B6,4B,1,116@а
TЖ B1,34,EA,27,17,B7,2C4@╝
UЖ 34,EA,7C,2D,FE,B6,37B@╓
VЖ 32,53,81,A,27,A,141@ё
WЖ 7C,32,53,81,6,26,1AEA
XЖ 3,B7,32,54,7D,2D,1EAA'
YЖ FF,2A,8,7D,33,84,265AB
ZЖ 27,4,7A,33,84,39,195A^
[Ж B6,33,85,B0,32,53,2A3Az
\Ж B7,33,84,B6,32,53,2A9AХ
]Ж 8B,4,B7,33,86,17,216A▒
^Ж FF,4A,B6,3A,FF,84,3BCA╠
_Ж F,4C,B1,33,86,23,1E8Aч
`Ж 5,B0,33,86,20,F6,284B
aЖ B1,22,0,23,D6,B6,282B
bЖ 22,0,7C,22,0,C6,186B6
cЖ 8,8E,22,1,3D,30,126BQ
dЖ 8B,B6,3A,FC,8B,A,30CBl
eЖ A7,1,B6,3A,FF,84,31BBЗ
fЖ 10,27,12,86,1,A7,177Bв
gЖ 4,86,F8,A7,84,B6,363B╜
hЖ 2D,FC,8B,9,B7,34,2A8B╪
iЖ AC,20,E,86,FF,A7,306Bє
jЖ 4,86,7F,A7,84,B0,2E4C
kЖ 2D,FC,B7,34,AC,B6,376C*
lЖ 3A,FE,84,1,4C,A7,2B0CD
mЖ 3,7D,32,54,27,8,135C]
nЖ 6A,3,26,4,68,4,103Cv
oЖ 6C,3,A6,3,A7,2,1C1CС
pЖ B6,32,53,4A,81,7,20DCл
qЖ 23,2,86,7,CE,34,1B4C╟
rЖ 49,48,EE,C6,B6,3A,335Cт
sЖ FE,84,6,6E,D6,34,300C■
tЖ 59,34,61,34,69,34,1BFD
uЖ 71,34,79,34,69,34,1EFD6
vЖ 71,34,79,34,81,34,207DR
wЖ 81,34,81,34,81,34,21FDn
xЖ 81,34,81,34,84,34,222DК
yЖ 84,34,81,34,81,34,222Dж
zЖ 84,34,8D,34,81,34,22ED┬
{Ж 84,34,8D,34,9D,34,24AD▐
|Ж 84,34,8D,34,9D,34,24AD∙
}Ж 9D,6F,7,39,8D,27,200E
~Ж E7,5,86,1,A7,7,221E-
Ж 39,B6,3A,FD,84,F,2B9EG
АЖ 8B,19,A7,6,A7,7,1FFEa
БЖ 86,1,A7,5,39,8D,1F9E{
ВЖ E,C0,12,E7,5,86,252EФ
ГЖ 8,A7,6,86,5,A7,1E7Eн
ДЖ 7,39,0,A6,1,80,167E╟
ЕЖ 7,CE,2E,0,A6,C6,26FEс
ЖЖ E6,4,5D,2A,1,50,1C2E√
ЗЖ 3D,A6,3,81,2,26,18FF
ИЖ 1,54,50,FB,34,AC,280F2
ЙЖ 39,B6,2D,FE,27,1A,25BFK
КЖ 81,6,23,2,86,6,138Fg
ЛЖ B7,41,54,B6,34,E9,31FFВ
МЖ 5F,CE,2B,C0,17,B,23AFЭ
НЖ 84,8B,E,7A,41,54,22CF╖
ОЖ 26,F3,39,0,0,30,182F├
ПЖ *79E0F┘
РЖ 0,0,0,0,4,BE,C2FЇ
СЖ 41,50,10,8E,4B,0,17AG
ТЖ B6,4B,4,B7,41,54,251G+
УЖ 7F,41,55,A6,A4,44,2A3GG
ФЖ 44,44,44,8D,14,A6,213Ga
ХЖ A0,84,F,8D,E,7A,248G}
ЦЖ 41,54,26,ED,7D,41,266GЩ
ЧЖ 55,26,27,7C,41,55,1B4G┤
ШЖ 4F,4D,26,5,7D,41,185G╨
ЩЖ 55,27,1B,7C,41,55,1A9Gы
ЪЖ CE,4C,E7,C6,7,3D,30BH
ЫЖ 33,C5,C6,7,A6,C0,32BH"
ЬЖ A7,84,30,88,20,5A,25DH>
ЭЖ 26,F6,30,89,FF,21,2F5HY
ЮЖ 39,B6,22,0,10,27,148Ht
ЯЖ 0,A7,B7,41,54,10,203HП
аЖ 8E,22,1,6A,22,26,163Hл
бЖ 57,A6,23,A7,22,A6,28FH╟
вЖ A4,AB,24,A7,A4,81,33FHт
гЖ 80,10,27,0,8D,81,1C5H¤
дЖ F7,10,27,0,87,6D,222I
еЖ 27,27,3D,A6,24,81,1D6I3
жЖ FF,27,8,81,1,27,1D7IM
зЖ 4,6A,25,27,4,6A,128Ii
иЖ 25,26,2B,A6,26,A7,1E9IД
йЖ 25,6A,27,B6,24,0,190IЮ
кЖ C6,8,3D,CE,24,1,1FEI╣
лЖ 33,CB,EC,A4,C3,4,355I╘
мЖ 7,A0,24,ED,C1,6F,2E8IЁ
нЖ C0,EC,22,ED,C1,A6,422J
оЖ 24,A7,C0,6F,C0,6F,329J'
пЖ C4,7C,24,0,EC,A4,2F4JC
░Ж CE,4C,3B,6D,24,2A,210J^
▒Ж 3,CE,4C,91,34,40,222Jz
▓Ж 17,F4,6C,27,22,CE,28EJФ
│Ж 20,1,B6,20,0,48,13FJп
┤Ж BB,20,0,33,C6,6F,243J╦
╡Ж C0,EC,A4,ED,C4,7C,47DJц
╢Ж 20,0,35,40,CE,4B,1AEK
╖Ж 0,8E,4C,26,17,0,117K
╕Ж 39,20,11,35,40,EC,1CBK8
╣Ж A4,17,F4,6B,31,28,273KT
║Ж 7A,41,54,10,26,FF,244Ko
╗Ж 60,39,7A,22,0,B6,1EBKК
╝Ж 41,54,81,1,27,F5,233Kд
╜Ж CE,22,1,B6,22,0,1C9K┐
╛Ж C6,8,3D,33,CB,C6,2CFK┌
┐Ж 8,A6,C0,A7,A0,5A,30FKЎ
└Ж 26,F9,31,38,20,D6,27EL
┴Ж 0,0,0,75,F6,4B,1B6L*
┬Ж 4,5A,1C,FE,A6,85,2A3LF
├Ж A9,C5,19,A7,C5,5A,34DL`
─Ж 2C,F6,39,3,7,A0,205Ll
┼Ж *63E0LЗ
╞Ж 7D,2D,FF,10,2A,0,1E3Lв
╟Ж AC,CC,DF,8,B7,FF,415L╝
╚Ж 2,F4,FF,0,26,14,22FL╫
╔Ж 7D,2D,FD,26,C,B6,28FLё
╩Ж 2D,FC,81,A,27,8,1E3M
╦Ж 7A,2D,FC,20,3,7A,240M'
╠Ж 2D,FD,CC,BF,8,B7,374MA
═Ж FF,2,F4,FF,0,26,31AM\
╬Ж 16,86,C,B1,2D,FD,283Mw
╧Ж 26,C,86,65,B1,2D,1FBMТ
╨Ж FC,27,8,7C,2D,FC,2D0Mн
╤Ж 20,3,7C,2D,FD,C6,28FM╔
╥Ж AF,CE,35,B4,B6,2D,349Mх
╙Ж FD,48,EE,C6,B6,2D,3DCM 
╘Ж FC,17,B,D,C6,B5,2A6N
╒Ж CE,2B,C0,17,A,DB,2B5N5
╓Ж 10,26,1,60,C6,B5,212NP
╫Ж CE,2B,C0,17,A,F9,2D3Nk
╪Ж 7D,36,C3,27,4,7F,220NЖ
┘Ж 36,C3,39,B6,26,0,20ENб
┌Ж 81,A,27,37,CC,BF,274N╗
█Ж 1,B7,FF,2,F4,FF,3ACN╒
▄Ж 0,26,2C,CE,26,1,147NЁ
▌Ж B6,26,0,48,48,33,19FO
▐Ж C6,7C,26,0,B6,2D,24BO'
▀Ж FD,8E,35,CE,A6,86,3BAOC
рЖ BB,2D,FC,C6,AD,ED,444O_
сЖ C1,8E,36,5B,B6,2D,2C3O{
тЖ FD,48,48,48,30,86,28BOЧ
уЖ AF,C4,73,36,C3,39,318O▓
фЖ 2C,72,38,0,2C,BC,1BEO═
хЖ 38,AC,3A,0,39,40,197Oш
цЖ 2D,6,39,8A,3A,4A,17AP
чЖ 38,F6,2D,50,38,4A,22DP
шЖ 2D,9A,1,2,3,4,D1P0
щЖ 4,4,5,6,6,6,1FPG
ъЖ 7,8,9,B6,26,0,F4Pc
ыЖ 27,37,B7,41,54,10,1BAP}
ьЖ 8E,26,1,86,8,B7,1FAPЩ
эЖ 41,55,EC,A4,AE,22,2F6P┤
юЖ AB,80,5A,C1,9,27,276P╨
яЖ 3B,85,80,26,37,CE,26BPы
ЁЖ 36,51,17,A,3A,26,108Q
ёЖ 15,7A,41,55,26,E8,233Q#
ЄЖ ED,A1,CE,36,51,17,2FAQ>
єЖ A,55,31,22,7A,41,16DQY
ЇЖ 54,26,D0,39,80,5,208Qs
їЖ C0,5,34,6,CE,20,1EDQМ
ЎЖ 1,B6,20,0,C6,3,1A0Qи
ўЖ 3D,33,CB,6F,C0,35,29FQ┬
°Ж 6,ED,C4,7C,20,0,253Q▌
∙Ж 7A,26,0,B6,41,54,1EBQ°
·Ж 81,1,27,D6,CE,26,273R
√Ж 1,B6,26,0,C6,4,1A7R-
№Ж 3D,33,CB,EC,C4,ED,3D8RI
¤Ж A4,EC,42,ED,22,20,301Rc
■Ж C1,1,2,C0,C0,30,274R{
 Ж 30,C,C,3,3,FF,14DRЧЖ FF,FF,FF,FF,FF,FF,5FAR▓
Ж FF,FF,0,FF,FF,FF,4FBR╠Ж 0,FF,FF,FF,0,FF,3FCRфЖ 0,FF,0,FF,0,0,1FER№Ж 0,FF,0,0,FF,0,1FESЖ FF,0,0,FF,0,0,1FES*Ж 0,FF,0,0,0,0,FFS@Ж FF,0,0,0,0,0,FFSTЖ 0,0,0,0,0,0,0Sh	Ж 0,0,0,0,1,0,1S|
Ж 0,0,0,0,0,1,1SРЖ 0,0,0,1,0,1,2SдЖ 0,0,1,0,1,0,2S╕
Ж 0,1,0,1,0,1,3S╠Ж 0,1,0,1,1,1,4SрЖ 0,1,1,1,0,1,4SЇЖ 1,1,1,1,1,1,6TЖ 1,0,86,28,B7,41,1A7T*Ж 56,B7,2D,FF,8E,28,2EFTEЖ 0,34,10,17,F9,2C,180TaЖ 35,10,B6,2D,FC,8B,2AFT|Ж 5,5F,ED,81,CC,BF,35DTЧЖ 0,ED,81,FC,3A,FC,3A0T░Ж C5,1,26,4,84,1,175T╦Ж 20,2,8A,FE,ED,81,318TцЖ FC,3A,FE,84,7,34,2F3U
Ж 2,64,E4,A9,E4,64,33BUЖ E4,AB,E0,43,ED,81,420U9Ж 7A,41,56,26,C6,39,236UUЖ 86,28,B7,41,54,7F,279UpЖ 2D,FF,8E,28,0,E6,2C8UЛЖ 2,C1,BF,22,1E,EC,2AEUж Ж 4,E3,84,ED,84,EC,3C8U┐!Ж 6,C3,0,80,ED,6,23CU┘"Ж E3,2,ED,2,A6,84,2FEUЇ#Ж E6,2,CE,36,51,17,254V$Ж 9,2F,7C,2D,FF,30,210V*%Ж 8,7A,41,54,26,D5,212VF&Ж 39,2C,42,37,2C,32,13CVP'Ж END79UpЖ 2D,FF,8E,28,0,E6,2C8UЛЖ 2,C1,BF,22,1E,EC,2AEUж Ж 4,E3,84,ED,84,EC,3C8U┐!Ж 6,C3,0,80,ED,6,23CU┘"Ж E3,2,ED,2,A6,84,2FEUЇ#Ж E6,2,CE,36,51,17,254V$Ж 9,2F                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 w&
:Г"THE BEER SONG"&<:ГBY:BERNICE SHOOBS,CLIFTON,N.J.&_
:ГTHIS WILL PLAY 99 BOTTLES OF&В:ГBEER ALL THE WAY DOWN TO ONE&в:ГIF YOU DON'T WANT TO GET &└(:ГBOOZED TO THE GILLS,---&с2:ГKEY IN A NO. LOWER THAN 99&Є3:ГAT LINE 70&°4Ю'5З@265,"THE BEER SONG"''6З@297, б(13,"-")'=7А T│ 1 е 2000:Л T'E<Ю 2'WFАN│99е 1 й м1'АPЗ @0,N;"BOTTLES OF BEER ON THE WALL"'вZ╔ "L8;G;G;G;D;D;D;G;G;G;L2;G"'└dЗ @96,N;"BOTTLES OF BEER"'▄n╔ "L8;A;A;A;E;E;E;L2;A"(#xЗ @192,"         TAKE ONE DOWN,                 PASS IT AROUND..."(OВ╔"G;L8;F#;F#;F#;F#;F#;F#;F#;F#;F#;L2F#;(|МЗ @352,Nм1;"BOTTLES OF BEER ON THE WALL"(ЮЦ╔"L8;D;D;D;D;E;F#;G;G;G;L2;G"(жаЛ N(мкЮ(┐┤у 13,36:у 12,0(с╛З @263, "A L L   G O N E !!!"(Ў╚З@295, б(19,"="))╥╔ "L2;D L1G")▄Бе 220)3ц:ГPLEASE KEY PALETTE CMP/RGB)TЁ:ГAFTER BREAKING THE PROGRAM)v·:ГTO GO BACK TO NORMAL SCREENLL"(ЮЦ╔"L8;D;D;D;D;E;F#;G;G;G;L2;G"(жаЛ N(мкЮ(┐┤у 13,36:у 12,0(с╛З @263, "A L L   G O N E !!!"(Ў╚З@295, б(19,"="))╥╔ "L                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &
Х10000& М B$(15),P$(15)&фЮ:Z$│"    "л б(23,42):З@128,Z$:З"    * WHAT HAVE THEY DONE *         *   TO MY SONG, MA    *":Зд4)"*";д26)"*":З"    * WORDS AND MUSIC  BY *":Зд4)"*";д26)"*":З"    *    MELANIE SAFKA    *":ЗZ$&Є(З@476,"8"'2B$(1)│"LOOK WHAT THEY DONE "'H<A$(1)│"TO MY SONG":A$(2)│" MA":B$(2)│A$(1)лA$(2)'^FB$(3)│B$(1)лA$(1)'ВPB$(4)│"WELL ITS THE ONLY THING"'йZB$(5)│"THAT I COULD DO HALF RIGHT"'╪dB$(6)│"AND ITS TURNIN OUT ALL WRONG"лA$(2)(nB$(7)│B$(3):B$(8)│ Л(13)лB$(1):B$(9)│B$(2):B$(10)│B$(3)(6xB$(11)│"WELL THEY TIED IT UP"(TВB$(12)│"IN A PLASTIC BAG"(БМB$(13)│"AND TURNED IT UPSIDE DOWN"лA$(2)(ТЦB$(14)│B$(3)(┤аЖ T5,O2,P4,L4,10,9,10,O3,L2,1(╠кЖ O2,L4,9,10,L1,6,3(ў┤Ж O3,P4,L4,3,2,3,L2,6,L4,2,3,O2,L1.,11)╛Ж P8,P8,L8,6,8,6,L4,10,L8,9,L4,10):╚Ж L8,9,10,6,L4,8,8,L8,10)]╥Ж L8,3,L4,3,6,L4,6,8,10,L2,6,3)Й▄Ж P4,L4,10,9,10,O3,L2,1,O2,L4,8,10,L1,6)оцV│1:W│10:Бж330:P$(1)│J$:P$(8)│K$)╘ЁV│11:W│17:Бж330:P$(2)│J$:P$(9)│K$)√·V│18:W│31:Бж330:P$(3)│J$:P$(10)│K$*"
V│32:W│43:Бж330:P$(4)│J$:P$(11)│K$*I
V│44:W│52:Бж330:P$(5)│J$:P$(12)│K$*p
V│53:W│64:Бж330:P$(6)│J$:P$(13)│K$*Ч
"V│65:W│78:Бж330:P$(7)│J$:P$(14)│K$*├
,Ю:З@480,;:АP│1е14:З:ЗB$(P);:╔P$(P):ЛP:З*ц
6З@485,"<ENTER> TO PLAY AGAIN";+
@I$│ Т:ЕI$│""з320:ДЕI$│ Л(13)з300:ДК+
JJ$│"":K$│""+<
TАX│V е W:НX$:J$│J$л";"лX$+q
^R│Xо10:Е Б(Xо10)│R зЗ@475,(8мR):Е8мR│0зЗ@475," "+Ь
hQ│ К(X$):ЕQ│76▒Q│79▒Q│80▒Q│84▒Q│86з390+╝
rY│ Й(X$)л3:ЕY▓12зY│Yм12:Z│1+√
|X$│ И(Y):L│ З(X$):X$│ П(X$,Lм1):ЕZ│1зX$│"O+;"лX$л";O-":Z│0,
ЖK$│K$л";"лX$:ЛX:Р$│"":K$│""+<
TАX│V е W:НX$:J$│J$л";"лX$+q
^R│Xо10:Е Б(Xо10)│R зЗ@475,(8мR):Е8мR│0зЗ@475," "+Ь
hQ│ К(X$):ЕQ│76▒Q│79▒Q│80▒Q│84▒Q│86з390+╝
rY│ Й(X$)л3:ЕY▓12зY│Yм12:Z│1+√
|X$│ И(Y):L│ З(X$):X$│ П(X$,Lм1):ЕZ│1зX$│"O+;"лX$л";O-":Z│0,
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 н&Q
:Г THE 48 CAN BE CHANGED TO ANY OTHER NUMBER AS WELL AS THE 2 FOR THE SETS.&зЙ"DO YOU HAVE EXTENDED COLOR BASIC(yES OR n0)";E$:Е E$│"Y" з Бе       30 :Д Бе 60'-З "LOTTO 48 MUSIC IS 'WITH A LITTLE BIT OF LUCK' FROM 'MY FAIR LADY' IF YOU SING ALONG, THE CHANCES OF WINNING ARE MUCH GREATER!"'╡(З "THE WORDS FOR THE SONG ARE AS FOLLOWS. --> 'with a lit-tle bit-----with a lit-tle bit-----with a lit-tle bit of bloom-ing luck'"(2╔ "L4.;E;L8;D#;E;D;L4;D;P2;L4.;D;L8;C#;D;C;L4;C;P2;L4.;C;L8;D;L4;E;C;E;C;L2;D;D;L2.;C"(/<Ю:Й"sCREEN OR pRINTER";SP$(IFЕ SP$│"S"з Q│0:Бе 100(dPЕ SP$│"P"з Q│м2:Бе 100(nZБе 60(┐dЮ:З#Q,"2 SETS OF LOTTO 48":З#Q,"NUMBERS WITH NO 2 SETS ALIKE":З#Q, б(32,"-")(╧nА Z│1 е 2  (▌xА X│1 е 6(ъВA│ Д(48)(ЎМA1(X)│A)ЦЕ X│1 з 190)аА C│1 е Xм1).кЕ A1(X)│A1(C) з 130)6┤Л C)>╛Л X)M╚А X│1 е 48)[╥А C│1 е 6)z▄Е A1(C)│X з З#Q,A1(C);" ";)ДцЛ C,X)РЁЗ#Q," ")Ш·Л Z)├
З@481,"aNOTHER SET OF NUMBERS - qUIT";)╪
A$│ Т:ЕA$│""з270)ъ
Е A$│"A"з100 )√
"Е A$│"Q"з300*J
,З #Q,"          =========>IF THIS IS A WINNER, DON'T FORGET ME<=========";+
6Ю:З#Q,"  ":З #Q,"THIS PROGRAM WAS PREPARED ON THE RADIO SHACK COLOR COMPUTER TRS-80 2 BY BOB NEVIN, 29-30 BELL BLVD. BAYSIDE NEW YORK 11360. TEL.   (718) 224-0728.       G O O D  L U C K"               +\
@З@294,"THANKS TO BILL BERNICO FOR HIS INVALUABLE  ASSISTANCE."+м
JЗ@416,"=========>IF THIS IS A WINNER,      DON'T FORGET ME<========";      IN, 29-30 BELL BLVD. BAYSIDE NEW YORK 11360. TEL.   (718) 224-0728.       G O O                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  q&&
В"USING THE PARTS OF A MAGAZINE"&^В"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1988"&oN│15:R│ Д(N)&Б(М A$(N),B$(N)&б2А T│1 е N:Н A$(T),B$(T):Л T&└<Ю5:M│Mл1:R│Rл1:Е R│N з R│1&▌FА H│14 е 27:Ь(H,3,7):Л H&√PА H│14 е 27:Ь(H,16,7):Л H'ZА J│3 е 16:Ь(13,J,7):Л J'6dА J│ 3 е 16:Ь(28,J,7):Л J'hnА H│15 е 26:А J│7 е 15:Ь(H,J,V):V│ Д(8):Л J,H'|xЗ@71,"RAINBOW";'НВЗ@118,"#";M;'ЮМЗ@182,"R";C;'мЦЗ@288," "'╝аЗ@288,A$(R)'╠кW│ З(B$(R))'р┤З@384, б(W,"-")'Ї╛З@352,"";:╗Й C$(#╚Е C$│B$(R) з З@372,"CORRECT";:C│Cл1:Бе 230(D╥Е C$┤▓B$(R) з З@372,"SORRY "(e▄З@416,B$(R);" IS THE ANSWER"(ГцЗ@487,"PRESS 'G' OR 'E'";(ОЁEN$│ Т(╗·Е EN$│"G" з 60 :Д Е EN$│"E" з Ю:К::Д 240(╞
Бе 260)

Ж WHO WRITES THE BASIC TRAINING   ARTICLE EACH MONTH?,JOSEPH KOLAR)@
Ж WHO IS THE MANAGING EDITOR?,JUTTA KAPFHAMMER)Е
"Ж WHAT IS THE NAME OF THE BULLETINBOARD THE RAINBOW USES?,DELPHI)│
,Ж HOW OFTEN IS RAINBOW PUBLISHED?,MONTHLY)э
6Ж IN WHICH CITY IS THE RAINBOW    PUBLISHED?,PROSPECT*+
@Ж HOW MUCH IS A SINGLE COPY OF THERAINBOW MAGAZINE?,$3.95*k
JЖ HOW MUCH DOES A YEARLY MAGAZINE SUBSCRIPTION COST?,$31.00*в
TЖ HOW MUCH IS RAINBOW ON DISK FOR ONE YEAR?,$99.00*р
^Ж HOW MUCH IS ONE ISSUE OF THE    RAINBOW ON TAPE?,$10.00+
hЖ ON WHAT PAGE IS THE ADVERTISERS INDEX?,192+S
rЖ WHAT STORE IN ATLANTA-GEORGIA   SELLS THE RAINBOW?,BORDER'S+Ф
|Ж WHAT STORE IN DESOTO-TEXAS SELLSTHE RAINBOW?,MAXWELL BOOKS+╙
ЖЖ WHICH EDITOR IS IN CHARGE OF THEREVIEWS?,JUDI HUTCHINSON,
РЖ WHO WRITES ARTICLES ABOUT THE   DELPHI?,CRAY AUGSBURG,7
ЪЖ WHO OWNS THE RAINBOW?,LONNIE FALK,p
дЖ IN WHICH STATE IS THE TOWN OF   PROSPECT?,KENTUCKYS SELLSTHE RAINBOW?,MAXWELL BOOKS+╙
ЖЖ WHICH EDITOR IS IN CHARGE OF THEREVIEWS?,JUDI HUTCHINSON,
РЖ WHO WRITES ARTICLES ABOUT THE   DELPH                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &ў&*
Ю:З@166,"MUSICAL ARRANGEMENTS"&9З@238,"BY"&PЗ@490," <any key>"&k(З@297,"ERNIE THOMPSON"&|-З@366,"1987"&З2в44539&Н<Ю&ЮFу13,1:у12,63&пPC│ Д(8):Ю(C)&┐ZЗ б(32,42);&╦dАX│1е14&ьnЗ"*";:З б(30, Л(255));:З"*";&ЄxЛ'ВЗ б(31,42);'"МТ1535,106:Т359,57:Т65314,20'HЦЗ@36,"**Favorite Fiddle Tunes**";'qаЗ @ 100, "1) NORTH SHORE BREAKDOWN";'ШкЗ @ 164, "2) HIGH LEVEL HORNPIPE";'╢┤З @ 228, "3) PATRONELLA";'┘╛З @ 292, "4) DILL PICKLE RAG";'■╚З @ 356, "5) BLACK & WHITE RAG";(╥З @ 426, "6) END JOB";($▄в44539(/цAN$│ Т(CЁЕ AN$ │"" з 230(Z·Е AN$ │ "4"  з 270(m
А I│1 е 40:Л I(Ш
И  Й (AN$) Бе 280,420,570,690,890,1220(д
C│ Д(8)(н
"Ю(C)(╝
,З б(32,42)(ф
6З@35, "*THE NORTH SHORE BREAKDOWN*"(є
@З б(32,42))Q
JA$│"O3T2V15L8DDL16DO2ABO3C#L8DDL16DO2ABO3C#DC#DEF#EDC#O2L8BGGO3L16C#DL8EEL16EO2L16AO3C#D")Д
TB$│"O3L8EEL16EO2AO3C#DEF#EDC#O2ABO3C#L8DF#DP8")Щ
^C$│"O3L4.F#L16G")╦
hD$│"O3L16ABAF#L8DO2L16AO3DC#O2BBBL8BO3L16EF#"*6
rE$│"O3L16GAGEL8C#L16O2AO3C#O2BAAAL8AO3L16F#GABAF#L8DO2L16AO3DC#O2BBBL8BO3L16EF#GAGEC#O2ABO3C#L8DF#DP4"*А
|X$│"XA$;XB$;XA$;XB$;XC$;XD$;XE$;XD$;XE$;XD$;XE$;XA$;XB$;XC$;XD$;XE$;"*Й
Ж╔ X$*░
РЗ@227, "OFTEN PLAYED AT CONTESTS";*ъ
ЪЗ@480,"press <enter> to continue":Й L: Е L│ENTER Бе60*є
дЮ(8)+
оЗ б(32,42)+*
╕З @ 35, "*THE HIGH LEVEL HORNPIPE*"+9
┬З б(32,42)+O
╠A$│"O3T2L8.DL16C"+Ш
╓B$│"O2L16B-O3DO2FB-DFB-O3DFB-DFO2B-O3DCO2B-O3CE-CO2B-AFAO3CAGFAGFDC"+▐
рC$│"O2L16B-O3DO2FB-DFB-O3DFB-DFO2B-O3DCO2B-GAB-O3CDEFGAGCO2AL8B-"+ї
ъD$│"O3L8.CO2L16B-",E
ЇE$│"O2L16AO3FCFO2AO3FCFO2AFAO3CFCO2AFO3DFO2B-O3FDFO2B-O3FDO2B-O3DFB-FDO2B-",r
■F$│"O3L16EGCGEGCGECEGB-GECFEFAGFEGL8FFF",дX$│"XA$;XB$;XC$;XB$;XC$;XD$;XE$;XF$;XE$;XF$;",н╔ X$,╢╔ X$,ю&З @227,"A LONG TIME FAVORITE AT FIDDLING CONTESTS";-+0З@480,"press <enter> to continue":Й L: Е L│ENTER з Бе 60-4:Ю(4)-CDЗ б(32,42)-iNЗ@35,"*THE PATRONELLA BREAKDOWN*"-xXЗ б(32,42)-╒bA$│"T2O2L16DO3AL8F#L16AF#L8EL16AF#L8DDDL16F#AO3L8DL16C#DL8EDL16C#DO2BO3C#O2L8AO3L16DO2A".lB$│"O2L8F#L16AF#L8EL16AF#L8DDDL16F#AO3L8DL16C#DL8EC#L4DL8D".zvC$│"O3L16DO2AL8F#L16O3F#L8O2AL16AF#L8DL16GF#EDC#O2BL8AO3L16EC#O2L8AO3L16GEL8F#L16F#DO2AO3DO2AF#".╚АD$│"O2L8DO3L16F#DO2L8AO3L16AF#L8GL16GF#EDC#O2BL8AL16O3EC#O2AO3GEC#L4DL8D"/КX$│ "XA$;XB$;XA$;XB$;XC$;XD$;XC$;XD$;XA$;XB$;XC$;XD$;"/Ф╔ X$/HЮЗ@227,"THE BREAKDOWN--THE FINAL SET OF A SQUARE DANCE";/ДиЗ@480,"press <enter> to continue":Й L:Е L│ENTER з Бе 60/Н▓Ю(4)/Ь╝З б(32,42)/└╞З @ 38, "*THE DILL PICKLE RAG*"/╧╨З б(32,42)/х┌A$│"L4T3O2BO3CC#"03фB$│"O3T4L8DEGDEGDEGDEGGEL4DO2L8GABGABGABGABBAL4GL8DEF#DEF#DEF#DEF#F#EL4D"0\юC$│"O2L8GF#GEEF#GG#AG#AO3DDO2BO3CC#"0В°D$│"O2L8AG#AO3DDO2BL4AL2GL8GGF#E"0▐E$│"O2L4DE-EF#GO3L8EDDEL4DO2L4F#O2L8EDDEL4DO2L4GO3L8EDDEL4DO2L8DAEAFAF#AL4GO3L8EDDEL4D"1F$│"O2L8ABO3C#O2ABL4.C#L2DL8DO2GF#E"1"G$│"O3L8DEF#DEL4F#L2G"1К H$│"O3L8CO2AGO3CO2AGEFGEGAAGL4EL8DC#DGGEL4DL2CL4ABO3L8CO2AGO3CO2AGEFGEGAAGL4EL8AG#AO2DDO2BAL2GL4AB"1ч*I$│"O3L8CO2AGO3CO2AGEFGEGAAGL4EL8DC#DGGEL4DL2CO3L4CO2BAL8ABO3CO2BO3CDED#EAAGEDC#DGGEL4D"1¤4J$│"O3L2.CO2L8AB"2
>K$│"O3L2.C"2SHX$│"XA$;XB$;XC$;XB$;XD$;XE$;XF$;XE$;XG$;XH$;XI$;XJ$;XH$;XI$;XK$;"2\R╔ X$2Э\╔ "XB$;XC$;XB$;XD$;XE$;XF$;XE$;XG$;XH$;XI$;XJ$;XH$;XI$;XK$;"2╠fЗ @ 225, "HOW IS THAT FOR A DILL PICKLE?";3pЗ@480,"press <enter> to continue":Й L:Е L│ENTER з Бе 603zC│ Д(8)3ДЮ (C)3-ОЗ б(32,42)3RШЗ@35,"*THE BLACK AND WHITE RAG*"3aвЗ б(32,42)3yмA$│"T4O3L8DDDDC#C#"3▒╢B$│"T4O2L8CDF#CDF#CDF#CDF#F#CDCO2A#BO3EO2ABO3EO2AB"4
└C$│"T4O3L8EO2A#BO3EEDO2BGO3L8CDBO3CCO2BO3CO2AG#ABO3CO2AF#DGO2F#AGO2BO3CC#D"4G╩D$│"T4O2L8BGEGL4GO3L8DC#CDF#CDF#CDF#CDF#F#CDCO2A#BO3EO2ABO3EO2AB"4М╘E$│"T4O3L8EO2A#BO3EEDO2BGL4EL8G#BO3EGCO2AAG#AO3CEDCO2ABDGBBGL4A"4и▐F$│"T4O2L8GGO3DDDDC#C#"4╣шG$│"T4O2L1G"4ЁЄH$│"T4O2L4GL8F#GGF#L4GO3L4EL8D#EEDL4EDL8C#DDC#L4D"5`№I$│"T4O2L4AAAG#L8F#GBF#GBF#GBF#GBBAGF#D#EADEADEAD#EAAO3CO2AEGGF#GGFL4GO3L4EL8D#EEDL4EDL8C#DDC#L4DO2L4AAAG#"5ФJ$│"T4O2L8GABO3CDEFGAGFEDCO2BAGF#GO3EECL4DCCCC"5╓K$│"O2L8BO3DGO2GBO3DO2DGBO1BO2DGGBO3DO2AF#AF#CF#DCFGG#AAGL4A"6&L$│"T4O3L8CDF#O2AO3CEO2F#AO3DO2FAO3CCDF#DO2L4BL8DGBO3CO2L4GL8BO3CC#DDCO2BA"6▒$M$│"T4O2L8G#BO3EO2BGEO1BO2EG#O1BO2EGL4O1BBO2L8AO3C#EO2EAO3CO2C#EAO1AO2C#EO1L4AAO2L8BO3DGO2GBO3DO2DGBO1BO2DGGBO3DO2BFGAO3DDO2ABDL4GGGG"6╧.X$│"XA$;XB$;XC$;XD$;XE$;"6▌8Y$│"XF$;"6ыBV$│"XG$;"6ЇL╔ X$6¤V╔ Y$7`╔ X$7j╔ V$7%tO$│"XH$;XI$;XJ$;"7.~╔ O$77И╔ O$7MТS$│"XK$;XL$;XM$;"7VЬ╔ S$7_ж╔ S$7А░З@231," A PIANO SHOW PIECE";7╣║З@480,"press <enter> to continue":Й L:Е L│ENTER Бе607┌─Ю:З@135,"THAT'S ALL FOLKS.."7ў╬З@199,"HAVE A GOOD DAY!"8╪Бе 12407j╔ V$7%tO$│"XH$;XI$;XJ$;"7.~╔ O$77И╔ O$7MТS$│"XK$;XL$;XM$;"7VЬ╔ S$7_ж╔ S$7А░З@231," A PIANO SHOW PIECE";7╣║З@480,"press <enter> to continue":Й L:Е L│ENTER Бе607┌─Ю:З@135,"THAT'S ALL FOLKS.."7ў╬З@199,"HAVE A GOOD DAY!"8╪Бе                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  д&╨
Ж 8,16,26,46,54,64,74,84,103,112,123,132,141,151,161,179,189,198,209,217,237,243,58,69,78,89,99,108,117,125,133,140,147,153,159,165,170,176,180,185,189,193,197,200,63,63,59,55,55,51,51,47,43,43,39,39,35&ЁВ ***** CHORD PRODUCER ****'В ***** BY STUART DODS ****';М K(13),N(4),SF(4),KP(22),S(22),SP(13)'АА I│1 е 22:Н KP(I):ЛI:А I│1 е 22:Н S(I):ЛI:А I│1 е 13:Н SP(I):ЛI'н
SK│0:BK$│"N":BK│0:Ю:З@9,"CHORD PRODUCER"' З@129,"1 2  3 4 5  6 7  8 9 10  11 12":З@161,"A A# B C C# D D# E F F#  G  G#"(*
З@193,"  B-     D-   E-     G-     A-"(yЗ@66,"WHAT KEY (ENTER NUMBER) ";:Й K:Е K┤1 ▒ K▓12 з а 89,1:З@92,"   ":Бе15(┴Е K│2 ▒ K│5 ▒ K│7 ▒ K│10 ▒ K│12 з З@258,"(s)HARP OR (f)LAT ";:Й BK$)3З@320,"(1) MAJOR":З@352,"(2) MINOR":З@384,"(3) SEVEN":З@416,"(4) AUG.":З@448,"(5) DIM.7":З@480,"(6) MINOR 7";)pЗ@332,"WHICH CHORD TYPE";:Й C:Е C┤1 ▒ C▓6 з а 89,1:Бе 25)ВZ╚ 3,1:╝:┐ 1,1)╚dА Y│15 е 49 й 8:╗(4,Y)м(60,Y),╜:Л Y:А X│1 е 3:╗(X,14)м(X,48),╜:ЛX)ъnЕ K│1 ▒ (K│2 ░ BK$│"S") з 120*+sЕ K│3 ▒ K│4 ▒ (K│2 ░ BK$│"F") ▒ (K│5 ░ BK$│"S") з 125 :Д 150*Bx╗(40,63)м(60,63),╜*Y}╗(40,55)м(60,55),╜*жЦ╗(10,50)м(14,55),╜:╗(14,55)м(14,4),╜:┬(7,16),17,0,1.2,.89,.15:┬(15,39),9*╓
,А X│0 е 249 й 19:╗(X,90)м(Xл15,130),╜,B:Л X+
@╗(0,90)м(5,112),╜,BF:╗(10,90)м(24,112),╜,BF:╗(237,90)м(250,112),╜,BF+m
JА X│48 е 71 й 19:╗(X,90)м(Xл14,112),╜,BF:╗(Xл133,90)м(Xл147,112),╜,BF:Л X+а
TА X│107 е 150 й 19:╗(X,90)м(Xл14,112),╜,BF:Л X+┴
ЖSK│K:Е BK$│"F" з SK│Kл1:BK│1+▐
КЕ SK│13 з Бж 2000:Бе 397,&
ЛИ SK Бж 2000,2000,2100,2200,2200,2300,2300,2400,2410,2410,2190,2190,D
НЕ BK$│"F" з Бж 3000:Бе400,\
ОЕ BK$│"S" з Бж 3100,Е
РИ C Бж 1100,1200,1300,1400,1500,1200,ё
ЪK(1)│K:А I│1 е N:KY│120:X1│KP(K(I))м4:Y1│142:CC│3:Е K(I)│2 ▒ K(I)│5 ▒ K(I)│7 з KY│103:CC│1:Y1│85:Бе 416--
ЬЕ K(I)│10 ▒ K(I)│12 ▒ K(I)│14 з KY│103:Y1│85:CC│1:Бе416-c
ЮЕ K(I)│17 ▒ K(I)│19 ▒ K(I)│22 з KY│103:Y1│85:CC│1-Б
аЕ BK$│"F" з SF(I)│SF(I)м1-Я
вЕ BK$│"S" з SF(I)│SF(I)л1-ф
д┬(KP(K(I)),KY),6,CC:И N(I) Бж 4000,4100,4200,4400,4290,4300,4190.
жИ SF(I) Бж 4490,4500,1105,4600,4700.
йаS(K(I)),6.=
оЕ I│1 з SY│SP(K(I)лBK):Бе 440.I
│SY│SYм8.Ш
╕┬(51,SY),6,2,.6:X1│66:Y1│SYл4:И N(I) Бж 4000,4100,4200,4400,4290,4300,4190.└
║И SF(I) Бж 4490,4500,1105,4600,4700.╚
┬Л I.у
ЇA$│ Т:Е A$│ Л(32) з 10.¤
■Е A$│"E" з 600 :Д 500/XЮ:К/ KВ  ***  MAJOR CHORD **/:LN│3:K(2)│Kл4:K(3)│Kл7/╤M╗(154,35)м(154,21),╜:╗(155,21)м(159,24),╜:╗(159,26)м(164,21),╜:╗(164,21)м(164,35),╜:╗(166,35)м(170,26),╜:╗(170,26)м(174,35),╜:╗(168,27)м(172,29),╜0БN╗(176,33)м(176,35),╜:╗(176,35)м(180,35),╜:╗(180,35)м(180,26),╜:╗(176,26)м(184,26),╜:╗(187,26)м(193,35),╜,B:╗(196,35)м(196,26),╜:╗(196,26)м(203,29),╜,B:╗(200,29)м(204,35),╜0ЗQР0впВ  ***  MINOR CHORD **0╩░N│3:K(2)│Kл3:K(3)│Kл7:SF(2)│SF(2)м11v▒╗(154,35)м(154,21),╜:╗(154,21)м(159,24),╜:╗(159,24)м(164,21),╜:╗(164,21)м(164,35),╜:╗(170,26)м(170,35),╜:╗(176,35)м(176,26),╜:╗(176,26)м(184,35),╜:╗(184,35)м(184,26),╜1╥▓╗(188,26)м(194,35),╜,B:╗(198,35)м(198,26),╜:╗(198,26)м(205,29),╜,B:╗(202,29)м(206,35),╜1∙┤Е C│6 з N│4:M│60:K(4)│Kл10:Бж 16001 ╡Р2В  ***  SEVEN CHORD **2LN│4:M│0:K(2)│Kл4:K(3)│Kл7:K(4)│Kл10:Бж 1600:Р2fwВ  ***  AUG. CHORD **2ОxN│3:K(2)│Kл4:K(3)│Kл8:SF(3)│SF(3)л13>y╗(154,35)м(162,20),╜:╗(162,20)м(169,35),╜:╗(158,28)м(164,28),╜:╗(175,24)м(183,35),╜,B:╗(177,24)м(181,24),╛:╗(186,24)м(194,35),╜,B:╗(194,24)м(194,29),╛:╗(190,29)м(194,29),╜3[z╗(197,33)м(199,35),╜,B:Р3u█В  ***  DIM. CHORD **3┬▄N│4:K(2)│Kл3:K(3)│Kл6:K(4)│Kл9:SF(2)│SF(2)м1:SF(3)│SF(3)м1:SF(4)│SF(4)м14mс╗(154,35)м(154,21),╜:┬(154,28),15,0,.7,.77,.24:╗(172,26)м(172,35),╜:╗(177,35)м(177,26),╜:╗(177,26)м(182,30),╜:╗(182,30)м(187,26),╜:╗(187,26)м(187,35),╜:M│40:Бж 1600:Р4╛@╗(154лM,23)м(154лM,21),╜:╗(154лM,21)м(164лM,21),╜:╗(164лM,21)м(161лM,35),╜:Р4╙╧В  ***  BIG A **5T╨╗(105,35)м(120,21),╜:╗(120,21)м(135,35),╜:╗(112,28)м(128,28),╜:N(1)│1:N(2)│3:N(3)│5:N(4)│7:SF(1)│3:SF(2)│4:SF(3)│3:SF(4)│3:Р5i3В  ***  BIG B **5┘4╗(105,21)м(130,28),╜,B:╗(105,28)м(135,35),╜,B:N(1)│2:N(2)│4:N(3)│6:N(4)│1:SF(1)│3:SF(2)│4:SF(3)│4:SF(4)│3:Р5юНВ  ***  BIG G **6@О╗(125,33)м(125,30),╜:╗(125,31)м(136,31),╜:N(1)│7:N(2)│2:N(3)│4:N(4)│6:SF(4)│36UЧВ  ***  BIG C **6зШ┬(125,28),15,0,.7,.09,.89:Е SK│4 ▒ SK│5 з N(1)│3:N(2)│5:N(3)│7:N(4)│2:SF(4)│26┼ЭSF(1)│3:SF(2)│3:SF(3)│3:Р6┌√В  ***  BIG D **7L№╗(107,35)м(107,21),╜:┬(106,28),23,0,.38,.77,.24:N(1)│4:N(2)│6:N(3)│1:N(4)│3:SF(1)│3:SF(2)│4:SF(3)│3:SF(4)│3:Р7a	_В  ***  BIG E **7╢	`╗(133,35)м(107,35),╜:N(1)│5:N(2)│7:N(3)│2:N(4)│4:SF(1)│3:SF(2)│4:SF(3)│3:SF(4)│37╦	iВ  ***  BIG F **8[	j╗(107,35)м(107,21),╜:╗(107,21)м(133,21),╜:╗(107,27)м(128,27),╜:Е SK│9 ▒ SK│10 з N(1)│6:N(2)│1:N(3)│3:N(4)│5:SF(1)│3:SF(2)│3:SF(3)│3:SF(4)│28a	tР8y╖В  ***  BIG FLAT **8л╕╗(140,32)м(140,18),╜:╗(140,26)м(146,32),╜,B:Р8─В  ***  BIG SHARP **9╗(140,27)м(152,27),╜:╗(140,22)м(152,22),╜:╗(143,18)м(143,32),╜:╗(149,18)м(149,32),╜:Р90ЯВ ***  A  ***9Ба╗(X1,Y1)м(X1л4,Y1м6),╜:╗(X1л4,Y1м6)м(X1л9,Y1),╜:╗(X1л3,Y1м3)м(X1л6,Y1м3),╜:Р9ФВ ***   B  ***9╬╗(X1,Y1м6)м(X1л6,Y1м3),╜,B:╗(X1,Y1м3)м(X1л8,Y1),╜,B:Р9э^╗(X1л4,Y1м2)м(X1л7,Y1м2),╜:gВ ***   C  ***::h╗(X1,Y1м6)м(X1л7,Y1),╜,B:╗(X1л7,Y1м5)м(X1л7,Y1м2),╛:Р:M┴В ***   E  ***:f┬╗(X1,Y1)м(X1л7,Y1),╜:│╠╗(X1,Y1)м(X1,Y1м6),╜:╗(X1,Y1м6)м(X1л7,Y1м6),╜:╗(X1,Y1м3)м(X1л5,Y1м3),╜:Р:╞/В ***   D  ***:√0╗(X1,Y1)м(X1,Y1м6),╜:┬(X1,Y1м3),9,0,.5,.77,.24:Р;9К╗(X1л16,Y1м4)м(X1л16,Y1м6),╜:╗(X1л16,Y1м3)м(X1л20,Y1),╜,B;wФ╗(X1л11,Y1м4)м(X1л11,Y1м6),╜:╗(X1л11,Y1м3)м(X1л14,Y1),╜,B;}ЮР;УўВ ***  SHARP  ***<	°╗(X1л11,Y1м2)м(X1л17,Y1м2),╜:╗(X1л11,Y1м4)м(X1л17,Y1м4),╜:╗(X1л13,Y1)м(X1л13,Y1м6),╜:╗(X1л15,Y1)м(X1л15,Y1м6),╜:Р<%[В  ***  DOUBLE SHARP **<г\╗(X1л11,Y1м2)м(X1л13,Y1),╜,B:╗(X1л17,Y1м2)м(X1л19,Y1),╜,B:╗(X1л11,Y1м6)м(X1л13,Y1м4),╜,B:╗(X1л17,Y1м6)м(X1л19,Y1м4),╜,B:Р(X1л17,Y1м2),╜:╗(X1л11,Y1м4)м(X1л17,Y1м4),╜:╗(X1л13,Y1)м(X1л13,Y1м6),╜:╗(X1л15,Y1)м(X1л15