AОSC│0AШЕ SC│1 з 6140A#вSC│1A/мАI│1е10AR╢Е SC(I)┤SC(Iл1) з 6080 :Д 6110A{└SC│0:S│SC(I):SC(I)│SC(Iл1):SC(Iл1)│SAб╩N$│N$(I):N$(I)│N$(Iл1):N$(Iл1)│N$A╟╘LV│LV(I):LV(I)│LV(Iл1):LV(Iл1)│LVA═▐ЛA┘шБе 6040Aє№Ю:З@10,"*HIGH SCORE*"BЗ"--------------------------------"B8АI│1е10:Е SC(I)│0 з 6180B^ЗN$(I)"   "SC(I)"    LEVEL:"LV(I)Bd$ЛBИ.З:Й"WANT TO PLAY AGAIN(Y/N)";A$BЫ8Е A$│"Y" з 150BбBКBйX:Г1B╢bN│ З(N$)B▐lЕ N▓10 з 7030 :Д Е N┤10 з 7040 :Д РBяvN$│ О(N$,10)Bї{РCААI│ 1 е 10мNCКN$│N$л" "CФЛ:РВ·Т·Т╥ТТВ·ТЄТ╥Т╥АТТТЎТЄТТТ╥Т╛Т■ТТТ╥Т■Т■ТТТТТ■Т■ТТТ╥Т■Т■ТТТТТ■Т■ТТТТТ╛Т╛ТТТТТ╛ТТТ╖ \       ў       ў     ў       ╖ ў     ў ў       ў     ў     ў             ў       є ў                     ў ў                 ъАгАААААтАюАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ╘Е AR│1 з 23008.▐AR│1:Е V┤│30 з 2280 :Д 22908VшT│218:M│( Д(LV)н5)л15:N│150:Бе 23008vЄT│218:M│( Д(LV)н5)л85:N│1708Т№╜(T,M,1):T│Tм3:╜(T,M,3)8├	Е (H┤│T ░ Hл15▓│T) ░ (V┤│M ░ Vл10▓│M) з 30008▐	Е T┤│N з AR│0:╜(T,M,1)8·	Е LV ▓│3 з 2340 :Д 21009+	$╜(R1,S1,2):R1│R1л1:Е R1▓135 з R1│130:S1│S1м19F	.Е LV▓│4 з 2360 :Д 21009w	8╜(R2,S2,2):S2│S2л1:Е S2▓115 з S2│110:R2│R2л19У	BЕ LV ▓│5 з 2380 :Д 21009─	L╜(R3,S3,2):R3│R3л1:Е R3▓140 з S3│S3л1:R3│1359╨	VБе 21009▄╕:ГDEATH9х╣II│09°╜Е PH ▓1 з 3040:┬:ГLV1: ╠╞"C5;BM"лH$л","лV$лPL$(E):W╓АI│150 е 50 йм5:┬(H,I),5,3:┬(H,I),5,5:Л:V│45:H│Hм5:iр:ГLV1,LV2,LV3:БъАJ│1е10:АI│8 е5 йм1:дьI$│ И(I):H$│ И(Hл5):V$│ И(Vл5):─ю╞"C"лI$л";BM"лH$л","лV$лBL$:═ЁЛI,J:шЇLI│LIм1:Е LI┤│0 з 3080;■И PH Бе 350,1000,2000;Ю:З"YOUR TEST IS OVER";4З"     **RATING**";VЗ"LAST LEVEL COMPLETED:";LVм1;q&З" # OF LIVES SAVED:";;М0Е PH▓2 з ЗLV :Д З LVм1;╒:З"RANK:";:Е LV │1 з  ЗR$(1) :Д Е LV │6 ░ II│1 з ЗR$(6) :Д З R$(LVм1);цDЗ"SCORE:";SC<.NЕ LV┤6 ▒ II│0  з 3155 :Д З"TIME TO COMPLETE COURSE:";TTо100:Бе 3160<CSЗ"PRESS ANY KEY"<dTA$│ Т:Е A$│"" з 3156 :Д 6000<yXЗ"PRESS ANY KEY"<СbA$│ Т:Е A$│""з 3170<бl╚3,1:╝:┐1,0<╤v┬(150,50),22,2:├(150,50),2,2:┬(150,50),30,2<уА├(150,25),3,2=NК╞"C2;BM160,80;ND70G10H10ND70L10D80E10D20E10F10U20F10U80NL10R10U20E10H10U20L20H10G10L20D20G10F10D20R10"=ЩФ╞"C3;BM140,40;R20BG20R20BH20BG5D10R7U10BR5NR7D5R7D5NL7BR5U5NR10E5F5D5"=╗Ю├(135,100),4,2:├(165,100),3,2=эи┴2,1:╗(40,60)м(100,60),╜:╗(200,60)м(254,60),╜>▓╞"BM110,20;NH20BR80NE20BD80NF30BL80G30">2╝A$│ Т:Е A$│"" з 3260>>╞Бе 6000>Hа:ГWIN>Rк:ГLV1>l┤─(5,130)м(20,139),C,G>z╛H│5:V│130>У╚┼(H,V)м(Hл15,Vл10),D>┤╥V│Vм5:┼(H,V)м(Hл15,Vл10),C,╜>╧▄Е V┤│10 з 4150 :Д 4040>┘ц:ГLV3>ыыЕ LV│6 з 4150>ЇЁ╝(1)?D·╞"C2;BM20,85;D10R10BR5NR10U5NR5U5R10BR5D5F5E5U5BR5NR10D5NR5D5R10BR5NR10U10"?tАI│1е LVл1:╗(95л(Iн5),85)м(95л(Iн5),95),╜:Л?ДАI│1е1000:Л?У6:ГWIN1,2,3?г;II│1:Бж5000?╢<SC│SCл(LVн100)?╘=Е TI┤200 з SC│SCл(200мTI)?с>TT│TTлTI@@PH│PHл1:Е PH▓3 з PH│1:LV│LVл1@JЕ LV▓6 з 3080@/TИ PH Бе 350,1000,2000@;И:ГTHEME@SТZ$│"O2BG":X$│"AO3C"@ВЬ╔"T6O3L4DDXZ$;ACBGO3DDXZ$;XX$;O2L2AO3L4DD"@зж╔"XZ$;XX$;O2BGAO3CXZ$;AO3DO2L2G"@н░Р@╛p:ГHIGH SCORE@▌zЕ SC▓SC(10) з 6020 :Д 6140@ ДSC(11)│SC:N$(11)│N$:LV(11)│LV#$╗(90,(Iн5)л110)м(100,(Iн5)л110),╜/))Л/D.╞"C3;BM210,150"лPL$(2)/]8╞"C4;BM90,70"лPL$(2)/БBЕ LV ▓2 з ╞"C4;BM180,70"лPL$(2)/йLЕ LV┤3 з Q│1 :Д Е LV┤4 з Q│2 :Д Q│3/─V─(Y,R)м(Yл15,Rл10),D,G/╧~:ГMOVE/яИ┴1,1:╗(H,V)м(Hл12,Vл9),╛,BF0ТJ(1)│ Н(0):J(2)│ Н(1):FR│ Ж(65280)0WЬАI│1е2:Е J(I)┤│15 з X(I)│м5 :Д Е J(I)▓│55 з X(I)│5 :Д X(I)│00]жЛ0s░H│HлX(1):V│VлX(2)0б║Е H▓│240 з H│240 :Д Е H┤│30 ░ AB│0 з H│300┤─Е V┤│20 з V│200╧╬┼(H,V)м(Hл15,Vл10),C,╜1╪Е  а(Hм1,Vм1)│6 ▒  а(Hл14,V)│6 ▒  а(Hл14,Vл10)│6 ▒  а(Hм1,Vл10)│6 з 300016тЕ H┤│30 ░ AB│1 з 41501UьЕ FR│254 ▒ FR│126 з Бж13001iЎTI│TIл1:Бе 14001t:ГFIRE1ЙЕ H┤200 з а1,1:Р1Я(Е V┤110 з а 1,1:Р1т2AB│1:┴4,1:╗(Hл6,Vл5)м(210,135),╜:а250,1:╗(Hл6,Vл5)м(210,135),╛1¤<╞"C5;BM210,150"лPL$(2)2FР2x:ГENEMY2)ВЕ AR│1 з 1460 :Д AR│12EМЕ Q│1 з 1440 :Д Z│ Д(2)2cЦN│170:Е Z│1 з X│0 :Д X│м52ВаZ│ Д(2):Е Z│1 з M│0 :Д M│52Шка 10,1:Z│100:T│802╣┤Е Q│1 з 1470 :Д ╛(N,T):N│NлX2ь╛╜(Z,T,1):Z│ZлM:T│Tм5:╜(Z,T,2):Е Q▓1 з ╜(N,T,2)3"╚Е T┤│25 з ╜(Z,T,1):╜(N,T,1):╜(U,AA,1):AR│0:Бе15103E╥Е T┤│Vл8 ░ T▓│V з 1500 :Д 15103z▄Е (Z┤│Hл15 ░ Z▓│H)▒(Q▓1 ░ N▓│Hл15 ░ N┤│H) з 30003ТцЕ Q┤3 ▒ AB│1 з 15403чЁ╗(Yм5,Rм5)м(Yл11,Rл10),╛,BF:Y│Yл Б(LVо2):H$│ И(Y):V$│ И(R):╞"C4;BM"лH$л","лV$лT$4-·Е Yл15▓│210 з ╗(Y,R)м(Yл16,Rл10),╛:─(Y,R)м(Yл16,Rл10),D,G:Бе 30004C ╔"V30T8O1L16;C;D"4UЕ AR│1 з 15604wAA│ Д(LV):AA│110л(AAн5):U│1034Х╜(U,AA,1):U│Uл5:╜(U,AA,4)4╗"Е AA▓│V ░ AA┤│Vл10 з 1580 :Д 11504р,Е U ▓│H ░ U┤│Hл15 з 3000 :Д 11504ъ╨:ГLV35K┌R2│20:S2│110:TI│0:╝(1):R1│130:S1│170:HA│220:X│10:Y│160:H│45:V│10:PH│3:AA│135:ZA│180:AR│0:E│05]▀R3│135:S3│1305vф─(20,20)м(35,35),D,G5╓ю╞"C2;BM0,40;R100BG10G20R20E10H10BE10F20R30F20D10L140G10D10G10D20G10D10R30F10R170E20U130H25"5Ў°├(10,100),2,2:├(10,180),2,26J┴ 4,1:АI│1еLV:╗(220,15л(Iн5))м(230,15л(Iн5)),╜:╗(220,85л(Iн5))м(230,85л(Iн5)),╜6PЛ6k┼(H,V)м(Hл16,Vл10),C,╜6Ы ╞"C2;BM50,110;D20R100E20L120":├(60,125),2,26ж4:ГMOVE6┐>┼(H,V)м(Hл16,Vл10),D6┘HJ(1)│ Н(0):J(2)│ Н(1)6фRАI│1е27\Е J(I)┤│15 з X(I)│м5 :Д Е J(I)▓│55 з X(I)│5 :Д X(I)│07$aЛ7:fH│HлX(1):V│VлX(2)7ZpЕ V▓│140 ░ Hл16 ┤│35 з 40707еzЕ  а(Hм1,V)│6 ▒  а(Hм1,Vл10)│6 ▒  а(Hл14,V)│6 ▒  а(Hл14,Vл10)│6 з 30007╢ДЕ V┤│0 з V│57╔ОЕ H┤│10 з H│107фШ┼(H,V)м(Hл15,Vл10),C,╜7ЁвTI│TIл17№╩:ГENEMY8 &
d:ГBEGIN&:nМ C(15,15),D(15,15),N$(11),SC(11),LV(11)&FЦ:ГINTRO&LаЮ&НкЗ@68,"ARTIFACTS RARELY FOUND";:З@133,"PROUDLY PRESENTS ...";&╛┤З@203 ,"COMMANDO";:З@270,"BY";:З@396,"1985";&ї╛З@327,"ANTHONY FRERKING";:З@455,"<PRESS ANY KEY>";'
╚A$│ Т:Е A$│"" з 200'#╥Ю:Й"YOUR NAME";N$'.╒Бж7000'J╫Е N$│"ARF       " з 230'V▄Бж 5000'gц╚ 3,1:╝:┐1,1'ГыЕ N$│"ARF       " з 265'иЁАI│1е170:R│ Д(8):┬(127,96),I,R:Л(]·АJ│1е5:АI│1 е 8:I$│ И(I):╞"C"лI$л";BM10,60;NR30D40R30BR10NR20U20R20D20BR10U20F10E10D20BR10U20F10E10D20BR10U10E10F10NL20D10BR10U20F20U20BR10NR10D20R10E10H10BR20D20R20U20L20":Л:Л(h
Бж5000(ы
	R$(1)│"GARBAGE SCRUBBER":R$(2)│"COOK":R$(3)│"FOOT SOLDIER":R$(4)│"MINER":R$(5)│"COMMANDO 2ND CLASS":R$(6)│"COMMANDO 1ST CLASS")
TT│0:LV│1:PH│1:SC│0:LI│3)?
PL$(1)│";L2D2R2D8L2":PL$(2)│";L2D2R2NG4NF4D4NG4F4")║
"C$│";G5ND5R5ND5R5ND5H5U5L5D2R5":PL$(3)│";G6ND2BU4NU2F4NE4R4NH4E4NU2BD4ND2H4NL4H2":B$(1)│";R4G8NR8D2NR8F4NU4E4U2H8L4D8")Ё
,B$(2)│";BR4G2H2G2NH2D6E2F2NU6R2G2D2NL4G2H2U2H2R2"*)
6T$│";G2D1F2L3G2NR15D1F2R11E2U1H2L3NL5E2U1NR3H2L5NU2"*P
@BL$│";NU15ND15NR10NL10NE5NH5NG5F5"*Z
^:ГLV1*д
hPH│1:AR│0:H│230:V│148:V$│ И(V):E│1:H$│ И(H):R│7:Q│LVн10л20:R│RмL:TI│0*с
r╝(1):╞"C2;BM0,140;R40G5L15D15R220U10H10R25":├(0,160),2,2*√
|╞"C3;BM10,130"лPL$(3)+
Ж╞"C4;BM240,130"лC$+
Р:ГMOVE+;
Ъ╞"C1;BM"лH$л","лV$лPL$(E)+J
дJ(1)│ Н(0)+~
оЕ J(1)┤│15 з H│Hм5 :Д Е J(1)▓│55 з H│Hл5 :Д 460+е
╕Е H▓│230 з H│230 :Д Е H┤│30 з 4010+╝
┬Е E│1 з E│2 :Д E│1+у
╠H$│ И(H):╞"C3;BM"лH$л","лV$лPL$(E)+я
╓TI│TIл1+√
Ї:ГENEMY,
■Е AR│1 з590,$Y│ Д(2):Е Y┤▓1 з 400,?Y│ Д(2):И Y Бе 540,550,dF│32:X│( Д(14)н10)л65:Y│1:Бе 560,В&F│20:X│( Д(16)л10)л50:Y│2,╡0HB$│ И(X):VB$│ И(Q):╞"C4;BM"лHB$л","лVB$лB$(Y),┬:Z│Q:AR│1,▐D─(Xм5,Z)м(Xл5,Zл15),C,G,°N┼(Xм5,Z)м(Xл5,Zл15),D-XZ│Zл10:а 160мZ,1:Е Z┤150 з 660-@bZ│8:╔"V30O3T4L1C":И Y Бе 620,640-dl┴ Z,8:╗(Xм7,160)м(Xл7,135),╜,BF-нvАI│1е20й3:┬(XмI,125),10,Z:┬(XлI,125),10,Z:Л:Z│Zм3:Е Z┤4 з 650 :Д 620-▐ААI│1е20й3:АJ│4е1 йм1:┬(X,160),I,J,1,.5,1:Л:Л.
КЕ H▓│XмF ░ H┤│XлF з 3000 :Д AR│0:Бе 400.-Ф┼(Xм5,Z)м(Xл5,Zл15),C,╜:Бе 400.7ш:ГLV2.lЄPH│2:N│10:H│225:U│103:V│30:AR│0:TI│0:AA│115:AB│0.{ўY│50:R│150.Д№╝(1).█╞"C2;BM0,80;R100F20D10L10H10G10D30L40G10D10R200U60L70G10L10U10E20R90":├(0,100),2,2.ё╞"C4;BM60,150"лT$.¤АI│1еLV/                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &&
:ГRANDOM SOUND GENERATOR&_:ГUSED TO PRODUCE SOUNDS IN       SOUND STORY 2 (THE SEQUEL)&f:Г&▌(Ж 16,190,63,0,190,63,3,166,128,72,72,183,255,32,141,12,31,16,179,63,5,38,240,49,63,38,233,57,182,63,2,74,38,253,57&є2А I│16135 е 16169&√<Н A'FТ I,A'
PЛ I'Z╣ Г0│16135':dТ 65281,( Ж(65281) ░ 247)'XnТ 65283,( Ж(65283) ░ 247)'txТ 65315,( Ж(65315) ▒ 8)'zВЮ'дМN│2:D│ Д(255):S│ Д(3000):E│ Д(3000)лS'╥ЦТ 16128, Б(Nо256):Т 16129,Nм Б(Nо256)н256'раТ 16130,D(кТ 16131, Б(Sо256):Т 16132,Sм Б(Sо256)н256(<┤Т 16133, Б(Eо256):Т 16134,Eм Б(Eо256)н256(I╛A│ Г0(0)(j╚З@6,"random sound generator"(r╥З:З(Р▄З"NUMBER OF TIMES (N)=";N(оцЗ"DURATION VALUE  (D)=";D(╠ЁЗ"START ADDRESS   (S)=";S(ъ·З"ENDING ADDRESS  (E)=";E)
З@484,"HIT ANY KEY TO DO ANOTHER";:в44539)#
Бе 130 IT)J
З@448,"SELECT (1-9) OR eND)a
"A$│ Т:Е A$│""з 290)s
,Е A$│"E"з Ю:К)л
6M│ Й(A$):И M Бе 330,340,350,360,370,380,390,400,410)╢
@Бе 290*
JЮ:З@132,"A 78 RPM PHONOGRAPH NEEDLE      AT THE END OF THE RECORD.":                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                485/6
mЗ" HOW MUCH MORE MONEY DOES ";A$(P):З" NEED? ";/E
rЕ DL│0з380/k
wЗ"(";:З═N$;B;:З"-";:З═N$;A;:З")";/y
|З"=> $ ";/Г
ББж405/╡
ЖЕ  Б(Cн100000л.5)│ В( Б((BмA)н100000л.5))з475/ш
ЛЕ  Б(Cн100000л.5)┤▓ В( Б((BмA)н100000л.5))з495/ю
РК/°
ХY$│""0

ЪX$│ Т:ЕX$│""з4100 
ЯЕX$│ Л(13)з45002
дЕX$│ Л(8)з4400B
йЕX$│"@"з5300V
оЕ  К(X$)┤13з4100n
│Y$│Y$лX$:ЗX$;:Бе4100Ж
╕WW│ З(Y$):ЕWW│0з4050д
╜ЗX$;:Y$│ О(Y$,WWм1):Бе4100╦
┬C│ Й(Y$):Е З(Y$)│0 ░ X$│ Л(13)з4050╫
╟З:Бж5250▌
╠Р1
╤З" CORRECT! ";A$(P);" GETS ";:З═"$##.##";C:CR│CRл11
╓Бе5001V
█З" CORRECT! ";A$(P);" NEEDS ";:З═"$##.##";C:CR│CRл11`
рБе5001Ч
хЗ" WRONG! ";A$(P);" GETS ";:З═"$##.##";AмB:WR│WRл11б
ъБе5001╪
яЗ" WRONG! ";A$(P);" NEEDS ";:З═"##.##";BмA:WR│WRл12
ЇБж525:З" PRESS <<<ENTER>>> TO CONTINUE. ";:АI│1е300:ЛI2
∙FD│125
■X$│ Т:ЕX$│ Л(13)з1802EЕX$│"@"з5302OБе5102}
SQ│(143л(CLн16)):АQS│1е32:З Л(SQ );:ЛQS:Р2ЙЮ:З:З:З2оЗд3)"PROBLEMS COMPLETED  = "PD:З2╙Зд3)"CORRECT RESPONSES   = "CR:З2°!Зд3)"INCORRECT RESPONSES = "WR:З3&TR│CRлWR:ЕTR│0зTR│13%+SC│ Б(CRоTRн100)3M0Зд3)"YOUR TOTAL SCORE    = "SC"%":З3s5Зд3)"ANOTHER TRY (Y/N) OR (C) ?";3И:X$│ Т:ЕX$│""з5703Ч?ЕX$│"Y"з О3иDЕX$│"N"з Ю:К3╣IЕX$│"C"з 5953├NБе5703▐SЕ FD│0 з PD│PDм1:Бе2153яXЕ FD│1 з 1804(]Ж SAM,TOM,MARK,BILL,HARRY,WAYNE,DICK,DAVE,TORYN,MIKE4dbЖ JEFF,EDDIE,RAY,TODD,PETER,BRENT,SEAN,JASON,STEVE,PHIL4вgЖ SALLY,SUE,DEBRA,KAREN,TANYA,LISA,DONNA,KATHY,PEGGY,JILL4▄lЖ ROSE,ANN,SONJA,CAROL,LEAH,CANDY,LAURA,FLO,KAY,LIBBY5qЖ SHIRT,ALBUM,PARKA,DISK,BOOK,PAD,PEN SET,CARPET,RADIO,TAPE:а 50,1:З "INSERT SOURCE DISK IN DRIVE";ID:╗ Й "AND PRESS 'ENTER'";Z$5r
HБе 20005Ц
z:Г* SHORTSTOP RUNAWAY OPERATION5Ь
мК5╥
▐:Г* CLEAR AS MUCH MEMORY AS YOU CAN THROUGH BASIC5с└ 1:Бе 100B$(1):АQ│0е1:АW│0е3:K$│ Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &!
В**************************&AВ* LIFE SKILLS SIMULATION *&aВ*   SUBTRACTION SKILLS   *&БВ*    BY FRED B.SCERBO    *&бВ*     60 HARDING AVE     *&┴#В*  NORTH ADAMS,MA 01247  *&с(В*   COPYRIGHT (C) 1985   *'
-В**************************'2Ю0' 7АI│1е32:З Л(172);:Л'><АI│1е192:НA:З Л(Aл128);:Л'VAАI│1е32:З Л(163);:Л'╝FЖ109,104,96,109,104,100,110,108,106,109,108,109,,,30,28,26,29,,,30,20,30,20,30,16,20,30,,21,28,29(
KЖ101,,,101,,,106,96,104,101,,100,,,26,,24,21,16,22,16,,26,,26,,16,26,,21,,20(aPЖ101,,,101,,,107,106,96,101,99,98,,,27,19,18,21,22,16,,,26,,26,,16,26,,21,19,19(зUЖ101,,,101,,,106,104,,101,,,,,,,26,21,20,18,,,26,,26,,16,26,,,,21(∙ZЖ101,,106,101,,,106,,,101,,97,,16,26,,26,21,,20,18,,26,,26,21,16,26,21,21,,21)Z_Ж103,99,106,103,98,97,107,,,103,99,103,,,27,19,26,23,18,,27,17,27,17,27,23,17,27,23,21,19,23)~dЗ@293," COMPUTER  SIMULATION ";)вiЗ@325,"  SUBTRACTION SKILLS  ";)╞nЗ@357,"   BY FRED B.SCERBO   ";)ъsЗ@389,"  COPYRIGHT (C) 1985  ";*xЗ@453,"  SKILL LEVEL  (1-9)  ";*#}X$│ Т:ЕX$│""з125*9ВW│ Й(X$):ЕW│0з125*]ЗЗ@453,"  ALLOW HINTS? (Y/N)  ";*sМX$│ Т:ЕX$│"Y"з155*ГСЕX$│"N"з160*НЦБе140*ЬЫDL│1:Бе165*еаDL│0*меЮ0*╢кZ│500*їпМA$(40),B$(10):АI│1е40:НA$(I):Л:АI│1е10:НB$(I):Л:X│ Д(м Я)+┤Ю0:Q│ Д(10):P│ Д(40):ЕP▓20з SX$│"SHE"+(╣FD│0+>╛ЕP┤│20 з SX$│"HE"+Z├X│ Б( Д(Z))нWн2:A│Xо100+v╚Y│ Б( Д(Z))нWн2:B│Yо100+К═CL│ Б( Д(15)о2)+Щ╥N$│"##.##"+и╫Ю0:PD│PDл1+▀▄Бж525:З" "A$(P)" HAS ";:З═"$##.##";A;:З" IN CASH."+№сЗ" THE ";B$(Q);:ЕW│1з235,цЗ"S";,.ыЗ" ";SX$;" WANTS COST";:Е W▓1зЗ" A",?ЁЕ W│1зЗ"S A",qїЗ" TOTAL OF ";:З═"$##.##";B;:З". DOES ";A$(P),Ц·З" HAVE ENOUGH MONEY TO BUY THE",╡ З" NEW ";B$(Q);:ЕW▓1зЗ"S";,╬
З" ?  (Y)ES OR (N)O",╪
	Бж525,Ё
X$│ Т:ЕX$│ Л(3)з270-
ЕX$│"N"з310-
ЕX$│"Y"з295- 
ЕX$│"@"з530-*
"Бе270-_
'Е A▓B з З" CORRECT! ";SX$;" HAS ENOUGH.":CR│CRл1-Ш
,Е B▓A з З" SORRY! ";SX$;" NEEDS MORE MONEY.":WR│WRл1-в
1Бе320-╒
6Е A▓B з З" SORRY! ";SX$;" HAS ENOUGH.":WR│WRл1.
;Е B▓A з З" CORRECT! ";SX$;" NEEDS MORE MONEY.":CR│CRл1.
@Бж525.*
EЕ B▓A з 365.X
JЗ" HOW MUCH CHANGE WILL ";A$(P):З" GET?";.f
OЕDL│0з345.Н
TЗ" (";:З═N$;A;:З"-";:З═N$;B;:З")";.Ы
YЗ"=> $ ";.е
^Бж405.╙
cЕ  Б(Cн100000л.5)│ Б((AмB)н100000л.5)з465/
hЕ  Б(Cн100000л.5)┤▓ Б((AмB)н100000л.5)зОЖ-1,12,80,4,-9,/&ШЖ-1,12,128,4,-9,/EвЖ-1,12,123,1,1,2,123,1,-9,/OмЖ-99,/l╢Ж32,1,27,2,32,1,27,3,-9,/О└Ж32,1,-1,2,32,1,27,1,22,1,-9,/ж╩Ж27,4,-1,2,27,1,-9,/╚╘Ж70,1,80,1,75,3,80,1,70,1,-9,/р▐Ж80,2,-1,3,80,2,-9,/єшЖ-1,1,75,5,-9,0ЄЖ64,1,59,2,64,1,59,2,64,1,-9,07№Ж64,1,54,2,64,1,54,2,64,1,-9,0TЖ-1,1,59,2,-1,1,59,2,-9,0tЖ6,1,16,1,11,3,16,1,6,1,-9,0МЖ16,2,-1,3,16,2,-9,0Я$Ж-1,1,11,5,-9,0╖.Ж38,1,48,5,38,1,-9,0╧8Ж48,1,-1,5,48,1,-9,0чBЖ43,1,-1,5,43,1,-9,1
LЖ102,1,-1,5,102,1,-9,1VЖ112,1,107,5,112,1,-9,1%`Ж-9,1GjЖ70,1,80,2,70,1,-1,1,80,1,-9,1itЖ80,1,-1,2,80,1,70,2,80,1,-9,1Б~Ж75,1,-1,3,75,2,-9,1иИЖ128,1,123,2,128,1,123,2,128,1,-9,1═ТЖ128,1,-1,2,128,1,-1,2,128,1,-9,1чЬЖ123,1,-1,5,123,1,-9,1ёжЖ-99,100,1:а 1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ї&/
В ROBOCISE BY W.J. MOORE - PITTSBURG CALF&G:Г  DISPLAY PICTURE&N└8&h(L│ Ж(186)н256л Ж(187)&y2╚4:Т179,32:╝&Ш<Ю:З@264,"BUILDING A ROBOT"&╖FЗ@327,"ROBERT IS HIS NAME"&╦PN│Lл19н32:Бж630&▀ZN│Lл21н32:Бж630&єdN│Lл24н32:Бж630'nN│Lл28н32:Бж630'xN│Lл33н32:Бж630'/ВN│Lл39н32:Бж630'CМN│Lл46н32:Бж630'\ЦC│0:X│Lл11:N│X:Бж490'eа╟1е3'}кC│0:X│Lл7:N│X:Бж490'Ж┤╟1е4'П╛╟3е1'и╚C│0:X│Lл16:N│X:Бж490'▒╥╟1е5'╠▄C│0:X│Lл1924:N│X:Бж490'ЁцA$│" PRESS: F=FASTER S=SLOWER "(ЁАI│1е  З(A$):T$│ Р(A$,I,1):T│ К(T$)(=·Е T┤64 з T│Tл64: Р(A$,I,1)│ Л(T)(C
Л(T
C│0:N│Lл2884(v
АI│1е  З(A$):T│ К( Р(A$,I,1))(О
"А C│0е5:ТNлCн32,T:Л(Ш
,N│Nл1(Ю
6Л(╢
@L│ Ж(186)о2:A│65478(╦
JАP│0е6:N│ Б(2пP)(Є
TЕ L ░ N з Т AлPн2л1,0 :Д Т AлPн2,0(°
^Л)
hN│ Ж(65314):Т65314,(N ░ 7))6
rТ65472,0:Т65474,0:Т65477,0)H
|X│50:╔"O1T20")]
Ж╟4е1:╔"C+":Бж440)q
Р╟3е1:╔"C":Бж440)Ж
Ъ╟5е1:╔"C+":Бж440)Ъ
д╟3е1:╔"C":Бж440)д
оБе390)п
╕АI│1еX)║
┬SP$│ Т)╨
╠Е SP$│"F" з X│Xм5)ц
╓Е SP$│"S" з X│Xл5)ю
рЛ:Р)°
ъН A,B*
ЇЕ A│м1 з F│1 :Д F│0*!
■Е A│м9 з 600*3Е A│м99 з 620*?A│Aл127*MА I│1 е B*]&Е F│1 з 570*g0Т N,A*r:N│Nл32*xDЛ*ВNБе490*ТXC│Cл1:N│XлC*ЬbБе490*вlР*╝vАI│0е31:Т NлI,223:Л:Р*╒А:Г  DATA FOR PICTURE*ЎКЖ-1,12,80,14,128,2,123,2,-9,+"ФЖ-1,12,80,4,75,10,123,4,-1,12,118,7,-9,+XЮЖ80,9,-1,3,80,12,128,1,80,11,128,1,80,6,128,6,-9,+виЖ80,1,48,2,80,3,64,2,80,1,70,3,80,12,128,1,80,11,128,1,80,6,128,6,-9,+╧▓Ж80,4,-1,,80,2,64,1,80,16,128,1,80,3,-9,,╝Ж80,1,48,2,80,3,64,2,80,1,75,3,80,12,128,1,80,11,128,1,80,6,128,6,-9,,O╞Ж80,9,-1,3,80,12,128,1,80,11,128,1,80,6,128,6,-9,,{╨Ж-1,12,80,4,70,10,118,4,-1,12,123,7,-9,,Ь┌Ж-1,12,80,14,128,2,118,2,-9,,╡фАI│0е31:ТNлI,223:Л:Р,┐юЖ-99,,▀°Ж-1,12,118,1,-1,2,118,1,-9,,ЇЖ-1,12,128,4,-9,-Ж-1,12,80,4,-9,-Ж-1,12,80,4,-9,-S Ж-1,16,1,3,96,1,1,1,96,1,1,2,96,1,1,3,96,1,1,1,-9,-Л*Ж-1,16,1,3,96,1,1,1,96,1,1,2,96,1,1,3,96,1,1,4,96,1-л4Ж1,1,118,6,1,5,96,1,1,2,-9,-╪>Ж-1,31,128,1,80,4,128,5,1,5,96,1,1,2,-9,.HЖ-1,31,128,1,80,4,128,5,1,5,96,1,1,2,-9,.RЖ-99,.<\Ж-1,31,128,1,80,4,128,5,1,5,96,1,1,2,-9,.ifЖ-1,31,128,1,80,4,128,5,1,5,96,1,1,2,-9,.бpЖ-1,16,1,3,96,1,1,1,96,1,1,2,96,1,1,3,96,1,1,4,96,1.┴zЖ1,1,123,6,1,5,96,1,1,2,-9,.¤ДЖ-1,16,1,3,96,1,1,1,96,1,1,2,96,1,1,3,96,1,1,4,96,1,-9,/ @&
В"WHO AM I?"&<В"STEVE BLYN,COMPUTER ISLAND,NY,1986"&GХ 2000&a(М A$(13),B$(13),N$(3)&h2Ю0&z<W$│ б(28,143)&СFZ$│ Л(128)л Л(128)&иPЗ@11," who am i?";&╖ZЗ@32," ":З&┼dА Y│1 е 9&╘nЗ@98лZ,W$;&уxZ│Zл32:Л Y&єВЗ@384," ":З'МA$(1)│"I AM "'ЦЗ@32,A$(1);:╗Й B$(1)'<аA$(2)│"I FEEL GOOD WHEN "'VкЗ@64,A$(2);:╗ Й B$(2)'s┤A$(3)│"I FEEL BAD WHEN "'Т╛A$(4)│"I LIKE PEOPLE WHO "'о╚A$(5)│"I LIKE TO PLAY "'╚╥A$(6)│"I DON'T LIKE "'ц▄A$(7)│"I GET ANGRY WHEN "(цA$(8)│"I AM BEST AT "(ЁA$(9)│"I AM PROUD WHEN "(=·A$(10)│"I AM NERVOUS WHEN "(Z
A$(11)│"I AM AFRAID TO "(i
А T│3 е 11(Д
З@98лL,A$(T);:╗Й B$(T)(Ф
"З@126лL,Z$;(п
,L│Lл32:╔"O2L30GCG":Л T(═
6A$(12)│"I AM BORED WHEN "(щ
@З@384,A$(12);:╗Й B$(12))

JA$(13)│"I DO BEST WHEN I'M ")&
TЗ@416,A$(13);:╗Й B$(13))H
^З@486,"PRESS ENTER TO GO ON";)S
hEN$│ Т)q
rЕ EN$│ Л(13) з 380 :Д 360)Ч
|Ю:З@3,"WHAT I LIKE ABOUT MYSELF";)ж
ЖЗ@64,"1.";)╢
РЗ@160,"2.";)╞
ЪЗ@256,"3.";)╘
дЗ@354,W$;*

оЗ@384,"ENTER ^ TO REVIEW YOUR ANSWERS.";*
╕А K│1 е 3*'
┬З@66лV,"";:╗Й N$(K)*H
╠Е N$(K)│"" ▒ N$(K)│" " з 450*k
╓Е N$(K)│ Л(94) з Бж 590:Бе 450*z
рV│Vл96:Л K*▓
ъЗ@416," ":З@384,"ENTER ^ FOR PRINTOUT OR E TO END";*╜
ЇEN$│ Т*ы
■Е EN$│"^" з 520 :Д Е EN$│"E" з 660 :Д 500+З#м2,д10)"WHO AM I?"+1А T│ 1 е 13:З#м2," ":З#м2,A$(T)B$(T):Л T+>З#м2," "+o&З#м2,д10)"WHAT I LIKE ABOUT MYSELF":З#м2," "+Х0А T│1 е 3:З#м2," ":З#м2,N$(T):Л T+а:Бе 660+╕DВ"REVIEW THE ITEMS"+╚NА T│ 1 е 13+рXЗ@416," ":З@448," "+ЎbЗ@416,A$(T)лB$(T),l╔"O3L50CDEFG",vEN$│ Т,1АЕ EN$│ Л(13) з Л T :Д 630,7КР,=ФК0,6,128,6,-9,,{╨Ж-1,12,80,4,70,10,118,4,-1,12,123,7,-9,,Ь┌Ж-1,12,80,14,128,2,118,2,-9,,╡фАI│0е31:ТNлI,223:Л:Р,┐юЖ-99,,▀°Ж-1,12,118,1,-1,2,118,1,-9,,ЇЖ-1,12,128,4,-9,-Ж-1,12                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &!
:ГTHIS ROUTINE WILL LOAD IN&A:ГCOTERM/BIN, MODIFY IT FOR&`:ГTHE SERIAL PORT AND SAVE&В(:ГTHE MODIFIED VERSION OUT TO&б2:ГDISK.  this routine will&╟<:Гoverwrite the original version!&╓F╙M"COTERM"&сPA│4240&√ZН D$:Е D$│"END" з 110'dТ A, Й(D$):A│Aл1:Бе90'=n╪M"COTERM/BIN",&H0E00,&H12BF,&H1090'axЮ:З@260,"COTERM/BIN MODIFIED":К'ЖВЖ 67,48,141,0,81,188,1,104,39,50'оМЖ 182,1,103,167,141,0,218,190,1,104'╓ЦЖ 175,141,0,212,182,1,106,167,141,0(аЖ 207,190,1,107,175,141,0,201,134,126(&кЖ 183,1,106,183,1,103,48,141,0,36(K┤Ж 191,1,104,48,141,0,4,191,1,107(r╛Ж 57,15,112,13,111,16,38,0,169,127(Ч╚Ж 255,64,50,98,141,44,129,3,38,2(╜╥Ж 134,42,183,17,129,57,52,2,18,18(у▄Ж 18,18,18,18,18,18,18,18,150,111)цЖ 53,2,16,38,0,129,141,62,129,13)/ЁЖ 38,6,134,10,141,54,134,13,32,115)T·Ж 52,21,26,80,173,159,160,0,39,2)|
Ж 32,36,182,255,34,71,37,242,141,84)г
Ж 182,255,34,71,37,242,79,52,2,198)╩
Ж 7,141,69,182,255,34,18,71,102,96)Ё
"Ж 90,38,244,141,55,53,2,68,53,149*
,Ж 52,23,26,80,246,255,33,193,180,38*=
6Ж 2,32,31,127,255,32,141,34,52,2*d
@Ж 198,8,100,96,73,73,183,255,32,18*М
JЖ 141,20,90,38,243,134,2,183,255,32*▒
TЖ 141,8,50,97,53,151,141,0,141,0*╒
^Ж 141,0,141,0,174,141,0,5,48,31*■
hЖ 38,252,57,0,182,126,203,74,126,197+
rЖ 143,13+
|Ж END 'ENTER'";Z$+I:Г* READ THE DIRECTORY SECTORS+h ▀ ID, 17, S, DR$(1),DR$(2)+Тz:Г* IDENTIFY THE STRING TO MANIPULATE+вДА H │ 1 е 2+├▐:Г* EACH RECORD HAS 32 BYTES+█шА EN │ 1 е 128 й 32+∙B:Г* INCREMENT THE COUNTER,LP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 _&[
:ГCADPRINT VR1.0 BY P.KERCKHOFF 4335 HENDRIX WAY SAN JOSE CA - 1985 RAINBOW MAG (OCT)&л:ГMODIFIED FOR USE WITH RADIO SHACK DMP-120 PRINTER BY DAVISSON ON 10/15/85&ЁХ100,&H379A:Ю:З"cadprint RUNNING":АX│&H379B е &H37FA:Н A:ТX,A:ЛX'(Т150,41 :Г1200 BAUD'2З#м2, Л(18)''<А PG│0е8й3'JF╙M"PRT.PG"л П( И(PG),1),&H2A00'oP╙M"PRT.PG"л П( И(PGл1),1),&H4200'ФZ╙M"PRT.PG"л П( И(PGл2),1),&H5A00'аdв&H379B'Єn╥"PRT.PG"л П( И(PG),1):╥"PRT.PG"л П( И(PGл1),1):╥"PRT.PG"л П( И(PGл2),1):Л PG(xЗ:З"DONE.":З#м2, Л(30):С(╞ВЖ 134,254,151,111,134,1,142,126,224,48,134,52,2,141,38,53,2,142,102,224,48,134,52,2,141,27,53,2,142,78,224,48,134,52,2,141,16,134,13,173,159,160,2,53,2,76,129,31,38,212,15,111,57)\МЖ 198,156,52,20,230,132,16,142,0,8,16,191,55,249,88,70,122,55,250,16,190,55,249,38,245,67,138,128,173,159,160,2,53,20,48,136,224,90,38,218,57,0,0182,255,34,71,37,242,141,84)г
Ж 182,255,34,71,37,242,79,52,2,198)╩
Ж 7,141,69,182,255,34,18,71,102,96)Ё
"Ж 90,38,244,141,55,53,2,68,53,149*
,Ж 52,23,26                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ё}}}
}}}}}}О}.┐

Ж5╖ я9|}╢}Б;%j}|}╢}Б
%]}|}╢}Б%P}|}╢}Б
%C}|}╢}Б%6}|}╢}Б
%}|}}
|}
} Б
%&}
А
╖}
Ж
╖} ╖}
О╢}ЛpзА╢}
ЛpзАЖzзА╢}ЛpзА╢}ЛpзАЖzзА╢}ЛpзА╢}ЛpзД╢ *╢ ╢	Е'J╖	Е&╢	ЖД░╖	Ж╖ @~ЙU; } &H7D                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┌&8dВ * BUBBLE WAR * TRS-80 EXTENDED COLOR BASIC 16K *&UnВ * BY RICHARD RAMELLA *&uxВ * REQUIRES ONE JOYSTICK *&ГВТ 65495,0&НМХ 256&дЦPL$│"L255;GFEDCBA"&║аМ M1(1,6),M2(1,6)&└кЮ&╩┤HG│10&╘╛PG│10&э╚З @ 235,"BUBBLE WAR"&ў╥╚ 3,1& ▄╝ 1'	ц┴ 3,5'ЁP│128'·Q│96'*
А G│1 е 2'?
┬(10,10),5,3,1.5'R
┬(10,5),7,3,.3'h
"╗(4,11)м(17,11),╜'Р
,Е G│1 з ╗ м(10,15),╜ :Д ╗ м(10,5),╜'а
6╗ м(4,11),╜'╫
@Е G│1 з ─(0,0)м(20,20),M1,G :Д ─(0,0)м(20,20),M2,G'▀
J╝ 1'ч
TЛ G'ё
^┐ 1,1(
h┬(128,96),255,6(
rU│119(
|R│86(;
ЖЕ U┤5 з U│5 :Д Е U▓229 з U│229(^
РЕ R┤1 з R│1 :Д Е R▓170 з R│170(Д
ЪCT│CTл1: Е CT▓150 з Бж 1080: CT│0(а
д┼(U,R)м(Uл20,Rл20),M1,╜(п
о╜(X,Rм1,3))C
╕Е  а(Uм1,Rм1)│8 ▒  а(Uл10,Rм1)│8 ▒  а(Uл21,Rм1)│8 ▒  а(Uм1,Rл10)│8 ▒  а(Uл21,Rл10)│8 ▒  а(Uм1,Rл21)│8 ▒  а(Uл10,Rл21)│8 ▒  а(Uл21,Rл21)│8 з 870)P
┬S│ Д(PG))c
╠Е S│1 з Бж 620)o
╓K│ Н(0)){
рL│ Н(1))Ч
ъ┼(U,R)м(Uл20,Rл20),M2,╜)к
ЇЕ K▓31 з U│Uл4)╜
■Е K┤31 з U│Uм4)╨Е L▓31 з R│Rл4)уЕ L┤31 з R│Rм4)ЇPK│ Ж(65280)*&Е PK│126 ▒ PK│254 з Бж 590*0XG$│ Т*5:Е XG$│"X" з Бж 980*@DБе 390*TNЕ K▓31 з Бж 710*hXЕ K┤31 з Бж 790*nbР*|lG│ Д(255)*КvP│ Д(191)*╕АЕ G▓Uм21 ░ G┤Uл42 ░ P▓Rм21 ░ P┤Rл42 з 700*╚К┬(G,P),HG,8*╒Ф├(G,P),8*сЮNN│NNл1+иЕ NN│10 з HG│HGл5: NN│0: JK│JKл1: Е JK│2 з PG│PGм1+*▓Е PG┤1 з PG│1+0╝Р+;╞M│Uл22+E╨N│Rл9+a┌Е M▓253 з Р :Д ╜(M,N,3)+qфS│ Д(PGл20)+ДюЕ S│1 з Бж 620+Ф°V│ а(Mл2,N)+┼Е V┤▓5 ░ V┤▓7 з 930 :Д ╛(M,N): M│Mл5: Бе 730+╦Р+╒M│Uм1+р N│Rл10+·*Е M┤2 з Р :Д ╜(M,N,3),
4S│ Д(PGл20),>Е S│1 з Бж 620,-HV│ а(Mм2,N),^RЕ V┤▓5 ░ V┤▓7 з 930 :Д ╛(M,N): M│Mм5: Бе 810,d\Р,sfА T│1 е 15,Пp┼(U,R)м(Uл20,Rл20),M1,и,Щz╔ PL$,бДЛ T,кОXX│1,╡ШБе 980,┼вЕ V│6 з 950, мЕ V│8 з ┬(M,N),25,5: ├(M,N),5,5: ╔ PL$: SC│SCл(HGн10)-╢Е V│6 з ╛(M,N)-&└┬(128,96),255,6-,╩Р-Y╘Е XX│1 з Т 65494,0: З @ 331,"F I N A L";-s▐З @ 235,"BUBBLE WAR";-МшЗ @ 363,"S C O R E";-ЬЄЗ @ 394,SC;-╕№Е XX│1 з YU│YUл1: ╔ PL$-сЕ XX│1 ░ YU┤40 з 1020 :Д Е YU│40 з К.З @ 448,"TAP A KEY TO RETURN TO GAME";.XX$│ Т.;$Е XX$┤▓"" з Ю: ┐ 1,1: Р :Д 1050.A.К.V8А BN│0 е 150 й 3.qB┬(129,96),BN,1л Д(3),1.РLЕ BN┤20 з ╔ "T128;CDEFGAB".ЩVЛ BN.а`╝1.┤j┬(128,96),255,6.║tР.└~К.╫ИВ * END OF LISTING DV│м2:ДDV│0/>Е(ENмST)о6│ Б((ENм %&%:ГINSTALL MACHINE LANGUAGE CODE&+
Ю&;Х 200,30000&WA│30000::ГSTART ADDRESS&y(L│102::ГNUMBER OF DATA VALUES&Н2А X│A е (AлL)м1&Ц<Н H$&кFТ X, Й("&H"лH$)&▓PЛ X&╠ZЗ"CODE INSERTED AT";A&╥dК'nЖ 0F,78,32,62,BD,A5,C5,BD,A6,48,7D,01,E4,26,05,B6,01,E2,27,03,7E,A6,16'txЖ BD,AD,19,BD,A7,7C,9E,19,9F,7E,DC,7E,4C,BD,AC,37,BD,A7,0B,26,34,96,7C,27,30,2A,ED'нВЖ 9F,1B,BD,A7,E9,8E,AB,EC,BD,B9,9C,BD,AD,21,BD,AC,EF(
МЖ BD,01,82,8E,02,DD,86,52,A7,80,86,55,A7,80,86,4E,A7,80,6F,84,C6,04,8E,02,DC,4F,7E,AC,7F("ЦЖ BD,AD,19,7E,A6,19 SA│0 е Sм1(?)З#O," ";(c*Е  З( Ь( Ж(AлSA)))┤2 з З#O,"0";(y-З#O, Ь( Ж(AлSA));(В2Л SA(Н7З#O,""(и8Е O│м2 з З#O," ":Бе 65(▓<L│Lл1(┼=Е L┤15 з Бе 65(▀>T$│ Т:Е T$│"" з Бе 62(ч?L│0(яAЛ A(їFЗ)GЙ"MOR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ST)о6)з63:ДEN│ENл1:Бе62/4?АDP│ST е EN й6:ZQ$│ Ь(DP)/T@Е З(ZQ$)┤4зZQ$│"0"лZQ$:Бе64/eAЗ#DV,ZQ$":";/vBАDD│DP еDPл5/аCZQ$│ Ь( Ж(DD)):Е З(ZQ$)┤2зZQ$│"0"лZQ$/▓DЗ#DV," "лZQ$;/╞EЛDD:З#DV,"":ЛDP/∙FЗ"PRESS A KEY TO CONTINUE":в&HA171:LO│ST:Ю:Бе6I                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &
:ГCOCO DISK MENU&0:Г(C) 1985 ANDY DATER&@╚0:└1:Х5000&\(МT$(11,7),N$(68),TP(68)&┘2Ю4:З@9,"COCO DISK MENU";:З@47,"BY";:З@75,"ANDY DATER";:З@103,"COPYRIGHT (C) 1985";:З@162,"PRESS 0-3 FOR DISK DIRECTORY";'
<DN$│ Т:ЕDN$┤▓"0"░DN$┤"1"▒DN$▓"3"з60:ДDR│ Й(DN$)'9FЗ@226,"READING DIRECTORY OF DRIVE "DN$;'яPN│1:АX│3е11:▀DR,17,X,A$,B$:C$│A$л О(B$,127):АI│0е7:T$(X,I)│ Р(C$,Iн32л1,32):C1│ К(T$(X,I)):ЕC1│255з100:ДЕC1│0з90:ДN$(N)│ О(T$(X,I),12):TP(N)│ К( Р(T$(X,I),12,1)):N│Nл1:ЕN│69з100'°ZЛI,X(/dN│Nм1:АX│1еN:N$(X)│ О(N$(X),8)л"."л Р(N$(X),9,3):Л(5nЮ(JxЕN┤│30зPP│1:N1│N(_ВЕN▓30зPP│2:N1│30(tМЕN▓60зPP│3:N1│30(ОЦАX│1еN1:З" "N$(X),:ЛX(╝аЕPP│2▒PP│3зЗ@480,"PRESS <M> FOR MORE...";(╓кL$│">":R$│"<":P│0:Y│1(э┤З@P,L$;:З@Pл13,R$;)╛АX│338е345:ТX,255:ЛX)╚Е Ж(338)│191з390)3╥Е Ж(339)│191зХ:Бе40)H▄Е Ж(341)│247з350)]цЕ Ж(342)│247з360)rЁЕ Ж(343)│247з370)З·Е Ж(344)│247з380)Ь
Е Ж(344)│254з290)▒
Е Ж(343)│253з300)╗
Бе200*
"Ю:З г(DR)"FREE GRANULES ON DRIVE"DR:З:З"PRESS ANY KEY TO CONTINUE":в44539:Бе110*i
,ЕPP│2░Y│1зЮ:АX│31еN:З" "N$(X),:Л:З@480,"PRESS <M> FOR MORE...";:Y│2:P│0:N1│Nм30:Бе180*Л
6ЕPP│2░Y│2зY│1:P│0:N1│30:Бе110*ц
@ЕPP│3░Y│1зЮ:АX│31е61:З" "N$(X),:Л:З@480,"PRESS <M> FOR MORE...";:Y│2:P│0:N1│Nм59:Бе180+@
JЕPP│3░Y│2зЮ:АX│62еN:З" "N$(X),:Л:З@480,"PRESS <M> FOR MORE...";:Y│3:P│0:N1│Nм61:Бе180+b
TЕPP│3░Y│3зY│1:P│0:N1│30:Бе110+Ц
^ЕP┤17з180:ДP│Pм32:З@Pл32," ";:З@Pл45," ";:Бе180+╙
hЕ Pо16│▓(N1м2)з190:ДP│Pл32:З@Pм32," ";:З@Pм19," ";:Бе180,
rP│Pм16:ЕP┤0зP│0:Бе180:ДЗ@Pл16," ";:З@Pл29," ";:Бе180,H
|Е Pо16│▓(N1м1)з190:ДP│Pл16:З@Pм16," ";:З@Pм3," ";:Бе180,x
ЖF│Pо16л(Yм1)н30л1:F$│N$(F)л":"лDN$:TP│TP(F),~
РЮ,О
ЪЕTP│0з╙F$,R,░
дЕTP│2з╙MF$:Х200:Т&HFF40,0:в:К,с
оЮ:З"IS FILE: "F$" A BASIC":З"PROGRAM? (Y/N)"-
╕I$│ Т:ЕI$│"Y"з╙F$,R :ДЕI$│"N"зХ200:К:Д440 Pо16│▓(N1м1)з190:ДP│Pл16:З@Pм16," ";:З@Pм3," ";:Бе180x
ЖF│Pо16л(Yм1)н30л1:F$│N$(F)л":"лDN$:TP│TP(F)~
РЮО
ЪЕTP│0з╙F$,R░
дЕTP│2з╙MF$:Х200:Т&HFF40,0:в:Кс
оЮ:З"IS FILE: "F$" A BASIC":З"PROGRAM? (Y/N)"
╕I$│ Т:ЕI$│"Y"з╙F$,R :ДЕI$LE: "F$" A BASIC":ЗX?":Бж850:Е YN зАX│5е8:╟ X е Xм4:Л:Бе100:Д100.]
┬:Г-----save coco max.К
╠Бж810:LN│0:АX│0е3:З@66л64нX,X$(2нXл14):Л.╬
╓JX│ Н(0):JY│ Б( Н(1)о20):ЕLN┤▓JY зЗ@66лLNн64,X$(2нLNл14):а100,1. 
рЗ@66л64нJY,X$(2нJYл15):Е Ж(FB)░1зLN│JY:Бе470 	№&'
Ю:З@197,"MACHINE LANGUAGE DEBUG";&CЗ@233,"VERSION  02.02";&kЗ@259,"BY MIKE DEAN  JANUARY 1985";&|АSW│0е1500:Л&╝Ю:╗Й"ADDRESS (HEX):";A$:LO│ Й("&H"лA$):Ю:ЕLO▓65446зLO│65446&▐ZV│LO:АDP│0е448й32:ZQ$│ Ь(ZV)&¤Е З(ZQ$)┤4зZQ$│"0"лZQ$:Бе7'З@DP,ZQ$":";'#	ZV│ZVл6:Л:ZV│LOC'4
АDP│6е454й32'HАQP│DP еDPл16й3'[ZQ$│ Ь( Ж(ZV))'v
Е З(ZQ$)┤2зZQ$│"0"лZQ$'ЪЗ@QP,ZQ$;:ZV│ZVл1:ЛQP,DP:ZV│LOC'╛ZV│LOC:АDP│1050е1498й32:АQP│0е5'▀ТQPлDP, Ж(ZV):ZV│ZVл1:ЛQP,DP'√AP│0:BP│6:PO│LO:PX│1050(З@(APлBP), б(2,207);(A$│ Т(,ЕA$│"N"зО([ЕA$│";"зLO│LOл90:ЕLO▓65446зLO│65446:Бе6:Д6(ВЕA$│"-"зLO│LOм90:ЕLO┤0зLO│0:Бе6:Д6(ФЕA$┤▓ Л(9)з26(▀Бж43:З@(APлBP),ZQ$;:BP│BPл3:ЕBP▓22зBP│6:AP│APл32:PO│POл1:PX│PXл27:Бе44(°PO│POл1:PX│PXл1:Бе18)
ЕA$┤▓ Л(8)з29)UБж43:З@(APлBP),ZQ$;:BP│BPм3:ЕBP┤6зBP│21:AP│APм32:PO│POм1:PX│PXм27:Бе45)nPO│POм1:PX│PXм1:Бе18)БЕA$┤▓ Л(10)з32)╢Бж43:З@(APлBP),ZQ$;:AP│APл32:ЕAP▓448зAP│448:Бе18)╨PO│POл6:PX│PXл32:Бе18)р ЕA$┤▓"^"з35*!Бж43:З@(APлBP),ZQ$;:AP│APм32:ЕAP┤0зAP│0:Бе18*+"PO│POм6:PX│PXм32:Бе18*Y#ЕA$│"L"▒A$│"S"з46:ДЕA$│"J"з59:ДЕA$│"P"з60*Щ$ЕA$│▓"0"░A$┤│"9"▒A$│▓"A"░A$┤│"F"зЗ@(APлBP),A$;:BP│BPл1:Бе38*╢%Бж43:З@(APлBP),ZQ$;:Бе18*╩&B$│ Т:ЕB$│""з38+'ЕB$│▓"0"░B$┤│"9"▒B$│▓"A"░B$┤│"F"зЗ@(APлBP),B$;::Д38+W(ТPO, Й("&H"л(A$лB$)):ТPX, Й("&H"л(A$лB$)):Бж43:З@(APлBPм1),ZQ$;:ТPX, Й("&H"лZQ$)+б)BP│BPл2:ЕBP▓22зBP│6:AP│APл32:PX│PXл27:PO│POл1:ЕAP▓448за128,3:Бе44:Д44+║*PO│POл1:PX│PXл1:Бе18+щ+ZQ$│ Ь( Ж(PO)):Е З(ZQ$)│1зZQ$│"0"лZQ$:Р:ДР,,ЕAP▓448зAP│448:BP│21:PO│LOл89:Бе18:Д18,7-ЕAP┤0зAP│0:BP│6:PO│LO:Бе18:Д18,W.Ю:Е Ж(49152)│68зDV│1:ДDV│м1,f/ЕA$│"L"з56,Й0З"     RESPOND IN HEXADECIMAL",▒1╗Й"START ADDRESS:";S$:S│ Й("&H"лS$),┌2╗Й"ENDING ADDRESS:";E$:E│ Й("&H"лE$)-3╗Й"EXECUTION ADDRESS:";D$:D│ Й("&H"лD$)-4╗Й"FILENAME:";F$-(5ЕDV│1з55-|6З"PRESS PLAY&RECORD.":З"PRESS ANY KEY WHEN READY":в&HA171:ШMF$,S,E,D:LO│S:Ю:Бе6-Ъ7SAVEM F$,S,E,D:LO│S:Ю:Бе6-и8ЕDV│м1з58-у9╗Й"FILENAME:";F$:LOADM F$:LO│ Ж(487)н256л Ж(488):Ю:Бе6.8:З"PRESS PLAY AND ENTER THE","FILENAME:";:╗ЙF$:ЧM F$:LO│ Ж(487)н256л Ж(488):Ю:Бе6.f;Ю:╗Й"ADDRESS (HEX):";A$:в  Й("&H"лA$):Бе5.Р<Ю:╗Й"START ADDRESS";S$:ST│ Й("&H"лS$).ш=╗Й"END ADDRESS";E$:EN│ Й("&H"лE$):╗Й"sCREEN OR pRINTER? ";DV$:ЕDV$│"P"з DV│м2:ДDV│0/>Е(ENмST)о6│ Б((ENм &%
:Г*****************************&I:Г*        CRASH PROOF IT!!   *&m:Г*       TERRY L. WILSON     *&С:Г*      3436 CASA GRANDE     *&╡:Г*     BATON ROUGE LA.       *&┘:Г*    ZIP CODE 70814         *&¤:Г*****************************':Г'
	Х999'^
Ж 26,80,190,128,0,183,255,222,166,128,183,255,223,167,31,140,224,0,37,241,57'|АI│1е21:НA:A$│A$л Л(A):ЛI'ЛP│ Э(A$)л1'Ц(ТP,126'й2вP:ГNOW IN 64K'╪<Т&HD446,&H23:Т&HD1B0,&H24:ГENABLES TRACK36'ўFЮ:З@39,"CRASH PROOF IT!!!"(jPЗ:З"  (1) FORMAT NEW DISK TO 36           TRACKS":З"  (2) RECOVER CRASHED DISK":З"      (COPY TRACK 36 TO 17)"(ЯZЗ"  (3) STILL BAD??":З"      (OPTION #2 FAILED)"(┬dЗ:З"     ENTER YOUR CHOICE OR")
nЗ:З"      PRESS <ENTER> TO":З"  COPY TRACK 17 TO TRACK 36")xЙ"            ";A:ЕA▓3з70)8ВЮ:И A Бе 170,210,230)АМЗ"    IF THIS DISK IS CRASHED":З"      CRASH PROOF WILL CATCH IT":╬)╪ЦА X│2 е 8:▀ 0,17,X,A$,B$:р 0,35,X,A$,B$:З"TR. 17 SEC.";X"TO TR. 36 SEC.";X:ЗA$;B$:Л*аЗ"DIRECTORY STORED AT TRACK 36":АX│1 е 1000:Л:Бе70*pкЮ:З@73,">>>CAUTION<<<":З:З" YOU ARE ABOUT TO CLEAN THAT     DISK AND FORMAT IT TO 36 TRACKS"*Ц┤Й"     SURE";X$:Е О(X$,1)┤▓"Y"з70*╪╛З" INSERT DISK TO BE FORMATED":З"       PRESS ANY KEY":в44539*∙╚Т&HD572,&H24:Т&HD595,&H24:▄0+A╥Ю:З"INSERT BAD DISK INTO DRIVE 0":╗Й"  PRESS <ENTER> WHEN READY";X$+з▄А X│2е 8:З"TRACK";X:▀ 0,35,X,A$,B$:р 0,17,X,A$,B$:ЗA$:ЗB$:Л:З"DIRECTORY RESTORED":АX│1е460:Л:Бе70,yцЮ:З"THIS OPTION CREATES A BACKUP":З"COPY OF THE CRASHED DISK. THE":З"BACKUP0 COMMAND HAS BEEN CHANGED";:З"TO BACKUP ALL 36 TRACKS SO WHEN":З"YOU HAVE MADE A NEW COPY, YOU":З"MUST RUN CRASHPROOF AND CHOOSE",╖ЁЗ"OPTION #2 TO RESTORE THE DIREC- TORY ON YOUR NEW COPY.",ш·З:З"TYPE 'YES' IF YOU ARE READY TO  BACKUP0"-
Й"          READY";X$:Е X$│"YES"з▌0-
Бе70-iш:Г USE A RUN1010 AFTER YOU         HAVE FORMATED ALL YOUR          NEW DISK-сЄЮ:З@40,"CRASH PROOF IT!!!":З@99,"SAVE A COPY TO EVERY DISK":З@137,"PRESS ANY KEY":в44539:Е г(0)▓0з╪"CP":╔"G":Бе1010.№З"       THIS DISK IS FULL":в44539:Бе1010 PIX?":Бж850:Е YN зАX│5е8:╟ X е Xм4:Л:Бе100:Д100.]
┬:Г-----save coco max.К
╠Бж810:LN│0:АX│0е3:З@66л64нX,X$(2нXл14):Л.╬
╓JX│ Н(0):JY│ Б( Н(1)о20):ЕLN┤▓JY зЗ@66лLNн64,X$(2нLNл14):а100,1. 
рЗ@66л64нJY,X$(2нJYл15):Е Ж(FB)░1зLN│JY:Бе470(0-3)";C:З#м2, Л(18):З#м2,"C";C:З#м2,"S7":З#м2,"R226,325":З#м2,"I":З#м2,"PI":З#м2,"H":З#м2,"R-70,-80":З#м2,"I":З#м2,"PLOVE":З#м2,"H":З#м2,"R25,-80":З#м2,"I":З#м2,"PYOU"/─3З#м2,"S0":З#м2,"A":Бе1000f7Й"COLOR (0-3)";C:З#м2, Л(18):З#м2,"C";C:З#м2,"S7":З#м2,"R204,300":З#м2,"I":З#м2,"PBE":З#м2,"H":З#м2,"R-45,-80":З#м2,"I":З#м2,"PMINE":З#м2,"S0":З#м2,"A":Бе1000╢<Й"COLOR (0-3)";C:З#м2, Л(18):З#м2,"C";C:З#м2,"S12":З#м2,"R243,275":З#м2,"I"0цAА X│1 е 4:Н A,B:З#м2,"D";A;",";B:З#м2,"H":Л1FЖ 0,100,100,0,-100,0,0,-1001IKЙ"FIRST NAME, FIRST INITIAL";A$:Й"FIRST NAME, LAST INITIAL";B$1ОPЙ"SECOND NAME, FIRST INITIAL";C$:Й"SECOND NAME, LAST INITIAL";D$1┼UЗ#м2,"M-80,2":З#м2,"P";A$:З#м2,"M20,2":З#м2,"P";B$2ZЗ#м2,"M-80,-105":З#м2,"P";C$:З#м2,"M20,-105":З#м2,"P";D$2_З#м2,"S0":З#м2,"A"2OdЙ"ANOTHER VALENTINE (Y/N)";AN$:Е AN$│"Y" з 1 :Д К207) Л(195) Л(207);2АI│1е1000:Е Т│""зЛI2ж╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,2482╖╚2,3:╝1:╚1,32ъ ╞"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45"3e!╗(50,80)м(78,100                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 R&H
Ю:Й"HEART COLOR (0-3)";C:З#м2, Л(18):З#м2,"C";C:З#м2,"S0":З#м2,"A"&lА X│1 е 41:Н A,A$:З#м2,дA);A$:Л&ЭЖ 21,XXXXXX                           XXXXXX&╘Ж 18,XXX      XX                       XX      XXX'Ж 15,XXX           XX                   XX           XXX'RЖ 13,XX                XX               XX                XX'Х	Ж 12,X                    X             X                    X'┌
Ж 11,X                      XX         XX                      X(!Ж 10,X                         X       X                         X(jЖ  9,X                           X     X                           X(│
Ж  9,X                            XX XX                            X(№Ж  9,X                              X                              X)CЖ 10,X                                                           X)ИЖ 11,X                                                         X)╦Ж 12,X                                                       X*Ж 12,X                                                       X*OЖ 13,X                                                     X*ОЖ 14,X                                                   X*╦Ж 15,X                                                 X+Ж 15,X                                                 X+CЖ 16,X                                               X+|Ж 17,X                                             X+╡Ж 17,X                                             X+ьЖ 18,X                                           X,!Ж 19,X                                         X,VЖ 19,X                                         X,ЙЖ 20,X                                       X,║Ж 21,X                                     X,щЖ 22,X                                   X- Ж 23,X                                 X-A!Ж 24,X                               X-j"Ж 25,X                             X-С#Ж 26,X                           X-╢$Ж 27,X                         X-┘%Ж 28,X                       X-·&Ж 29,XX                   XX.'Ж 31,XX               XX.0(Ж 33,XX           XX.E)Ж 35,X         X.X*Ж 36,XX     XX.g+Ж 38,X   X.t,Ж 39,X X.-Ж 40,X.╢.Ю:З"1) I LOVE YOU":З"2) BE MINE":З"3) XX + XX":Й N.╘/Е N┤▓1 ░ N┤▓2 ░ N┤▓3 з 46.у0Е N│2 з 55.Є1Е N│3 з 60/з2Й"COLOR  ╤&
Ю&Й"NAME ";N$&N│1&4(Й"COLOR (0-3)";C&e2З#м2, Л(18):З#м2,"C";C:З#м2,"S0":З#м2, Л(17)&Э7З#м2,д21);:X│6:Бж 1000:З#м2, б(27,32);:Бж 1000:З#м2&╓<З#м2,д18);:X│11:Бж 1000:З#м2, б(23,32);:Бж 1000:З#м2'AЗ#м2,д15);:X│16:Бж 1000:З#м2, б(19,32);:Бж 1000:З#м2'HFЗ#м2,д13);:X│20:Бж 1000:З#м2, б(15,32);:Бж 1000:З#м2'БKЗ#м2,д12);:X│22:Бж 1000:З#м2, б(13,32);:Бж 1000:З#м2'╣PЗ#м2,д11);:X│25:Бж 1000:З#м2, б(9,32);:Бж 1000:З#м2'ёUЗ#м2,д10);:X│27:Бж 1000:З#м2, б(7,32);:Бж 1000:З#м2((ZЗ#м2,д9);:X│29:Бж 1000:З#м2, б(5,32);:Бж 1000:З#м2(]_З#м2,д9);:X│31:Бж 1000:З#м2, Л(32);:Бж 1000:З#м2(}dЗ#м2,д9);:X│63:Бж 1000:З#м2(ЮiЗ#м2,д10);:X│61:Бж 1000:З#м2(┐nЗ#м2,д11);:X│59:Бж 1000:З#м2(рsЗ#м2,д12);:X│57:Бж 1000:З#м2)
xЗ#м2,д12);:X│57:Бж 1000:З#м2)"}З#м2,д13);:X│55:Бж 1000:З#м2)CВЗ#м2,д14);:X│53:Бж 1000:З#м2)dЗЗ#м2,д15);:X│51:Бж 1000:З#м2)ЕМЗ#м2,д15);:X│51:Бж 1000:З#м2)жСЗ#м2,д16);:X│49:Бж 1000:З#м2)╟ЦЗ#м2,д17);:X│47:Бж 1000:З#м2)шЫЗ#м2,д17);:X│47:Бж 1000:З#м2*	аЗ#м2,д18);:X│45:Бж 1000:З#м2**еЗ#м2,д19);:X│43:Бж 1000:З#м2*KкЗ#м2,д19);:X│43:Бж 1000:З#м2*lпЗ#м2,д20);:X│41:Бж 1000:З#м2*Н┤З#м2,д21);:X│39:Бж 1000:З#м2*о╣З#м2,д22);:X│37:Бж 1000:З#м2*╧╛З#м2,д23);:X│35:Бж 1000:З#м2*Ё├З#м2,д24);:X│33:Бж 1000:З#м2+╚З#м2,д25);:X│31:Бж 1000:З#м2+2═З#м2,д26);:X│29:Бж 1000:З#м2+S╥З#м2,д27);:X│27:Бж 1000:З#м2+t╫З#м2,д28);:X│25:Бж 1000:З#м2+Х▄З#м2,д29);:X│23:Бж 1000:З#м2+╢сЗ#м2,д31);:X│19:Бж 1000:З#м2+╫цЗ#м2,д33);:X│15:Бж 1000:З#м2+°ыЗ#м2,д35);:X│11:Бж 1000:З#м2,ЁЗ#м2,д36);:X│9:Бж 1000:З#м2,8їЗ#м2,д38);:X│5:Бж 1000:З#м2,X·З#м2,д39);:X│3:Бж 1000:З#м2,x З#м2,д40);:X│1:Бж 1000:З#м2,В
Бе 10,РшА Y│1 е X,└эЗ#м2, Р(N$,N,1);:Е N│  З(N$) з N│1 :Д N│Nл1,╚ЄЛ Y,╬ўР                     X- Ж 23,X                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ├
 ─╟├╟╞─┴╔├┴╔╔─╟#$╔&'┬─┴╟┬─.╟┬──╟╔5╞              MENU    BAS"ГVALPRINTBAS UVALNAME BAS!╘PIXFILESBAS%ECRASHPRFBASDISKMENUBASDEBUG   BAS MEMDUMP BAS(BCRUN    BIN)qINSTALL BAS(TAPEDIR BAS*їCLOCKBASBAS+йCLOCK   BIN√BUBBLWARBAS▌MEMDIAG BIN,FILESRCHBAS-чLOADER  BASCADPRINTBASbRESTORE BAS/ЕROBOCISEBASўWHO AM IBASCTIN EAR BAS01KOLAROLABAS1нSUBTRACTBAS"SUPERCLSBAS2┘SOUND 2 BAS3МSOUNDGENBAS)XREF    BAS4ЄCOMMANDOBAS"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 А&#
:Г***************************&E:Г* RAINBOW ON TAPE GRAPHIC *&g:Г*    BY FRED B. SCERBO    *&Й:Г*   COPYRIGHT  (C) 1985   *&л:Г*     UNDER LICENSE TO    *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** '
Ю0:R$│ Л(128)'мЗ Л(252) Л(255) Л(252) Л(253) Л(250) Л(159) Л(156) Л(157) Л(154) Л(164) Л(173) Л(174) Л(168)R$ Л(191) Л(188) Л(188) Л(191) Л(213) Л(222) Л(220) Л(223) Л(228) Л(237);(fЗ Л(238) Л(236) Л(239) Л(133) Л(140) Л(143) Л(140) Л(138)R$ Л(255)R$ Л(245) Л(250) Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);)
З Л(234)R$ Л(239) Л(133)R$ Л(143)R$ Л(138)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);)иЗ Л(234)R$ Л(236) Л(133)R$ Л(143)R$ Л(138)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);*DЗ Л(234)R$R$R$R$ Л(143)R$R$R$ Л(255) Л(240) Л(245) Л(250) Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(176) Л(213) Л(218)R$ Л(223)R$ Л(229);*ЇЗ Л(234)R$ Л(239)R$R$ Л(143)R$R$R$ Л(255) Л(252) Л(253) Л(250) Л(159) Л(156) Л(157) Л(154)R$ Л(165) Л(170)R$R$ Л(188) Л(188) Л(188) Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);+РЗ Л(238) Л(236) Л(239) Л(224)R$ Л(143)R$R$R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);,'З Л(234)R$R$ Л(224)R$ Л(143)R$ Л(105)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(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) Л(193) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195)R$ Л(197) Л(202) Л(197) Л(202) Л(197) Л(202) Л(192) Л(207);0З Л(192) Л(207) Л(192) Л(200) Л(207)R$ Л(196) Л(192) Л(207)R$ Л(200) Л(197) Л(203) Л(194) Л(197) Л(202) Л(197) Л(197) Л(202) Л(202) Л(207) Л(192) Л(196)R$;0зЗ Л(197) Л(206) Л(204) Л(200) Л(197) Л(206) Л(205) Л(206)R$ Л(207) Л(204)R$ Л(204) Л(204) Л(207)R$ Л(207) Л(204)R$ Л(197) Л(202) Л(203) Л(197) Л(202);1.ЗR$ Л(197) Л(202)R$ Л(204) Л(204) Л(207)R$ Л(197) Л(202) Л(192)R$ Л(197) Л(202) Л(197) Л(202)R$ Л(207)R$ Л(202) Л(207)R$ Л(207)R$;1┐З Л(207)R$ Л(202) Л(197) Л(202) Л(197) Л(199) Л(202)R$ Л(197) Л(202)R$ Л(207)R$ Л(207)R$ Л(199) Л(203) Л(192)R$ Л(199) Л(203) Л(197) Л(203);2gЗ Л(193) Л(207) Л(195) Л(202) Л(207) Л(195) Л(207) Л(193) Л(207) Л(195) Л(202) Л(199) Л(203) Л(192) Л(197) Л(203) Л(192) Л(199) Л(203) Л(192) Л(207) Л(195) Л(207);2АI│1е1000:Е Т│""зЛI2ж╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,2482╖╚2,3:╝1:╚1,32ъ ╞"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45"3e!╗(50,80)м(78,100),╜,BF:╗(194,80)м(166,100),╜,BF:╗(102,80)м(142,100),╜,BF:╗(86,84)м(94,96),╜,BF:╗(150,84)м(158,96),╜,BF3s"╟3е1:╟4е23Д#╚2,3:╝1:╚1,34,$╞"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12"4Н%├(128,116),1,1:╞"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12"4╖&├(128,90),3,1:╞"BU20C1NL20C4R76C1R20"4┼'╟3е1:╟4е24╓(╚2,3:╝1:╚1,35E)╞"BM8,150C1H8R45U2R166D2R45G8L40D2L160U2L40H8M+32,-80R192M+32,+80L45H20L128NG20L40M+18,-52R176M+18,+52L42"5З*┬(76,94),14,1,.8:┬(176,94),14,1,.8:├(76,94),1,1:├(176,94),1,15╟+╗(76,86)м(176,102),╜,B:╗(96,90)м(156,96),╜,BF:├(128,74),3,16C,╞"C1BM50,144R154L2D2L150R2D2R146BL36C4U4L18D4BL40U4L18D4BU12C1BL14L4U2R4BR18R4U2L4BR32BU4R4U2L4BR32BD6R4D2L4BR26L4D2R4"6Q-╟3е1:╟4е26╨.╞"BM0,54C1U42R20":┬(16,24),16,1,.8,.8,.17:╞"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8"7b/╞"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10"7ї0╞"BR48U42R20":┬(154,24),16,1,.8,.8,.17:┬(154,44),16,1,.8,.8,.17:╞"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8"81┬(190,34),21,1,1.2:┬(190,34),13,1,1.28x2╞"BU18BR110NL8M-6,+42L12M-4,-26L2M-4,+26L12M-6,-42R9M+4,+26M+4,-26R12M+4,+26M+4,-26"93Т178,129:├(6,14),,1:Т178,33:├(48,14),,1:Т178,62:├(74,14),,1:Т178,150:├(94,14),,1:Т178,62:├(142,14),,1:Т178,190:├(181,18),,1:Т178,34:├(214,14),,1:╟3е1:╟4е29В4┬(14,170),16,1,.9:┬(14,170),10,1,.9:├(2,170),3,1:╞"BM34,182C1U24R6F12U12R6D24L6H12D12L6":├(36,180),3,19Р5╟3е1:╟4е2:K6╞"BR54U18L10U6R26D6L10D18L6BR18M+9,-24R10M+9,+24L6M-4,-8L8M-4,+8NL6M+4,-8BU4BR2R4U4L2U2LD2L2D4BM140,182U24R20D2R2D12L2D2L14D8NL4BU14U4R10D4L10BR24BD14U24R20D6L14D4R14D4L14D4R14D6L20":Ф7├(92,180),1,1:├(110,180),1,1:├(142,180),1,1:├(172,180),1,1:╟3е1:╟4е2;
8┬(216,176),12,2,.85,.85,.7:┬(216,176),10,2,.85:┬(216,176),8,2,.85:┬(216,164),10,2,.85:┬(216,164),8,2,.85;ж9┬(240,176),12,2,.85,.85,.7:┬(240,176),10,2,.85:┬(240,176),8,2,.85:┬(240,164),10,2,.85,.15,.9:┬(240,164),8,2,.85,.15,.9:╞"BM230,174C2U10R2D10BM255,186C4L60U2R60";┤:╟3е1:╟4е2;├;АII│1е1000;╓<Е Т│""з61:Д600;▐=ЛII;ЇXВ START MENU TEXT<
bМ A$(34)<lН MN$<5vАP│1е34:Н A$(P):Е A$(P)│"END"з640:ДЛP<QАЕ A$(P)│"END"з A$(P)│""<WКЮ<vФЗ"        RAINBOW ON TAPE"<ЦЮЗ"       (C) FALSOFT, 1985"<ЬиЗ<ї▓З "  (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"<√╝З=╞АP│1е7:ЗA$(P),A$(Pл7):ЛP=>╨З:З"  *=MACHINE LANGUAGE PROGRAM"=c┌З"   PRESS ANY KEY TO CONTINUE";=sфЕ  Т│""з740=yюЮ=в°З:З "  (XX)= PAGE NUMBER OF LISTING"=иЗ=╚АP│15е24:ЗA$(P),A$(Pл10):ЛP>З "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU">4 З "PRESS ^ (UP ARROW) TO EXIT MENU";>g*XX$│ Т:Е XX$│ Л(94) з Ю:К :Д Е XX$│""з810:Д650>w4З б(32,45);>ИшЖ "FEBRUARY">тЄЖ " (20) VALPRINT"," (23) VALNAME"," (28) PIXFILES"," (32) CRASHPRF"," (37) DISKMENU"?4№Ж " (39) DEBUG"," (41) MEMDUMP"," (45) CRUN*"," (46) INSTALL"," (46) TAPEDIR"?НЖ " (56) CLOCKBAS"," (56) CLOCK*"," (60) BUBBLWAR"," (67) MEMDIAG*"," (96) 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"@s$Ж "(167) SOUNDGEN","(172) XREF","(182) COMMANDO"@}'Ж END┐ ¤             ╜       ┐         ¤                         √ √     √ ∙     √ √     √ √     √ √     √ √     √   ─ДгДДДДД─Д─ДД B&
:ГPIX FILES&#:ГJOSEPH KOHN&?:Г4333 LARCHWOOD CR.,NW&V(:ГCANTON, OH 44718&k2ЕX│0з└8:X│1:Бе50&╬<Х3000,&H7FFF:МF$(68),GS(40,30),X$(22):FB│&HFF00:DK│&HC004:PB│ Ж(DKл2)н256л Ж(DKл3):DR│ Ж(PBл1)'╞FЖ GRAPHICOM PIX,graphicom pix,COCO MAX PIX,coco max pix,STANDARD PIX,standard pix,SEE WORKING PIX,see working pix,PIX DRIVE,pix drive, , ,QUIT,quit,TEMPORARY SAVE SCREEN 1,temporary save screen 1,TEMPORARY SAVE SCREEN 2,temporary save screen 2(PЖ SAVE SCREENS 1/2,save screens 1/2,ABORT SAVE,abort save,X((ZНX$(X):ЕX$(X)┤▓"X"зX│Xл1:Бе90(ld╚4,1:X$│"PIX FILES":Бж810:LN│0:АX│0е6:З@66л64нX,X$(2нX):Л:Бе750(║nJX│ Н(0):JY│ Б( Н(1)о10):JY│JYм(JY│5):ЕJY┤▓LN зЗ@66л64нLN,X$(2нLN):а100,1)xЗ@66л64нJY,X$(2нJYл1);:ЕJY▓2з130:ДЕJX┤32зЗ": load  SAVE":LS│0:ДЗ": LOAD  save":LS│1)\ВЕ Ж(FB)░1зLN│JY:З@331,DR:Бе110:ДИ JYл1 Бе 150,390,560,710,740,110,770){М:Г-----graphicom load/save)ОЦX$│X$(0):Бж810)ваБж870:ЕYN│0з100)╢кБж900:ЕN│0з1020)э┤Бж810:Бж880:ЕYN│0з100:ДБж250:ЕSN┤0з1020:ДЕ LS з220*╛:Г-----load graphicom**╚╝1:┐1:W│2:AD│&HE00:Бж320:Бе100*D╥:Г-----save graphicom*h▄┐1:AD│&HE00:W│3:Бж320:ЕSN│0з100*╟ц─(216,162)м(255,191),GS,G:╚4,5:┐1:┼(X1,Y1)м(X2м2,Y2м2),GS,╜:SN│0:AD│&H2600:W│3:Бж320:Бе100*ыЁ:Г-----load graphicom directory*··╚4,5:╝1:┐1+
AD│&H2600:SN│0:W│2:Бж320+-
:Г-----select pix+O
X│ Б( Н(0)о11):Y│ Б( Н(1)о13)+а
"Y1│(Yм(Y▓0))н32:X1│Xн42л1:X2│X1л41:Y2│Y1л31:АC│0е1:┴C:╗(X1,Y1)м(X2,Y2),╜,B:Л+ш
,Е Ж(FB)░1з280:ДSN│Yн6лXм4:╚4,1:ЕSN┤0зЮ:З"abort from graphicom":Р:ДР,8
6:Г-----graphicom i/o,w=2/3=read/write,tr=track,s=sector,a=address,dk=dskcon,^
@S│SNн24:TR│ Б(Sо18):S│Sм(TRн18)л1,Ф
JЕTR▓17 ▒ (TR│17 ░ S▓1)зS│Sл2:ЕS▓18зS│Sм18:TR│TRл1-
TАI│0е23:A│ADл256нI:ТPB,W:ТPBл1,DR:ТPBл2,TR:ТPBл3,S:ТPBл4, Б(Aо256):ТPBл5,Aм256н Б(Aо256):в  Ж(DK)н256л Ж(DKл1)-#
^S│Sл1:ЕS▓18зS│1:TR│TRл1-8
hЕTR│17 ░ S│2зS│4-@
rЛ:Р-^
|:Г-----coco max load/save-q
ЖX$│X$(2):Бж810-Е
РБж870:ЕYN│0з100-к
ЪБж810:Бж880:ЕYN│0з100:ДЕ LS з460-├
д:Г-----load coco max-я
оБж900:ЕN│0з1020:Д╝1:┐1:╙MF$( Й(K$))лDR$.D
╕Бж810:З"COPY SCREEN 2 TO WORKING PIX?":Бж850:Е YN зАX│5е8:╟ X е Xм4:Л:Бе100:Д100.]
┬:Г-----save coco max.К
╠Бж810:LN│0:АX│0е3:З@66л64нX,X$(2нXл14):Л.╬
╓JX│ Н(0):JY│ Б( Н(1)о20):ЕLN┤▓JY зЗ@66лLNн64,X$(2нLNл14):а100,1. 
рЗ@66л64нJY,X$(2нJYл15):Е Ж(FB)░1зLN│JY:Бе470/
ъИ JYл1 Бе500,510,530,100/g
ЇЕ г(DR)▓2зT1(DR)│1:┐1:╪M"TEMP/001"лDR$,&HE00,&H25FF,&HA027:Бе470:Д1030/╞
■Е г(DR)▓2зT2(DR)│1:┐1:АX│1е4:╟ X е Xл4:Л:╪M"TEMP/002"лDR$,&H2600,&H3DFF,&HA027:Бе470:Д1030/╘ЕJY│3з1000%Бж810:ЕT1(DR)│0 ▒ T2(DR)│0з1050:Д╗Й"FILE NAME? ";F$:Е F$│"" ▒  З(F$)▓8 з10400╣T1(DR)│0:T2(DR)│0:╝1:┐1:╙M"TEMP/001"лDR$:╥"TEMP/001"лDR$:╚4,5:╝1:┐1:╙M"TEMP/002"лDR$:╥"TEMP/002"лDR$:╪M F$л"/MAX"лDR$,&HE00,&H3DFF,&HA027:Бе1000╫&:Г-----standard load/save0ъ0X$│X$(4):Бж8101:Бж870:Бж830:ЕYN│0з1001)DБж810:Бж880:ЕYN│0з100:ДЕ LS з6801BN:Г-----load standard1VXБж900:ЕN│0з10201sb:Г-----check file length1еlNA$│F$( Й(K$))лDR$:Щ"D",1,NA$,1:╨1,1 з C$:R│11┐v─#1,R:Е К(C$)│255з6502&А─#1,Rл1:L│256н К(C$):─#1,Rл2:L│Lл К(C$):─#1,Rл3:A│256н К(C$):─#1,Rл4:A│Aл К(C$):SA│A:R│RлLл5:Бе6302_К─#1,Rл3:E│256н К(C$):─#1,Rл4:E│Eл К(C$):EA│AлLм1:Ъ#12жФЕ EAмSA┤▓&H17FF зЮ:З"not a picture file":Бе1020:Д╝1:┐1:╙MNA$:Бе1002┐Ю:Г-----save standard2╥иЕ г(DR)┤3з103036▓Бж810:╗Й"FILE NAME/EXT? ";FI$:Е З(FI$)▓13 ▒ FI$│""з100:Д┐1:╪M FI$лDR$,&HE00,&H25FF,&HA027:Бе1003Q╝:Г-----see working pix3^╞┐1:Бж8303u╨Е Ж(FB)░1з720:Д1003Ю┌:Г-----pix drive,dx=number of drives3╝фDX│2:DR│DRл1:ЕDR│DX зDR│03эюDR$│":"л Р( И(DR),2,1):З@331,DR:а100,1:Бе1103¤°:Г-----quit4X$│X$(12):Бж8104,З"ARE YOU SURE?":Бж8504BЕ YN з█:Ю:К :Д1004[ :Г-----title display4Ф*Ю:X│ З(X$):Y│ Б((32мX)о2):З б(Y,"*")X$ б(32мXмY,"*")4┤4:Г-----fire button debounce4╘>АX│0е100:Л:Е Ж(FB)░1зР:Д8304чH:Г-----prompts5 RЕ Н(0)┤32зЗ@135,"yes  NO":YN│1:ДЗ@135,"YES  no":YN│057\Е Ж(FB)░1з850:Д8305`fЗX$(LNн2)" DISK IN DRIVE"DR"?":Бе8505ЧpЗ"READY TO ";:Е LS зЗ"SAVE?":Бе850:ДЗ"LOAD?":Бе8505│z:Г-----disk file search60ДЮ:З"SEARCHING...":N│0:АZ│3е11:▀ DR,17,Z,B$(0),B$(1):АQ│0е1:АW│0е3:K$│ Р(B$(Q),Wн32л1,32):Е  К(K$)│255зZ│99:W│Z:Q│Z:Бе9506XОЕ К(K$)│0з950:ДИ LNл1 Бе920,930,9406ШШЕ Р(K$,12,1)│ Л(1) ░  О(K$,11)│"PICTURESGCM"зN│1:Бе950:Д9506щвЕ Р(K$,9,3)│"MAX" ░  Р(K$,12,1)│ Л(2)зN│Nл1:F$(N)│ О(K$,8)л"/MAX":Бе950:Д95078мЕ Р(K$,12,1)│ Л(2) ░  Р(K$,9,3)┤▓"MAX"зN│Nл1:F$(N)│ О(K$,8)л"/"л Р(K$,9,3)7k╢ЛW,Q,Z:ЕN│0 ░ LN│0зЮ:З"not a graphicom disk":Р7w└ЕLN│0зР7У╩ЕN│0зЮ:З"no pictures":Р7▐╘Ю:Q│1:АZ│1е3:АW│1е30:З@(Wм1)н16,"";:З═"##";Q;:З"."F$(Q):ЕQ│N зW│99:Z│W8▐Е Б(Qо30)│Qо30зЗ@480,"CONTINUE...";:╗ЙK$:ЛZ8lшQ│Qл1:ЛW,Z:З@480,"";:Й"NUMBER OF PIX TO LOAD";K$:ЕK$│""▒ Й(K$)┤1 ▒  Й(K$)▓N зN│0:Бе970:ДР8ЖЄ:Г-----error messages8г№а50,10:АX│0е1000:Л:Бе1008├Ю:З"no room on disk":Бе10208цЮ:З"improper file name":Бе102094Ю:З"no temporary file";:ЕT1(DR)│0 ░ T2(DR)│0зЗ"s":ДЕT1(DR)│0зЗ" 1":ДЗ" 2"9?$Бе1020170),3,1:╞"BM34,182C1U24R6F12U12R6D24L6H12D12L6":├(36,180),3,19Р5╟3е1:╟4е2:K6╞"BR54U18L10U6R26D6L10D18L6BR18M+9,-24R10M+9,+24L6M-4,-8L8M-4,+8NL6M+4,-8BU4BR2R4U4L2U2LD2L2D4BM140,182U24                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ?&!:ГFORMATTED HEX MEMORY DUMP&'
Ю&1M$│""&I
Й"ENTER TITLE: ";T$&ZЕ T$│"Q" з К&xЙ"ENTER START (HEX): ";S$&Ц
Й"ENTER END ADDRESS: ";E$&ЬЗ&╜Й"(S)CREEN OR (P)RINT): ";O$&╪Е O$│"S" з O│0:З:Бе 25&ЇЕ O$│"P" з O│м2:З:Бе 26'З:З"ENTER S OR P":Бе 20' Ю:S│8:Бе 30'RЗ:З"READY PRINTER.":З"PUSH ENTER WHEN READY."'mS│16:M$│"            "'vЙ O$'ЛЕ O$│"Q" з Бе 70'еЗ#O,M$;T$:З#O," ":L│2'╦А A│ Й("&H"лS$) е  Й("&H"лE$) й S'╫ З#O,M$;(!Е  З( Ь(A))┤4 з А P│ З( Ь(A))л1 е 4:З#O,"0";:Л P(!#З#O, Ь(A);" : ";(2(А SA│0 е Sм1(?)З#O," ";(c*Е  З( Ь( Ж(AлSA)))┤2 з З#O,"0";(y-З#O, Ь( Ж(AлSA));(В2Л SA(Н7З#O,""(и8Е O│м2 з З#O," ":Бе 65(▓<L│Lл1(┼=Е L┤15 з Бе 65(▀>T$│ Т:Е T$│"" з Бе 62(ч?L│0(яAЛ A(їFЗ)GЙ"MORE ?";O$)HЕ O$│"YES" з Бе 1)0IЕ O$│"Y" з Бе 1)6PЮ)<QКO│POм1:PX│PXм27:Бе45)nPO│POм1:PX│PXм1:Бе18)БЕA$┤▓ Л(10)з32)╢Бж43:З@(APлBP),ZQ$;:AP│APл32:ЕAP▓448зAP│448:Бе18)╨PO│POл6:PX│PXл32:Бе18)р ЕA$┤▓"^"з35*!Бж43:З@(APлBP),ZQ$;:AP│APм                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                gu0x2b╜е┼╜жH}
ф&╢
т'~ж╜н╜з|ЮЯ~▄~L╜м7╜з&4Ц|'0*эЯ╜зщОль╜╣Ь╜н!╜мя╜
ВО▌ЖRзАЖUзАЖNзАoД╞О▄O~м╜н~ж u0X): ";S$&Ц
Й"ENTER END ADDRESS: ";E$&ЬЗ&╜Й"(S)CREEN OR (P)RINT): ";O$&╪Е O$│"S" з O│0:З:Бе 25&ЇЕ O$│"P" з O│м2:З:Бе 26'З:З"EN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Є& :ГTAPE DIRECTORY WITH CRUN&&
Ю&>Х 200,32666:A│32666&KМ T$(24)&^
:ГINSTALL CRUN&·Ж 0F,78,32,62,BD,A5,C5,BD,A6,48,7D,01,E4,26,05,B6,01,E2,27,03,7E,A6,16,BD,AD,19,BD,A7,7C,9E,19,9F,7E,DC,7E,4C,BD,AC,37,BD,A7,0B,26,34,96,7C,27,30,2A,ED'КЖ 9F,1B,BD,A7,E9,8E,AB,EC,BD,B9,9C,BD,AD,21,BD,AC,EF,BD,01,82,8E,02,DD,86,52,A7,80,86,55,A7,80,86,4E,A7,80,6F,84,C6,04,8E,02,DC,4F,7E,AC,7F'в
Ж BD,AD,19,7E,A6,19'┤А P│A е Aл101'═Н D$:Т P, Й("&H"лD$)'╒Л P'Ў:ГINITIALIZE DIRECTORY TABLE(T$(1)│"DIR     "( T$(2)│"MEMDUMP "(5T$(3)│"INSTALL "(JT$(4)│"CRUN    "(_T$(5)│"        "(tT$(6)│"        "(ЙT$(7)│"        "(ЮT$(8)│"        "(│T$(9)│"        "(╔T$(10)│"        "(▀T$(11)│"        "(ї T$(12)│"        ")!T$(13)│"        ")!"T$(14)│"        ")7#T$(15)│"        ")M$T$(16)│"        ")c%T$(17)│"        ")y&T$(18)│"        ")П'T$(19)│"        ")е(T$(20)│"        ")╗)T$(21)│"        ")╤*T$(22)│"        ")ч+T$(23)│"        ")¤,T$(24)│"        "*2:ГDISPLAY TAPE DIRECTORY*;3З"         TAPE DIRECTORY":З*a4З"  A - ";T$(1);"    M - ";T$(13)*З5З"  B - ";T$(2);"    N - ";T$(14)*н6З"  C - ";T$(3);"    O - ";T$(15)*╙7З"  D - ";T$(4);"    P - ";T$(16)*∙8З"  E - ";T$(5);"    Q - ";T$(17)+9З"  F - ";T$(6);"    R - ";T$(18)+E:З"  G - ";T$(7);"    S - ";T$(19)+k;З"  H - ";T$(8);"    T - ";T$(20)+С<З"  I - ";T$(9);"    U - ";T$(21)+╕=З"  J - ";T$(10);"    V - ";T$(22)+▀>З"  K - ";T$(11);"    W - ";T$(23),?З"  L - ";T$(12);"    X - ";T$(24),.@З:З"   USE (shift)(clear) TO EXIT";,8A┐ 0,1,PF:ГPROGRAM SELECTION,jGD$│ Т:Е D$│"" з Бе 71,~HЕ  К(D$)│92 з К,вIЕ  К(D$)┤65 ▒  К(D$)▓88 з Бе 71,╧JЕ T$( К(D$)м64)│"        " з а 1,3:Бе 71,яK┐ 0,0:в 32664:T$( К(D$)м64)";D$:D│ Й("                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
ж&
:ГUTILITY CLOCK&+:ГBY MARTY AMBROS&2:Г&N(Х 200,32000:╙M"CLOCK":Ю&^2╣ Г0│&H7D17&|<Й"WHAT HOUR IS IT NOW";HH&ЯFЕ HH┤1 ▒ HH▓12 з а200,1:Ю:Бе60&нPHH│ Б(HH)&╜ZТ &H7D07,HH&щdЕ HH┤10 з Т &H7D00,0:Т &H7D01,HH:Бе 120'nТ &H7D00,1:Т &H7D01,HHм10'
xЮ',ВЙ"AND HOW MANY MINUTES";MM'PМЕ MM┤0 ▒ MM▓59 з а200,1:Ю:Бе130'^ЦMM│ Б(MM)'ОаТ &H7D02, Б(MMо10):Т &H7D03,MMм10н Б(MMо10)'ЫкA│ Г0(0)'г┤Ю:Ц P│A е Aл101'═Н D$:Т P, Й("&H"лD$)'╒Л P'Ў:ГINITIALIZE DIRECTORY TABLE(T$(1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                °0P╜й(1Н
A╜б┴'√Б1'Б2'Б3'(Б4'╡ чО? пН┼О16пН
6 1О пН╡О32пН
& !О■ пНеО64пН
ОА╖ ▐жА╖ ▀змНН%Ё╜й(1Нх▌╜б┴'√нЯаБL'ЮБS&уО  1Н vпН`0
цДчН]цчНXц
чНP╞ чч
oДOбД'
╗М'мН5'с
'
йс'
вCSc
ccДбД'
УМ'мН
'с'
Бс
'
zцН
√ч
цН
ЎчДцН
ёчмН
ч'
╩мН
▌& y0Н
▌ rОцДoДOбД'
BlДLБ&ЄчАмН
╕'
ЫмН
о&▌0Н
░ ╫нЯажа&°9     MEMORY DIAGNOSTIC 64K      
SHORT OR LONG?
DATA ERROR:
ADDRESS=XXXX
EXPECTED DATA=XX
ACTUAL DATA=XX
WANT TO CONTINUE? (Y OR N)
DIAGNOSTIC COMPLETE

**PRESS ANY KEY TO CONTINUE**COLOR COMPUTER MEMORY DIAGNOSTIC
  !ENTER MEMORY SIZE (1-4)

  1) 16K
  2) 32K
  3) 64K
  4)ABORT46пНxзНv1Н 1и0НiН.1!Н*1иН%оb1.Н1Н■ъ■▓1Н ■лo'√нЯаБY' '5╢жДДЁDDDDБ	.Л0 Л7зажАДБ	.Л0 Л7зд91Н■№■n╜б┴'√а╖ ▐~а'&╬3╡ 3═3F╞ 0Rл10)│8 ▒  а(Uм1,Rл21)│8 ▒  а(Uл10,Rл21)│8 ▒  а(Uл21,Rл21)│8 з 870)P
┬S│ Д(PG))c
╠Е S│1 з Бж 620)o
╓K│ Н(0)){
рL│ Н(1))Ч
ъ┼(U,R)м(Uл20,Rл20),M2,╜)к
ЇЕ K▓31 з U│Uл4)╜
■Е K┤31 з U│Uм4)╨Е L▓31 з R│Rл4)уЕ L┤31 з R│Rм4)ЇPK│ Ж(65280)*&Е PK│1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ф&I:Г* LINES 0 THROUGH 90 AND ALL REMARKS LINES CAN BE DELETED WITHOUT&m
:Г* AFFECTING PROGRAM OPERATION&п:Г* SINCE I'M PROUD OF THE PROGRAM, I'D RATHER YOU LEFT LINES&╠:Г* 10 THROUGH 80 ALONE.&╥Ю&ў
З "    ************************"'З "    * FILESRCH - DISK FILE *"'AЗ "    * COPY ROUTINE FOR THE *"'f(З "    * COLOR COMPUTER W/16K *"'Л2З "    * BY PETE EICHSTAEDT   *"'░<З "    * APT D-308            *"'╒AЗ "    * 2045 PRENTISS DRIVE  *"'·FЗ "    * DOWNERS GROVE, IL    *"(KЗ "    *              60516   *"(DPЗ "    ************************"(lZ:Г* CLEAR AND ALLOCATE STRING SPACE(x_Бе 3600(ЧdХ 1000:М PG$(72):М PP$(72)(▐╚Й "WHICH IS INPUT DRIVE";ID$:ID │  Й(ID$):Е ID ┤0 ▒ ID ▓ 3 Бе 2500)&
,Й "WHICH IS OUTPUT DRIVE";OD$:OD │  Й(OD$):Е OD ┤0 ▒ OD ▓ 3 Бе 2500)┼
ЇЗ "WHICH FILE TYPE SOULD BE SOUGHT":З "  0 = BASIC PROGRAM":З "  1 = BASIC DATA FILE":З "  2 = MACHINE LANGUAGE PROGRAM":З "  3 = TEXT EDITOR SOURCE FILE")№
■╗ Й "  4 = ALL ";FT$::Е FT$ ┤"0" ▒ FT$ ▓"4" Бе 500*
FT │  Й(FT$)*^&Е ID ┤▓ OD з а 50,3:З "PUT SOURCE DISK IN DRIVE";ID:Й "AND PRESS <ENTER>";Z$*СN:Г* EACH DISK HAS 9 SECTORS FOR RECORD ENTRIES*вXА S │ 3 е 11*╦▓:Г* CLEAR THE PROGRAM RECORD COUNTER+&╝PG │ 0:Е ID │ OD з Ю:а 50,3:З "PUT SOURCE DISK IN DRIVE";ID:╗ Й "AND PRESS 'ENTER'";Z$+I:Г* READ THE DIRECTORY SECTORS+h ▀ ID, 17, S, DR$(1),DR$(2)+Тz:Г* IDENTIFY THE STRING TO MANIPULATE+вДА H │ 1 е 2+├▐:Г* EACH RECORD HAS 32 BYTES+█шА EN │ 1 е 128 й 32+∙B:Г* INCREMENT THE COUNTER,LPG │ PGл1,>ж:Г* WE ONLY NEED THE FIRST 12 BYTES OF EACH RECORD,Мл:Г* BYTES 1-8 HAVE THE NAME, 9-11 THE EXTENSION, AND 12 HAS THE FILE TYPE,л░PG$(PG) │  Р(DR$(H),EN,12),Ў║:Г* IF THE FIRST BYTE IS $0 THE RECORD WAS KILLED, GET THE NEXT RECORD-\т:Г* IF THE FIRST BYTE IS $FF THERE ARE NO MORE ENTRIES (UNLESS YOU HAVE SOME WEIRD PROGRAM NAMES)-ВьЕ  О(PG$(PG),1) │  Л(255) Бе 1500-═
:Г* CHECK THE FILE TYPE.  IF IT MATCHES, PROCEED, ELSE GET NEXT RECORD.Е  П(PG$(PG),1) │  Л(FT) з Бж 1900 :Д Е FT│4 Бж 1900.5n:Г* GET NEXT ENTRY, CURRENT STRING, SECTOR.DxЛ EN, H, S.W╥:Г* TRY AGAIN?.]▄Ю.}@Й "SEARCH ANOTHER DISK";YN$.░дЕ  О(YN$,1) │ "Y" ▒  О(YN$,1) │ "y" з Ю:Бе 200/■:Г* CLOSE OPENED FILES AND PERFORM A COLD START.  REPLACE WITH "CLOSE:END" TO STOP COLD START/)Ъ:Т 113,0:в &HA027/jb:Г* PUT A "." BETWEEN THE NAME AND EXTENSION (SAME AS A "/")/ЦlOP$ │  О(PG$(PG),8)л"."л Р(PG$(PG),9,3)/╢vЕ G┤│1 з Бе 2600 :Д Бе 26300╞:Г* IF YOU'RE ONLY USEING ONE DRIVE, MAKE SURE IT'S THE DEFAULT DRIVE0╨Е ID │ OD з ╧ ID0;юЗ:З "COPYING ";OP$;" TO DRIVE";OD0_Е  О(PG$(PG),1) │  Л(0) Бе 23000╡*:Г* IF YOU'RE USING TWO DRIVES, COPY FROM THE INPUT DRIVE AND TO THE OUTPUT DRIVE0ў4Е ID ┤▓ OD з ▐ OP$л":"л П(ID$,1) е OP$л":"л П(OD$,1) :Д ▐ OP$12О:Г* IF YOU'RE USING ONLY ONE DRIVE, PROMPT DISK SWITCH1ПШЕ ID │ OD ░ PG ┤│ 1 з Ю:З "INSERT SOURCE DISKETTE AND      PRESS 'ENTER'";:а50,3:╗ Й NX$1лЄ:Г* GET THE NEXT RECORD1▒№Р1╖	`К1ы	║:Г* IF YOU MESS UP, COCO TELLS YOU AND RESTARTS2@	─Ю 4:а 100,1:а 150,1:а 100,1:З @ 232, "INVALID DRIVE!";:А X │ 1 е 1000:Л:Ю:Бе 2002q	Ў:Г* SHORTSTOP OVERFLOW INTO THE NEXT ROUTINE2д
:Г* IF IT GETS HERE IT DOESN'T BELONG ... END!2к
К2╙
#:Г* CHECK FOR SINGLE DRIVE OPERATION35
(Е ID │ OD з Ю:а 50,1:З "INSERT DESTINATION DISKETTE IN  DRIVE";OD;:╗ Й "AND PRESS 'ENTER'";Z$3X
<:Г* SEE IF FILE ALREADY EXISTS3з
FЗ:З "CHECKING DESTINATION DISKETTE":З "FOR ";OP$:З "TO PREVENT <AE ERROR>"3┐
ZPP│0: А SS │ 3 е 113▄
М▀ OD,17,SS,CK$(1),CK$(2)3э
ЁА HH │ 1 е 24TА EE │ 1 е 128 й 324╕PP │ PP л144PP$(PP) │  Р(CK$(HH),EE,12)4PАЕ PP$(PP) │ PG$(PG) з Р4vЩЕ  О(PP$(PP),1) │  Л(255) Бе 33504З▓PP$(PP) │ ""4ЦфЛ EE,HH,SS4╦
:Г* IF YOU GET THIS FAR, THE FILE MUST BE COPIED5
:Г* CHECK FOR SINGLE DISK OPERATION, THEN CALL THE COPY ROUTINE5f
Е ID │ OD з Ю:а 50,1:З "INSERT SOURCE DISK IN DRIVE";ID:╗ Й "AND PRESS 'ENTER'";Z$5r
HБе 20005Ц
z:Г* SHORTSTOP RUNAWAY OPERATION5Ь
мК5╥
▐:Г* CLEAR AS MUCH MEMORY AS YOU CAN THROUGH BASIC5с└ 1:Бе 100B$(1):АQ│0е1:АW│0е3:K$│ Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
В&
:ГQUICK RESTORE&&:ГJOHN GALUS&B:Г55 WILKESBARRE AVENUE&c:ГLACKAWANNA, NEW YORK 14218&r
Х10,&H7FEF&ИЮ:X│&H7FF0:╣ Г0│X&ЭН A:Е A│м99 з 50&▓(Т X,A:X│Xл1:Бе30&╥2Й"ENTER ROOM NUMBER 1-4";NU&т<LN│90лNUн10&ЁFZ│ Г0(LN)'PН A$:ЗA$:Бе50'@ZЖ 189,179,237,221,43,189,173,1,158,71,48,31,159,51,57,-99'OdЖ ROOM ONE'^nЖ ROOM TWO'oxЖ ROOM THREE'ВЖ ROOM FOUR(PGл2),1),&H5A00'аdв&H379B'Єn╥"PRT.PG"л П( И(PG),1):╥"PRT.PG"л П( И(PGл1),1):╥"PRT.PG"л П( И(PGл2),1):Л PG(xЗ:З"DONE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 .&:Г<LISTING1>&+
:Г(C) 1984, J. KOLAR&IЮ:З@ 137,"TIN EAR LAMENT"&dX│1263 :ГPOKE LOCATION&|Т1262,128:Т1264,128&ЩA│255 :ГORANGE 16TH NOTE&╡B│159 :ГYELLOW 8TH NOTE&╧C│207 :ГBUFF 4TH NOTE&ьD│239 :ГMAGENTA 1/2 NOTE'	E│128 :ГALL PAUSE DURATIONS'
ТX,B'(╔"V20O3L8CDEC"'1ТX,C'B(╔"V15O2L4EF"'K2ТX,B'^<╔"V20O2L8CDEC"'gFТX,A'P╔"V15O3L16FACEECAF"'ИZТX,B'Шd╔"O2L8FACE"'бnТX,D'оx╔"O3L2C"'╖ВТX,B'╚М╔"V20L8ECAF"'╤ЦТX,A'ча╔"L16FACEV15FACE"'ЁкТX,B(┤╔"V15O2L8ECAFO3FA"(╛ТX,C(#╚╔"V10L4ECO2GE"(1═А Q│1 е 2(:╥ТX,E(D▄╔"P4"(MцТX,C(gЁ╔"V20L4FV15AV10CV15E"(p·ТX,B(~
╔"L8DEGC"(З
ТX,A(Я
╔"O2L16GGAAGGEV15C"(и
"ТX,B(╖
,╔"V20O3ED"(└
6ТX,A(┌
@╔"V25L16CO2BAGBAGO3C"(у
JТX,B(Є
T╔"V20L8ED"(√
^ТX,C)
h╔"V15L4CO2A")
rТX,D)#
|╔"V10L2C")+
ЖЛ Q,"PRESS ENTER TO GO ON";)S
hEN$│ Т)q
rЕ EN$│ Л(13) з 380 :Д 360)Ч
|Ю:З@3,"WHAT I LIKE ABOUT MYSELF";)ж
ЖЗ@64,"1.";)╢
РЗ@160,"2.";)╞
ЪЗ@256,"3.";)╘
дЗ@354,W$;*

оЗ@384,"ENTER ^ TO REVIEW YOUR ANSWERS.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 к&:ГKOLAROLA&)
:Г(C) 1984, J. KOLAR&5╚2:╝:╚4&K(A│170:B│106:P│1.7&t2М B(2), D(2), F(2), H(2), I(2), J(2)&Д=╞"BM14,0D4"&Ф?╞"BM38,4L4"&дA╞"BM54,8U4"&┤C╞"BM70,4R4"&╔D╞"BM80,0F8BU8G8"&хE┬(94,4),1,1:┬(94,4),3,1&№G─(10,0)м(18,8),B,G'I─(30,0)м(38,8),D,G'*K─(50,0)м(58,8),F,G'AM─(70,0)м(78,8),H,G'XN─(80,0)м(88,8),I,G'oO─(90,0)м(98,9),J,G'zZ╝:┐1,1'ОiА R│80 е 24 йм8'пnА Z│2000 е 1538 йм33:C│PнZмR'┐xC│CлPп2о180'э▐X│ Б(Aм6лRн Х(Cм.6)):Y│ Б(Bм6лRн Е(Cм.3))(
с┼(Xм40,Yм10)м(Xм32,Yм2),B,и(-ц┼(Xм40,Yм10)м(Xм32,Yм2),D,и(Mы┼(Xм40,Yм10)м(Xм32,Yм2),F,и(mЁ┼(Xм40,Yм10)м(Xм32,Yм2),H,и(ЦЄ┼(Xм40,Yм10)м(Xм32,Yм2),J,╜:а45,1:ЛZ(╛■АQ│1е 5:┼(Xм40,Yм10)м(Xм32,Yм2),J,╛(▐ ┼(Xм40,Yм10)м(Xм32,Yм2),J,╜(ї
а10,2:а100,1:ЛQ:ЛR)Т

АQ│1е200:Л:╔"V20O3DDL8EEL16FACEL8AAL32FL16FEL8DEP8V25L16GBO4DO3DBDCCL4EEV15DCL2P2V20L16FACEL8FACEL16FACEL4EDL2CV15O1BABO2CEFGL16GGDDEEO1BBL8O2CCDCL2DCC")з
АQ│1е1000:Л:Бе90@160,"2.";)╞
ЪЗ@256,"3.";)╘
дЗ@354,W$;*

оЗ@384,"ENTER ^ TO REVIEW YOUR ANSWERS.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╓&
:Г=>SUPERCLS V1.0<=&0:Г GERRY SCHECHTER&I:Г75 MIDLAND TERRACE&a:ГYONKERS, NY 10704&w:Г  FEBRUARY 1984&Р:Г"'"'"'"'"'"'"'"'"'&ЦdЮ&║nЗ"    **  S U P E R  C L S  **"&┼xБе 420&▌ВX │  Г0(169):Бж 510&ЇМX │  Г0(32):Бж 510'	ЦЗ@64,"SUPER CLS"'!аX │  Г0(179):Бж 510'8кX │  Г0(32):Бж 510'P┤З@128,"  SUPER CLS"'h╛X │  Г0(154):Бж 510'╚X │  Г0(32):Бж 510'Щ╥З@192,"    SUPER CLS"'▒▄X │  Г0(236):Бж 510'╚цX │  Г0(32):Бж 510'фЁЗ@256,"      SUPER CLS"'√·X │  Г0(42):Бж 510(
X │  Г0(32):Бж 510( 
З@320,"";(2
А Z │ 1 е 255(A
"X │  Г0(Z)(K
,а Z,1(S
6Л Z(_
@З@0,"";(o
JX │  Г0(32)(З
TА Z │ 32 е 480 й 32(У
^З@Z,"";(г
hX │  Г0(32)(└
r╔"T255L255O1V31;1V<1V<1"(╦
|Бж 520(╙
ЖЛ Z(у
РЗ@448,"";:К)
Ъ:ГPROTECT MEMORY AND              DEFINE USER CALL)c
дЕ  Ж(116) │ 127              з Х 200,32735            :Д Х 200,16351)п
оЕ  Ж(116) │ 127              з ML │ 32736                 :Д ML │ 16352)╛
╕╣  Г0 │ ML)р
┬:ГPOKE ML PROGRAM INTO MEMORY)ї
╠А X │ ML е MLл29)■
╓Н X$*
рТ X, Й("&H"лX$)*
ъЛ X*%
ЇБе 130*1
■а 255,2*CА X │ 1 е 500*KЛ X*QР*n&:ГDATA FOR ML SUBROUTINE*}0Ж BD,B3,ED*Й:Ж 9E,88*ХDЖ C1,20*бNЖ 26,0D*нXЖ A6,84*╣bЖ 88,40*┼lЖ A7,80*╘vЖ 8C,05,FF*рАЖ 23,F5*ьКЖ 20,07*°ФЖ E7,80+ЮЖ 8C,05,FF+иЖ 23,F9+▓Ж 39+;╝:ГSOURCE FOR ML SUBROUTINE+T╞:Г        ORG  $7FE0+k╨:ГCURSOR  EQU  $88+Д┌:ГSTART   JSR  $B3ED+Юф:Г        LDX  CURSOR+╡ю:Г        CMPB #32+╬°:Г        BNE  LOOP2+ф:ГLOOP1   LDA  ,X+№:Г        EORA #$40,:Г        STA  ,X+,, :Г        CMPX #$5FF,E*:Г        BLS  LOOP1,_4:Г        BRA  RETURN,v>:ГLOOP2   STB  ,X+,ПH:Г        CMPX #$5FF,иR:Г        BLS  LOOP2,║\:ГRETURN  RTS,╙f:Г        END  START,Ё
X$│ Т:ЕX$│ Л(3)з270-
ЕX$│"N"з31                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Й&"
:ГSOUND STORY 2 (THE SEQUEL)&8:ГBY BILL BERNICO&P:Г708 MICHIGAN AVE.&j(:ГSHEBOYGAN, WI 53081&2:Г(414) 459-7350&Ж<:Г&¤FЖ 16,190,63,0,190,63,3,166,128,72,72,183,255,32,141,12,31,16,179,63,5,38,240,49,63,38,233,57,182,63,2,74,38,253,57'PА I│16135 е 16169'ZН A'%dТ I,A'-nЛ I'<x╣ Г0│16135'ZВТ 65281,( Ж(65281) ░ 247)'xМТ 65283,( Ж(65283) ░ 247)'ФЦТ 65315,( Ж(65315) ▒ 8)'║аЮ:З@3,"SOUND STORY 2 (THE SEQUEL)'╨кЗ@75,"selections:'ф┤N│0:D│0:S│0:E│0(╛З@128,"1. 78 RPM RECORD SCRATCHING(1╚З@160,"2. WILD AMINAL MATING CALL(U╥З@192,"3. SOMEONE DIALING '555'(u▄З@224,"4. FRONT DOOR BUZZER(ЪцЗ@256,"5. WILLIE WONKA'S FACTORY(╝ЁЗ@288,"6. A PEG-LEG CENTIPEDE(▐·З@320,"7. DEATH RAY SPACE GUN)
З@352,"8. NUCLEAR POWERED HUMMINGBIRD)+
З@384,"9. (RANDOM) YOU NAME IT)J
З@448,"SELECT (1-9) OR eND)a
"A$│ Т:Е A$│""з 290)s
,Е A$│"E"з Ю:К)л
6M│ Й(A$):И M Бе 330,340,350,360,370,380,390,400,410)╢
@Бе 290*
JЮ:З@132,"A 78 RPM PHONOGRAPH NEEDLE      AT THE END OF THE RECORD.":N│6:D│33:S│56789:E│60000:Бе420*Ю
TЮ:З@132,"IT'S THE MATING CALL OF         PURPLE-BELLIED, FRILLY-         CROWNED, 3-TOOTH SNIPE.":N│6:D│143:S│44:E│999:Бе420+
^Ю:З@130,"THIS IS WHAT IT SOUNDS LIKE     FROM YOUR END WHEN YOU DIAL     '555'.":N│3:D│190:S│888:E│2222:Бе420+f
hЮ:З@132,"IT COULD ALSO BE THE BACK       DOOR BUZZER.":N│255:D│2:S│11:E│111:Бе420+ы
rЮ:З@132,"YOU'RE INSIDE THE FACTORY       WHERE THEY MANUFACTURE THE      EVERLASTING GOB STOPPERS!":N│10:D│33:S│333:E│3333:Бе420,Р
|Ю:З@132,"   READY...MARCH.               LEFT,RIGHT,RIGHT,RIGHT,         LEFT,RIGHT,RIGHT,RIGHT,         LEFT,RIGHT,RIGHT,RIGHT...":N│8:D│108:S│809:E│2334:Бе420-
ЖЮ:З@132,"YOU JUST GOT ZAPPED BY          COMMANDER COMMOTION OF          THE 33RD STAR FLEET!":N│35:D│44:S│66:E│444:Бе420-К
РЮ:З@132,"IF THERE WAS SUCH A THING,      THIS IS WHAT IT WOULD SOUND     LIKE...OR WOULD IT?":N│77:D│7:S│77:E│777:Бе420-╓
ЪЮ:З@132,"WHAT THE HECK WAS THAT?":N│2:D│ Д(255):S│ Д(3000):E│ Д(3000)лS.
дТ 16128, Б(Nо256):Т 16129,Nм Б(Nо256)н256.
оТ 16130,D.@
╕Т 16131, Б(Sо256):Т 16132,Sм Б(Sо256)н256.n
┬Т 16133, Б(Eо256):Т 16134,Eм Б(Eо256)н256.{
╠A│ Г0(0).Ж
╓Бе 160";.Ы
YЗ"=> $ ";.е
^Бж405.╙
cЕ  Б(Cн100000л.5)│ Б((AмB)н100000л.5)з465/
hЕ  Б(Cн100000л.5)┤▓ Б((AмB)н100000л.5)з я&
Т150,1:Бе72&╜З@0, б(46,128);"xref"; б(46,128);:З@129,"PROGRAM-ID: ";F$(F):З@196,"LINE NO: ";:З═"######";LN:З@257,"LINE COUNT: ";:З═"######";LCм1:З@321,"BYTE COUNT: ";:З═"######";BC'З@386,"REF COUNT: ";:З═"######";RCл1:З@453,"MEMORY: ";:З═"######"; У:Р'!M│ Й(M$):ЕM┤0▒M▓3з88'QLC│0:BC│0:PZ│0:V$│"":C$│"":VC│91:RC│м1:SZ│0'oЮ:АI│0е91:VN(I)│м1:Л:Бж68'ДТLO,0:Е М(DN)з43'з╗Й#DN,L$:ТHI,0:ЕM▓1Бж64:ЕM│2з7'╥	LG│ З(L$):BN│0:ER$│"":LC│LCл1:BC│BCлLG'∙
LP│ Ю(L$," "):LN│ Й( О(L$,LP)):Бж2(ЕLN▓32767зLN│LNм65536(/LP│LPл1:ЕLP▓LG Бж30:Бе7(B
C$│ Р(L$,LP,1)(oЕC$▓│"A"░C$┤│"Z"з22:ДЕC$▓│"0"░C$┤│"9"з41(НЕC$│" "з12:ДЕC$┤▓","зBR│0(╛ЕC$│ Л(34)Бж30:LP│ Ю(LPл1,L$,C$):ЕLP▓0з12:Д7(╥ЕC$│"'"Бж30:Бе7(чЕC$│"$"Бж39:Бе12(ўЕC$│"("Бж39)Бж30:ЕC$┤▓","зER$│"")Бе12)6C│ К(C$):P│PT(Cм65):BN│0)KЕC┤ К(RW$(P))з42)qЕ Ю(LP,L$,RW$(P))┤▓LP зP│Pл1:Бе23)ЕБж30:RW$│RW$(P))▓ЕRW$│"DATA"зLP│ Ю(LP,L$,":"):ЕLP▓0з12:Д7)├ЕRW$│"REM"з7)·ЕRW$│"GOTO"▒RW$│"THEN"▒RW$│"ELSE"▒RW$│"GOSUB"зBN│1*LP│LPл З(RW$)м1:Бе12* ЕV$│""зР*rЕV$▓│"A"зV$│V$лER$:C│ К(V$)л1:ДЕV$▓│"0"зV$│ П("    "лV$,5):C│ Й( О(V$,2)):Д38*А IL│м1:I│C*з!ЕV$▓V$(I)зIL│I:I│VN(I):ЕI▓0з33:Д35*х"ЕV$│V$(I)зJ│LS(Iм91):ЕRF(J)│LN з38:ДRC│RCл1:NX(J)│RC:Бе37+#VC│VCл1:ЕIL▓│0зVN(IL)│VC+3$V$(VC)│V$:VN(VC)│I:RC│RCл1:FR(VCм91)│RC:I│VC+W%RF(RC)│LN:NX(RC)│м1:LS(Iм91)│RC+c&V$│"":Р+x'ЕV$┤▓""зV$│V$лC$+~(Р+С)ЕV$│""░BN│0з12+г*V$│V$лC$:Бе12+о+ЕM│2зР+╝,PZ│0:Бж62+╠-АJ│0е91:V│J+р.V│VN(V):ЕV┤0з58,/ЕLZ▓54Бж62:ДSZ│SZл1:ЕSZ│3Бж63,-0Е О(V$(V),1)┤▓" "░QQ│0░RZ┤▓3зQQ│1:Бж63,Y1RZ│0:I│FR(Vм91):ТLO,0:З#м2,V$(V);:ТHI,0,z2ЕRZ│0зТLO,0:З#м2,д16);:ТHI,0,Щ3LN│RF(I):ЕLN┤0зLN│LNл65536,┐4ТLO,0:З#м2,═"    #####";LN,:ТHI,0,╦5RZ│RZл1-6ЕRZ▓ZR зRZ│0:ТLO,0:З#м2:ТHI,0:LZ│LZл1:ЕLZ▓74Бж62-7I│NX(I):ЕI▓0з50-78ЕRZ▓0зТLO,0:З#м2:ТHI,0:LZ│LZл1-@9Бе46-G:ЛJ-a;ТLO,0:З#м2, б(LW,"=")-╢<З#м2,"LINE: ";LCм1;"     BYTE:";BC;"     SYMBOLS:";VCм91;"     REFERENCES:";RCл1-╩=LZ│LZл3:ТHI,0:Р.>Бж68:ТLO,0:З#м2,"SYMBOL";д20)"REFERENCE LINE":LZ│LZл1.3?ТLO,0:З#м2, б(LW,"-"):LZ│LZл1:SZ│0:ТHI,0:Р.;@X│1.YAЕLZ▓56▒ П(L$,3)│",PG"Бж68.еBY│ Ю(X,L$, Л(10)):ЕY▓0зТLO,0:З#м2, Р(L$,X,YмX):LZ│LZл1:ТHI,0:X│Yл1:Бе66.хCТLO,0:З#м2, Р(L$,X,LW):LZ│LZл1:ТHI,0:X│XлLW:ЕX┤ З(L$)з67:ДР/DТLO,0:ЕZZ│0зZZ│1:Бе69:ДЗ#м2, Л(12)/@EPZ│PZл1:З#м2:З#м2,дLWм8)"PAGE ";:З#м2,═"###";PZ/RFЗ#м2,PR$:З#м2/cGLZ│4:ТHI,0:Р/╚HХ1500:I│400:МVN(490),V$(490),FR(400),LS(400),RF(1300),NX(1300),RW$(120),PT(25):HI│65495:LO│65494/ыIDN│1:LW│80:ZR│6:Ю:З б(32,166);0^JЗ"  XREF COLOR BASIC VERSION 1.0":З б(32,166);:З"   (C)1984 WESTERN HORIZON":Зд11)"SOFTWARE LTD.":З б(32,166);0ЭKЗ"LISTS ALL VARIBLES & REF LINE #":З б(32,166);:ТHI,0:RW│00╞LНRW$:RW│RWл1:RW$(RW)│RW$:ЕRW$│"\"з790юMI│ К(RW$)м К("A"):ЕPT(I)│0зPT(I)│RW0ўNБе761OАI│0е25:ЕPT(I)│0зPT(I)│RW1!PЛ:ТLO,01*QFX│01IRЗ"PROGRAM-ID"FXл1":";:╗ЙL$1`SЕL$│""зЕFX┤1зК:Д871МTЕ(DN│м1)з85:ДЕ Ю(L$,"/")│0зL$│L$л"/BAS"1вUFX│FXл1:F$(FX)│L$1лVБе821эWЗ:Т282,0:╗Й"DATE = ";D$:Т282,255:З:З"1) XREF 2) LIST 3)BOTH "2
XM$│ Т:ЕM$│""з882
YАF│1еFX2XZТLO,0:Ъ:Щ"I",#DN,F$(F):PR$│ Л(34)л""лF$(F)л Л(34)л"  -  "лD$:ТHI,0:Бж42_[ЛF2u\ТLO,0:З#м2, Л(12)2{]К3E^ЖABS,AND,ASC,AS,ATN,AUDIO,CIRCLE,CLS,CHR$,CLEAR,CLOSE,COLOR,COS,CSAVE,CSAVEM,CLOAD,CLOADM,CVN,DATA,DEF,FN,DLOAD,USR,DEL,DIM,DSKI$,DSKO$,DRAW,ELSE,END,EOF,EXP,EXEC,FREE,FIELD,FILES,FIX,FOR,GET,GOSUB40_ЖGOTO,HEX$,IF,INKEY$,INPUT,INSTR,INT,JOYSTK,KILL,LEFT$,LEN,LINE,LOAD,LOADM,LOC,LOF,LOG,LSET,MID$,MKN$,MEM,RENAME,NEW,NEXT,NOT,ON,OPEN,OR,MOTOR,OFF,PEEK,POINT,PPOINT,POKE,POS,PUT,PRESET,PSET,PAINT,PCLS,PCLEAR,PCOPY,PLAY,PMODE,PRINT4ь`ЖREAD,REM,RESET,RESTORE,RETURN,RIGHT$,RND,RSET,RUN,SAVE,SAVEM,SGN,SIN,SQR,STEP,STOP,STR$,STRING$,SCREEN,SKIPF,SOUND,STOP,TAB,TAN,THEN,TIMER,TO,UNLOAD,USING,VAL,VARPTR,WRITE,VERIFY,"\"RKA,DISK,BOOK,