Бж770/$ЕPN│0зР/+.ЕPT(PN)│0з╙PN$(PN),R/E8ЕPT(PN)│2з╙MPN$(PN):в/nLЗ@480,"  I CAN'T RUN THAT!      ";:Р/~VВ next page/Ч`PG│PGл1:ЕPG▓PM зPG│1/гjБж520:Р/┤tВ disk stats/┴~FR│ г(0)/╫ИЮ:З"STATS ";DN$:З/■ТЗ"GRANUALS  FREE";FR;" USED";68мFR0%ЬЗ"DIRECTORY FREE";72мIX;" USED";IX0=жЗ:З"ALLOCATION MAP"0Q░▀0,17,2,D1$,D2$0Y║I│10e─АI1│1е40r╬АI2│1е170П╪GM│ К( Р(D1$,I,1)):I│Iл10╝тЕGM│255зGM$│".":ДЕGM┤68зGM$│"P":ДGM$│"E"0╞ьЗGM$;0╘ЎЛI2:З:ЛI10■З:З"'.'=FREE,'E'=EOF,'P'=FILE PART":З1
Й"<ENTER> TO CONTINUE";A$1"Р1/В rename19(Бж7701E2ЕPN│0зР1g<Бж1400:З@448,"NEWNAME:";:ЙNN$1uFЕNN$│""зР1БPАI│1еIX1╣ZЕNN$│PN$(I)зЗ@480,"CAN'T RENAME: NEWNAME EXISTS";:Р1└dЛI1чn╓PN$(PN) е NN$:PN$(PN)│NN$:Бж520:Р2
xВ blank function line2ВЗ@448, б(31," ");:Р2)МВpurge disk2=ЦЮ:З"PURGE DISK"2bаЗ"TYPE Y AND ENTER TO KILL FILE"2nкАI│1еIX2{┤ЗPN$(I);2Г╛ЙA$2Ч╚ЕA$┤▓"Y"зБе15102г╥╥PN$(I)2▒▄З"KILLED"2╕цЛI2┴Ё Я│02╥·Е Я┤600з15302╪О2 й 32:З @I,B$лB$лB$л Л(159)л Л(15                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 y&!:Г COPYRIGHT (C) CLOAD 1982&'
Ю&;З@109,"MU-SICK"&fЗ@161,"PROGRAM AND MUSIC IT GENERATES"&uЗ@239,"BY"&ЛЗ@267,"D.R. BARR"&ЦХ 5000&гМ S$(32)&┤
Ж C,D,F,G,G#&┬А K│1 е 5&╬Н Q$(K)&╓Л K&ьЖ L1,L2,L4,L8,L16&·А K│1 е 5'Н M$(K)'Л K'Ж 16,8,4,2,1'-А K│1 е 5'8Н M(K)'@Л K'NА J│1 е 2'g╔ "C;D;F;G;G#;G;F;D"'oЛ J'wC│0'БS$│""'ЙO│2'ТWJ│0'Ю WJ│WJл1'▓!Е WJ▓32 з Бе 29'└"S$(WJ)│""'╫#Е O│1 з P$│"V20O1"'ю$Е O│2 з P$│"V20O2"(%Е O│3 з P$│"V20O3"(&Е O│4 з P$│"V20O4"(3'Е O│5 з P$│"V20O5"(<)LS│0(M*A$│Q$( Д(5))(W+Бж 74(w,Е LS┤16 з P$│P$лL$ :Д Бе 65(Щ-Е L│5 з B$│Q$( Д(5)) :Д Бж 83(ж.P$│P$лB$(▓/V│ Д(3)(┘0Е V│1 з P$│P$л"V15" :Д P$│P$л"V10"(ч1OO│ Д(10)(∙2Е O│1 з Бе 55)3Е O│5 з Бе 57)4Е OO│1 з O│Oм1)15Е OO│2 з O│Oл1);6Бе 59)L7Е OO┤3 з O│2)V8Бе 59)g9Е OO┤3 з O│4)q:Бе 59)И;Е O│1 з P$│P$л"O1")Я<Е O│2 з P$│P$л"O2")╢=Е O│3 з P$│P$л"O3")═>Е O│4 з P$│P$л"O4")ф?Е O│5 з P$│P$л"O5")ю@Бе 43*AS$(WJ)│S$(WJ)лP$*BCC│ Д(9)м1*%CЕ CC│C з Бе 66*.DC│CC*7EЮ(C)*FFА U│1 е WJ*RG╔ S$(U)*ZHЛ U*dIБе 32*rJLL│ Д(31)*zKL│5*МLЕ LL┤16 з L│4*ЭMЕ LL┤8 з L│3*оNЕ LL┤3 з L│2*┐OЕ LL│1 з L│1*╠PL$│M$(L)*█QLS│LSлM(L)*сRР*°SЕ A$│Q$(1) з Бе 89+TЕ A$│Q$(2) з Бе 89+&UЕ A$│Q$(3) з Бе 94+=VЕ A$│Q$(4) з Бе 99+UWЕ A$│Q$(5) з Бе 103+[XС+gYY│ Д(5)+zZЕ Y┤3 з B$│"F"+Н[Е Y│3 з B$│"G"+б\Е Y▓3 з B$│"G#"+з]Р+│^Y│ Д(5)+╞_Е Y┤3 з B$│"D"+┘`Е Y│3 з B$│"C"+эaЕ Y▓3 з B$│"G#"+єbР+ cY│ Д(2),dЕ Y│1 з B$│"C",%eЕ Y│2 з B$│"D",+fР,7gY│ Д(3),JhЕ Y│1 з B$│"C",]iЕ Y│2 з B$│"D",pjЕ Y│3 з B$│"F",vkР2,B6$лB2$лB2$л Л(149)лBL$,║0З @224,A3$лA3$лA3$л Л(146)лA1$лA$,ф:З @256,B6$лB2$л Л(158)л Л(151)лB1$лB$-
DЗ @288,A3$лA3$лA1$л Л(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 █& 
В color computer disk menu&@:Г COPYRIGHT (C) CLOAD 1982&RВ A. M. HEARN&g(В 602 S. 48TH ST&~2В PHILA. PA. 19143&З<Х900&ЫFМPN$(72),PT(72)&┐PЮ:З"MENU SYSTEM BY A. M. HEARN"&╪ZЗ"VERSION 1 LEVEL 2"&эdВ load directory&ўnБж300'xВ read disk/dat'!ВЕDD зБж580:ДБж620'4МВ print page 1'CЦPG│1:Бж520'SаВ get input']кБж820'i┤В do it'Б╛ЕF$│"H"зБж850:Бе170'Щ╚ЕF$│"K"зБж970:Бе170'▓╥ЕF$│"R"зБж1040:Бе170'╦▄ЕF$│";"зБж1110:Бе170'ъцЕF$│"S"зБж1140:Бж520:Бе170(ЁЕF$│"N"зБж1310:Бе170(·ЕF$│"*"зО(*
ЕF$│"P"зБж1420:Бе170(4
Бе170(:
В(D
"Бе290(a
,В read directory of disk(o
6IX│1:DD│0({
@АI│3е11(П
J▀0,17,I,D1$,D2$(Ъ
TАP│1е8(╝
^ЕP┤5зDI│(Pм1)н32:ДDI│(Pм5)н32(═
hЕP│5зD1$│D2$(ф
rPN$│ Р(D1$,DIл1,8))
|АI1│8е1йм1:Е Р(PN$,I1,1)│" "зЛ)
ЖPN$│ О(PN$,I1))9
РPN$│PN$л"/"л Р(D1$,DIл9,3))X
ЪPT(IX)│ К( Р(D1$,DIл12,1)))s
дЕ К( О(PN$,1))│255з490)М
оЕ К( О(PN$,1))│0з480)ж
╕ЕPN$│"DISK/DAT"зDD│м1)└
┬ЕPN$│"MENU/BAS"зMB│м1)╨
╠PN$(IX)│PN$)▄
╓IX│IXл1)х
рЛP,I*
ъIX│IXм1:PM│ Б(IXо20л.95)*
ЇР*
■В print page*+Ю:З"   "DN$:З*EАI│(PGм1)н20л1 еPGн20*hЗ═"##)%          % ";I;PN$(I);*n&Л*Щ0З@480,"FREE" г(0)"DIR"IX" PG"PG"OF"PM;*Я:Р*▓DВ use disk/dat*╔NЩ"I",#1,"DISK/DAT"*┘XЙ#1,DN$:Ъ#1*▀bР*їlВ create disk/dat+vЗ"CREATING DISK/DAT"+$АЙ"DISK NAME=";DN$+4КЕDN$│""з640+GФЕ З(DN$)▓8з640+hЮЕ З(DN$)┤8зDN$│DN$л" ":Бе670+ВиЙ"DATE (MM/DD/YY)";I$+Х▓Е З(I$)┤▓8з680+└╝I1$│I$:I$│ О(I$,2)л Р(I$,4,2)л П(I$,2)+ё╞АI│1е6:Е Ю("0123456789", Р(I$,I,1))│0з680:ДЛ,
╨DN$│DN$л" CREATED "лI1$,#┌ЕиMB з╪"MENU/BAS",:фЩ"O",#1,"DISK/DAT",FюЗ#1,DN$,P°Ъ#1:Р,dВ input program,ШБж1400:З@448,"SELECT PROGRAM:";:ЙPN$:PN│ Й(PN$),оЕPN▓IX ▒ PN┤0з780,┤ Р,╟*Вinput command,Ї4Бж1400:З@448,"FUNCTION ('H' FOR HELP):";-	>F$│ Т:ЕF$│""з830-HР-RВ help-:\Ю:З"FUNCTION DESCRIPTION":З-ZfЗ"   H     HELP. THIS LIST"-tpЗ"   K     KILL FILE"-УzЗ"   ;     SHOW NEXT PAGE"-▓ДЗ"   N     RENAME PROGRAM"-╬ОЗ"   R     RUN PROGRAM"-щШЗ"   S     DISK STATS".
вЗ"   *     REREAD DIRECTORY".%мЗ"   P     PURGE DISK".I╢Й"<ENTER> TO RETURN TO MENU";A$.U└Бж510:Р.`╩В kill.j╘Бж770.v▐ЕPN│0зР.зшБж1400:З@448,"DELETE FILE "PN$(PN)" (Y/N)?";.╜ЄA$│ Т:ЕA$│""з1010.ц№ЕA$│"Y"з╥PN$(PN):PN$(PN)│"":PT(PN)│9.ЄБж520:Р.№В run/A$(J)│E$лQQ$8лQQ$│ZIP$8 мЛ J8.нТ 65494,08Kо:Г     *****************8UпЮ:З:З9░З "ONCE THE PROGRAM IS RUNNING YOU CAN CHANGE SPEED, HEIGHT, OR THEMESSAGE BY PRESSING THE SPACE   BAR.  THE ONLY WAY TO CHANGE THEWIDTH OR COLOR IS TO START OVER.":З:З96▒З :╗Й "  ENTER WHAT YOU WANT PRINTED   ";STUFF$9M▓А J│1 е  З(STUFF$)9c│Е  Т│" " з Бе 1929|┤WORK$│ Р(STUFF$,J,1)9П╡V│ К(WORK$)м319е╢Е  Т│" " з Бе 1929┐╖А K│1 е  З(B$(V)) й 29╪╕ZZ│ Й( Р(B$(V),K,2))9ў╣А R│1 е HEIGHT:ЗA$(ZZ):Л R:
║А S│1 е SPEED:Л S:╗Л K:+╝Е  Т│" " з Бе 192:3╜З:З:;╛Л J:F┐Бе 178:}└Й "TO CHANGE SPEED ENTER NEW SPEED ELSE ENTER 0";S:Т┴Е S┤▓0 з SPEED│S:╨┬Й "TO CHANGE HEIGHT ENTER NEW      HEIGHT ELSE ENTER 0";H:ц├Е H┤▓0 з HEIGHT│H;─Й "TO CHANGE MESSAGE ENTER 1 ELSE  ENTER 0";C;5┼Е C│1 з Бе 177 :Д Бе 178                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                5 5 511"/#_B$(43)│"1212121212 4 3"/?`B$(44)│"4 1415161714 4"/[aB$(45)│"9 9 9 9 9 9 2 "/xbB$(46)│"1818191920 4 4 "/ФcB$(47)│"21212220232424"/░dB$(48)│"3 4 4 4 4 4 3 "/╠eB$(49)│"8 4 4 8 9 9 9 "/ъfB$(50)│" 3 4 4 4 4232526"0gB$(51)│" 8 4 4 81514 4"0#hB$(52)│"3 4 9 3 12 4 3 "0?iB$(53)│"2 5 5 5 5 5 5 "0[jB$(54)│"4 4 4 4 4 4 3 "0wkB$(55)│"4 4 7 7 6 6 5 "0УlB$(56)│" 4 42019191818"0пmB$(57)│"4 7 6 5 6 7 4 "0╦nB$(58)│"4 4 7 6 5 5 5 "0шoB$(59)│" 22829 53031 2 "0ЄpЗ:З:З1qЗ"          tickertaper"12rЗ:З "        BY GEORGE TREPAL"1ЖsЗ:З:З"   THIS PROGRAM WILL PRINT ANY   MESSAGE IN BIG LETERS ON YOUR   SCREEN."1пtЗ:З"PRESS THE SPACE BAR TO CONTINUE"1╧uЕ  Т│" " з Бе 118 :Д Бе 1171╒vЮ1¤wЗ " WHAT WIDTH LETTERS DO YOU WANT"2xЗ "     <1> SINGLE2+yЗ "     <2> DOUBLE2BzЗ "     <3> TRIPLE2]{З "     <4> QUADRUPLE"2q|Й"      ";WIDTH2╛}Е (WIDTH┤1) ▒ (WIDTH▓4) з З:З "OUT OF RANGE--TRY AGAIN, PLEASE":З:Бе 1192╩~E$│"  "2ьЕ WIDTH│1 з E$│"            "3	АЕ WIDTH│2 з E$│"       "3$БЕ WIDTH│3 з E$│"     "3*ВЗ3RГЗ "WHAT HEIGHT LETTERS DO YOU WANT"3jДЗ "     <1> SINGLE"3ВЕЗ "     <2> DOUBLE"3ЪЖЗ "     <3> TRIPLE"3░ЗЙ "      ";HEIGHT3№ИЕ (HEIGHT┤1)▒(HEIGHT▓3)з З:З "OUT OF RANGE--TRY AGAIN, PLEASE":З:Бе 1314ЙЮ4fКЗ:Й "HOW FAST DO YOU WANT THE LETTERSTO MOVE?  THE LOWER THE NUMBER  THE FASTER THEY GO.";SPEED4lЛЗ4╘МЗ "   THE LETTERS CAN BE MADE OF     TEXT LETTERS, PUNCTUATION, OR   BLOCKS OF COLOR.  IF YOU KNOW"5НЗ "  WHAT YOU WANT THEN ENTER THE    ASCII CODE NUMBER FOR IT.  "5<ОЙ "  FOR HELP ENTER 1.";KOLOR5TПЕ KOLOR│1 з Бе 147 5дРЕ (KOLOR┤33) ▒ (KOLOR▓255) з Ю:З "OUT OF RANGE--TRY AGAIN, PLEASE":З:Бе 1405пСБе 1585╦Т:Г       **************5▄УА L│33 е 2555ёФЗ L;" = "; Л(L),6ХЕ Lо2│ Б(Lо2) з З6$ЦЕ Lо10│ Б(Lо10) з Бе 1546,ЧЛ L6}ШЗ:Й "TO DO THE LIST AGAIN ENTER 1 OR IF YOU HAVE YOUR CHOICE ENTER IT";KOLOR6ЮЩЕ KOLOR│1 з Бе 147 :Д Бе 1446╞ЪЗ "PRESS THE SPACE BAR TO CONTINUE"6╠ЫЗ6ьЬЕ  Т│" " з Бе 151 :Д Бе 1567Э:Г    ****************7MЮЗ:З "THIS WILL TAKE UNTIL I CAN COUNTTO 47.  IT'S A LOT OF WORK."7\аА J│1 е 477eбЗ J;7sвА K│1 е 77ЛгTEMP$│ Р(A$(J),K,1)7ндЕ TEMP$│"@" з TEMP$│ Л(KOLOR)7┐еА L│1 е WIDTH7╤жNW$│NW$лTEMP$7┘зЛ L7ЄиQQ$│QQ$лNW$:NW$│ZIP$7·йЛ K8кIЖ,CR{·4ъCKЗFC4А|~? CDЙ4CQЙC1{ИИЙ═ъ.╒XB7Й4╪
.ъANPО:lNRАш

-u[1M9V>p\Ъ<"[p
\ps`0cz:?d(	li& 
K4F{1qr U  ZYh$Uh
Q*"<HwJ&
jС0!D	ZВ
Fs*$>i*'B]*$dd(HГ>Г!Z!
?]L`i
'P2


B0^]6vq/
Iz*P`6'J=r- Q.Cm"29G<З-<}2rudj

^q
Ft3	sq,	fn
W
'@De

)3	]d-(dn5
$suFВK	_f"(@5
F
3]l5
I
iЛ$W}
)
	
ly4'v]uЖ9$>i.C!\o,QsK1_^*o="A$8Hu,C{7VА(Oqo{-$hc+D;hh0'3H*5U[`+uy!=

I+Z(-=$svmt!!5+$FДUj$
oВwm
%ZЦ7%AЦ
%mФ$=i>│1
)Z
rЧR	
@Е

dГ

FК9%[Щ4
%RТ'eQ.
oП4
AС

_Т
HУMд3U"YН8OО
L{
fyY'/Y$
XЛ.

DТ5aЭ
"WШ%bУ/^v85N`>9Jf
*#-BЗ(#=7Ev*P
)@Ta5*Uj!hb04!$
	Q_%uЗ
-RhА#Vm
*$)&cJ+5еILL READ AND   DISPD1▓31з400 :Д D1│D(M2)лD1:Й"TIME (24 HR CLOCK: HHMM) ";T:T│Tо100:T│ Б(T)л(Tм Б(T))о.60:Е T┤0 ▒ T▓24з400 :Д Й"LATITUDE ";L:ЕL┤м90▒L▓90з400/з
ЪA│90н Е(CRнL):R│90н Х(CRнL)/ы
дЙ"FACING DIRECTION (0-360) ";W:W│360мW:W│CRнW:WC│ Х(W):WS│ Е(W)0(
оЗ"ORTHOGRAPHIC (1)":З"AZIMUTHAL (2) ":Й"your choice ";M40E
╕╝:┴1,0:┐1,1:┬(128,96),900Л
┬X│0:Y│93:U│M4:M4│0:Бж640:╞"BM"л И(X)л","л И(Y)л";F2;U5;D5;H5;D5;"0╩
╠X│93:Y│0:Бж640:╞"BM"л И(X)л","л И(Y)л";L2;U2;R3;L3;D5;R3;"1Y
╓X│0:Y│м93:Бж640:╞"BM"л И(X)л","л И(Y)л";L1;H1;E1;R3;BM-1,+2;R1;F1;G1;L3;":X│м93:Y│0:Бж640:╞"BM"л И(X)л","л И(Y)л";F3;U5;D5;H3;G3;U5;":M4│U1c
рБж7001б
ъАI│1еN:Бж330:Бж340:ЕV│0 ▒ V│C з Бж620:Бж630:ЕZ▓0з╜(X,Y,1)1░
ЇЛI:╔"L5;C"1╬
■M$│"":M$│ Т:ЕM$│""з510:ДР2Ю:АI│1е42й3:АJ│1е3:З═"## %     %";IлJм1;C$(IлJм1);:ЕJ┤3зЗ" ";2ЛJ,I27Й"your choice 0=OFF ";V:Р2=&К2V0Ю:Зд10)"STARMAP":З:Р2└:З"STAR #";:З═"###";I:Й"RT ASC (HR,MIN) ";RA,MIN:Й"DECLINATION (DEG,MIN) ";DC,MN:Й"CONSTELLATION # ";C3$DЕRA▓23▒RA┤0▒MI┤0▒MI▓60▒DC▓89▒DC┤м89▒MN▓60▒MN┤м59▒C┤0▒C▓42зЗ"invalid datum TRY AGAIN ":I│Iм2лM:Р3:NЕDC┤0░MN▓0зMN│мMN3wXJ│1:B│╠X(J):ТB,RA:ТBм1,MI:ТBм2,DCл90:ТBм3,MNл60:ТBм4,C:Р3ЯbЙ"<ENTER> WHEN TAPE IS READY ";M$:Р3┴lB7│CD:S│╠M((D1лCK)нC4лTн15):Р4:vB7│CD:H│CRн╠M(SмRAлCQ):DC│CRн(90мDC):DS│ Е(DC):HC│ Х(H):HS│ Е(H):DF│ Х(DC):X│м90нHCнDF:Y│AнHSнDFлRнDS:Z│DSнAмRнHSнDF4`АЕW┤▓0зP│XнWCлYнWS:Y│YнWCмXнWS:X│P4ЯКЕM4│2зB│ Ф(Zо Ы(8100мZнZл1Eм6)):B│(1мBо1.573)о Х(B) :Д B│14─ФX│ Б(BнXл128.5):Y│ Б(BнYл96.5):Р4▀ЮDC│ Е(RAнCR)н23.5л90:Р5иB7│CD:RA│╠M((D1лTо24)нC4л281.1):Р5d▓B7│19:MA│╠M(Y1):B7│29.5306:MA│╠M(MAн10.875л28.9лD1лTоCD):B7│CD:RA│╠M(MAн12.107лRA):Бж670:Р5а╝Бж620:Бж680:Бж670:Бж630:ЕZ▓0з┬(X,Y),10,1,.85:├(X,Y),1,15─╞Бж690:Бж630:ЕZ▓0з┬(X,Y),1:Бж7305╩╨Р6Q┌X│ Х(.2128нMA):P│ А(X):O│ А(MAм14.7653):┬(30,30),12:Е В(X)┤1о6 з ╗(30,42)м(30,18),╜ :Д ╗(30,42)м(30,40),╜:╗(30,18)м(30,20),╜:Бж7606mфЕX┤▓1 з├(30мOн9,30),1,16sюР6└°X│ А(X)н Б(1о В(X)л.5):┬(30,30),12о В(X),1, В(X),.5мPнOн.25,.5лPнOн.25:Р6шNP│ Ж(27)н256л Ж(28)м3:N│ Ж(NPм1):Р6ЎТNPм1,N:Р IБCR{·4ъCKЗFC4А|~? CDЙ4CQЙC1{ИИЙ═ъ-XB7Й4╪
-3ANPО<┤NЗjMВ@M1ВNXЖ<MА? RАш

- ъ&!:Г COPYRIGHT (C) CLOAD 1982&<
:ГSTARMAP BY RAD HEWKO&X:ГDAWSON CREEK, BC, CAN&▒Х200:╚4,1:МC$(50),D(12):АI│1е12:НD(I):ЛI:Ж0,31,59,90,120,151,181,212,243,273,304,334'(CR│3.1415926о180:CK│99:C4│360о365:CD│360:CQ│270:C1│1о60:C(1)│0:C(2)│0:C(3)│90:C(4)│60:C(5)│0'L2╣╠M(X)│(XоB7м Б(XоB7))нB7:B7│CD:╣╠X(J)│NPм5н(Iм1)мJм2(=<АI│1е42:НC$(I):ЛI:ЖPERSEUS,ERIDANI,TAURUS,AURIGA,LEPUS,ORION,CAN MAJ,GEMINI,CAN MIN,PUPPIS,CANCER,LEO,URS MAJ,HYDRA,CORVUS,CENTAUR,VIRGO,LIBRA,BOOTES,URS MIN,COR BOR,SCORPIO,HERCUL,DRACO,SERPENS,SAGITT,LYRA,AQUILA,CYGNUS,DELPHIN,CAPRICO(ОFЖAQUARII,GRUS,CEPHEUS,PIS AUS,PEGASUS,CASSIOP,PISCES,CETUS,ARIES,CARINA,CRUX(ШPБж770)	ZБж560:З"(1) ADD":З"(2) EDIT":З"(3) INPUT DATA":З"(4) OUTPUT DATA":З"(5) MAP":З"(6) CONSTELLATIONS":З"(0) OFF):dТ65494,0:Зд6);:Й"your choice ";M:ЕM┤0▒M▓6з90)lnИMл1Бж120,140,160,180,240,400,520:ЕM┤▓0з90:ДК)rxР)~ВЗ"HELP")ИМI│Nл1)╪ЦБж560:З:З"add":З:Бж570:З:Й"more (Y/N) ";M$:ЕM$│"Y"зI│Iл1:Бе150:ДN│I:Бж780:Р)ьаБж560:З:З"edit"*>кЙ"EDIT WHICH STAR #";I:Бж330:Бж320:Бж570:З:Й"more (Y/N) ";M$:ЕM$│"Y"з160 :Д Р*▒┤I│1:Бж560:З"input data":З:З"(1) KEYBOARD":З"(2) CASSETTE":З"(0) RETURN":Зд6);:Й"your choice";M1:ЕM1┤0▒M1▓2з180*╚╛ИM1л1Бе200,210,220*╬╚Р+(╥Бж560:З"keyboard input":З:Бж570:З:Й"more (Y/N) ";M$:ЕM$│"Y"зI│Iл1:Бе210 :ДN│I:Бж780:Р+L▄Бж560:З"cassette input":З:Бж610+ацЩ"I",#м1,"STARDATA":Й#м1,N:Бж780:АI│1еN:АJ│1е5:Й#м1,A:B│╠X(J):ТB,A:ЛJ:ЛI:Ъ#м1:Р+╗ЁБж560:З"output data":З,·З"(1) SCREEN":З"(2) PRINTER":З"(3) CASSETTE":З"(0) OFF":Зд6);"your choice ";:ЙM1:ЕM1┤0▒M1▓3з240,H
ИM1л1Бж270,280,370,350:ЕM1┤▓0з240:ДР,N
Р,Й
Бж560:З"data":З:Бж300:АI│1еN:Бж330:ЕV│0▒V│A(5) з Бж310,б
"ЛI:Й"<ENTER> ";M$:Р,╔
,З"  #   R.A.  DEC. CONSTELLATION":Р,▐
6З"#";:З═"###";I;-
@:АJ│1е5:З═"###";A(J);:ЛJ:З"  ";C$(A(5)):Р-4
JАJ│1е5:B│╠X(J):A(J)│ Ж(B)мC(J):ЛJ:Р-m
TRA│A(1)лA(2)нC1:RA│RAн15:DC│90мA(3)мA(4)нC1:C│A(5):Р-Т
^Бж560:З"cassette output":З:Бж610-х
hЩ"O",#м1,"STARDATA":З#м1,N;:АI│1еN:АJ│1е5:A(J)│ Ж(╠X(J)):З#м1,A(J):ЛJ,I:Ъ#м1:Р."
rБж560:З"printer output":Й"<ENTER> WHEN PRINTER READY";M$.a
|З#м2,"STAR DATA":З#м2,"STAR";"  R A    DEC       CONSTELL".┐
ЖАI│1еN:Бж330:З#м2,"#";:З#м2,═"####";I:АJ│1е4:З#м2,═"#####";A(J);:З#м2,"   ";C$(A(5)):ЛJ,I/З
РБж560:З"map":Й"DATE (MM,DD,YY) ";M2,D1,Y1:ЕM2┤1▒M2▓12▒D1┤1▒ 8&?:ГCOPYRIGHT (C) CLOAD 1982        ADD SPEEDUP IN LINE 159&Д
:ГC 1982 BY GEORGE TREPAL, 1709 KINGSWOODS DR,AUGUSTA,GA.  30904&Ю:ГTICKER TAPE PROGRAM&дЮ&пХ 1500&─М A$(47), B$(59)&╪A$(1)│"       "&ьA$(2)│"@@@@@@@"'A$(3)│" @@@@@ "'	A$(4)│"@     @"'(
A$(5)│"   @   "'<A$(6)│"  @ @  "'PA$(7)│" @   @ "'d
A$(8)│"@@@@@@ "'xA$(9)│"@      "'НA$(10)│"@@@@@  "'вA$(11)│"  @@@  "'╖A$(12)│"      @"'╠A$(13)│"@   @@@"'сA$(14)│"@    @ "'ЎA$(15)│"@   @  "(A$(16)│"@  @   "( A$(17)│"@@@ @  "(5A$(18)│"@@   @@"(JA$(19)│"@ @ @ @"(_A$(20)│"@  @  @"(tA$(21)│"@@    @"(ЙA$(22)│"@ @   @"(ЮA$(23)│"@   @ @"(│A$(24)│"@    @@"(╚A$(25)│"@   @@ "(▌A$(26)│" @@@  @"(Є A$(27)│"   @@@ ")!A$(28)│"     @ ")"A$(29)│"    @  ")1#A$(30)│"  @    ")F$A$(31)│" @     ")[%A$(32)│"  @@   ")p&A$(33)│"  @@@@ ")Е'A$(34)│"    @@ ")Ъ(A$(35)│"   @ @ ")п)A$(36)│"  @  @ ")─*A$(37)│" @@@@@@")┘+A$(38)│" @ @ @ ")ю,A$(39)│"@  @@ @"*-A$(40)│"@  @@@ "*.A$(41)│"   @  @"*-/A$(42)│" @@   @"*B0A$(43)│"@  @ @ "*W1A$(44)│"@  @@  "*l2A$(45)│"  @@  @"*Б3A$(46)│" @ @  @"*Ц4A$(47)│"@   @@ "*л5B$(1)│"1 1 1 1 "*╞6B$(2)│" 5111111 5 1 5"*█7B$(3)│"6 6 1 1 "*Ў8B$(4)│"6 6 2 6 2 6 6 "+9B$(5)│" 32016 34120 3"+,:B$(6)│"424344 3454647"+G;B$(7)│" 3 431 320 4 3"+]<B$(8)│"5 30 1 1 "+x=B$(9)│"29 5303030 529"+Ф>B$(10)│"30 5292929 530"+░?B$(11)│"5 3811 21138 5"+╠@B$(12)│"5 5 5 2 5 5 5 "+хAB$(13)│"1 1 3232 5 "+∙BB$(14)│"1 2 1 ",CB$(15)│"1 1 3232 ",-DB$(16)│"122829 53031 9 ",IEB$(17)│"3 4 4 4 4 4 3 ",eFB$(18)│"5 32 5 5 5 511",ВGB$(19)│"3 4 12273031 2 ",ЯHB$(20)│"3 4 123312 4 3 ",╗IB$(21)│"343536 7 22828",╪JB$(22)│"2 9 9 8 1212 8 ",ЇKB$(23)│"3 4 9 8 4 4 3 "-LB$(24)│"2 122829 53030"-,MB$(25)│"3 4 4 3 4 4 3 "-HNB$(26)│"3 4 4 3712 4 3"-dOB$(27)│"3232 1 1 13232"-АPB$(28)│"3232 1 1323230"-ЬQB$(29)│"29 5303130 529"-┤RB$(30)│"1 3 1 3 1 "-╨SB$(31)│"30 5292829 530"-ьTB$(32)│"3 4 1227 5 1 5".	UB$(33)│"3 4 392240 937 ".%VB$(34)│"5 6 7 4 2 4 4 ".AWB$(35)│"8 4 4 8 4 4 8 ".]XB$(36)│"3 4 9 9 9 4 3 ".yYB$(37)│"8 4 4 4 4 4 8 ".ХZB$(38)│"2 9 9 10 9 9 2".▓[B$(39)│"2 9 9 10 9 9 9 ".╧\B$(40)│"3 9 9 13 4 4 3 ".ы]B$(41)│"4 4 4 2 4 4 4 "/^B$(42)│"11 5 5                                                                                                                                                                                                                                                                                          ─╟─╔#$─&'├)*╟                         GEOCOV  BAS"╩STARMAP BAS эTICKER  BAS!;ROCKS   BAS%╬NOTES   BAS(!MUSICK  BAS|MENU    BAS▐                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╟&>
:ГRONALD BEATTY  1045 PINE N.W.   GRAND RAPIDS  MI 49504&Ъ:Г ALL COVERS MUST HAVE THE    LOGO AT THE TOP OF THE SCREEN   DURING GRAPHICS DISPLAY.&є:ГDECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.']:ГLINES 50-95 PUT THE LOGO ON  SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.'п:ГDISCLAIMER (LINES 1000-1160) MUST ALWAYS BE INCLUDED IN ANY  COVER PROGRAM.'┐
Ю:└4:╝:╚4,1'═М S(18,7)'ЎМ LO$(7),N1(75),N2(75),N3(75),N4(75)'■Q│0((╝:╚4,1:┐1,1(▄2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк")к4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк"*x6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"+F8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк",:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк",т<LO$(5)│"кккеjккZЦYjZйeйjZZйeеЦйijZЦйjккккккеjккZVYjZйeйjZZйeеХUijZХUjккккккеZкйZZYjZйeйjZZйeеХUйjZХUкккккккеZкйjZYjZйeйjZZеeйUVеiZХVкккккккйVкйjYYjЦеХеiZZекйVкейjЦккккккккйVкйjYijЦеЦейjZекеVкейjЦккккк"-░>LO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк".ALO$(7)│"╜│э
О
 Ж 4жа4 4Ж4╞жДзд
Г р
Г рZ&ыГ Є
5J&█5жА5 5J&╞9". FVP│0:AD│0:VP│ Э(LO$(0)).=KAD│ Ж(VPл2)н256л Ж(VPл3).OPVP│ Э(LO$(7)).qUQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q.ДXТQл7, Ж(25)м25.▓Z╞"S4A0C3BM0,191R255U149L255D148R255BM0,0".┐_Q│ Г(AD).▄dВ USER ROUTINE (100-999).шkL│ Д(6)/	lЕ L│1 з ╗(123,95)м(133,95),╜/*mЕ L│2 з ╗(120,95)м(136,95),╜/KnЕ L│3 з ╗(118,95)м(138,95),╜/moЕ L│4 з ╗(128,90)м(128,100),╜/ОpЕ L│5 з ╗(125,93)м(131,97),╜/пqЕ L│6 з ╗(125,97)м(131,93),╜/╗sR│ Д(7)/╦x┬(128,95),R/▄ВAX│128:AY│950ЗGG│ Д(20):Е GG┤15 з ─(118,92)м(138,98),S,G:Бе1750МG│ Д(6)0@СЕ G│1 з ─(118,92)м(138,98),S,G0cЦЕ G│2 з ─(119,92)м(137,98),S,G0ЖЫЕ G│3 з ─(120,93)м(136,97),S,G0йаЕ G│4 з ─(121,93)м(135,97),S,G0╠еЕ G│5 з ─(122,94)м(134,96),S,G0якЕ G│6 з ─(123,94)м(133,96),S,G0¤п╚4,1:┐1,11┤G1│118:G2│92:G3│138:G4│9815╛SP│ Д(7):Е SP┤2 з 1901n┐T│ Д(20):DR│ Д(200):DL│ Д(200):DD│ Д(200):DU│ Д(200)1И├SX│ Д(255):SY│ Д(192)1╓─Е SX▓AX ░ SY▓AY ░ L$│"Y" ░ U$│"Y" ▒ SX▓AX ░ SY┤AY ░ L$│"Y" ░ D$│"Y" з 1952$┼Е SX┤AX ░ SY▓AY ░ R$│"Y" ░ U$│"Y" ▒ SX┤AX ░ SY┤AY ░ R$│"Y" ░ D$│"Y" з 1952/╚Бж 8002I╥Е SP│7 ░ TM▓150 з 3002c╙Е SP│6 ░ TM▓175 з 3002}╘Е SP│5 ░ TM▓200 з 3002Ч╒Е SP│4 ░ TM▓225 з 3002▒╓Е SP│3 ░ TM▓250 з 3002╦╫Е SP│2 ░ TM▓275 з 3002╒▄Бе1952▐
,TM│02ё
6А L│1 е 1000:Л3
;А LL│1 е 43
@╚3,1:┐1,13 
EА L│1 е 300:Л3)
J┐1,03;
OА L│1 е 300:Л3C
TЛLL3S
^Бж1000:Бе403c :ГMOVE SHIP3q!SS│ Д(20)3В"Е SS▓5 з 8123и%Е SP│2 з LL│ Д(100):Е LL┤40 з 8053═&Е SP│3 з LL│ Д(80):Е LL┤30 з 8063Є'Е SP│4 з LL│ Д(60):Е LL┤20 з 8074(Е SP│5 з LL│ Д(45):Е LL┤12 з 8084<)Е SP│6 з LL│ Д(30):Е LL┤10 з 8094`*Е SP│7 з LL│ Д(25):Е LL┤5 з 8104k+Бе 8204Р,Е SP│2 з LL│ Д(35):Е LL┤15 з 8124╡-Е SP│3 з LL│ Д(25):Е LL┤10 з 8134┘.Е SP│4 з LL│ Д(15):Е LL┤7 з 8144¤/Е SP│5 з LL│ Д(10):Е LL┤5 з 8155 0Е SP│6 з LL│ Д(7):Е LL┤4 з 8165C1Е SP│7 з LL│ Д(6):Е LL┤2 з 8175R4А L│1 е LL5i9Е DR▓195 з TM│TMл15А:Е DL▓195 з TM│TMл15Ч;Е DD▓195 з TM│TMл15о<Е DU▓195 з TM│TMл15║=TM│TMл15·>Е SX▓AX Бж 900:Е DR▓180 Бж900:Е DR▓190 Бж900:Е DR▓195 Бж9006:HЕ SX┤AX Бж 930:Е DL▓180 Бж930:Е DL▓190 Бж930:Е DL▓195 Бж9306zRЕ SY▓AY Бж 960:Е DD▓180 Бж960:Е DD▓190 Бж960:Е DD▓195 Бж9606║\Е SY┤AY Бж 990:Е DU▓180 Бж990:Е DU▓190 Бж990:Е DU▓195 Бж9906└aЛ6╞fР6хДR$│"Y":L$│" " :ГMOVE RIGHT7ИЕ T▓13 з ┼(G1,G2)м(G3,G4),S,╛7ЙG1│G1лSP:G3│G3лSP7CЛЕ G3▓245 з G1│G1мSP:G3│G3мSP:L│LL7ГОЕ T▓8 ░ T┤16 з ┼(G1,G2)м(G3,G4),S,▒ :Д ┼(G1,G2)м(G3,G4),S,╜7ЙШР7звL$│"Y":R$│" " :ГMOVE LEFT7╔жЕ T▓13 з ┼(G1,G2)м(G3,G4),S,╛7▀зG1│G1мSP:G3│G3мSP8йЕ G1┤10 з G1│G1лSP:G3│G3лSP:L│LL8DмЕ T▓8 ░ T┤16 з ┼(G1,G2)м(G3,G4),S,▒ :Д ┼(G1,G2)м(G3,G4),S,╜8J▒Р8h└D$│"Y":U$│" " :ГMOVE DOWN8К─Е T▓13 з ┼(G1,G2)м(G3,G4),S,╛8а┼G2│G2лSP:G4│G4лSP8╞╟Е G2▓175 з G2│G2мSP:G4│G4мSP:L│LL9╩Е T▓8 ░ T┤16 з ┼(G1,G2)м(G3,G4),S,▒ :Д ┼(G1,G2)м(G3,G4),S,╜9╧Р9(▐U$│"Y":D$│" " :ГMOVE UP9JтЕ T▓13 з ┼(G1,G2)м(G3,G4),S,╛9`уG2│G2мSP:G4│G4мSP9ЕфЕ G2┤50 з G2│G2лSP:G4│G4лSP:L│LL9┼хЕ T▓8 ░ T┤16 з ┼(G1,G2)м(G3,G4),S,▒ :Д ┼(G1,G2)м(G3,G4),S,╜9╦чР9√шВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS.:
ЄЮ:!№З@38,"CHROMASETTE MAGAZINE":HЗ" ISSUE #13           JULY 1982";:NЗ:vЗ:З" ALL PROGRAMS CONTAINED HEREIN":ЧЗ"      COPYRIGHT (C) CLOAD":║$З"    MAGAZINE  P.O. BOX 1448":▐.З"    SANTA BARBARA, CA 93102.";8З"   REPRODUCTION BY ANY MEANS";'BЗ"   PROHIBITED. CLOAD MAGAZINE";MLЗ" ASSUMES NO RESPONSIBILITY FOR";sVЗ"  ERRORS, OMISSIONS OR DAMAGES";Ш`З"   CAUSED BY THE USE OF THESE";нjЗд11)"PROGRAMS.";╛~АI│1е2000:ЛI;─ИРECTOR NUMBER IS 18.";уРР<1ЪЗ"THE 'T' COMMMAND WILL                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╦&%:Г ****************************&I
:Г *                          *&m:Г *   COLOR BASIC ASTEROIDS  *&С:Г *                          *&╡:Г *      BY  LOU  FIORINO    *&┘:Г *                          *&¤:Г *       DECEMBER 1981      *'!:Г *                          *'E:Г ****************************'~	:Г11-STUART AVE*****MALVERNE,NY 11565*(516) 887-1475'Э
В COPYRIGHT (C) CLOAD 1982'дЮ0'╢З@14,"rocks";'╓A1$│ Л(129)л Л(143)л Л(139)'Ў(A2$│ Л(128)л Л(140)л Л(136)(2B$│ Л(128)л Л(128)л Л(128)(F<АX│1е5:PC(X)│ Д(280)о10л10:P(X)│ Д(400)л32:Л(RFАY│1е33(vPАX│1е5:З@P(X),B$;:З@P(X)л32,B$;(дZP(X)│P(X)лPC(X):ЕP(X)▓447 з P(X)│P(X)м416(├dЗ@P(X),A1$;:З@P(X)л32,A2$;(╘nЛ:а Д(100),1(цxЛ:Бж130:Бе140)ВЗ@32,;:АX│1е150:ЗB$;:Л:Р),МЗ@66,"YOUR MISSION IS TO DESROY AS";)VЦЗ@130,"MANY OF THE ASTEROIDS AS YOU";)АаЗ@194,"CAN BEFORE  BEING  DESTROYED";)ккЗ@258,"BY EITHER  COLLIDING WITH AN";)╘┤З@322,"ASTEROID OR BEING  SHOT DOWN";) ╛З@386,"BY THE SPACESHIP.";:Бж200:Бе220*╚AK$│ Т:ЕAK$│""з200:ДБж130:Р*I▄З@66,"YOU WILL START WITH *4* SHIPS";*tцЗ@130,"AND *extra* SHIPS ARE  EARNED";*ЯЁЗ@194,"AFTER SCORING 5000 POINTS.THE";*╩·З@258,"SMALL ROCKS ARE WORTH 100 PTS";*ї
З@322,"MEDIUM ROCKS ARE WORTH 50 PTS";+
З@390,"AND THE LARGE 25 PTS.";+A
З@451,"the spaceship is worth 500 ";+K
"Бж200+u
,З@66,"THE ARROWS  CONTROL DIRECTION";+а
6З@130,"AND THRUST WHILE THE spacebar";+╦
@З@194,"FIRES. THE *h* IS HYPERSPACE.";+Ў
JЗ@258,"AS SOON AS YOU ARE READY, HIT";,
TЗ@322,"ANY KEY.";,
^Бж200, 
hБж130,&
rХ,3
|МR(3,30),T
ЖАX│1е5:N$(X)│"@@@":SC(X)│0:Л,o
РАX│510е536:НX1:ТX,X1:Л,╩
ЪЖ142,4,0,166,132,129,65,36,4,139,64,32,6,129,128,36,2,128,64,167,128,140,6,0,38,233,57,┌
дX$│"4":Y1│0,¤
оC(1)│м1:C(2)│1:SP│1263:S│м1600-
╕Ю- 
┬NR│23:CH│22:SE│1535:S│32-)
╠в510-9
╓Бж480:Бе530-A
рR│0-L
ъЮ:в510-н
ЇАX│0е NR:R(1,X)│1088л Д(448):R(2,X)│32н( Д(3)м2)лC( Д(2)):R(3,X)│32:ЕXо4│ Б(Xо4) з R(3,X)│15-┬
■ТR(1,X),R(3,X):Л-╚Р.З@0,"color basic rocks";:Т1029,32:Т1035,32:Т1046, К(X$).АX│0 е NR.&Бж1050.20ЕR(3,X)│32 з 680.I:ЕSC▓Y1л5000 Бж1340.nDЕSC▓99999 з SC│SCм100000:NT│NTл1.ПNЗ@25, П( И(SC), З( И(SC))м1).ЩXБж910.╖bЕXо3│ Б(Xо3) заSTн3.5л1,1.╞lТR(1,X),32.▀vR(1,X)│R(1,X)лR(2,X)/АЕR(1,X)┤1088 з R(1,X)│R(1,X)л448/)КЕR(1,X)▓1535 з R(1,X)│R(1,X)м448/KФЕR(1,X)│SP ░ R(3,X)┤▓32 з1270/^ЮТR(1,X),R(3,X)/hиБж910/n▓Л/x╝Бе540/К╞а100,1:а200,1/Э╨АY│SP е SE й S/й┌ТSP,255/╡фA│ Ж(Y)/╟юЕ A│61 з 1270/у°ТY,46:ТY,46:ТY,46:ТY,32/¤ЕA┤▓32 ░ A┤▓255 з 7900Л:Р0'АW│NR е 0 йм1:ЕR(1,W)│Y з 81000 ЛW:Р0=*B│R(1,W)0J4ЕB│0 з Р0x>ТB,42:ТBм33,28:ТBм31,47:ТBл33,28:ТBл31,470ЭHАZ│1е2:а143,1:а89,1:в510:Л:R│Rл10╦RТB,32:ТBм33,32:ТBм31,32:ТBл33,32:ТBл31,320Ў\ЕR(3,W)│46 з R(3,W)│32:SC│SCл100:Бе8901<fЕR(3,W)│48 з R(3,W)│46:R(3,Wл1)│46:R(1,Wл1)│R(1,W):SC│SCл50:Бе8901|pЕR(3,W)│15 з R(3,W)│48:R(3,Wл2)│48:R(1,Wл2)│R(1,W):SC│SCл251УzЕR│42 Бж1030:Бж4801ЩДР1дОТSP,321╧ШЕ Ж(338)│253 зSP│1120л Д(310):ТSP,CH:Р2вЕ Ж(343)│247 з SP│SPм1:SE│SPм30:S│м1:CH│60:ЕSE┤1056 з SE│10562?мЕ Ж(344)│247 з SP│SPл1:SE│SPл30:S│1:CH│622V╢Е Ж(345)│247 з 7102Е└Е Ж(341)│247 з SP│SPм32:SE│1088:S│м32:CH│12┤╩Е Ж(342)│247 з SP│SPл32:SE│1535:S│32:CH│222═╘ЕSP┤1088 з SP│SPл4802ц▐ЕSP▓1535 з SP│SPм4802¤шЕ Ж(SP)┤▓32 Бж12703ЄТSP,CH3№Р3cЮ:Т845,8:в510:а147,4:в510:а180,4:в510:а133,4:в510:а78,4:в510:а125,16:в510:Т845,43iР3ГST│STл1:ЕST┤69 з 11803Ь$L│1024л32н( Д(13)л2)3│.V│ Д(2):ЕV│1 з10903╩8АK│L е Lл28:Бе11003фBL│Lм1:АK│Lл28 е L йм13ЎLа Д(55)л200,14$VP│ Ж(Kл2):ЕP│1 ▒ P│22 ▒ P│60 ▒ P│62 з12704S`P│ Ж(Kм1):ЕP│1 ▒ P│22 ▒ P│60 ▒ P│62 з 12704ujТK,32:ТKл1,61:ТKл2,61:ТKл3,324ЕtБж910:Бж9104н~SH│SPм32н Б(SPо32)м1:ЕV│1 з SH│SHл14═ИЕSH│KмL ▒  Д(13)│1 з Бж11904ёТЛ:ТK,32:ТKл1,32:ТKл2,32:ТKл3,324ўЬР52жЕSP┤L з B│Kм32:B1│1088:B2│м32: :Д B│Kл32:B1│1535:B2│325F░АQ│Bл1 е B1 йB25S║Q1│ Ж(Q)5|─ЕQ1│1 ▒ Q1│22 ▒ Q1│60 ▒ Q1│62 з 12705П╬ТQмB2,32:ТQ,425Ю╪Л:ТQмB2,325зтST│05ньР5┴ЎX$│ Л( К(X$)м1)5ьЕA│61 з X$│ Л( К(X$)л1):A│32:SC│SCл5006
АQ│1е9:в510:а1,1:Л:Ю6,АQ│0 е NR:ТR(1,Q),R(3,Q)л64:Л:в51065ST│06H(ЕX$│"0" з 13606R2Бе5306w<X$│ Л( К(X$)л1):ЕX$▓"9" з X$│"9"6ИFY1│Y1л5000:Р6ОPЮ6оZАX│1е5:ЕSC(X)▓SC з Л:Бе16406▀dАY│Xл4 е X йм1:N$(Xл1)│N$(X):SC(Xл1)│SC(X):Л7nЮ:З"****YOU NOW HAVE ONE OF THE****"7/xЗ"****FIVE BEST SCORES. ENTER****"7VВЗ"****YOUR NAME USING  THE UP****"7}МЗ"****ARROW  TO  INCREASE AND****"7дЦЗ"****THE   DOWN   ARROW   TO****"7╦аЗ"****TO DECREASE. HIT  ENTER****"7ЄкЗ"****WHEN   THE   LETTER  IS****"8┤З"*************CORRECT***********"8&╛N$│"AAA"8.╚C│18V╥З@332,"=>";N$;"<=";:З@366лCм2," -";8c▄Т65494,08mцB$│ Т8ВЁЕB$┤▓"" з а200,18│·ЕB$│ Л(94) з  Р(N$,C,1)│ Л( К( Р(N$,C,1))л1)8фЕB$│ Л(10) з  Р(N$,C,1)│ Л( К( Р(N$,C,1))м1)9	Е Р(N$,C,1)▓"Z" з  Р(N$,C,1)│"@"9.Е Р(N$,C,1)┤"@" з  Р(N$,C,1)│"Z"9E"ЕB$│ Л(13) з C│Cл19U,ЕC│4 з 16009`6Бе14909г@SC(X)│SC:N$(X)│N$л" ":Е NT▓0 з АTD│1еNT:N$(X)│N$(X)л"V":Л:NT│09├JЗ@256:АX│1е5:ЗN$(X),SC(X):Л9╘TАTD│1е3333:Л9ч^АTD│1е5:а1,1:Л9єhЮ0:SC│0:rЗ"DO YOU WANT TO PLAY ANOTHER GAME";:,|З@79,"yES";:<ЖЗ@143,"nO";:FРA$│ Т:XЪЕA$▓""за200,1:kдЕA$│"N" з 1730:оЕA$│"Y" з Бе420:К╕Бе1680:Р┬Ю:д╠З"NAME","SCORE":╛╓АX│1е5:ЗN$(X),SC(X):Л:╚рЗ@416";H:ц├Е H┤▓0 з HEIGHT│H;─Й "TO CHANGE MESSAGE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &!:Г COPYRIGHT (C) CLOAD 1982&9
В LET'S LEARN NOTES&IВ BY REGENA&ЙВ 120 SOUTH 350 EAST              NORTH SALT LAKE, UT 84054&У(┐ 0,1&Ю2Бе 620&║<З @464,"PRESS <ENTER>";&╒FG$│ Т:Е G$│""з 70 :Д Р&яPЕ G$│"F" з C│1 :Д C│0&∙ZS│5:Р'dЕ G$│"G" з C│1 :Д C│0'nS│32:Р'8xЕ G$│"A" з C│1 :Д C│0'CВS│58:Р']МЕ G$│"B" з C│1 :Д C│0'hЦS│78:Р'ВаЕ G$│"C" з C│1 :Д C│0'НкS│89:Р'з┤Е G$│"D" з C│1 :Д C│0'│╛S│108:Р'═╚Е G$│"E" з C│1 :Д C│0'┘╥S│125:Р'є▄Е G$│"F" з C│1 :Д C│0' цS│133:Р(ЁЕ G$│"G" з C│1 :Д C│0(%·S│147:Р(?
Е G$│"A" з C│1 :Д C│0(K
S│159:Р(e
Е G$│"B" з C│1 :Д C│0(q
"S│170:Р(Л
,Е G$│"C" з C│1 :Д C│0(Ч
6S│176:Р(▒
@Е G$│"D" з C│1 :Д C│0(╜
JS│185:Р(╫
TЕ G$│"E" з C│1 :Д C│0(у
^S│193:Р(¤
hЕ G$│"F" з C│1 :Д C│0)	
rS│197:Р)1
|З @0,B6$лB1$л Л(156)л Л(156)лB2$лB$)Z
ЖЗ @32,B6$л Л(154)лB2$л Л(149)лB1$лB$)З
РЗ @64,A3$лA3$л Л(146)лA2$л Л(145)лA1$лA$)┤
ЪЗ @96,B6$л Л(154)л Л(158)л Л(153)лB2$лB$)т
дЗ @128,A3$лA2$л Л(144)лA1$л Л(145)лA3$лA$*
оЗ @160,B3$л Л(158)л Л(153)лB2$л Л(149)лB3$лB$*V
╕З @192,A3$л Л(145)лA1$л Л(145)лA1$л Л(145)лA1$л Л(146)лA1$лA$*Ф
┬З @224,B2$л Л(154)лB2$л Л(151)лB1$л Л(149)лB2$л Л(149)лB$*╞
╠З @256,A3$л Л(145)лA3$л Л(146)лA2$л Л(145)лA$+
╓З @288,B3$л Л(155)л Л(150)л Л(157)лB1$л Л(154)л Л(158)л Л(156)л Л(151)лB$+:
рЗ @320,A3$лA2$лA2$л Л(146)лA3$лA$+h
ъЗ @352,B2$лB2$л Л(158)лB2$л Л(154)лB3$лB$+▓
ЇЗ @384,B3$лB2$л Л(150)л Л(156)л Л(149)лB3$лB$:З @416,B6$лB3$лB2$лB$:Р+▀
■З @0,B11$лB$:З @32,B11$лB$:З @64,B11$лB$,З @96,A3$лA1$л Л(145)лA3$л Л(146)л Л(145)лA1$лA$,GЗ @128,B3$л Л(144)лB3$лB2$л Л(155)л Л(149)лBL$,qЗ @160,A3$лA3$лA3$лA1$л Л(145)лA1$лA$,Ф&З @192,B6$лB2$лB2$л Л(149)лBL$,║0З @224,A3$лA3$лA3$л Л(146)лA1$лA$,ф:З @256,B6$лB2$л Л(158)л Л(151)лB1$лB$-
DЗ @288,A3$лA3$лA1$л Л(146)лA3$лA$-0NЗ @320,B6$л Л(155)л Л(151)лB3$лB$-NXЗ @352,A3$лA3$лA3$лA2$лA$-rbЗ @384,B11$лB$:З @416,B11$лB$:Р-УlЮ:З @103,"LET'S LEARN NOTES"-│vЗ @174,"BY":З @236,"REGENA"-єАЗ @324,"PRESS":З @388,"1  KEYBOARD":З @420,"2  TREBLE CLEF".%КЗ @452,"3  BASS CLEF":З @484,"4  END PROGRAM".?ФCH$│ Т:Е CH$│"" з 660.hЮЕ  К(CH$)┤49 ▒  К(CH$)▓52 з 660 :Д Ю.МиИ  Й(CH$) Бе 690,1090,1090,1630.╞▓A$│ Л(159)л Л(154)л Л(144):B$│ Л(159)л Л(159)л Л(149).√╝L$│ Л(159)лA$лA$лA$лB$лA$лA$лB$лA$лA$лA$л Л(159)/D╞З @33,"EACH KEY ON THE KEYBOARD":З @65,"HAS A SPECIFIC LETTER NAME."/╨З @129,"THE LETTERS WE USE ARE":З @161,"A B C D E F G"/╞┌З @193,"THEN THE LETTERS START OVER--":З @225,"ABCDEFGABCDEFG ..."0фЗ @321,"THE KEYBOARD HAS GROUPS OF":З @353,"3 BLACK KEYS ALTERNATING"0@юЗ @385,"WITH GROUPS OF 2 BLACK KEYS.":Бж 600}°Ю:З @1,"ONE OF THE EASIEST KEYS":З @33,"TO FIND IS 'C'."0йЗ @97,"FIND A GROUP OF TWO BLACK KEYS."0▀А I│170 е 266 й 32:З @I,A$лA$л Л(159)л Л(159):Л I1А I│298 е 330 й 32:З @I,B$лB$л Л(159)л Л(159):Л I1Z З @385,"JUST TO THE LEFT OF THE":З @417,"TWO BLACK KEYS IS 'C'."1p*З @330,"C";:Бж 601й4Ю:З @33,"'D' IS BETWEEN THE":З @65,"TWO BLACK KEYS."1╦>З @129,"'E' IS ON THE RIGHT."2
HА I│202 е 298 й 32:З @I,A$лA$л Л(159)л Л(159):Л I27RА I│330 е 362 й 32:З @I,B$лB$л Л(159)л Л(159):Л I2R\З @394,"C  D  E":Бж 602УfЮ:З @33,"THE KEYS BY THE GROUP OF":З @65,"3 BLACK KEYS ARE:"2╠pА I│202 е 298 й 32:З @I,A$лA$лA$л Л(159)л Л(159):Л I3zА I│330 е 362 й 32:З @I,B$лB$лB$л Л(159)л Л(159):Л I:З @394,"F  G  A  B":Бж 603IДЮ:З @228,"NOW FOR A QUIZ . . .":Бж 603lОЮ:А I│0 е 192 й 32:З @I,L$:Л I3СШA$│ Л(159)л Л(159)л Л(149):L$│""3нвА I│1 е 10:L$│L$лA$:Л I3╟мL$│ Л(159)лL$л Л(159)3▀╢З @224,L$:З @256,L$3·└З @394,"NAME THE NOTE"4	╩А I│1 е 104 ╘N│ Д(11):P│286л3нN41▐З @P, Л(198)4JшG$│ Т:Е G$│"" з 10004АЄИ N Бж 80,100,120,140,160,180,200,220,240,260,2804С№Е C│1 з 10404й╔ "L32;E;C":Бе 10004╡З @P,G$4└а S,154═$З @P," "4╒.Л I4р8Бе 6205
BЮ:A$│"":B$│"":A1$│ Л(147):B1$│ Л(159)51LА I│1 е 21:A$│A$лA1$:B$│B$лB1$:Л I5YVB2$│B1$лB1$:B3$│B2$лB1$:B6$│B3$лB3$5Ж`A2$│A1$лA1$:A3$│A2$лA1$:Е CH$│"3" з 13705╟jЗ @37,"T R E B L E   C L E F":З @97,"EACH NOTE DRAWN ON THE"6tЗ @129,"TREBLE STAFF REPRESENTS A":З @161,"CERTAIN NOTE ON THE KEYBOARD."6g~З @225,"IF YOU LEARN THE LETTER NAMES":З @257,"OF THE NOTES YOU CAN FIND THE"6ШИЗ @289,"CORRECT NOTE ON THE KEYBOARD.":Бж 607ТЮ:З @33,"THERE ARE TWO PHRASES TO":З @65,"HELP LEARN THE TREBLE NOTES.":З @129,"THE WORD 'F A C E' REPRESENTS"7xЬЗ @161,"THE NOTES ON THE SPACES.":З @257,"THE LINE NOTES ARE THE FIRST":З @289,"LETTERS OF EACH WORD IN"7┌жЗ @321,"THIS PHRASE:":З @353,"EVERY GOOD BOY DOES FINE.":З @385,"-     -    -   -    -":Бж 607ч░Ю:Бж 3808║З @400,"F  A  C  E";8:─З @304,"F";:З @243,"A";:З @182,"C";:З @121,"E";:Бж 608G╬Ю:Бж 3808Ы╪З @331,"EVERY";:З @272,"GOOD";:З @212,"BOY";:З @151,"DOES";:З @90,"FINE";:Бж 608ктА I│1 е 108╡ьБж 3808╨ЎЗ @458,"NAME THE NOTE"8фN│ Д(10):Y1│Nн29
А X│41 е 46:А Y│Y1 е Y1л3:Ь(X,Y,4):Л Y,X9*G$│ Т:Е G$│"" з 13009]И N Бж 360,340,320,300,280,260,240,220,200,1809n(Е C│1 з 13409Ж2╔ "L32;E;C":Бе 13009С<а S,159ЩFЛ I9дPБе 6209╫ZЮ:B11$│B6$лB3$лB2$:BL$│B2$л Л(151)лB6$лB6$лB6$9їdЗ @39,"B A S S   C L E F":QnЗ @129,"THE PHRASES TO HELP LEARN THE   BASS CLEF NOTES BOTH":З @193,"CONCERN ANIMALS.":ЭxЗ @257,"REMEMBER, THE FIRST LETTER OF   EACH WORD IS THE NAME OF NOTE.":¤ВЗ @353,"FOR THE SPACES, THINK--":З @385,"ALL COWS EAT GRASS.":З @417,"-   -    -   -":Бж 60;
МЮ:Бж 510;+ЦЗ @392,"ALL COWS EAT GRASS";;pаЗ @335,"ALL";:З @274,"COWS";:З @214,"EAT";:З @153,"GRASS";:Бж 60;╠кЮ:З @33,"THE PHRASE TO LEARN FOR THE     NOTES ON THE LINES OF THE       BASS CLEF IS:"<┤З @193,"GREAT BIG DOGS FIGHT ANIMALS.   -     -   -    -     -"<c╛З @353,"REMEMBER TO START THE PHRASE    ON THE BOTTOM LINE OF THE CLEF.":Бж 60<p╚Ю:Бж 510<Ъ╥З @419,"GREAT BIG DOGS FIGHT ANIMALS"<є▄З @366,"GREAT";:З @305,"BIG";:З @243,"DOGS";:З @182,"FIGHT";:З @121,"ANIMALS";:Бж 60=цА I│1 е 10=
ЁБж 510=(·З @458,"NAME THE NOTE"==N│ Д(9):Y1│Nн2л2=jА X│41 е 46:А Y│Y1 е Y1л3:Ь(X,Y,4):Л Y,X=ГG$│ Т:Е G$│"" з 1560=▓"И N Бж 260,240,220,200,180,160,140,120,100=├,Е C│1 з 1600=▌6╔ "L32;O2;EC":Бе 1560>@╔ "L16;O2;CEG;O3;C;O2;G;L8;O3;C">
JЛ I>TБе 620>^КjС0!D	ZВ
Fs*$>i*'B]*$dd(HГ>Г!Z!
?]L`i
'P2


B0^]6vq/
Iz*P`6'J=r- Q.Cm"29G<З-<}2rudj

^q
Ft3	sq,	fn
W
'@De

)3	]d-(dn5
$suFВK	_f"(@5
F