Ш40НO┐
hЦЦЧц0МЁ0Й пНx0НzпНrпНp0Н┐

5ТоНaмН_'Ў "T%жД╜О0
мНH&0НHпН@~╫╝4ЦoБ■'5~╦J5ЬБ
&ЬЖ
2b4оНзД0
мН&0НмН
'·пН5Р% ЦЦЦ PTS!"2┐А Q│1 е 4000:Л:Бе 601╠└┐ 0,11щ╩З"ENTER YOUR FIRST NAME"1є╘Й NM$2▐З"ENTER                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 с#
:Г***************************E:Г*     DIRECTORY STASH     *g:Г***************************Й(:Г* DIRSAV HIDES A SPARE    *л2:Г* DIRECTORY UP IN GRAN 68 *═<:Г* DIRGET GETS THE SPARE & *яF:Г* RESTORES IT.            *P:Г***************************Z:Г9d:Г--------  DIRSAV ---------@n:ГoxЮ(0):З @66," DIRECTORY SAVE AND RESTORE ";ТВЗ@102," <ENTER> S OR R ";:Й A$нМЕ A$│"R" Бе 370 :Д 150╚ЦЕ A$│"S" Бе 170 :Д 160╪аЮ(0):Бе 130кЮ(0):З "<ENTER> TO SAVE SECOND DIRECTORY ";┤Й B$╛Х 600-╚▀0,17,2,A$,B$x╥ Р (A$,68,1)│ Л(199) :Г MARKER FOR FILE ALLOCATION TABLE FOR 7 SECTORSР▄р 0, 17,  2, A$, B$ицр 0, 34, 11, A$, B$└Ё▀ 0, 17,  3, A$, B$╪·р 0, 34, 12, A$, B$Ё
▀ 0, 17,  4, A$, B$
р 0, 34, 13, A$, B$ 
▀ 0, 17,  5, A$, B$8
"р 0, 34, 14, A$, B$P
,▀ 0, 17,  6, A$, B$h
6р 0, 34, 15, A$, B$А
@▀ 0, 17,  7, A$, B$Ш
Jр 0, 34, 16, A$, B$░
T▀ 0, 17,  8, A$, B$╚
^р 0, 34, 17, A$, B$ч
h╬:З" FREE SPACE: "; г(0):К
rЮ(0):Й "<ENTER> TO RESTORE DIRECTORY ";C$
|:Г=
Ж:Г-------- DIRGET ----------D
Р:ГN
ЪХ 600f
д▀ 0, 34, 11, A$, B$~
ор 0, 17,  2, A$, B$Ц
╕▀ 0, 34, 12, A$, B$о
┬р 0, 17,  3, A$, B$╞
╠▀ 0, 34, 13, A$, B$▐
╓р 0, 17,  4, A$, B$Ў
р▀ 0, 34, 14, A$, B$
ър 0, 17,  5, A$, B$&
Ї▀ 0, 34, 15, A$, B$>
■р 0, 17,  6, A$, B$V▀ 0, 34, 16, A$, B$nр 0, 17,  7, A$, B$Ж▀ 0, 34, 17, A$, B$Ю&р 0, 17,  8, A$, B$╜0╬:З" FREE SPACE: "; г(0):Кр::Г*BEWARE* OF I AND 1, O AND 0▀ 0, 34, 14, A$, B$
ър 0,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                R(BL,1)мSR(BT,3):ЕI┤0зI│Iо2P4
╠K│ Б(Kл4нIн( Д(2)о2))P:
═РPГ
╬Ю5:З@69, б(21," ");:З@101," T O U C H D O W N ! ";:З@133, б(21," ");Pо
╧З@269, Л(202); Л(206); Л(205); Л(197);P┘
╨З@301, Л(203); Л(192); Л(192); Л(199);PЇ
╤З@334, Л(192); Л(192);Q
╥З@366, Л(197); Л(202);Q*
╙З@398, Л(197); Л(202);Ql
╘╔"T4O3L4AP16L2AL4GFL4CL3CL4DFB-AP4FGO4L4DCO3AB-AAGL3B-L8AL2F"Qx
╒Бж127:РQт
╓Ю5:З@68, б(23," ");:З@100,"     ";N$(BL);"      ";:З@132," F I R S T   D O W N ! ";:З@164, б(23," ");Q¤
╫З@270, Л(196); Л(205);R
╪З@238, Л(205);R;
┘З@302, Л(192); Л(192); Л(195); Л(199);RV
┌З@334, Л(192); Л(192);Rq
█З@366, Л(197); Л(202);RМ
▄З@398, Л(197); Л(202);RЦ
▌Бж127RЬ
▐РR┐
▀Ю(7):З@70," H A L F T I M E ";R▌
рАI│256е479:З@I, Л(143);:ЛS 
сЗ@299, Л(129); Л(131); Л(131); Л(143); Л(129); Л(131); Л(130);Sc
тЗ@331, Л(133); Л(142); Л(140); Л(143); Л(133); Л(143); Л(138);Sж
уЗ@363, Л(132); Л(140); Л(136); Л(143); Л(132); Л(140); Л(136);S┐
фЗ@417,N$(1);" ";S(1)S┘
хЗ@449,N$(2);" ";S(2);T>
ц╔"T4O2L4AP16A-AB-L3B-L4AL2B-P4L4B-B-P16B-AB-O3CL3CL4O2BL2O3CP4O3L4DFEDCO2AFGAO3L3CO2L8B-L4AGL2F"TT
чБж127:Бж127:Бж127TZ
шРTc
щЮ(8)TЬ
ъЗ@38," S T R A T E G Y ";:З@106," F O O T B A L L ";T║
ыЗ@168," BY  R.K. TYSON ";T▄
ьЗ@230, Л(254); б(18, Л(252));Tю
эАI│262е359й32U
юЗ@I, Л(250); Л(239);U
яАK│1е5U$
ЁJ│Iл2л(Kм1)н3UE
ёЗ@J, Л(133); Л(138); Л(143);UL
ЄЛKUh
єЗ@Iл17, Л(181); Л(186);Uo
ЇЛIUС
їЗ@390, Л(251); б(18, Л(243));U╜
ЎЗ@449,"DO YOU WANT A SAVED GAME(Y/N)?";UЁ
ўG$│ Т:ЕG$│""з503:ДЕG$│"Y"з504:ДЕG$│"N"з10:Д503V
°Ю:З@64,"ENTER":З"1 = DISK":З"2 = TAPE"V"
∙ЙKV8
·ЕK│1▒K│2з508:Д507Vf
√З"INVALID ENTRY .. TRY AGAIN":Бж127:Бе504Vy
№ЕK│1зK│1:ДK│м1V┐
¤ЕK│м1зЗ"INSERT TAPE; PRESS <PLAY>;      PRESS <ENTER> WHEN READY"V╧
■ЕK│м1зБж524W	
 Ю:ЕK│1зЗ"ENTER FILENAME/EXT:DRIVE":ДЗ"ENTER FILENAME"WЙG$W
ЕK│1з┌ИW,Щ"I",#K,G$W>Й#K,S(1),S(2)WaАI│1е2:АJ│1е5:Й#K,SR(I,J):ЛJ,IWuЙ#K,N$(1),N$(2)WОАI│1е12:Й#K,L$(I):ЛIWоЙ#K,BL,RU,MD,YL,TQ,TM,TS,TPW╫Й#K,YF,YT,FT,L,ZN,DN,BT,FL,Q(1),Q(2)Wу	ЕK│1з┌кWы
Ъ#KWЇБе87XG$│ Т:ЕG$│""з524:ДРX7
Ю:З@64,"ENTER":З"1 = DISK":З"2 = TAPE"X>ЙKXTЕK│1▒K│2з529:Д528XВЗ"INVALID ENTRY .. TRY AGAIN":Бж127:Бе525XХЕK│1зK│1:ДK│м1X█ЕK│м1зЗ"INSERT TAPE; PRESS <RECORD>;    PRESS <ENTER> WHEN READY"XыЕK│м1зБж524Y%Ю:ЕK│1зЗ"ENTER FILENAME/EXT:DRIVE":ДЗ"ENTER FILENAME"Y-ЙG$Y9ЕK│1з┌ИYHЩ"O",#K,G$YZЗ#K,S(1),S(2)Y}АI│1е2:АJ│1е5:З#K,SR(I,J):ЛJ,IYЛЗ#K,N$(1)YоЗ#K,N$(2):АI│1е12:З#K,L$(I):ЛIY╬З#K,BL,RU,MD,YL,TQ,TM,TS,TPYўЗ#K,YF,YT,FT,L,ZN,DN,BT,FL,Q(1),Q(2)Y Ъ#KZЕK│1з┌кZ Бе87ZР!Ж 1,2,3,-2,16,100,1,7,5,-2,15,100,-4,6,8,12,100,30,15,2,-5,45,100,-13,0,15,7,0,25,200,4,0,6,-6,200,12,34,0,0,200,-9,200[	"Ж 0,3,1,2,-3,100,8,5,3,-2,100,27,8,6,17,-3,56,100,0,2,-6,18,100,-20,17,-6,200,0,0,28,7,0,-5,4,0,200,-7,0,200,0,49,-7[Е#Ж 0,1,2,3,-3,100,-2,4,5,-4,100,19,5,-1,0,2,14,100,7,34,1,-9,100,-22,6,17,0,31,200,57,5,8,0,3,-12,200,10,0,48,32,-15,200\$Ж 1,-2,7,1,4,100,-2,3,5,-3,5,100,5,-5,2,40,-17,100,2,1,-15,4,100,16,25,0,-9,37,8,200,20,5,0,200,46,-6,53,0,-11,200,-8,35\u%Ж 2,3,5,-1,8,100,5,7,12,1,26,100,12,7,2,6,100,23,5,6,1,2,100,34,18,0,15,200,47,0,5,0,7,200,0,16,0,0,68,200,2,7\А&└1:Бе700\$Ж 1,-2,7,1,4,100,-2,3,5,-3,5,100,5,-5,2,40,-17,100,2,1,-15,4,100,16,25,0,-9,37,8,200,20,5,0,200,46,-6,53,0,-11,200,-8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 AT LEAST ";10н Б(KLо10);" YARDS">A
/З"IT'S INTERCEPTED !!":Бж127>^
0ЕBL│1зYL│YLлKL:ДYL│YLмKL>s
1ЕBL│1зBL│2:ДBL│1>З
2Е В(YL)▓│50з179>л
3RL│ Д(2)н10л Д(10):ЕRL│15зRL│65>╚
4ЕBL│1зYL│YLлRL:ДYL│YLмRL>▄
5Е В(YL)▓│50з200>№
6DN│1:L│2:TP│20л Д(20):YF│10?
7ЕBL│1░YL▓40зYF│м1?)
8ЕBL│2░YL┤м40зYF│м1?T
9З:ЗN$(BL):З" RETURNS IT ";RL;" YARDS "?q
:а250,13:Бж127:Бж422:Бе87?й
;АI│1е8:Ю(I):а Д(255),1:ЛI:Ю:З" F U M B L E !":Бж127?╔
<ЕPO┤│4зKL│ Д(10):ДKL│ Д(25)?ц
=ЕBL│1зYL│YLлKL:ДYL│YLмKL?·
>Е В(YL)▓│50з322@
?ЕBL│1зBL│2:ДBL│1@O
@L│2:DN│1:ЗN$(BL)л" GETS THE BALL !":TP│10л Д(5):YF│10:Бж127@X
AБе87@Ч
BЗ"THE BALL WAS PAST THE PLANE OF      THE GOAL LINE":Бж127@б
CБе201@╩
DЕK│0░PO▓4зЗ" THE PASS IS INCOMPLETE"@╘
EБж127@я
FЕBL│1зYL│YLлK:ДYL│YLмKA
GЕ В(YL)▓│50з341AL
Hа250,13:ЕK┤▓0зЗ" IT'S A GAIN OF";K;" YARDS":ДЗ" NO GAIN ON THE PLAY"AV
IБж127Al
JЕYF┤▓м1░K▓│YFз335AЗ
KЕYF┤▓м1зYF│YFмK:ДYF│м1AЭ
LDN│DNл1:ЕDN▓4з338A╕
ML│2:TP│ Д(20)л10:Бж422A┴
NБе87AЇ
ODN│1:YF│10:Е(BL│1░YL▓│40)▒(BL│2░YL┤│м40)зYF│м1B
PTP│12л Д(20):Бж422:Бж470B
QL│2:Бе87BC
RЗ"BALL GOES OVER ON DOWNS":Бж127BX
SЕBL│1зBL│2:ДBL│1Bb
TБе335Bw
UЕYF┤▓м1з342:Д343B┘
VЗN$(BL)л" BREAKS INTO THE       SECONDARY":Бж126:З"HE'S GOING TO GO ALL THE WAY!":Бж126:Бе201C

WЗN$(BL)л" IS IN THERE!":Бж126:Бе201C
XЕBL│1зYL│YLлK:ДYL│YLмKC4
YЕ В(YL)▓49з352:Д346CB
ZЕDN│4з338C]
[ЕYF┤▓м1зYF│YFмK:ДYF│м1CА
\DN│DNл1:L│2:TP│10л Д(20):Бж422Cл
]ЕPO▓4зЗ"THE QUARTERBACK IS IN TROUBLE"C╠
^Бж126:ЕPO▓4зЗ"HE'S SACKED !"D
_а250,13:З"IT'S A LOSS OF "; В(K);" YARDS":Бж127:Бе87DЯ
`ЕPO▓4зЗ"THE QUARTERBACK IS DROPPING BACKINTO THE END ZONE    HE'S HIT    AND SACKED FOR A SAFETY":ДЗ"HE'S HIT HARD AND DRIVEN BACK   FOR A SAFETY !!"Dй
aБж127D╠
bЕBL│1зS(2)│S(2)л2:ДS(1)│S(1)л2Dё
cDN│1:YF│10:L│1:TP│10л Д(5):Бж422D 
dK│99:Бе87E
eYL│YL:В EXTRA POINTE*
fЕBL│1░MD│1з376E8
gЕMD│0з380EK
hЕBL│2░MD│1з380EY
iЕPO│3з369El
jЕBL│2░MD│1з384Ez
kЕMD│0з389EН
lЕBL│1░MD│1з389EЫ
mЕPO│3з369Eй
nЕPO│1з390E╖
oЕPO│2з394E┴
pБе358F
qЮ:З"THE KICK FOR THE EXTRA POINT":Бж126:З"THE KICK IS UP...":I│ Д(10):ЕI│5з373:Д370F8
rБж127:З" AND IT'S GOOD !!"FB
sБж126Fm
tS(BL)│S(BL)л1:YF│10:YT│0:L│1:DN│1:Бе87FЦ
uБж127:З" AND IT'S WIDE !!  NO GOOD."Fа
vБж126F╜
wYF│10:YT│0:L│1:DN│1:Бе87G
xЮ:ЗN$(BL)л" CHOOSE OFFENSIVE PLAY":З:З:З"K=KICK":З"R=RUN":З"P=PASS"G
yG$│ Т:ЕG$│""з377GN
zЕG$│"R"зPO│1:ДЕG$│"K"зPO│3:ДЕG$│"P"зPO│2:ДБе377GX
{Бе361Gm
|ЕBL│1зBT│2:ДBT│1Gд
}ЕRU│1з382:ДЕTQ│4░(S(BT)мS(BL)│1▒S(BT)мS(BL)│2)з383G│
~PO│3:Бе361G╞
PO│ Д(2):Бе361G▌
АЮ:ЕBL│1зBT│2:ДBT│1H
БЗN$(BT)л" CHOOSE DEFENSIVE PLAY":З:З:З"R=RUN":З"P=PASS"H.
ВG$│ Т:ЕG$│""з386HT
ГЕG$│"R"зPD│1:ДЕG$│"P"зPD│2:ДБе386H^
ДБе365Hq
ЕPD│ Д(2):Бе365Hн
ЖЮ:З"THE BALL IS SNAPPED":З"SWEEP AROUND LEFT END":Бж126H└
ЗЕPD│1зI│ Д(10)H╥
ИЕPD│2зI│ Д(5)Hф
ЙЕI▓4з402:Д398I?
КЮ:З"THE BALL IS SNAPPED":З"QUARTERBACK ROLLS RIGHT":Бж126:З"   AND FIRES A PASS":Бж126IR
ЛЕPD│2зI│ Д(10)Id
МЕPD│1зI│ Д(5)Iv
НЕI▓4з402:Д398Iо
ОЕPO│1зЗ" HE'S IN THE END ZONE         IT'S GOOD !!"I╥
ПЕPO│2зЗ" COMPLETE !! IT'S GOOD"I▄
РБж127J
СS(BL)│S(BL)лRU:YF│10:YT│0:L│1:DN│1:Бе87J,
ТЕPO│1зЗ"HE'S HIT AND IS SHORT!"JS
УЕPO│2зЗ"IT'S DEFLECTED .. NO GOOD"J]
ФБж127Jz
ХYF│10:YT│0:L│1:DN│1:Бе87JК
ЦFT│BL:Бе226JЯ
ЧЕBL│1зFT│2:ДFT│1Jй
ШБе237J╜
Ща250,13:J│ Д(2)K
ЪЮ:З@132,"A FLAG IS DROPPED":З:З:Бж126:З" A PENALTY AGAINST "лN$(J)K
ЫБж127:K│5л Д(2)н5:ЗKn
ЬЕK│5зЗ"ILLEGAL PROCEDURE":ДЕK│10зЗ"HOLDING":ДЕK│15зЗ"UNSPORTSMANLIKE CONDUCT"KТ
ЭЗ"           IS THE CALL":Бж127Kм
ЮЕJ│1зI│50лYL:ДI│50мYLK┼
ЯЕK▓ Б(Iо2)зK│ Б(Iо2)Kр
аЕBL│JзYF│YFлK:ДYF│YFмKKя
бЕYF┤│0з420L	
вЕJ│1зYL│YLмK:ДYL│YLлKL
гБе87L,
дЕJ│1зYL│YLмK:ДYL│YLлKL6
еБе335LK
жЕFT│1▒FT│2зTP│10Lb
зЕFT┤▓0░Q(FT)│0з431L{
иЕFT┤▓0зQ(FT)│Q(FT)м1L┐
йЕFT┤▓0зЗN$(FT)л" HAS                 ";Q(FT);" TIMEOUT(S) LEFT"L╔
кБж126Lы
лT│ Б(60нTMлTS)мTPм Д(16):FT│0L∙
мЕT┤│0з432M
нTM│ Б(Tо60):TS│ Б(TмTMн60)M
оРMe
пTP│20л Д(15):ЗN$(FT)л" HAS NO TIMEOUTS           LEFT":Бж127:Бе427MЕ
░а10,10:ИTQБе434,435,438,439MЬ
▒TQ│4:FLAG│м1:Бе432M╓
▓Ю:З@64,"END OF FIRST QUARTER":Бж127:TQ│2:TM│15:TS│0:РN
│Бж479:TQ│3:TM│15:TS│0:YF│10:YT│0:L│1:DN│1:Q(1)│3:Q(2)│3N)
┤ЕFLAG│1зBL│2:ДBL│1N/
╡РNj
╢Ю:З@161,"END OF THIRD QUARTER":Бж127:TQ│4:TM│15:TS│0:РNС
╖TQ│4:TM│0:TS│0:а10,12:FLAG│м1:Бе87NЧ
╕ПNм
╣ЕBL│1зBT│2:ДBT│1N╣
║K│ Д(20)N┴
╗I│0O
╝ИKБе445,446,446,447,447,448,448,448,448,449,449,449,449,449,450,450,450,450,450,450O#
╜I│Iл1O-
╛I│Iл1O7
┐I│Iл1OA
└I│Iл1OK
┴I│Iл1OU
┬I│Iл1Ot
├N│ Б((PDм1)н42л(POм1)н6лI)OЕ
─АI│1еN:НK:ЛIOФ
┼ЕPO┤│4з458Oл
╞ЕK│0▒K│100▒K│200зРO├
╟I│SR(BL,2)мSR(BT,4)O▐
╚K│ Б(Kл10нIн( Д(2)о2))Oф
╔РOў
╩ЕK│100▒K│200зРP
╦I│S,;дЮ:З"BALL TRAVELS ";KL;" YARDS":ЕBL│1зYL│YLлKL:ДYL│YLмKL,WеБж107:З"KICK TAKEN "лY$,aжБж127,uзЕ В(YL)▓│60з178,ТиЕ В(YL)┤60░ В(YL)▓49з182,зйЕBL│1зBL│2:ДBL│1,╚кRL│0:АI│1е15:RL│RLл Д(43):ЛI,єлRL│ Б(RLо16)л(SR(BL,5)мSR(BT,5))н Д(8)-
мRL│ Б(RL)-нI│ Д(10лSR(BL,5))-+оЕI│1░ZN│0зRL│м1-?пЕI┤4░ZN│1зRL│м1-E░Ю-O▒Бе189-d▓ЕBL│1зBL│2:ДBL│1-{│YL│м30:ЕBL│2зYL│30-░┤З"TOUCHBACK .. BALL GOES TO 20":Бж127:TP│0:Бж422-┘╡DN│1:L│2:YF│10:YT│80:TP│7:Бж422:Бе87-ч╢ЕMD│0з178-№╖ЕBL│1зBL│2:ДBL│1.╕ЕMD│1░BL│1з186."╣ЕMD│1░BL│2з179.[║ЗN$(BL):З" CHOOSE TO RUN THE BALL OUT?        (Y/N)".p╗G$│ Т:ЕG$│""з187.Е╝ЕG$│"Y"з170:Д179.Ф╜ЕRL│м1з203.▒╛ЕBL│1зYL│YLлRL:ДYL│YLмRL.╞┐ЕBL│1░YL▓│50з200.▄└ЕBL│2░YL┤│м50з200.ё┴ЕBL│1░YL┤м50з179/┬ЕBL│2░YL▓50з179/1├DN│1:L│2:YF│10:ЕBL│1зYT│50мYL:ДYT│50лYL/B─ЕYT┤11зYF│м1/z┼З:З:ЗN$(BL)л" RETURNS IT ":ЗRL;" YARDS AND IS DOWN"/О╞Бж107:ЗY$:Бж128/г╟TP│24:Бж422:Бе87/ш╚ЗN$(BL)л" BREAKS A TACKLE                GOES ALL THE WAY":Бж126/Є╔Бж4620╩S(BL)│S(BL)л6:YF│10:DN│1:L│3:TP│27:Бе870S╦АI│1е8:Ю(I):а Д(255),1:ЛI:Ю:З:З"FUMBLE...":Бж1270g╠ЕYL▓49░BL│2з2120Ъ═ЕBL│1зЗN$(2)л" RECOVERS!":ДЗN$(1)л" RECOVERS!"0м╬а250,13:Бж1270╦╧TP│20:Бж422:DN│1:L│2:YF│100р╨ЕBL│1зBL│2:ДBL│10¤╤ЕBL│1зYT│50мYL:ДYT│50лYL1╥ЕYT┤11зYF│м11╙Бе871@╘З" IN THE END ZONE..TOUCHBACK":Бе1791]╒ЕBL│1зYT│50мYL:ДYT│50лYL1r╓ЕBL│1зBT│2:ДBT│11Ж╫ЕBL│1░MD┤▓0з2261Щ╪ЕBL│2░MD│2з2261▓┘ИDNБе218,220,222,2241ф┌ЕTQ│4░T┤30░YT┤40░S(BT)мS(BL)┤3зPO│9:ДPO│ Д(7)1ю█Бе23423▄ЕTQ│4░T┤30░YT┤40░S(BT)мS(BL)┤3зPO│9:ДЕYF▓10зPO│ Д(3)л4:ДPO│ Д(7)2=▌Бе2342z▐Е(TQ│4▒TQ│2)░T┤30░YT┤40зPO│9:ДЕYF▓6зPO│ Д(3)л4:ДPO│ Д(4)2Д▀Бе2343рK│S(BT)мS(BL):Е(TQ│4░K▓3░YT┤40)▒(TQ│4░K▓3░YT┤90░TM┤2░YT▓40)▒(YF┤3░YT┤20░K▓3)зPO│1л Д(6):ДЕ(TQ│4░K┤4░K▓0░YT┤40)▒(TQ│2░K┤8░K▓0░YT┤40)▒(YT┤37)зPO│9:ДPO│83)сБе2343/тЮ35уЗ3УфЗN$(BL):З"SELECT OFFENSIVE PLAY":З:З"1=DIVE          s=SAVE":З"2=TRAP          T=TIMEOUT"3ёхЗ"3=SWEEP":З"4=REVERSE":З"5=SLANT PASS":З"6=CURL PASS":З"7=FLY":З"8=PUNT":З"9=FIELD GOAL"4цG$│ Т:ЕG$│""з2304чЗ@416,"*"4TшЕG$│"s"з525:ДЕG$│"T"з406:ДЕ Й(G$)┤1▒ Й(G$)▓9з230:ДPO│ Й(G$)4^щБе2344rъЕBL│2░MD┤▓0з2374ЕыЕBL│1░MD│2з2374ПьБе2444гэЮ:З:ЗN$(BT):З:З4щюЗ"SELECT DEFENSIVE PLAY":З:З"1 = 5-3  MAN-TO-MAN":З"2 = 4-4 ZONE"5LяЗ"3 = 5-3 ZONE STRONG SIDE":З"4 = 4-4 BLITZ         s=SAVE":З"5 = PREVENT           T=TIMEOUT"5aЁG$│ Т:ЕG$│""з2405бёЕG$│"s"з525:ДЕG$│"T"з407:ДЕ Й(G$)┤1▒ Й(G$)▓5з240:ДPD│ Й(G$)5пЄЗ@416,"*"5╣єБе2466ЇЕTQ│4░S(BT)мS(BL)┤6░T┤130░YT┤50зPD│5:ДЕDN│3░YF▓5зPD│ Д(3)л1:ДPD│ Д(4)6
їБе2466+ЎЕPO│8з247:ДЕPO│9з275:Д2906ўЮ:ЗN$(BL)л" IN DEEP PUNT                FORMATION":Бж127:I│ Д(10):ЕI│7з248:Д2596Ь°ЕBL│1зYL│YLм15:ДYL│YLл156▒∙ЕBL│1зBL│2:ДBL│16┼·Е В(YL)▓│50з2556х√DN│1:L│2:TP│10л Д(20):Бж4227%№З"THE KICK IS BLOCKED !!":ЗN$(BL)л" RECOVERS":а250,13:Бж1277Q¤YF│10:Е(BL│1░YL▓40)▒(BL│2░YL┤м40)зYF│м17Z■Бе877│ З"THE KICK IS BLOCKED !":ЗN$(BL)л" RECOVERS IN THE END ZONE":З"  IT'S A TOUCHDOWN!!"7╜
Бж4627ы

S(BL)│S(BL)л6:DN│1:L│3:TP│10л Д(15):Бж4227Ї
Бе878
KL│ Д(8)л7:KL│ Б(KLн5)8-
З"THE KICK IS AWAY":Бж1278J
ЕBL│1зYL│YLлKL:ДYL│YLмKL8_
ЕBL│1зBL│2:ДBL│18s
Е В(YL)▓│50з1798Н
I│ Д(5):ЕI│3з265:Д2688╚
	З"FAIR CATCH CALLED":Бж126:ЗN$(BL)л" TAKES OVER":Бж1268ш

DN│1:L│2:TP│10л Д(20):Бж4228Є
Бе2539,
Бж107:ЗN$(BL)л" FIELDS THE BALL":ЗY$:З"AND RUNS LEFT"9Z

I│ Д(8):ЕI│8зRL│55:ДЕI│7зRL│80:ДRL│ Д(20)9w
ЕBL│1зYL│YLлRL:ДYL│YLмRL9Л
Е В(YL)▓│50з2749▒
DN│1:L│2:TP│15л Д(20):Бж422:Бж1079┘
З"HE RETURNS IT TO":ЗY$:Бж127:Бе253:!
З"HE'S GOT BLOCKERS":Бж126:З"HE'S GOING ALL THE WAY !!":Бж126:Бе201:D
ЕBL│1зRL│17л50мYL:ДRL│17л50лYL:Б
Ю:З"A ";RL;" YARD FIELD GOAL TRY":I│ Д(11):ЕI│7з248:Д277:е
KL│SR(BL,5)л20л Д(10):KL│ Б(KL):┼
I│ В(YL)лKL:ЕI▓│50з279:Д285:∙
З"THE KICK IS UP...":Бж127:З"AND IT'S GOOD !!!";
Ю5:Бж463;-
YF│10:S(BL)│S(BL)л3:DN│1:L│1:Бж126;D
ЕRU│1зYL│15:ДYL│10;[
ЕBL│1зYL│ Б(м1нYL);d
Бе87;п
З"THE KICK IS UP...":Бж126:З"AND IT'S WIDE ... NO GOOD.":а250,13:Бж127;╙
Е(BL│1░YL▓30)▒(BL│2░YL┤м30)з178;ц
ЕRU│1з178:Д288<
 DN│1:TP│18:Бж422:YF│10:L│2:ЕBL│1зBL│2:ДBL│1<
!Бе87<)
"YL│YL<>
#ЕBL│1зBT│2:ДBT│1<е
$Ю:ЕPD┤▓4зЗN$(BT)л" LINES UP IN A        "лL$(PDл7):ДЗN$(BT)л" LINES UP IN A        4-4 MAN-TO-MAN"<ю
%Бж126:ЕPO┤5зЗN$(BL)л" RUNS A "лL$(PO):ДЗN$(BL)л" DROPS BACK TO PASS"=
&Бж126:ЕPO┤5з295:ДЗ"IT'S A "лL$(PO)=J
'Бж126:ЕPO▓4░PD│4зЗ"THEY'RE COMING WITH A BLITZ!"=T
(Бж440=c
)ЕK│200з301=r
*ЕK│100з315=Ъ
+J│ Д(50):Е В(YL)┤45░(J│37▒J│38)з409=м
,ЕK┤0з344:Д324=╧
-ЕPO│7зKL│ Д(5)н10:ДKL│ Д(3)н10> 
.KL│ Б(KL):З"HE DELIVERS":Бж126:З"IT'S GOING BБХ500:Бе550#З@449,"":G$│ ТGМS(2),SR(2,5),N$(2),L$(12),Q(2)TI│ Д( Я)^	Бе489}
Ю:З@70,"CHOOSE TEAM NAMES"ЗЗ:З:ЗТАI│1е2й
З"TEAM #";I:ЙN$(I)┬Е З(N$(I))▓12з15:Д16эЗ"ONLY 12 CHARACTERS...TRY AGAIN":Бе13ЇЛIАI│1е2:L$(1)│"            ")Е З(N$(I))│12з20PN$(I)│N$(I)л П(L$(1),12м З(N$(I)))WЛI]ЮЦЮ:З@70,"CHOOSE LEAGUE RULES":З@160,"1=NFL OR 2=NCAA"░ЙRU:ЕRU│1▒RU│2з24:Д21ЕRU│2з╔"T4O3L3CO2L8BO3L4DCP8L3FL8EL4GFP8AP16AP16AP16AP16L2AP2L4GFGA-AL3B-L4FGAB-O4CDO3L3AL8GL2F"Ю:З@70,"CHOOSE NUMBER OF PLAYERS":З:З"0=COMPUTER VS. COMPUTER":З"1=YOU VS. COMPUTER":З"2=TWO PLAYERS"ЯЙMD:MD│ Б(MD):ЕMD┤0▒MD▓2з25тЮ:З@70,"CHOOSE TEAM STRENGTHS":З:З"TOTAL MUST ADD TO 10":Бж126^L$(1)│"RUSHING OFFENSE":L$(2)│"PASSING OFFENSE":L$(3)│"RUSHING DEFENSE":L$(4)│"PASSING DEFENSE":L$(5)│"KICKING GAME   "iАI│1е2БАK│1е5:SR(I,K)│0:ЛKМАK│1е5╕ Ю:АJ│1е5:З@14л(Jл1)н32,L$(J);SR(I,J):ЛJ!З@224,N$(I):Бж35:З@258,L$(K):ЙSR(I,K):Бж35:ЕSR(I,K)┤0▒SR(I,K)▓10з48	"Бе37'#T│0:АJ│1е5:T│TлSR(I,J):ЛJ>$З@500,"TOTAL ";T:РK%ЕT│10з40X&ЕT▓10з49_'ЛKж(ЕT┤▓10з49:ДЮ:З"VERIFY SELECTIONS":З:ЗN$(I):З:АK│1е5:ЗL$(K);SR(I,K)н)ЛKч*З"PRESS <ENTER> TO CONTINUE,             <N> TO REDO"√+G$│ Т:ЕG$│""з43
,ЕG$│"N"з31-ЕG$│"Y"з46 .ЛI)/Бе50J0З"VALUE TOO HIGH":Бж127:Бе32q1З"TOTAL MUST EQUAL TEN":Бж127:Бе30Л2Ю:З"       COIN TOSS"Я3ИMDл1Бе69,52,72и4Бж54▒5Бе58╝6ЗN$(1)▌7З"CHOOSE <H>EADS OR <T>AILS"ё8G$│ Т:ЕG$│""з56 
9ЕG$│"H"▒G$│"T"зР:Д56 :Е Д(2)│1з59:Д61 ;;З" HEADS IT IS !!":Бж126 N<ЕG$│"H"з65:Д63 k=З" TAILS IT IS !!":Бж126 ~>ЕG$│"T"з65:Д63 п?З" YOU LOSE,  ":ЗN$(2);" WILL RECEIVE":Бж127 ╜@BL│1:Бе84 ·AЗ" YOU WIN THE TOSS...WILL YOU     <K>ICK OR <R>ECEIVE?"!BG$│ Т:ЕG$│""з66!-CЕG$│"K"зBL│1:ДЕG$│"R"зBL│2!6DБе84!NEЕ Д(2)│1зBL│1:ДBL│2!ЦFЗN$(BL);" WINS THE TOSS":З"AND WILL RECEIVE":Бж127:ЕBL│1зBL│2:ДBL│1!ЯGБе84!иHБж54!╝IЕ Д(2)│1з74:Д77!┘JЗ" HEADS IT IS !!":Бж126!ЁKЕG$│"H"зBL│1:ДBL│2!∙LБе79"MЗ" TAILS IT IS !!":Бж126"-NЕG$│"T"зBL│1:ДBL│2"lOЗN$(BL);" WINS THE TOSS":З"WILL YOU <K>ICK OR <R>ECEIVE ?""АPG$│ Т:ЕG$│""з80"ПQЕG$│"K"з84"ЯRЕG$┤▓"R"з80"┤SЕBL│1зBL│2:ДBL│1#TS(1)│0:S(2)│0:TQ│1:TM│15:TS│0:YF│10:YT│0:L│1:DN│1:FLAG│BL:Q(1)│3:Q(2)│3#НUL$(1)│"DIVE":L$(2)│"TRAP":L$(3)│"SWEEP":L$(4)│"REVERSE":L$(5)│"TIGHT END SLANT":L$(6)│"SIDELINE CURL":L$(7)│"FLY":L$(8)│"5-3 MAN-TO-MAN"#фVL$(9)│"4-4 ZONE":L$(10)│"5-3 ZONE STRONG SIDE":L$(11)│"4-4 BLITZ":L$(12)│"PREVENT"$WЮ:З@33,N$(1);:З@47,S(1);:З@53,"QUARTER ";TQ;$8XЕTS▓9зM$│ И(TS):ДM$│"0"л И(TS)$MYM$│ И(TM)л":"лM$$pZЗ@65,N$(2);:З@79,S(2);:З@85,M$$И[З@130,DN;" DOWN  ";$┐\ЕYF┤▓м1зЗ@140,YF;"YARDS TO GO":ДЗ@140,"GOAL TO GO"$╧]З б(32,"-")$я^ЕL│1зЗN$(BL)л" KICKING OFF"%_ЕL│3зЗN$(BL)л" EXTRA POINT TRY"%`ЕL│2з99%)aБж129%?bЕFLAG│м1з101:Д106%]cБж107:ЗN$(BL)л" BALL":ЗY$%fdБе97%ЕeЗ@354," THE GAME IS OVER";%▒fЕS(1)▓S(2)зЗ@420,N$(1)л" IS THE WINNER"%▌gЕS(2)▓S(1)зЗ@420,N$(2)л" IS THE WINNER"&hЕS(2)│S(1)зЗ@420," THE GAME ENDS IN A TIE !!"&iК&)jИLБе134,213,357&7kYL│ Б(YL)&HlЕYL┤│м60з117&XmЕYL┤м50з118&hnЕYL│м50з119&voЕYL┤0з120&ДpЕYL│0з121&УqЕYL┤50з122&вrЕYL│50з123&▒sЕYL┤60з124&┴tЕYL▓│60з125&∙uY$│"OUT OF THE "лN$(1)л"                END ZONE":Р'NvY$│ И( В(YL)м50)л" YARDS DEEP IN THE                       "лN$(1)л" END ZONE":Р'~wY$│"ON THE "лN$(1)л"           GOAL LINE":Р'├xY$│"ON THE "лN$(1)л"                  "л И(50лYL)л" YARD LINE":Р'тyY$│"ON THE 50-YARD LINE":Р((zY$│"ON THE "лN$(2)л"                   "л И(50мYL)л" YARD LINE":Р(W{Y$│"ON THE "лN$(2)л"          GOAL LINE":Р(й|Y$│ И( В(YL)м50)л" YARDS DEEP IN THE                    "лN$(2)л" END ZONE":Р(с}Y$│"OUT OF THE "лN$(2)л"                END ZONE":Р(є~АDL│1е500:Л:Р)АDL│1е1500:Л:Р)ААDL│1е2000:Л:Р))БЕMD│0зБе127)JВЕMD┤▓0зЗ@449,"PRESS ANY KEY")]ГЗ@449,"":G$│ Т)oДЕG$│""з130:ДР)ОЕВ 1000=KO,2000=SCR,3000=XP)дЖYL│10:ЕRU│1зYL│15)┤ЗЕK│99зYL│30)╝ИK│0)╧ЙЕBL│1зYL│м1нYL)▌КЕMD│0з142)ыЛЕMD│2з143*МЕBL│1зБж157:ДБж161*НБе144*ОБж161:Бе144*&ПБж157*,РЮ*6СБж107*MТЗ"THE BALL IS "лY$*hУЗN$(BL)л" KICKING OFF"*ФФ╔"V31T2O2L10CEGO3CP10O2L20GO3L2C":Бж127*йХЕBL│1зBT│2:ДBT│1*╝ЦИZNл1Бе151,154*чЧKL│30л Д(SR(BL,5)н20)л Д(10):KL│ Б(KL)*°ШЕKL▓70зKL│70+ЩБе164+2ЪKL│15:KL│KLл Д(SR(BL,5)н10)л Д(5):KL│ Б(KL)+CЫЕKL▓70зKL│70+MЬБе164+ВЭБж126:Ю:ЗN$(BL):З"CHOOSE ONSIDES KICK?(Y/N)":З:З+ЧЮG$│ Т:ЕG$│""з158+оЯЕG$│"Y"зZN│1:ДZN│0+┤аР+┘бZN│0:ЕTQ│4░BL│1░S(2)мS(1)▓7зZN│1+∙вЕTQ│4░BL│2░S(1)мS(2)▓7зZN│1+ гР М&
Бе380&╙M"QSORT ML"&)Ю:Х 2000&7(╣ Г│&HE4E&N2М A(999),I(2),B(3)&W< Я│0&pFА K9│199 е 999 й 200&ЛPЗ@448,"BUILDING ARRAY"&ЫZX│0:B(0)│ Я&пdА J│K9м199 е K9&╞nA(J)│ Д(5000)м2500&▐xЗ@64,"ELEMENT #";J;&цВЛ J'МI(0)│0:I(1)│K9:I(2)│ Э(A(0))'!ЦЗ@448,"SORTING ARRAY"'-аB(1)│ Я'@кX│ Г( Э(I(0)))'_┤Е X▓0 з З"ERROR CODE=";X:С'{╛З@448,"VERIFYING ARRAY"'З╚B(2)│ Я'Ш╥А J│0 е K9м1'╝▄Е A(J)▓A(Jл1) зЗJ;A(J);A(Jл1):С'─цЛ J'╨ЁB(3)│ Я'Ў·З@132,"SORT OF ";K9л1;" ELEMENTS"(#
З═"ARRAY BUILD START WAS ###.##";B(0)о60(P
З═"            END   WAS ###.##";B(1)о60(}
З═"SORT ENDED AT ------- ###.##";B(2)о60(к
"З═"VERIFY ENDED AT ----- ###.##";B(3)о60(▐
,З═"SORTING TIME WAS ---- ###.##";(B(2)мB(1))о60(ц
6З:З)
@TTL│TTLл((B(2)мB(1))о60))
JЛ K9)5
TЗ═"TOTAL SORT TIME ----- ###.##";TTL)P
^З@448,"TEST COMPLETE.")f
hЙ"AGAIN (Y/N)";R$)
rЕ R$│"Y"з О 30  :Д К)Л
|└2:Бе20DED AT ----- ###.##";B(3)о60(▐
,З═"SORTING TIME WAS ---- ###.##";(B(2)мB(1))о60(ц
6З:З)
@TTL│TTLл((B(2)мB(1))                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╠&
Х 3000&М AX$(63),I(7)&.╣  Г│&HE4E&7#RC│0&=(Ю&O<Й"DRIVE #";DR&lAЙ"LISTING TO PRINTER";A$&ИBЕA$│"Y" з DV│м2 :Д DV│0&ЯFЕ DR┤0 ▒ DR▓1 з 40&пPА X│ 3 е 11&├Z▀ DR,17,X,A$,B$&╪dA$│A$л О(B$,127)&цnА N│0 е 7'xFILE$│ Р(A$,Nн32л1,8)'ВEXT$│ Р(A$,Nн32л9,3)'1МЕ  К(FILE$)│0 з 180'MЦЕ FILE$│ б(8,255) з 180'gаAX$(R)│FILE$л"."лEXT$'qкR│Rл1'{┤Л N,X'Ж╛I(0)│0'У├I(1)│Rм1'з╚I(2)│ Э(AX$(0))'╔═I(4)│10:I(5)│12:I(6)│1:I(7)│8'▌╥З"CALLING SORT"'ё▄RC│ Г( Э(I(0)))(цЕ RC┤▓0 з ЗRC:С(ЁА X│1еR(BёЕ  Б(Xо16)│Xо16 ░ DV│0  з A$│ Т:Е A$│""з 241(l√З#DV,═"## -- %          %";X,AX$(Xм1)(r
Лi(╪(OCйЁОёїC:ОЁБ╜ё╞rЯШ╜]РC─}ёщЁ'╞z
Cв)0┐
/x~Є╔4`О]'O5`~┤ЇG]'ЇьМЭгМШГ	#1СRxьММгМЖ/Н ьb%1 
ьН lгН e/┐ ├╪ ╕ОO╞жЕзеZ*∙ж!з%КАз!!╜│э9]&M.oД9ОXI1?*·Дэ
 ╩АчДoo9╜│ээН W
40
 │эН M5ЖI
[]'*╞9Б
'╞940 Фоф40 ЛoН ,гф$
lН #5 5пН■╬эН■╠Г'Г #2b╞95офМ%."oН■ю 0 EГ#2b╞9чН■╪5 oН■═М'	lН■├ ╞9оН■╗ЖA╦]/╦9зН■▒мН■g"╞	9]'0оН■ЫоМ&я!█пН■НцН■Л┴
'оН■оН■|пН■xпН■q 	mН■o'╞
93Н■]яН■YьН■гН■'оН■
оН■
60_940Н'
oН■FoН■C зН■<Н'Ж _зН■2509оН■оН■#м>$)0
пН■0aуН■
■eГ'Г
Г #╞ Й_9╞
940обД'0бД'0бД'2b╞
9Oц
+
Lц┴#2b╞9'_ ╞ 59НуН¤о
94уфуфуфуф2b9гН¤Т&_970пН¤KпН¤KпН¤DпН¤C╞
9оН¤:1Н¤:4 ╗
o5oͤl]'lͤe],0
 фпН¤9оН¤4 Ц
J5]'lН¤D]/0 шпН№ў92{mН¤2'dоН№ш oоН№с f╞жЕзхZ*∙╞жезЕZ*∙╞жхзеZ*∙mН№ '3гН№єуН№ё
 гН№чуН№х╞жЕзхZ*∙╞жезЕZ*∙╞жхзеZ*∙оН№Д0
пН№~оН№|0пН№v2e9оН№o0
мН№e$оН№^60ьН№ZГ
эН№QэН№QьН№GэН№G9оН№A1?мН№6#оН№060ьН№0├
эН№#эН№#ьН№эН№9ьН№гН№4ьН№гН№гф2b9Н
■Е1Н√√╞жЕзеZ*∙9ьН√чгН√с├
ОO№Чж
зКАз
4@╜┐ОO╜│э5@Г
уН√╝9mН√■'Н9 /mН√ю'
╠эН√ю¤Э]'
oН√цЖ зН√сб&
цН√╠'¤В]'я_mН√╟'
P92}oфmД&mд&_2c9mд&m
*╞  ё╞
 эm!*Ї Ўm
*m!*ъcф m!+цmД*mд*<цд─чaцД─сa..-0 mд+*цДчaцд ьь!Дэaь
Дгa.-ьг#.-_ У╞
 ╞ mф' ЗP Г40жН√7бН√2%[ЙбД$Л
 жДаН√ $
Oсд$╦
 цдрН√$
_4OцН√у
OцН·№у"mф'ma'jфjaжАба'ю"╞ 2b509╞
 ўma&ё_ Ё4@2{CоН·|4оф0
пфмН·r#2g5@9№Ї1;4■в5]*▐1Н·\╞жЕзеZ*∙mН·Н'4гН·уН·}
╞жЕз┼Z*∙50╞жЕзеZ*∙4mН·_'!гН·SуН·Q
 гН·GуН·E╞жЕзеZ*∙оН∙Є№}мф'оф01Н∙ы■%]+5 н51Н∙█╞жезЕZ*∙mН·' HгН∙■уН∙№
╞ж┼зЕZ*∙ 0a'jфjaжАба'ю"╞ 2b509╞
 ўma&ё_ Ё4@2{CоН·|4оф0
BTOTAL",:З#м2,═"$####.##";TCPFC0З#м2,"DAILY TAX",:З#м2,═"$####.##";TT,PnCФЗ#м2,,"TAX",:З#м2,═"$####.##";TXнTCPгC°З#м2,,"--------",,"--------":З#м2,"DAILY TOTAL",P╬D\З#м2,═"$####.##";TTлCT,:З#м2,,"TOTAL",PюD└З#м2,═"$####.##";TCл(TCнTX)QE$З#м2,P3$;P3$;P3$;P3$Q*EИЕ  О(SP$,3)│"END" з З:Бе 18000Q7EьБе 13300QPFPЕ IL$│"Y" з Бж 22400QgF┤Бж 19900:Ю:Бе 4300QnG:ГQЛG|:Г    ERROR SUBROUTINEQТGр:ГQбHDА E1│1 е 5Q╜HиЮ:З@233,"ILLEGAL ENTRY"QуIа 100,5:Ю:А E2│1 е 50:Л E2,E1:Ю:РQъIp:ГRI╘:Г    DISPLAY TOTALSRJ8:ГR4JЬЮ:З:Зд5)"TOTAL SALES FOR TODAY":З:ЗR]KЗд5)"TOTAL SALES  ";:З═"$####.##";CTRИKdЗ:Зд5)"TOTAL TAX    ";:З═"$####.##";TTR╢K╚З:Зд5)"GRAND TOTAL  ";:З═"$####.##";CTлTTR╦L,Бж 19900:Бе 6800R╥LР:ГRъLЇ:Г    SUBROUTINESRёMX:ГSM╝З@450,"PRESS <ENTER> TO CONTINUE";:Й I$:РS&N :ГSBNД:Г    INVENTORY COUNTSINш:ГSrOLА Y│1 е Xм1:П:F2│0:А Z│1 е LP:Н A$,BSаO░Е A$│IS$(Y) з IS(Z)│IS(Z)л Й(IQ$(Y)):F2│1SиPЛ ZSьPxЕ F2│0 з IS$(Y)│IS$(Y)лP4$л" #"лP5$:MM│MMл Й(IP$(Y))н Й(IQ$(Y))SЎP▄Л Y:РS¤Q@:ГT!Qд:Г    DATA STATEMENT PRINTOUTT(R:ГTQRlЮ:F1│0:З:Й"PRINTER COPY (Y/N)";PC$:ЮTpR╨Е PC$│"Y" з 21300 :Д 21500TзS4З#м2,P4$;P3$;P3$:З#м2,д13)"INVENTORY DATA";P3$;P5$TфSШЗ#м2,P3$;P3$:З#м2,"INVENTORY ITEM",,"PRICE EA.":З#м2,P6$T№S№П:А X│1 е LP:Н A$,BUT`ЗA$,:З═"       $##.##";BU8T─Е PC$│"Y" з 21800 :Д 22000U\U(З#м2,X;A$,,"";:З#м2,═"$##.##";BUUМF1│F1л1:Е F1│5 з З#м2,P6$:F1│0UЮUЁЛ:П:З:З:Бж 19900:Ю:Бе 4300UеVT:ГU─V╕:Г    INVENTORY PRINTOUTU╦W:ГUчWАП:IT│0:З#м2,P3$;P3$;P4$VWфЗ#м2,д8)"INVENTORY SALES LIST";P3$;P3$;P5$VLXHЗ#м2,"  INVENTORY","  PRICE","QUANTITY","  TOTAL"V|XмЗ#м2,"    ITEM","   EA.","  SOLD","  PRICE"VЙYЗ#м2,P6$VдYtF1│0:А X│1 е LP:Н A$,BV═Y╪З#м2,A$,:З#м2,═"$###.##";B,:З#м2,"",VяZ<З#м2,═"#####";IS(X),:З#м2,"",WZаЗ#м2,═"$####.##";BнIS(X)W/[F1│F1л1:Е F1│5 з З#м2,P6$:F1│0WO[hIT│ITл(BнIS(X)):IS│ISлIS(X)W`[╠Л X:З#м2,P6$WУ\0З#м2,,,"MISMATCHED SALES",:З#м2,═"$####.##";MMW┼\ФЗ#м2,,,"INVENTORY SALES",:З#м2,═"$####.##";ITW▄\°З#м2,,,,"--------"X
]\З#м2,,,"TOTAL SALES",:З#м2,═"$####.##";MMлITX]└РX^$:ГX6^И:Г    DATA STATEMENTSX=^ь:ГXє_PЖ CESSNA 172,18.50,STEARMAN,22.50,F-86 SABRE,5.00,C-130 HERCULES,14.00,T-28 PLANE,8.00,BIPLANE W/PROP,14.00,DC-8 JET,14.00,LRGE BIPLANE,30.00,LRGE C-130,25.00,SE5A BIPLANE,16.00Yж_┤Ж LRGE HELICOPTER,12.50,SM HELICOPTER,10.00,FORD VAN,7.00,TRUCK STKBD,10.00,SPCAR MGA,8.00,SEDAN 1930,8.00,COUPE 1930,8.00,SEDAN 1940,8.00,BLAZER,7.00,JEEP,7.00,TR-7 CAR,7.00Ze`Ж BLAZER W/BOAT,14.00,JEEP W/CAMPER,14.00,SCHOOLBUS,7.00,TRUCK DMP,14.00,TRUCK SEMI,14.00,TRUCK TNKER,14.00,TRUCK LOG LRGE,22.50,LRGE DOLL,15.00,SMALL DOLL W/NG,14.00,DOLLBED W/BLK,13.50Zь`|Ж DOLL CRADLE,30.00,LRGE CANNON,4.00,SM CANNON,2.50,DEC PILLOW,4.00,CAT STFD,3.00,PLAQUE/CAR,4.00,ANIMAL CTS,1.25,PLAQUE/GUN,25.00Z°`рЖ END,0EMI,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ∙>ш:Г    SALES REGISTER ><L:Г    BY DENNIS H. WEIDE>W░:Г    COPYRIGHT 1983>^:Г>kxЮ:Х 1000>З▄Т 153,23:Т 359,13:┐ 0,1>О@:Г>ид:Г    CONTROL CODES>п:Г>цlP1$│ б(32,"*"):P2$│ б(32,32):P3$│ Л(10):P4$│ Л(31)?╨P5$│ Л(30):P6$│ б(80,"-"):P7$│ б(40,"#")?4:Г?4Ш:Г    BUSINESS NAME?;№:Г?W	`BN$│"D&M WOOD PRODUCTS"?^	─:Г?Г
(:Г    STATE GROSS RECEIPTS TAX?К
М:Г?Х
ЁTX│.04?ЬT:Г?╛╕:Г    BUSINESS PHONE NUMBER?┼:Г?▀АTN$│"PH 505+293-5228"@фNO$│"WE GUARANTEE YOUR SATISFACTION"@
H:Г@;
м:Г    DETERMINE INVENTORY LIST LENGTH@B:Г@StН A$,B:X│Xл1@s╪Е A$│"END" з LP│Xм1 :Д 3700@А<М IS(LP)@За:Г@а:Г    DISPLAY MENU@зh:Г@╔╠Ю:З P1$;:Зд9)"SALES RECORD " @ц0Зд7)"BY DENNIS H. WEIDE"@ ФЗд9)"COPYRIGHT 1983"A	°З P1$A#\З:Зд10)"PROGRAM MENU"AE└З:Зд5)"1. COMPILE SALES DATA"Af$Зд5)"2. RETRIEVE SALES DATA"AЗИЗд5)"3. READ INVENTORY DATA"AдьЗ:Зд9)"";:Й"WHICH ONE";IAкPЮA╞┤И I Бе 5900,12900,21100A▌Ю:Бж 18500:Бе 4300A°|З IS$(Y),IP$(Y),IQ$(Y)A р:ГBD:Г    COMPILE SALES DATAB%и:ГBDЙ "ENTER TODAY'S DATE";DA$BdpЗ:Й"PRINTER COPY (Y/N)";PC$BЕ╘З:Й"MAG TAPE COPY (Y/N)";CC$Bд8Ю:Е PC$│"Y" з 6300 :Д 6400B╤ЬЗ:Зд1) "TURN PRINTER ON AND SET PAPER":ЗBюЕ CC$│"Y" з 6500 :Д 6700CdЗд10)"LOAD CASSETTE"C+╚З:Зд4)"PRESS <PLAY> & <RECORD>"C8,Бж 19900CZРЮ:X│1:TQ│0:TC│0:Зд1)"SOLD TO"CsЇЗд1)"ADDRESS":З P1$;CвXЗд1)"ITEM";д15)"QUAN";д23)"PRICE EA":З P1$C╖╝З@10,"";:╗ Й SP$Cт Е SP$│"START" ░ PC$│"Y" з 7300 :Д 7400DДЗ#м2,P4$;P7$;"START OF DATA";P5$:Бе 9600D8шЕ SP$│"END" ░ PC$│"Y" з 7500 :Д 7600DcLЗ#м2,P4$;P7$;"END OF DATA";P5$:Бе 9600DФ░Е SP$│"TOTAL" з 19100 :Д Е SP$│"MENU" з 4300DйЗ@42,"";:╗ Й AD$D┬xT1│161:T2│184:T3│177Dу▄З@T1,"";:╗ Й IS$(X):З@T3,"";E@╗ Й IQ$(X):З@T2,"";:╗ Й IP$(X)E3дЗ@T2м2,═"$####.##"; Й(IP$(X))н Й(IQ$(X))EL I$│ Т:Е I$│"" з 8200El lЕ I$│"E" з З@T1,P2$:Бе 7900EЯ ╨TC│TCл( Й(IP$(X))н Й(IQ$(X))):TQ│TQл Й(IQ$(X))E╛!4T1│T1л32:T2│T2л32:T3│T3л32Eц!ШЕ  К(I$)│12 з 8700 :Д X│Xл1:Бе 7900F!№Зд22)"---------":Зд12)"SUBTOTAL";д22)"";F'"`З═"$####.##";TCFQ"─Зд12)"TAX";д22)"";:З═"$####.##";TXнTCF{#(Зд22)"---------":Зд12)"TOTAL";д22)"";FЫ#МЗ═"$####.##";TCл(TXнTC):З:ЗF╢#ЁTT│TTл(TCнTX):CT│CTлTCF╜$T:ГF▀$╕:Г    CASSETTE COPY OF DATAFц%:ГG%АЕ CC$│"Y"з 9700 :Д 10300G%фЩ"O",#м1,"DATA"GO&HЗ#м1,X,SP$,AD$:АY│1 е X:З#м1,IS$(Y),IP$(Y),IQ$(Y):ЛGi&мЗ#м1,DA$,TC,TT,CT:Ъм1Gp':ГGТ't:Г    PRINTER COPY OF SALESGЩ'╪:ГG╕(<Е PC$│"Y" з 10400 :Д 12400G▐(аЕ SP$│"START" ▒ SP$│"END" з 12400G№)З#м2,P4$:L│(40м З(BN$))о2H)hЗ#м2,дL);BN$;P3$;P3$H?)╠L│(40м З(TN$))о2:З#м2,дL);TN$;P3$;P3$Ha*0L│(40м З(SP$))о2:З#м2,дL);SP$HЛ*ФL│(40м З(AD$))о2:З#м2,дL);AD$;P3$;P3$H╡*°L│(40м З(DA$))о2:З#м2,дL);DA$;P3$;P5$H├+\А Y│1 е XHў+└З#м2,д20)IS$(Y);д40);"("; Й(IQ$(Y));")";д50)"";I&,$З#м2,═"$####.##"; Й(IP$(Y))н Й(IQ$(Y)):Л YIH,ИЗ#м2,д41)"---";д50)"--------"Ip,ьЗ#м2,д20)"SUBTOTAL";д41);TQ;д50)"";IИ-PЗ#м2,═"$####.##";TCI└-┤З#м2,д20)"SALES TAX";д50)"";:З#м2,═"$####.##";TCнTXI╪.З#м2,д50)"--------"Iї.|З#м2,д20)"TOTAL";д50)"";J.рЗ#м2,═"$####.##";TCл(TCнTX)J*/DЗ#м2,P3$;P3$;P4$JP/иL│(40м З(NO$))о2:З#м2,дL);NO$;P5$Jb0З#м2, б(5,10)JО0pА Y│1 е X:IP$(Y)│"":IS$(Y)│"":IQ$(Y)│""Jл0╘Л Y:X│0:Бж 19900:Бе 6800J▓18:ГJ╠1Ь:Г    RETRIEVE DATAJ╙2:ГJї2dЮ:З:Й"PRINTER COPY (Y/N)";PC$K2╚З:Й"INVENTORY LIST (Y/N)";IL$K83,Ю:Е PC$│"Y" з 13200 :Д 13300Kp3РЗ#м2,P3$;P3$;P4$:З#м2,д15);"SALES DATA";P3$;P3$;P5$KД3ЇЩ"I",#м1,"DATA"KЧ4XЙ#м1,X,SP$,AD$Kк4╝IQ│0:А Y│1 е XK┘5 Й#м1,IS$(Y),IP$(Y),IQ$(Y):IQ│IQл Й(IQ$(Y))Kў5ДЛ Y:Й#м1,DA$,TC,TT,CT:Ъм1L5шMO│0:З:З"SOLD TO "SP$:З:А X│1 е Yм1LD6LЗд2); Й(IQ$(X));д5);IS$(X);д24);Lj6░З═"$###.##"; Й(IP$(X))н Й(IQ$(X))LР7MO│MOл( Й(IP$(X))н Й(IQ$(X))):Л XL╗7xЗд24)"-------":Зд15)"SUBTOTAL";д24)"";L╬7▄З═"$###.##";MOLх8@Зд15)"TAX";д24)"";L√8дЗ═"$###.##";MOнTXM9Зд24)"-------"M'9lЗд15)"TOTAL";д24)"";MD9╨З═"$###.##";MOл(MOнTX):ЗM]:4Е IL$│"Y" з Бж 20300M|:ШЕ PC$│"Y" з 15400 :Д 17800MГ:№:ГMд;`:Г    PRINTER COPY OF DATAMл;─:ГM═<(З#м2,P4$;P7$;P3$:З#м2,DA$;P3$M <МЕ SP$│"START" з З#м2,"START OF DATA":Бе 17700N-<ЁЕ SP$│"END" з З#м2,"END OF DATA":Бе 17700NF=TЗ#м2,"SOLD TO  ";SP$N_=╕З#м2,"ADDRESS  ";AD$Np>З#м2,P5$;P3$Nл>АЕ  О(SP$,5)│"START" ▒  О(SP$,3)│"END" з 16100 :Д 16200N┴>фЗ#м2,SP$:Бе 17800N¤?HЗ#м2,"  ITEM SOLD","QUANTITY","PRICE EA.","TOTAL PRICE"O
?мЗ#м2,P6$O@А Y│1 е Xм1OM@tЗ#м2,IS$(Y),:З#м2,═"####"; Й(IQ$(Y)),:З#м2,"",On@╪З#м2,═"$####.##"; Й(IP$(Y)),OвA<З#м2,"",:З#м2,═"$####.##"; Й(IP$(Y))н Й(IQ$(Y))OкAаЛ YO┴BЗ#м2,,,,"--------"OёBhЗ#м2,"DAILY SUBTOTAL",:З#м2,═"$####.##";CT,PB╠З#м2,,"SU 	v>
Ю>)Х 7000:М P$(40),K$(8),PP$(40)>6╔ "T250">H(:Гread chords>V2А K│1 е 8>b<Н K$(K)>jFЛ K>xPА S│1 е 5>ИZ:Гread song>СdН S$>╜n:Гpick out length/chords/octaves/notes >╨xА A│1 е  З(S$)>тВM$│ Р(S$,A,1)?М:Гcheck for sharps and flats?CЦЕ  Р(S$,Aл1,1)│"+" ▒  Р(S$,Aл1,1)│"-" з M$│ Р(S$,A,2):A│Aл1?Па:Гif M$= a note then combine octives/notes/and chords for L repititions@.кЕ  О(M$,1)│▓"A" ░  О(M$,1)│┤"G" з P$│"":А B│1 е L:P$│P$лO$лM$лK$:Л B:ЗPP$;:╔ P$:P$│P$л"P8":Е  З(P$)л З(P$(Z))▓250 з Z│Zл1:P$(Z)│P$(Z)лP$ :Д P$(Z)│P$(Z)лP$@P┤:Гcheck for octave marker "O"@s╛Е M$│"O" з O$│ Р(S$,A,2):A│Aл1@Ф╚:Гcheck for chord markey "K"@┐╥Е M$│"K" з A│Aл1:K$│K$( Й( Р(S$,A,1)))@с▄:Гcheck for length marker "L"AJцЕ M$│"L" з Е  Й( Р(S$,Aл1,2))▓9 з L│ Б(24о Й( Р(S$,Aл1,2))):A│Aл2 :Д L│ Б(24о Й( Р(S$,Aл1,1))):A│Aл1AКЁ:Гcreat something to watch on screen while music is playingA╕·PP$│ Л( К(M$)л90л Д(5)н16)лPP$:PP$(Z)│PP$A└
Л AA╦
PP$│""Aф
Е  П(S$,1)│"*" з 100B

":Гplay tune with  3 different temposB
,А T│1 е 3B)
6╔"T4L4P1"B_
@Е T│1 з T$│"T25" :Д Е T│2 з T$│"T50" :Д T$│"T200"Bh
J╔ T$BШ
TА A│0 е Z:ЗPP$(A);:╔ P$(A):Е T│3 з P$(A)│""Bа
^Л ABи
hЛ TB░
rZ│0B╕
|Л SB┼
Ж:ГchordsB╘
РЖ"O3GO4CE"Bу
ЪЖ"O3GBO4G"BЄ
дЖ"O3GBO4F"C
оЖ"O3AO4CF+"C
╕Ж"O3AO4CF"C 
┬Ж"O3AO4CE"C/
╠Ж"O3AO4DF"C?
╓Ж"O3G+BO4E"CZ
р:Г*******songs********Ci
ъ:ГShortninD
ЇЖ"O5L8K1GEK2L4DK1L8GEK2L4DK1L8GEK2DEO4BK4AK2GGO5K1GEK2DO4BK1O5GEK2L4DK1L8GEK2DEO4BK4AK2L4GO4L8GO4EDEO4GO5EDEO4K2GO5EDEO4BK4AK2L4GL8GO5EDEO4GO5EDEO4GO5EDEBO5DK2L4G"D&
■:ГWe Three KingsE!Ж"O5K6L4AEL3AL8BO5CO4BO5CO4AO5L3EL8CL4DEK7L8FEDCO4L4BK8O5L4EK6L8DCO4L8BO5CO4L4AEL3AL8BO5CO4BO5CO4AO5L3EL8CL4DEK7L8FEDCK6L4CO4K8BK6L3AK8L8BL4BBO5K6CO4L8BAL4BK6CK2L3DL8CL4DK8EK6O4AL8BO5CK7DCO4BAK6AG+EBL4BBO5CK8O4L8BAL4BK6O5CK2L3DL8CL4DK6EK7L8FEDC*"E9Ж"K8L4CO4BK6AO4L3A"EU:ГBicycle Built for TwoF&Ж"O5L3K1GECO4GL8ABO5CO4L4AO5CO4K1L3GGO5DGK1EK6CK4O4L8ABO5CL4DL8EK2L3DO4L4DO5L8EK3FEDL4GL8EK1DL4CCK2L8DK1L4EL8CO4K5L4AO5L8CK1O4AL4GK3O5FO4L8GK1O5L4CL8EK3DL4GK1CL8EK3DEFK1GECK3L4DO5L8GO4K1L3CO5C"F*0:ГCamptownF╝:Ж"O5K2L8DDO4BO5DEDO4L4BK4L8BL3AL8BL3AK2O5L8DDO4BO5DK2EDO4L4BK4L4AL8BAK2L3GL8GBO5DL4GO4GK1O5L4EL8GEK2L4DO4BO5L8DDO4BO5DEDO4L4BK4AL8BAK2L4GO5G"F╩D:ГAmericaGuNЖ"K1O3L4CK6CK7DK2L3O2BO3K1L8CK2L4DK1EEK3FK1L3EK8L8DK6L4CK7DK1CO2K3BO3K1L1CL4GGGL3GK3L8FK1L4EK3FFFL3FK1L8EK2L4DK1EL8K5FK1EK3DK1CL3EL8K3FK1L4GK5L8AFK1L4EK3DK1L3CO4CO5C"GL8GBO5DL4GO4GK1O5L4EL8GEK2L4DO4BO5L8DDO4BO5DEDO4L4BK4AL8BAK2L4GO5G"F╩D:ГAmericaGuNЖ"K1O3L4CK6CK7DK2L3O2BO3K1L8CK2L4DK1EEK3FK1L3EK8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                :А DL│1е4000:ЛG'XЮ(0):Ж5,2,8,7,6,1,3,4G:YS│0:D│ Б(63о8)GEZАA│1е8GW[Н A$:C│ Й(A$)Ge`А X│S е DGsbАY│0 е 31GАvЬ(X,Y,C)GИАЛ YGЪВЛ X:S│D:D│Dл8GвДЛ AGиЕПG╣КLN│4:Бе 2000H▓Ю(4):Бж2060:З@173,"SELECT";:З@202,"(1) CROSS MARKS";:З@234,"(2) DOTS       ";        HX│A$│ Т:ЕA$│""з691:Д Е A$│"M" з 40 :ДЕA$│"1"з700:ДЕA$│"2"з780:Д691Hm╝Ж0,4,8,4,4,0,4,8HК╜Ж246,4,254,4,250,0,250,8Hп╛Ж246,186,254,186,250,182,250,190H╠┐Ж0,186,8,186,4,182,4,190Hэ└Ж115,91,131,91,123,83,123,99H■┴╚ 3,1:┐1,1:╝I╞А X│1е8:Н A$:Л XI ╨А A│1е10I2┌Н X1,Y1,X2,Y2IIф╗(X1,Y1)м(X2,Y2),╜IPюЛAIV°ПIgLN│5:Бе 2000IpЮ(0)Iz┐ 0,1I▒Ь(1,1,5):Ь(62,1,5):Ь(62,30,5):Ь(1,30,5):Ь(31,15,5)I╝Бе 770J Ю(8):Бж2060:З@173,"SELECT";:З@202,"(1) CENTER CROSS";:З@234,"(2) CENTER DOT";Ja%A$│ Т: Е A$│"" з 805:Д ЕA$│"M" з 40  :Д Е A$│"1" з 810 :Д ЕA$│"2" з 830 :Д 805Jq*╚3,1:┐1,1:╝JШ/X1│0:X2│255:X│128:Y│91:Y1│0:Y2│192J╛0╗(X1,Y)м(X2,Y),╜:╗(X,Y1)м(X,Y2),╜J╧9LN│6:Бе 2000Jт>Ю(0):X│31:Y│15JЎCЬ(X,Y,5) :Бе825K>ДЮ(5):Бж2060:З@166,"(1) HORIZONTAL BARS";:З@198,"(2) VERTICAL BARS";KРОA$│ Т:Е A$│""з 910:Д Е A$│"M" з 40  :Д Е A$│"1" з 980 :Д ЕA$│"2" з 920 :Д 910K╝ШЮ(5):З@164,"COARSE(1) OR FINE(2) BARS";K■вA$│ Т: Е A$│"" з 930 :Д ЕA$│"1" з 940 :Д ЕA$│"2" з 975 :Д 930LмЮ(0):А X│0е63й8:А Y│1е31L(╢Ь(X,Y,7)L4└Л Y:Л XLF╩LN│10:Бе 2000LV╧╚3,1:┐1,1:╝Lg╨А X│0е255й32L|╤╗(X,0)м(X,191),╜LГ╥ЛXLХ╙LN│11:Бе 2000L╚╘Ю(5):Бж2050:З@164,"COARSE(1) OR FINE(2) BARS";M
▐A$│ Т:Е A$│"" з 990 :Д Е A$│"1" з 1000 :Д Е A$│"2" з 1040 :Д 990M)шЮ(0):А Y│1е31й4:АX│0е63M6ЄЬ(X,Y,7)MB№Л X:Л YMTLN│12:Бе 2000Me╚ 3,1:┐1,1:╝MvА Y│0е192й16MЛ$╗(0,Y)м(255,Y),╜MЯ.Л Y:LN│7:Бе2000Mу8Ю(6):Бж2060:З@166,"(1) GUN CUTOFF ADJ";:З@198,"(2) PURITY ADJ";N#=A$│ Т:ЕA$│""з1085:ДЕA$│"M"з40:ДЕA$│"1"з1160:ДЕA$│"2"з1100  NОLЮ(0):Бж2050:З@162,"CHOOSE DESIRED SCREEN COLOR";:З@234,"(1) RED";:З@266,"(2) BLUE";:З@298,"(3) GREEN";NяVA$│ Т: Е A$│"" з Бе1110:Д ЕA$│"M"з 40 :Д ЕA$│"1" з 1120 :Д ЕA$│"2" з 1130 :Д Е A$│"3" з 1140O`Ю(4):Бе 1150OjЮ(3):Бе1150O tЮ(1):Бе1150O1~LN│8:Бе 2000OЧИЮ0:З@166,"ADJUST SCREEN CONTROLS";:З@198,"UNTIL A WHITE LINE APPEARS";:АT│1е2000:Л:╚2,1:┐1,1:╝(0)OоН╗(4,96)м(252,96),╜O┐ПLN│15:Бе2000P2░Ю(7):Бж2060:З@170,"SELECT";:З@230,"(1) PINCHUSION";:З@262,"(2) HEIGHT\WIDTH";:З@294,"(3) RS-170 TEST PATTERN";PЩ▒A$│ Т:ЕA$│"" з 1201:Д Е A$│"M" з 40  :Д Е A$│"1"з 1209 :Д Е A$│"2" з 1300 :Д ЕA$│"3" з 1400:Д 1201Pш╣Ю(5):Бж2050:З@162,"ADJUST PINCUSHION FOR BEST";:З@198,"LOOKING RECTANGLE";P√║А DL│1 е2000:ЛQ─╚3,1:┐1,1:╝Q$╬╗(0,0)м(255,191),╜,BQ4╪LN│9:Бе2000Q│Ю(6):Бж2050:З@162,"ADJUST HORZ AND VERT HEIGHT";:З@194,"WIDTH AND LINEARITY CONTROLS";:З@226,"TO ACHIEVE THE BEST CIRCLE";Q─АDL│1е1500:ЛQ▌(╝:C│ Д(4):╚ C,1:┐1,1R2АX│5е105 й5:┬(128,96),X,,.88:Л XR<LN│13:Бе2000R*xБж2050:╚4,1:┐1,1:╝RlВ╗(18,4)м(238,188),╜,B:╗(18,4)м(238,188),╜:╗(238,4)м(18,188),╜R╔М┬(128,96),98,,.88:┬(128,96),20,,.88:┬(128,96),16,,.88:┬(128,96),10,,.88:┬(128,96),6,,.88SЦD│0:B│0:АT│1е5:╗(18,84лB)м(110,94лD),╜:╗(238,84лB)м(148,94лD),╜:D│Dл1:B│Bл6:ЛSoаD│0:B│0:АT│1е5:╗(112лB,4)м(126лD,80),╜:╗(112лB,188)м(126лD,114),╜:D│Dл1:B│Bл8:ЛSАкLN│14:Бе2000S╕╨A$│ Т:Е A$│"" з Бе 2000 :Д Е A$│"M" з 40 :Д Бе 2010TV┌ЕLN│1з70:ДЕLN│2з160:ДЕLN│3з280:ДЕLN│4з599:ДЕLN│5з690:ДЕLN│6 з 800 :Д Е LN│7 з 900 :Д Е LN│8 з 1100 :Д Е LN│9 з 1200 :Д ЕLN│10з900:ДЕLN│11з900:ДЕLN│12з900TОфЕ LN│13 з Бе 1200 :Д Е LN│14 з Бе 1200:ДЕLN│15з1080TдL│ Д(100):а L,1:РT║L│ Д(100):а L,3:РЕLN│1з70:ДЕLN│2з160:ДЕLN│3з280:ДЕLN│4з599:ДЕLN│5з690:ДЕLN│6 з 800                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  №>
:ГBSR M/L BUILDER>3Х 100,&H3D00::Г FOR 16K>NML│ Ж(39)н256л Ж(40)л1>b(А I│ML е MLл564>v2Н A: Т I,A: Л I>Ц<╪M"X10CLK",ML,MLл564,&HA027>ЬFК>╧╚Ж 22,0,145,22,0,159,22,1,9,22,1,178,79,106,141?╥Ж 0,32,46,100,48,141,0,26,134,120,167,132,166,130,45?A▄Ж 88,139,1,25,167,132,161,6,45,28,111,132,32,239,255?tцЖ 255,255,255,255,0,0,7,36,96,96,0,255,0,255,0?│ЁЖ 106,140,242,141,203,110,156,243,230,140,230,88,88,48,141?ы·Ж 0,43,58,198,4,206,4,20,189,165,154,48,140,213,141@&
Ж 10,134,58,167,192,141,4,134,58,167,192,166,132,68,68@b
Ж 68,68,138,48,167,192,166,128,132,15,138,48,167,192,57@Т
Ж 19,21,14,32,13,15,14,32,20,21,5,32,23,5,4@├
"Ж 32,20,8,18,32,6,18,9,32,19,1,20,32,189,179@ 
,Ж 237,77,45,3,231,140,144,79,230,140,140,189,180,244,57A<
6Ж 140,32,55,190,255,248,238,1,239,140,135,51,140,137,239Aq
@Ж 1,52,2,182,255,3,138,1,183,255,3,206,1,106,166A▒
JЖ 196,174,65,167,141,255,111,175,141,255,108,134,126,48,141Aь
TЖ 0,148,167,196,175,65,134,18,167,140,200,53,2,189,179B#
^Ж 237,77,45,22,52,4,141,26,231,141,255,65,53,2,141B`
hЖ 18,231,141,255,58,111,141,255,55,28,239,236,141,255,47BЫ
rЖ 189,180,244,57,95,140,203,16,128,10,44,250,139,10,52B╘
|Ж 2,234,224,57,189,179,237,52,4,141,234,231,141,0,60C
ЖЖ 53,2,141,226,231,141,0,53,26,16,182,255,32,133,1CB
РЖ 38,249,142,7,208,48,31,39,44,182,255,32,133,1,39C}
ЪЖ 245,23,254,205,236,141,254,235,16,163,141,0,17,39,17C╕
дЖ 173,159,160,0,39,215,31,137,79,189,180,244,28,239,57CЇ
оЖ 0,255,79,95,189,180,244,57,204,255,255,189,180,244,57D*
╕Ж 50,98,23,254,204,15,112,13,111,16,38,0,70,52,20Dg
┬Ж 174,141,254,188,191,1,13,134,239,167,159,0,136,182,255DЮ
╠Ж 32,133,1,38,249,142,7,208,48,31,39,31,182,255,32D╪
╓Ж 133,1,39,245,23,254,112,173,159,160,0,39,226,198,96E
рЖ 231,159,0,136,48,141,254,144,191,1,13,53,148,48,141EA
ъЖ 254,135,191,1,13,126,161,179,126,161,127E}
ЇЖ 189,179,237,237,141,0,113,132,63,167,141,0,106,141,57E┤
■Ж 141,55,141,53,141,46,166,141,0,96,142,0,8,141,19EшЖ 166,141,0,86,73,142,0,1,141,9,106,141,0,75,38FЖ 223,57,0,252,73,37,6,141,13,141,16,32,4,141,12FTЖ 141,5,48,31,38,239,57,49,140,233,32,3,49,140,229FН&Ж 52,18,182,255,32,133,1,39,249,134,52,74,38,253,198F╚0Ж 3,166,164,183,255,32,134,178,74,38,253,127,255,32,28F√:Ж 0,90,39,8,134,248,18,74,38,252,32,230,53,146, ╗>
╝:Х:Ю(4)>▄З@132,"       TELEVISION       ";:З@164,"TEST PATTERN\CONVERGENCE";:З@196,"       GENERATOR        ";:З@335," MIKE DUBUC    ";:З@367,"4 FIELDSTONE LN";:З@399,"ATTLEBORO,MA   ";:З@431,"   02703       ";>·А DL│1е2000:Л:Ю(3):Бж2060?(LN│0:╝:Ю(3):З@74,"SELECT MODE";?Ё2З@134,"***(1)DOTS***";:З@166,"***(2)CROSSHATCH***";:З@198,"***(3)COLOR*BAR***";:З@230,"***(4)GREY*SCALE***";:З@262,"***(5)CORNER*MARKS***";:З@294,"***(6)CENTER*PATTERN***";:З@326,"***(7)HORZ\VERT*BARS***";@Г5З@358,"***(8)PURITY*GUN C/O***";:З@390,"***(9)PICTURE*SYMMETRY***";:З@450,"*PRESS [M] FOR MENU AND ANY";:З@482,"KEY TO RESTART CURRENT MODE*";A;7A$│ Т:ЕA$│""зБе55:ДЕA$│"1"зN│1:Д Е A$│"2" з N│2 :Д Е A$│"3" з N│3 :Д Е A$│"4" з N│4 :Д Е A$│"5" з N│5 :Д Е A$│"6" з N│6 :Д Е A$│"7" з N│7 :Д Е A$│"8" з N│8 :Д Е A$│"9" з N│9 :Д БTAk<И N Бж 70,160,280,599,690,800,900,1080,1200A╨FБж 2060:Ю:З@163,"SELECT SPACES BETWEEN DOTS";:З@294,"ENTER A NUMBER";:З@326,"BETWEEN 3 AND 100";A╪PЙ ZBUЗ@355,"COARSE(1) OR FINE(2) DOTS";:Бж2050BIVA$│ Т:Е A$│"" з86:Д ЕA$│"M" з 40 :ДЕA$│"1"з500:ДЕA$│"2"з90:Д85BuZЗ@384,"INVERSE(1) OR REGULAR VIDEO(2)";B╖[A$│ Т:ЕA$│""з91:Д ЕA$│"M" з 40 :ДЕA$│"1"зR│4:ДЕA$│"2"зR│3:Д91B├dЮ:╚ R,1B╬n┐1,1:╝B▀xА Y│4е184й ZBюВАX│4е256йZCМ╜(X,Y):╜(Xл1,Y):╜(Xл1,Yл1):╜(X,Yл1)C ЦЛX:ЛYC0ЫLN│1:Бе2000CШа╝:Ю:Бж2060:З@162,"SELECT INTERSECTION INTERVAL";:З@294,"ENTER A NUMBER";:З@326,"BETWEEN 3 AND 255";CакЙ ZC╠┤З@384,"REGULAR(1) OR INVERSE VIDEO(2)";D╡A$│ Т:ЕA$│""з181:Д Е A$│"M" з 40:ДЕA$│"1"зR│3:ДЕA$│"2"зR│4:Д181D╛Ю:╚ R,1D%╚┐1,1D4╥АY│4е184йZDI▄╗(0,Y)м(255,Y),╜DPцЛYD_ЁАX│4е256йZDt·╗(X,0)м(X,191),╜D{
ЛXDМ
LN│2:Бе 2000D┼
Бж2060:L│0:Ю(0):З@98,"THE PROPER COLOR BAR PATTERN";Dщ
"З@130,"FROM LEFT TO RIGHT IS:";E
,А W│143 е 255 й 16E2
6З@199лL, Л(W);:L│Lл1:З@199лL, Л(W);:L│Lл1:Л WEY
;З@324,"PRESS ANY KEY TO CONTINUE";EМ
@A$│ Т:Е A$│"" з Бе320:Д Е A$│"M"з 40  :Д Бе330E╜
JЮ(0):З@0,"GRN\YEL\BLUE\RED\BUF\CYAN\MAG\OR";E╦
TАX│0 е 63E╫
^АY│3е31Eч
hC│ Б(Xо8л1)EЇ
rЬ(X,Y,C)E√
|ЛYF
ЖЛXF)
РA│Bл2:B│Bл9:Е C│8 з Бе420 :Д Бе340F9
дLN│3:Бе2000FH
Ї┐ 0,1:Ю(0)Ff
■Z│ Б(Zо3):Е Z┤3 з Z│2:C│2FvА X│0е63 йZFИА Y│0 е 31 йZFЦЬ (X,Y,C)Fв&Л Y:Л XFн0Бе 155G
WЮ(2):Бж2050:З@165,"TURN DOWN COLOR CONTROL";:З@197,"FOR GREY SCALE TRACKING";X│1е89й2:╗(X,22)м(X,191),╜:Л:Бж1480AKкАX│1е89й2:╗(X,22)м(X,191),╛:Л:Бж1480A]┤ЕG│1зG│0:ДG│1Am╛┐1,G:Бе1420AЗ╚╔"L32O1CO2CO3CO4CO5C"A╕╥PP│ Ж(65280):ЕPP│126▒PP│254з╚1,1:╝:┐1,0:Бе50A╧╫A$│ Т:ЕA$│"E"з3000A╒▄РAяц:Гdata for charactersBЁЖBRHU4ERFD4GNLBR2B·ЖR2U6NGD6R2B+ЖBU5ER2FDGL2GD2R4BFЖBU5ER2FDGNLFDGL2NHBR3BXЖBR3U6G3R4BD3Bp"ЖBUFR2EU2HL3U2R4BD6BЛ,ЖBU3R3FDGL2HU4ER2BD6BRBЮ6ЖBU6R4DG3D2BR3B╜@ЖBRHUER2EUHL2GDFR2FDGNL2BRB╒JЖBRR2EU4HL2GDFR3BD3BЎTЖBR4,BR4,BR4,BR4,BR4,BR4,BR4C	^ЖU5ER2FD2NL4D3C$hЖRU6NLR2FDGNL2FDGNL3BRC<rЖBR4BU5HL2GD4FR2EBDCR|ЖRU6NLR2FD4GNL2BRCfЖЖU6NR4D3NR3D3R4CxРЖU3NR3U3R4BD6CТЪЖBUU4ER3BD4NLD2L3NHR3CддЖU3NU3R4NU3D3C╕оЖR2U6NL2NR2D6R2C╦╕ЖBUNUFR2ENU5BDC▄┬ЖU3NU3RNE3F3Cч╠ЖNU6R4Cў╓ЖU6F2DUE2D6DрЖU6F4NU4D2DъЖBRHU4ER2FD4GNL2BRD1ЇЖU6R3FDGL3D3BR4DK■ЖBRHU4ER2FD4GNL2BUHF2D]ЖU6R3FDGL3RF3DvЖBUFR2EUHL2HUER2FBD5DИЖBU6R4L2D6BR2DЬ&ЖBUNU5FR2ENU5BDD░0ЖBU6D4F2E2U4BD6D┬:ЖNU6E2UDF2NU6D╓DЖUE4NUG2H2NUF4DDэNЖBU6DF2E2NUG2D3BR2D■XЖBU6R4DG4DR4E╧:Гread scores from diskE+╨Е Ж(188)│6зРEF┌Щ"I",#1,"TTSCORES/T10"E[▀Е  М(1)│м1 з2050EhфАZQ│1е10EvюЙ#1,S(ZQ)EЕєЙ#1,S$(ZQ)EН°ЛZQEХЪ#1EЫРE╢╖:Гwrite scores to diskE╟╕Е Ж(188)│6зКEт┬Щ"O",#1,"TTSCORES/T10"Eя╠АZQ│1е10E¤╓┘#1,S(ZQ)F█┘#1,S$(ZQ)FрЛZQFъЪ#1F"ЇК8)│6зРEF┌Щ"I",#1,"TTSCORES/T10"E[▀Е  М(1)│м1 з2050EhфАZQ│1е10EvюЙ#1,S(ZQ)EЕєЙ#1,S$(ZQ)EН°ЛZQEХЪ#1EЫРE╢╖:Гwrite scores to diskE╟╕Е Ж(188)│6зКEт┬Щ"O",#1,"TTSCORES/T10"Eя╠АZQ│1е10E¤╓┘#1,S(ZQ)F                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 g&!:Г*************************&A
:Г**                     **&a:Г**        LINES        **&Б:Г**   MARCH 31, 1983    **&б:Г**                     **&┴:Г**    WALTER SEAY      **&с:Г**                     **'
:Г*************************'
└8'╚4,1:┐1,1:╝'%A│40:B│0';(╗(A,10)м(B,188),╜'K2A│Aл8:B│Bн2'\<Е A▓200 з 90'fFБе 40'lPВ'wZ╚4,5:╝'ФdАP│1е4:╟ P е Pл4:ЛP:┐1,1'аnR│ Д(7)'╚xАI│1еR:X(I)│ Д(255):Y(I)│ Д(188):ЛI'рВX│ Д(255):Y│ Д(188)'эМ╜(X,Y,C)(ЦАJ│1е30:АI│1еR(а╗м(X(I),Y(I)),╜(+кX(I)│(X(I)мX)н.9лX(B┤Y(I)│(Y(I)мY)н.9лY(L╛ЛI:ЛJ(\╚АW│1е480:ЛW(f╥Бе100PВ'wZ╚4,5:╝'ФdАP│1е4:╟ P е Pл4:ЛP:┐1,1'аnR│ Д(7)'╚xАI│1еR:X(I)│ Д(255):Y(I)│ Д(188):ЛI'рВX│ Д(255):Y│ Д(188)'эМ╜(X,Y,C)(ЦАJ│1е30:АI│1е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                /
^ЕK│0зY│YмS/
hЕK│63зY│YлS/2
rЕ а(X,Y)┤▓1з700/F
|C│Cл1:ЕC▓99з900/X
ЖX(C)│X:Y(C)│Y/i
РЕC▓197зC│100/v
Ъ╜(X,Y,4)/А
дБе300/Х
оA$│ Т:ЕA$│""з480/м
╕ЕA$│"^"зYA│мS:XA│0/┼
┬ЕA$│ Л(10)зYA│S:XA│0/▐
╠ЕA$│ Л(8)зXA│мS:YA│0/Ў
╓ЕA$│ Л(9)зXA│S:YA│00
рX│XлXA:Y│YлYA0
ъБе3700$
є:Гend of wave0k
ЇT│ Я:АZ│1е5:╔"L64O"л И(Z)л";1;2;3;3;4;5;6;6;7;8;9;9;10;11;12;12":Л0к
■F│15:T│ Б(Tо60):╞"C1":╗(10,24)м(245,181),╜,BF:ЕW▓9зF│Wм9лF1M$│"TIME TO COMPLETE":╞"BM20,40;C2":Бж1000:M$│"WAVE "л И(W):╞"BM30,60":Бж1000:M$│ И(T):╞"BM180,60":Бж100018AA│(15мW)н10:ЕAA┤100зAA│1001АM$│"AVERAGE TIME":╞"BM20,80;C4":Бж1000:M$│ И(AA):╞"BM180,80":Бж10001Ф&T│AAмT:ЕT┤1з5802.0M$│"BONUS X"л И(Wн5):╞"BM20,110;C3":Бж1000:АD│1еT:╞"BM180,110;C3":M$│ И(Dн(Wн5)):Бж1000:╞"BM180,110;C1":╔"L200O1;ABA":Бж1000:Л:╞"BM180,110;C3":Бж10002░:M$│"SPECIAL BONUS":╞"BM20,150;C2":Бж1000:╞"BM21,149":Бж1000:M$│ И(P):╞"BM180,150":Бж1000:P│Tн(5нW)лP:АD│1е1999:Л:Бж1020:Бе5902ъDM$│"NO BONUS":╞"BM20,110;C3":Бж1000:АZ│1е999:Л:Бж10203ОNЕSB▓1з╞"BM20,180;C4":M$│"SUPER BONUS":Бж1000:P│SB:SB│0:M$│ И(P):╞"BM170,180":Бж1000:Бж1020:АZZ│1е4:╞"BM20,180;C"л И(ZZ):M$│"SUPER BONUS":Бж1000:ЛZZ:АZ│1е999:ЛZ3вXW│Wл1:T│0:Бе1503┬Й:Гpick coordinates of boxes3шКA(1)│ Д(105)л130:B(1)│ Д(60)л24:Р4
ФA(2)│ Д(105)л10:B(2)│ Д(60)л24:Р42ЮA(3)│ Д(105)л10:B(3)│ Д(72)л98:Р4XиA(4)│ Д(105)л130:B(4)│ Д(72)л98:Р4В▓╗(A(Z),B(Z))м(A(Z)л10,B(Z)л10),╜,BF:Р4Ч╗:Гscore or crash4к╝Е а(X,Y)│4з8504╜╞Е а(X,Y)│3з7304╙╨P│ Д(10)н20:Бе7404у┌P│ Д(10)н505Bф╔"L255;V31;O3;ADEBCDGGFFAACDFBEDEBCD;V15;BCGGDFEGDFACABACDBDGE;V6;ABBCDACFDEGDFFEBGGA;V15"5╤юF│Fм1:Бж1020:ЕSC│▓E зE│Eл5000:╔"T7L4O2;10;O3;3;7;L2;10;L4;7;L2.;10;T2":╞"BM170,12;C1":M$│ И(N):Бж1000:╞"BM170,12;C3":N│Nл1:M$│ И(N):Бж10005▐°ЕF│0з5006)ЕX▓128░Y┤│96зQ│1:ДЕX▓128░Y▓96зQ│4:ДЕX┤│128░Y┤│96зQ│2:ДЕX┤│128░Y▓96зQ│36W╞"C1":╗(A(Q),B(Q))м(A(Q)л10,B(Q)л10),╜,BF6ф─(A(Q),B(Q))м(A(Q)л35,B(Q)л16),E,G:╞"BM"л И(A(Q)м8)л","л И(B(Q)л12)л"S8C3":M$│ И(P):Бж1000:АZ│1е199:Л:┼(A(Q),B(Q))м(A(Q)л35,B(Q)л16),E,╜7 АZ│1е4:ЕA(Z)│0зИZ Бж650,660,670,680:ДЛ7S*A(Q)│0:D│ Д(2)л1:╞"C"л И(D):╗(A(Z),B(Z))м(A(Z)л10,B(Z)л10),╜,BF7]4Бе3807iQ:Гcrash8!RАZ│1е50:┐1,1:┐1,0:Л:АZ│1е15й3:┬(X,Y),Z,4:Л:N│Nм1:╔"L99O2;V5;FFGEEFDD;V20;ECCDBBCAAB;O1V31;GGFEEDFFECCDBBCDDCBAADGABBA;V6;AACBCDGEFAACBC;V15":АCL│3е1йм1:АZ│1е15й3:┬(X,Y),Z,CL:ЛZ,CL8/\ЕN│м1з95088fT│ Я8JpT│Tл500:Бе1508bГ:Гerasing the trail8nДCC│Cм998ЙОЕ а(X(CC),Y(CC))│4з9308╢ШZ│ а(X(CC),Y(CC)):╜(X(CC),Y(CC),Z):Бе9408▀вZ│ Д(50):ЕZ▓45з940:Д╜(X(CC),Y(CC),1)8∙мX(CC)│X:Y(CC)│Y:Бе4009╡:Гend of game9З╢╔"L255":АO│3е1йм1:C│ Д(3)л1:M$│"GAME OVER":╞"BM20,100;S16;C"л И(C):Бж1000:АZ│12е1йм1:АD│1е3:╔"O"л И(O)л";"л И(Z):ЛD,Z,O9Ц└АZ│1е999:Л9п╩ЕSC▓S(10)з1050:Д13509┼ч:Гdrawing routine:шL│ З(M$):АZ│1еL:M│ К( Р(M$,Z,1))м47:ЕM│м15з╞"BR4":Д╞CH$(M):Є╞"BR2":Л:Р:Э№M$│ И(SC):╞"BM0,12;C1S8":Бж1000:SC│SCлP:M$│ И(SC):╞"BM0,12;C3S8":Бж1000:╞"C1":╗(208,0)м(255,12),╜,BF:╞"BM210,12;C4":M$│ И(F):Бж1000:Р:н:Гget score:╫╚3,1:╝:АQW│1е20:З б(32,"!");:ЛQW:┐0,1;	$╞"BM14,20;S10;C2":M$│"CONGRATULATIONS":Бж1000;4.╞"BM32,60;C3":M$│"TRAILIN TAIL":Бж1000;|8╚4,1:╞"BM36,35;C1;S4":M$│"YOU HAVE MADE THE TOP TEN OF":Бж1000:┐1,1<PB╔"T128L1O4;12;11;10;9;8;7;6;5;4;3;2;1;O2;12;11;10;9;8;7;6;5;4;3;2;1;O1;12;11;10;9;8;7;6;5;4;3;2;1;T168;O4;12;8;4;12;8;4;12;8;4;12;8;4;12;8;4;12;8;4;12;8;4;12;8;4;12;8;4;12;8;4;12;8;4;12;8;4;12;8;4;12;8;4;T2"<cL┐1,0:╞"BM2,80"<ЮVM$│"ENTER YOUR INITIALS BY MOVING THE JOYSTICK":Бж1000<┌`╞"BM2,90":M$│"UP AND DOWN TO CHANGE THE LETTERS":Бж1000= j╞"BM2,176":M$│"PUSH THE JOYSTICK BUTTON WHEN YOU HAVE THE":Бж1000=Kt╞"BM2,186":M$│"CORRECT INITIAL":Бж1000=Ч~╗(30,100)м(80,160),╜,B:╗(90,100)м(140,160),╜,B:╗(150,100)м(200,160),╜,B=╢И╞"S24":D│65:X│40:A$│"":Y│1=тТАQQ│1е9:Л:╞"BM"л И(X)л",150":ЕD┤48зD│90=ёЬЕD▓90зD│48>жM$│ Л(D):╞"C1":Бж1000>V░J│ Н(0):J│ Н(1):ЕJ│0▒J│63з╞"BM"л И(X)л",150;C0":M$│ Л(D):Бж1000:Бе1230>А║╞"BM"л И(X)л",150;C0":M$│ Л(D):Бж1000>л─PP│ Ж(65280):ЕPP│126▒PP│254з1250:Д1170>┴╬ЕJ│0зD│Dл1:Бе1170>╪╪ЕJ│63зD│Dм1:Бе1170?т╞"BM"л И(X)л",150;C1":M$│ Л(D):Бж1000:A$│A$лM$:Y│Yл1:ЕY│4з1280?&ьX│Xл60?1ЎБе1170?NАD│1е10:ЕSC▓S(D)з1290:ДЛ?y
АC│10еDйм1:S(Cл1)│S(C):S$(Cл1)│S$(C):Л?ОS(D)│SC:S$(D)│A$?иE:Гdisplay high scores?╕F╚4,1:╝:┐1,1@P╗(0,0)м(255,20),╜,BF:╞"BM12,16;C0;S8":M$│"TRAILIN TAIL TOP 10":Бж1000@ Z╗(0,0)м(255,21),╜,B:╞"C1"@UdАD│1е10:Y│Dн16л20:╞"BM91,"л И(Y):M$│ И(D):Бж1000@yn╞"BM130,"л И(Y):M$│S$(D):Бж1000@аx╞"BM171,"л И(Y):M$│ И(S(D)):Бж1000@зВЛD@╨МАX│0е90й2:╗(X,22)м(X,191),╜:Л:Бж1480@∙ЦАX│0е90й2:╗(X,22)м(X,191),╛:Л:Бж1480A"аА √&
:Г     STAINED GLASS&-:Г          BY&D:Г      WES FAUSKE&S
Х200,12992&fАM│12993е13311&uНD:ТM,D:ЛM&╤Ж80,82,69,83,83,32,65,78,89,32,75,69,89,128,140,64,0,38,249,142,50,142,142,52,0,134,128'.Ж167,128,140,64,0,38,249,142,50,193,198,13,166,128,173,159,160,2,90,38,247,141,67,39,252'Н#Ж134,1,198,3,142,255,192,141,30,134,26,198,7,141,24,134,3,183,50,214,182,1,22,141,29,129,0'ы(Ж39,45,134,128,183,50,206,183,50,207,32,59,70,36,6,48,1,167,128,32,2,167,129,90,38,242,57(J-Ж177,50,214,37,5,176,50,214,32,246,57,173,159,170,49,173,159,160,0,57,134,8,183,50,214,182(и2Ж1,23,141,226,76,198,16,61,203,122,247,50,206,192,5,247,50,207,134,16,183,50,214,182,1,24)7Ж141,202,129,1,35,8,183,50,214,182,1,24,141,190,183,50,208,134,15,176,50,208,183,50,209)a<Ж134,48,183,50,214,182,1,25,141,169,129,1,35,8,183,50,214,182,1,25,141,157,72,183,50,210)└AЖ134,94,176,50,210,198,16,61,253,50,212,182,50,210,198,16,61,253,50,210,141,142,39,8,129,3*FЖ39,81,141,134,39,252,190,50,210,48,137,52,0,246,50,208,182,50,206,167,133,246,50,209,182*}KЖ50,207,167,133,190,50,212,48,137,52,0,167,133,246,50,208,182,50,206,167,133,190,50,210,48*·PЖ137,58,0,167,133,246,50,209,182,50,207,167,133,190,50,212,48,137,58,0,167,133,246,50,208,182,50,206,167,133,126,51,4,5718                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #&└4::Г32K VERSION&5
:Г************************&T:Г***** TRAILIN TAIL *****&s:Г***** BY MIKE HALL *****&Т:Г**3019 SYLVESTER DRIVE**&▒:Г***HARTLAND, WI 53029***&╨:Г************************&я:ГCOMPLETED MARCH 3, 1983*':Г************************'-	:Гset screen and variables'ж
Ю:МCH$(43),X(99),Y(99),A(4),B(4),E(10),S(11),S$(11),G(50):АZ│1е43:НCH$(Z):╔"L255;ABA":Л:АZ│1е10:S(Z)│0:S$(Z)│"   ":Л'р╚1,1:╝:┐1,0:╞"BM30,24;C3;S8":M$│"TRAILIN TAIL":Бж1000(K╞"BM100,180;C4":M$│"BY":Бж1000:─(100,164)м(125,190),G,G:АY│164е30йм4:╔"O3CB":┼(100,Y)м(125,Yл20),G,╜:Л(И(╞"BM60,70;C3":M$│"MIKE HALL":Бж1000:╞"BM62,72;C2":Бж1000(У-Бж2000)2╞"BM10,100;C2":M$│"CHOOSE 1 OR 2":Бж1000:╞"BM10,120;C3":M$│"1 IS KEYBOARD":Бж1000:╞"BM10,140":M$│"2 IS JOYSTICK":Бж1000)w<V│ Д(191):C│ Д(4):╞"C"л И(C):╗(180,V)м(255,191мV),╜:A$│ Т:ЕA$│""з60:ДЕA$│"1"зKY│1:ДЕA$│"2"зKY│0:Д60)°F╝:╞"BM10,140;C4":M$│"WHICH WAVE WOULD YOU":Бж1000:╞"BM10,160":M$│"LIKE TO START ON":Бж1000:╞"BM70,180;C3":M$│"1 TO 9":Бж1000*FPH│ Д(255):V│ Д(120):C│ Д(4):╞"C"л И(C):╗(H,V)м(255мH,V),╜:A$│ Т:ЕA$│""з80*_ZW│ Й(A$):ЕW┤1▒W▓9з70*Вd╚1,1:╝:┐1,0:SB│(Wм1)н1500:SC│0*╗nE│10000:F│15:T│0:N│4:M$│ И(SC):╞"BM0,12;C3S8":Бж1000* xM$│ И(Nл1):╞"BM170,12;C3":Бж1000:M$│ И(F):╞"BM210,12;C4":Бж1000+Х:Гstart of wave+xЦM$│"WAVE":╞"BM90,12;C2S8":Бж1000:M$│ И(Wм1):╞"BM132,12;C1":Бж1000:M$│ И(W):╞"BM132,12;C2":Бж1000+аа╞"C1":╗(10,24)м(245,181),╜,BF:╞"C2"+ркБж650:Z│1:Бж690:Бж660:Z│2:Бж690:Бж670:Z│3:Бж690:╜(128,96,4),┤A(4)│0:X│128:Y│96:C│0:S│Wл1:ЕS▓10зS│10,:╛╞"C4":АZ│0е9:╗(Z,Zл14)м(255мZ,191мZ),╜,B:Л,│╚ЕKY│1зM$│"PRESS AN":╞"BM140,130;C2S8":Бж1000:M$│"ARROW":╞"BM156,150":Бж1000:M$│"KEY":╞"BM166,170":Бж1000:A$│ Т:Бе220-'╥M$│"PRESS THE":╞"BM134,130;C2S8":Бж1000:M$│"JOYSTICK":╞"BM136,150":Бж1000:M$│"BUTTON":╞"BM146,170":Бж1000:Бе230-G▄Бж270:A$│ Т:ЕA$│""з220:Д240-vцБж270:PP│ Ж(65280):ЕPP│254▒PP│126з240:Д230-┌Ё╞"BM170,12;C1":M$│ И(Nл1):Бж1000:╞"BM170,12;C3":M$│ И(N):Бж1000:╞"C1":╗(134,118)м(245,181),╜,BF.E·ЕW▓9зАQQ│5еWо2:H│ Д(90)л75:V│ Д(90)л50:┬(H,V),13,4:├(H,V),4,4:Л:АQQ│1е999:Л:OD$│A$:A$│ Т:ЕA$│""зA$│OD$.]
 Я│T:ЕKY│1з440:Д300.{
CC│CCл1:ЕCC▓99зCC│1:Бе290.Б
Р.Ъ
"┐1,1:АZ│1е9:Л:┐1,0:Р.н
+:Гmain program.┴
,J│ Н(0):K│ Н(1).╥
6╔"L255;O1;A".р
@ЕKY│1з430.я
JЕJ│0зX│XмS. 
TЕJ│63зX│XлS ¤$
:ГRAINBOW ON TAPE MONTHLY MENU7╚3,1:╝:┐0,1:Ю0кRB$│"U8R4FD2GNL4FD3BR5U6E2R2F2D2NL6D4BR5NU8BR5U8F7NDU7BR5D8R4EU2HNL4EU2HNL4BR6NR4GD6FR4EU6HBR5D6F2E2NU4F2E2U6"ч(┬(256,130),168,3,.7,.50,.25:┬(256,126),142,3,.75,.50,.25 2╞"S4BM116,126C3L50"<├(100,124),3,3NFАI│0е30й30:АY│0е1:┬(256мI,130лY),168,2,.7,.50,.25:ЛY:ЛIdP╞"BM20,132C2R161"vZ├(75,130),2,2Цd┬(256,130),257,4,.45,.5,.25╢n┬(256,138),226,4,.56,.5,.25╩x╞"BM0,128C4R45"▄В├(15,126),4,4°М╗(0,126)м(256,147),╛,BF Ц╗(0,0)м(256,192),╛,B *а╗(0,0)м(256,22),╛,BF iк╞"S20BM150,124C3R20EU10HL20GD10FR3UE2L5U7ER18FD7L5NL12F2D" Е┤┬(176,90),8:┬(220,90),8 │╛╗(176,82)м(220,82),╜:╗(176,98)м(220,98),╜ ┼╚├(176,70),3,3!╥┐1,1:АI│1е8:R$│ И(Iл10)л","л И(Iл168):╞"S12BM"лR$л"C4"лRB$:Л!▄╞"S12BM19,177C3"лRB$!\ц╚3,1:┐1,1:АI│1е300:Л:┐1,0:АI│1е300:Л:┐1,1:А I│1 е 500:ЛI!bЁЮ!r·Х 200,16352!Ц
А R│16352 е 16380:Н P:Т R,P:Л R!е
╣ Г0│16352!╓
Ж 189, 179, 237, 31, 152, 142, 4, 0, 16, 142"
"Ж 4, 31, 237, 137, 1, 224, 237, 164, 49, 168"3
,Ж 32, 237, 129, 140, 4, 32, 38, 240, 57"G
6Ю 4 :X│ Г0(225)"d
@З@72, "RAINBOW ON TAPE";"u
BЗ@142,"FOR";"О
DЗ@202,"AUGUST 1983";"з
IЗ@426, "HIT A KEY.";"╢
JX│ Г0(225)"╚
TА R │ 1 е I:Л"╫
^X│ Г0(222)"ш
hА T│ 1 е I:Л#
rЕ I▓1 з I│Iм1 :Д I│50#
|Е  Т│"" з 330#
ЖЮ#9
РЗ"        RAINBOW ON TAPE"#Y
ЪЗ"       (C) FALSOFT, 1983"#_
дЗ#г
оЗ "   YOU CAN LOAD THESE PROGRAMS        FROM OUR AUGUST ISSUE"#й
╕З#╧
┬З "  (XX)=PAGE NUMBER OF LISTING"#╒
╠З#■
╓З " (21) MASTERMD", " (28) STNDGLAS"$)
рЗ" (36) TRAILING", " (52) AUTODSNR"   $N
ъЗ" (60) RAINBUG*", " (80) LINES"$w
ЇЗ" (84) HOMRUN", " (93) BSR M/L"    $Ъ
■З"(100) CONGEN", "(123) ENRAK"$аЗ$─З"   PRESS ANY KEY TO CONTINUE"$╘Е  Т│""з540$┌&Ю%
0З "  (XX)= PAGE NUMBER OF LISTING"%:З%-DЗ"(132) CHORDS", "(143) SALESRGR"%QNЗ"(154) BIRD", "(202) QSORTEST"%yXЗ"(204) QSORTDIR", "(204) QSORTML*"%╔bЗ"(218) MISSILES", "(236) ST FBALL"                                        %ёlЗ"(285) REVFIELD", "(286) REVFLDML*&vЗ"(288) REV DEMO", "(290) SAFECRKR"&;АЗ"(246) SPOOLER * (JUNE '83)"&_ФЗ"  *=MACHINE LANGUAGE PROGRAM"&eЮЗ&ииЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU"&═▓З "  PRESS (BREAK) TO EXIT MENU"&ь╝Е  Т│"" з 700 :Д Ю: Бе 400&№╞З б(32,45);EV DEMO", "(290) SAFECRKR"&;АЗ"(246) SPOOLER * (JUNE '83)"&_ФЗ"  *=MACHINE LANGUAGE PROGRAM"&eЮЗ&ииЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU"&═▓З "  PRESS (BREAK) TO EXIT MENU"&ь╝Е  Т│"" з 700 :Д Ю: Бе 400&№╞З б(32,45);                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ┴╞─	
─╔┬┴┼╔╞├┼!┴#$┴&├┼)*+┴-./01┬3┬╟678╟╟┴─=─     ╟                                                                                                                                                                                            AUGMENU BAS MASTERMDBAS"■STNDGLASBAS■TRAILINGBAS&AUTODSNRBAS%ВRAINBUG4BIN'LINES   BASjHOMRUN  BAS(ЦBSR-ML  BAS CONGEN  BAS╛ENRAK   BAS,╠CHORDS  BASySALESREGBAS№BIRD    BAS2рQSORTTSTBASПQSORTDIRBAS╧QSORT   BIN4`MISSILESBAS5STRFTBALBASДREVFIELDBAS9*REVFLDMLBIN:╩REV-DEMOBAS;╧SAFECRKRBAS<├SPOOLER BINвDIRSAV  BASф                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 √K
Ю0:Т359,13:┐0,1:АI│1024е1534й2:R│ Д(26):S│ Д(8):ТI,R:ТIл1,127л16нS:ЛI·З@235,"MASTERMIND";:З@427,"r.delbourgo";:З@456,"15,willowdene av.";:З@481,"hobart,tasmania, australia7005";:╔"L30V30O1CO2CO3CO4CO5CO4CO3CO2CO1CO2CO3CO4CO5CO4CO3CO2CO1CP1"=Ю0:З@169,"LETTERMIND (L)";:З@238,"OR";:З@297,"NUMBERMIND (N)";PI$│ Т:ЕI$│""з4^ЕI$│"N"з8mЕI$│"L"з59uБе4ЮЮ:З"  --NUMBERMIND INSTRUCTIONS--":З∙	З"THIS COMPUTER VERSION OF THE    POPULAR GAME USES THE TRS-80C   GRAPHIC CHARACTERS." x
З"THERE ARE 8 DIFFERENT HIDDEN    COLOURS AND YOU CAN CHOOSE YOUR LEVEL OF DIFFICULTY BY HAVING UPTO 8 HIDDEN CHARACTERS." ¤З"YOUR GUESSES ARE ENTERED AS     COLUMNS. AFTER TYPING IN NUMBERSACCORDING TO A COLOUR CODE, THE COMPUTER ASSESSES YOUR GUESS:"!gЗ"R=# CHARACTERS RIGHTLY PLACED":З"W=# CHARACTERS WRONGLY PLACED":З"T=# GUESSES                    ";!x
АX│1е5000:ЛX"6З" ANY NUMBER CAN PLAY AND EACH    PLAYER HAS UP TO 15 GUESSES.":З"SCORING IS 10*R+2*W-T+1":З"NOTE THAT CHARACTERS MAY WELL BEREPEATED!":З:З"GOOD LUCK AND GOOD THINKING!":З:АX│1е5000:ЛX"МЮ0:Й"ENTER NUMBER OF PLAYERS";P:МS(P):МN(P):МP$(P):МA$(P):МA(8,P):МB(8,P):МC(8,P)"╝АJ│1еP:З"PLAYER #"J", YOUR NAME";:ЙP$(J):ЛJ"юАJ│1еP:АI│1е8:A(I,J)│0:B(I,J)│0:C(I,J)│0:ЛI,J"∙АJ│1еP#_Ю0:ЗP$(J);", HOW MANY CHARACTERS?         (MAXIMUM OF 8)";:ЙN(J):N(J)│ Б(N(J)):Е N(J)▓8▒N(J)┤1з19#oT│0:R│0:W│0#ЪАI│1еN(J):R│ Д(8):B(I,J)│R:C(I,J)│R:ЛI$Ю0:З@0,"T";:З@32н(N(J)л1),"R";:З@32н(N(J)л2),"W";:З@416,"COLOUR CODE IS:";:АI│1е8:З@443л8нI,"=";I;:ЛI$*АI│1е8:З@442л8нI, Л(127л16нI);:ЛI$=T│Tл1:ЕT▓15з47$САI│1376е1439:ТI,128:ЛI:З@352,P$(J);", YOUR GUESS";:ЙA$(J):Е  З(A$(J))┤▓N(J) з25$╡З@384,"IS THAT CORRECT (Y/N)?";$╔I$│ Т:ЕI$│""з27$╪ЕI$│"N"з25$чЕI$│"Y"з31$ЁБе26%1АI│1408е1439:ТI,128:ЛI:АI│1еN(J):A(I,J)│ Й( Р(A$(J),I,1)):ЛI%l З@2нT, Ь(T);:АI│1еN(J):Т1024лTн2л32нI,127л16нA(I,J):ЛI%У!R│0:W│0:АI│1еN(J):C(I,J)│B(I,J):ЛI%╚"АI│1еN(J):ЕA(I,J)│C(I,J)зR│Rл1:A(I,J)│0:C(I,J)│0%╧#ЛI%ъ$АI│1еN(J):ЕA(I,J)│0з40&%АK│Iл1еIлN(J)м1:L│KмN(J)н Б((Kм1)оN(J))&H&ЕA(I,J)│C(L,J) з W│Wл1:A(I,J)│0:C(L,J)│0:Бе40&O'ЛK&V(ЛI&И)З@32н(N(J)л1)м1л2нT,R;:З@32н(N(J)л2)м1л2нT,W;&Щ*ЕR│N(J) з 44&в+Бе24&╥,АH│1е6:╔"O4L255T255V30ABCDGEEADFCBFGEAD":ЛH&ч-Ю0:З"WELL DONE!"&Ё.Бе49'С/АI│1376е1439:ТI,128:ЛI:З@352,"YOU'VE BLOWN IT, ";P$(J):╔"O1T255L255V30GFEDCGFEDCGFEDCGFEDCDDDDDD":З@384,"HIDDEN SET IS ";:АI│1еN(J):Т1421лI,127л16нB(I,J):ЛI'┤0АX│1е5000:ЛX:Ю0:З"TRY HARDER!"'╧1S(J)│S(J)л10нRл2нWмTл1' 2З:ЗP$(J);", YOUR SCORE IS"S(J):АX│1е2000:ЛX(3ЛJ(+4Ю0:З@0,"               SCORES":З(E5АJ│1еP:ЗP$(J),S(J):ЛJ(f6З@486,"ANOTHER ROUND?(Y/N)";(z7I$│ Т:ЕI$│""з55(Л8ЕI$│"Y"зБе17(Ь9ЕI$│"N"зЮ0:К(е:Бе55(╧;Ю:З"  -- LETTERMIND INSTRUCTIONS--":З)Ж<З"THIS GAME REQUIRES TWO PLAYERS  AT LEAST. EACH PLAYER HAS UP TO 15 GUESSES TO FIND A HIDDEN REALWORD (UP TO 8 LETTERS; PLEASE   NO PLURALS) ENTERED SECRETLY BY ANOTHER PLAYER.")ы=З"GUESSES WILL BE ENTERED AS      COLUMNS AND THE COMPUTER WILL   ASSESS EACH GUESS AS FOLLOWS:"*:>З"R=# LETTERS RIGHTLY PLACED":З"W=# LETTERS WRONGLY PLACED":З"T=# GUESSES"*z?З"SCORING IS 10*R+2*W-T+1":З"GOOD LUCK AND GOOD THINKING!";*Л@АX│1е5000:ЛX*╟AЮ0:Й"ENTER # OF PLAYERS (>1)";P1:МQ(P1):МM(P1):МP1$(P1)+*BАJ│1еP1:З"PLAYER #"J", YOUR NAME";:ЙP1$(J):ЛJ:МB1$(8,P1):МA1$(8,P1):МC1$(8,P1):МE$(P1):МD$(P1)+fCАJ│1еP1:АI│1е8:A1$(I,J)│"":B1$(I,J)│"":C1$(I,J)│"":ЛI,J+╔DАJ│1еP1:Ю0:З"ENTER THE HIDDEN WORD (3 TO 8   LETTERS LONG) FOR ";P1$(J);:ЙD$(J):M(J)│ З(D$(J))+сEЕM(J)▓8 ▒ M(J)┤3з68+шFЛJ+ЇGАJ│1еP1,HT│0:R│0:W│0,cIЮ0:З@0,"T";:З@32н(M(J)л1),"R";:З@32н(M(J)л2),"W";:З@416,"HIDDEN WORD IS"M(J)"LETTERS LONG",╢JАI│1376е1439:ТI,128:ЛI:З@352,P1$(J)", YOUR GUESS";:ЙE$(J):Е З(E$(J))┤▓M(J) з74,┌KЗ@384,"IS THAT CORRECT (Y/N)?";,юLI$│ Т:ЕI$│""з76,¤MЕI$│"N"з74-NЕI$│"Y"з80-OБе76-fPАI│1еM(J):A1$(I,J)│ Р(E$(J),I,1):B1$(I,J)│ Р(D$(J),I,1):C1$(I,J)│B1$(I,J):ЛI-sQЕT▓15з98-мRЗ@2нTл2, Ь(Tл1);:АI│1еM(J):З@Tн2л2л32нI,A1$(I,J);:ЛI-╫SR│0:W│0:АI│1еM(J):C1$(I,J)│B1$(I,J):ЛI.TАI│1еM(J):ЕA1$(I,J)│C1$(I,J)зR│Rл1:A1$(I,J)│"":C1$(I,J)│"".UЛI.;VАI│1еM(J):ЕA1$(I,J)│""з90.gWАK│Iл1еIлM(J)м1:L│KмM(J)н Б((Kм1)оM(J)).бXЕA1$(I,J)│C1$(L,J)зW│Wл1:A1$(I,J)│"":C1$(L,J)│"":Бе90.иYЛK.пZЛI.с[З@32н(M(J)л1)л1л2нT,R;:З@32н(M(J)л2)л1л2нT,W;.ё\ЕR│M(J)з 95/]T│Tл1:ЕT▓14з98/
^Бе74/<_АH│1е6:╔"O4L255T255V30ABCDEEADEFCBGEAD":ЛH/Q`Ю0:З"WELL DONE!"/ZaБе990bАI│1376е1439:ТI,128:ЛI:З@352,"YOU'VE BLOWN IT, ";P1$(J):╔"O1T255L255V30GFEDCGFEDCGFEDCGFEDCDDDDDD":З@384,"THE HIDDEN WORD WAS ";D$(J);:АX│1е3000:ЛX:Ю0:З"TRY HARDER!"0cQ(J)│Q(J)л10нRл2нWмTл10PdЗ:ЗP1$(J);", YOUR SCORE IS"Q(J):АX│1е2000:ЛX0WeЛJ0{fЮ0:З@0,"              SCORES":З0ЧgАJ│1еP1:ЗP1$(J),Q(J):ЛJ0╕hЗ@486,"ANOTHER ROUND?(Y/N)";0═iI$│ Т:ЕI$│""з1050▐jЕI$│"Y"зБе670ЁkЕI$│"N"з Ю0:К0·lБе105AR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &
:Г      JOEL ROBBINS&5:Г      RR# 5, BOX 450&U:Г      SYRACUSE, IN  46567&_╚ 3,1&eЮ&}З@41,"AUTODESIGNER"'&З@96,"  INPUT DIMENSIONS AND DESIGN    YOUR OWN CARS. THE NUMBERS IN   () ARE SUGGESTED LIMITS. ALL    OF THE DIMENSIONS ARE INNER-    RELATED SO PLAN ACCORDINGLY."'pЗ@288,"  YOU CAN CHANGE THE DESIGN AT   ANY TIME BY TOUCHING <ENTER>.'┤	З@416," TOUCH <S> FOR SAMPLE DESIGN     OR <N> FOR NEW DESIGN."'┐
SA$│ Т'╨ЕSA$│"S"з108'рЕSA$│"N"з14'ъ
Бе 10'ЁХ'∙IU│1' Ю(	Бе 23(%З:Ю:З"         CHANGES")
З "FRONT WH = 1     REAR WH = 2    BTWN WHEELS = 3  GRILLE HI = 4  HOOD LENGTH = 5 HOOD SLOPE = 6  WNDSHLD HI = 7   WNDSHLD SL = 8 ROOF LENGTH = 9  BCK WND HI = 10BCK WND SL = 11  TRUNK LEN = 12 TRUNK SLOPE = 13 PAINT = 14     )Й IN)$ЕIN▓14з20)ZИ IN Бе 23,25,29,33,37,41,45,49,53,57,61,65,69,73)АЙ "SIZE OF FRONT WHEEL(10-40)";FW)КWF│FW)зЙ "REAR WHEEL(10-40)";RW)▒WR│RW)╛ЕIU│1з29)╔Бж 104)єЙ "DISTANCE BETWEEN WHEELS(50-180)";A*AB│A:A│Aо2:A│120мA:B│AлAB*ЕIU│1з33*) Бж 104*K!Й "HEIGHT OF GRILLE(0-70)";GR*Y"GR│170мGR*f#ЕIU│1з37*p$Бж104*С%Й "LENGTH OF HOOD(0-120)";EE*Э&EE│EEл5*к'ЕIU│1з41*╡(Бж 104*╘)Й "SLOPE OF HOOD(0-50)";FF*с*FF│GRмFF*ю+ЕIU│1з45*∙,Бж 104+-Й "HEIGHT OF WINDSHIELD(0-40)";HH+,.HH│FFмHH+9/ЕIU│1з49+D0Бж 104+i1Й "SLOPE OF WINDSHIELD(0-50)";GG+v2GG│EEлGG+Г3ЕIU│1з53+О4Бж 104+о5Й "LENGTH OF ROOF(0-90)";II+╗6II│GGлII+╚7ЕIU│1з57+╙8Бж 104+·9Й "HEIGHT OF BACK WINDOW(0-50)";LL,:LL│HHлLL,;ЕIU│1з61,<Бж 104,K=Й "SLOPE OF BACK WINDOW(-30 TO +30)";KK,X>KK│IIлKK,e?ЕIU│1з65,p@Бж 104,СAЙ "LENGTH OF TRUNK(0-50)";MM,ЮBMM│KKлMM,лCЕIU│1з69,╢DБж 104,█EЙ "SLOPE IF TRUNK(-10 TO 30)";MN,шFMN│LLлMN,їGЕIU│1з73-HБж 104-IЙ"PAINT(1-4)";ZP:ЕZP▓4з73-,JЕIU│1з 76-7KБж 104-=L╝-GM┐ 1,0-`N╗(0,180)м(255,180),╜-yO╗(0,170)м(255,170),╜-ЛP├(10,181),3,4-нQ┬(A,180мWF),FW,0:ГFRONT WHEEL-┴R┬(A,180мWF),3,0-тS┬(B,180мRW),WR,0:ГREAR WHEEL-ЎT┬(B,180мRW),3,0.U╗(0,170)м(5,GR),╜:ГGRILL.*V╗м(EE,FF),╜ :ГHOOD.GW╗м(GG,HH),╜ :ГWINDSHIELD.]X╗м(II,HH),╜:ГROOF.zY╗м(KK,LL),╜:ГBACK WINDOW.СZ╗м(MM,MN),╜:ГTRUNK.░[╗м(255,170),╜:ГBACK BUMPER.─\├(120,169),ZP,0.╫]├(10,169),ZP,0.ы^├(240,169),ZP,0.ї_Бж110/`BS$│ Т/aЕ BS$│""з96:Д98/YbЮ:З@32,"TOUCH <C> TO CHANGE DESIGN      TOUCH <N> FOR NEW START"/fcPU$ │  Т/odIU│0/АeЕ PU$│"C"з18/УfЕPU$│"N"з5:Д99/ЩgК/█hЙ"TOUCH <D> FOR DESIGN OR <ENTER> TO MAKE OTHER CHANGES"; IP$/ЁiЕ IP$ │"D"з76:ДР0jЗ@32,"ADD DESIGN FEATURES IN LINE 2000"0/k├(110,160),0,00╡lZP│3:WR│22:RW│22:FW│20:WF│20:A│180:AB│A:A│Aо2:A│120мA:B│AлAB:GR│140:EE│100:FF│120:HH│90:GG│120:II│170:LL│120:KK│190:MM│240:MN│1400┐mБе 760╧nWH│WR:HW│FW0▄oЕ WR┤6зР0шpЕFW┤6зР0ЇqАTI│1е61rHW│HWм11s┬(A,180мWF),HW,01tЛTI1)uАTI│1е615vWH│WHм11Jw┬(B,180мRW),WH,01SxЛ TI1hyЕTI│0зTI│1:ДTI│01tzЕTI│0зР1~{Бе 76│120:HH│90:GG│120:II│170:LL│120:KK│190:MM│240:MN│1400┐mБе 760╧nWH│WR:HW│FW0▄oЕ WR┤6зР0шpЕFW┤6зР0ЇqАTI│1е61rHW│HWм                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
0
<¤1Ч╛1Ч
EЖ-
i'Б,&┐1Ч0
 ЁЎ1ЪНPБ,'чБ'&

Б''
ЙН= єБ &┐1Ч
% ┐Б
&
Ж

*┐1Ч Б^&0┐1Ч
"Н бБ/'ї9╛1Ч40фЄ5Р╛1ЧчАс&┐1Ч94Ж?Ё5В░¤1Ь9OМЖ ╖1Ы4Нf'▒1Ы'ў╛1ЧБM'╛1ХБP'╛1ЬБW'
5ФНL'№ оД┐1Щ}1Ы'юНj╛1ЩБ+&Н&4№1Щ0Л┐1Щ5 щБ-'Б@'╒_ ╩Н4№1Щ@PВ ▀НЦ'6д1Щ1ЪН,Н&'╞=ЖXy1Ъy1ЩJ&Ў Б0%Б9/
БA%
БF"АД9Н4Б'├9 S&
Б/"Б№1Щ9WжА4╞=Н5ДЛРЙ@ НщНчЖ  4нЯа'·Н5Х4нЯа5Т0М№Ж
Н┌Ж
Н╓жАБ&°9╖H╖H╖H╖H╖0НЯЭ ?0М√Н┘ RAINBUGА4Ж ╖1Ы0МьН┴Н╝ 2a■2aO_¤1ЩЖ#Нв ]0Н■ВБ/'ЙНГ0НЖсД'0J&ў ░0
ьДнЛ ╦н ▓B
C
 D
|ETG
ўLrщM¤ш@хOPэR
цS
фT
тVs┐W■\X* 
 0
40гфэф0
бф& юф3_яД  (5ЦnЯ ■H╖oт_0НH 
Б[&Жзф■ЎБ
'mД' &бБ&Ўы ы0НMШД`кфзф─ЯmД' 
сБ&Ўцъфчф0ф■╗■╙5ДABDH
H
H
H,-	-
SpY0UPX++
PАCR] ДИЙЖЕЛАБВГВМГНЯH╖H╖ЦoБ■&o9Ж■Чo9■.¤2°■(¤2·■"¤
х╜гР╞╛
╥0
жАБ0$0Ж заZ&ёоМ╗Я┐
чоМ╡0
ЯЖО╜дl■/9DRIVE#(HEX)TRACK#(HEX)SECTOR#(HEX)ARE YOU SURE?¤уБR&Ж╖2№ БW&■Ж╖2№О3z¤▀¤─БY&¤°О3U¤╨№┌╢1Ъ╖2¤О3a¤┴№╦╢1Ъ╖2■О3m¤▓№╝╢1Ъ╖2 ╛└╢2№з╢2¤з
╢2■з╢2 з╬ янЯ└ @m&¤в9999999 1Ю2°■(¤2·■"¤
х╜гР╞╛
╥0
жАБ0$0Ж заZ&ёоМ╗Я┐
чоМ╡0
ЯЖО╜дl■/9DRIVE#(HEX)TRACK#(HEX)SECTOR#(HEX)ARE YOU SURE?¤уБR&Ж╖2№ БW&■Ж╖2№О3z¤▀¤─БY&¤°О3U¤╨№┌╢1Ъ╖2¤О3a¤┴№╦╢1Ъ╖2■О3m¤▓№╝╢1Ъ╖2 ╛└╢2№з╢2¤з
╢2■з╢2 з╬ янЯ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 У>$
:Г****************************><:Г           HOMRUN>_:Г7 DAY SCHEDULING PROGRAM FOR>(:Г  PLUG'N POWER CONTROLLER>в2:Г (C) A. B. Trevor,  Apr 1983>┼<:Г****************************>╠F:Г>╪PБе 2915>ўd:ГUSER SETTABLE PARAMETERS?nDV│1::Г      -1 FOR CASSETTE?:xNE│60::Г    MAX NUMBER EVENTS?[ВDT│12::Г     DEVICE TBL SIZE?vМML│ Ж(39)н256л Ж(40)л1?ХЦ:Г   **END OF PARAMETERS**?╡аМ EVNT(6,NE)  ::ГEVENT ARRA?╒кМ BTAB(16)    ::ГBSR DIGITS?Ї┤М AD$(DT)     ::ГDEV NAMES@╛М ADN(DT)     ::ГDEV#@.╚М LST(DT)     ::ГLAST STATE@N╥М HUE(6)      ::ГCMD COLORS@t▄Ж 6,E,2,A,1,9,5,D,7,F,3,B,0,8,4,C@ЖцЖ 0,5,5,0,3,8@НЁ:Г@Х·Ю 1@╡
:ГLOAD BSR TABLE AND COLORS@ф
А I│1 е 16: Н A$: BTAB(I)│ Й("&H"лA$): Л IA
,А I│0 е 5: Н HUE(I):  Л IA
^:ГLOAD BSR ROUTINESA3
h╣ Г0│ML  : ╣ Г1│MLл3AL
r╣ Г2│MLл6: ╣ Г3│MLл9AФ
РЕ  Ж(MLл12)│&H4F ░  Ж(MLл13)│&H6A з DAY│ Г0(м1)л1:X│ Г1(м1): Бе 480Aз
ЪЗ"LOADING M/L"A╬
дЕ DV│м1 з ЧM"X10CLK" :Д ╙M"X10CLK"A╒
о:ГAщ
╕:ГSET THE CLOCKAї
┬Бж 2580B
╠X│ Г0(DAYм1)B
╓X│ Г1(HRн256лMIN)B<
рEC│0::Г INITIALLY NO EVENTSBH
ъБе 2300BO
Ї:ГBg
■:ГMAIN CONTROL LOOPBЙ:Г DISPLAY ONE DAY'S SCHEDULEBСЮ 0B┐DW$│ Р("sunmontuewedthufrisat",DAYн3м2,3)Bр&З@0,"schedule for*";DW$;"*";C
0З@32,"            AM    1   1 1 1 2 2 ";C::З@64,"DEVICE  m 2 4 6 8 0 N 4 6 8 0 2 ";CiDЕ NX│0 з З@32,">OFF<"; :Д З@32,"NEXT=";NX;CТNЕ FLNM$┤▓"" з З@497,FLNM$;" loaded";CнX:Г DISPLAY DEVICE CODEC╜bА DI│1 е DNC╙lЕ ADN(DI)│0 з 670CыvЗ@DIн32л66,AD$(DI);C■АЬ(15,DIн2л4,1)DКЬ(15,DIн2л5,1)DФЛ DID9Ю:ГDISPLAY PREV DAY'S STATEDKиЕ и NDQ з 760Da▓TH│0: TM│0: NDQ│0Dq╝А DI│1 е DNDЗ╞Е ADN(DI)│0 з 760DЦ╨LC│LST(DI)D┤┌Е LC▓0 ░ LC┤▓30 з Бж 2710D╜фЛ DID╒ю:Г SCAN EVERY EVENTDф°А I│1 е ECD Е EVNT(0,I)┤▓DAY з 900E:Г   LOOK FOR THIS DEVICEE=TA│EVNT(2,I)н16лEVNT(3,I)м1EH ║ DI│1E_*Е ADN(DI)│TA з 840E{4DI│DIл1: Е DI┤│DN з 810EЫ>Бе 900::Г WHEN DISPLAY FULLEмHLC│EVNT(4,I)E╟R:ГDISPLAY DEVICE STATEEс\Е LC┤20 з А DI│1 е DNEэfБж 2690E№pLST(DI)│LCFzЕ LC┤20 з Л DIF.ДЛ I  ::ГEND OF EVENT GRAPHF5О:ГFKШЗ@480,"COMMAND:";FeвЕ EC│0 з HR│25:Бе 980FДм:ГGET TIME TO NEXT EVENT**FЮ╢HR│ Ш(EVNT(1,NX)о100)F╕└MIN│EVNT(1,NX)мHRн100F╘╩:ГWAIT FOR EVENT OR KEYFъ╘A│ Г2(HRн256лMIN)G▐Е A│м1 з З@480,"BSR OFF!";: а 1,20: Бе 920G*шЕ A▓0 з 1190GLЄЕ EVNT(0,NX)┤▓ Г0(м1)л1 з 920G]№Е NX│0 з 940G|:ГSEND EVENT TO CONTROLLERGЧHC│BTAB(EVNT(2,NX))н16G╡A│768лHCлBTAB(EVNT(3,NX))G╤$X│ Г3(A): CD│EVNT(4,NX)H8Е CD▓30 з RP│2н(CDм Ш(CDо10)н10)л1 :Д RP│3H!BA│RPн256лHCл Ш(CDо10)л&H4000H.LX│ Г3(A)HBVа 150,3:а 100,3H``Е NX┤EC з NX│NXл1 :Д NX│1HmeЗ@37,NX;HЙj:ГWAIT TILL NEXT MINUTEH▓tMIN│MINл1: Е MIN▓59 з MIN│0: HR│HRл1H▌~Е HR┤24 з Бж 1180: Е A▓0 з 1190 :Д 940IИHR│0: DAY│DAYл1: Е DAY▓7 з DAY│1I#ТБж 1180: Е A▓0 з 1190 :Д 520I<ЬA│ Г2(HRн256лMIN): РI\ж:ГPROCESS KEYBOARD COMMANDSIj░Е A│3 з КIИ║CD│ Ю(1,"IDLSH@CV", Л(A))Iм─Е CD│0 з З@488,"?";:а 1,2:Бе940I╕╬CD│CDм1IЄ╪:Г          INSERT DEL  LOAD SAVE HELP IMMD CLCK VIEWJ(тИ CDл1 Бе 1270,1680,2010,2150,2290,2430,2530,1640J/ь:ГJDЎ:ГINSERT COMMANDJhЕ EC│NE з З@490,"FULL";: Бе 600JВ
Ю 1:З"<INSERT EVENT>"JЩБж 2580::ГGET TIMEJ┤(Бж 2780::Г GET COMMANDJ╥2Е DAY│8 з ALS│м1 :Д ALS│0Jъ<Е ALS з А DAY│1 е 7JЎFEC│ECл1KP:Г  LOOK FOR TIME LATER THAN REQUESTK0ZА I│1 е ECм1K{dЕ(EVNT(0,I)▓DAY) ▒ ((EVNT(0,I)│DAY) ░ (EVNT(1,I)▓(HRн100лMIN))) з 1410KГnЛ IKЧxI│EC:   Бе 1460K│В:Г  MAKE HOLE FOR EVENTK╔МА J│ECм1 е I й м1K╫ЦА K│0 е 5KёаEVNT(K,Jл1)│EVNT(K,J)K√кЛ K,JL
┤EVNT(0,I)│DAYL&╛EVNT(1,I)│HRн100лMINL7╚EVNT(2,I)│HCLH╥EVNT(3,I)│UNL_▄EVNT(4,I)│CXн10лCBLАЁ:ГADD TO DEVICE TABLE IF NEWLП·А I│1 е DNLоЕ ADN(I)│HCн16лUNм1 з 1610L╢Л ILхЕ DN│DT з З"DISPLAY FULL":а 201,30:Бе 1610Lё"DN│DNл1M,ADN(DN)│HCн16лUNм1M6AD$(DN)│B$M)@Е NX│0 з NX│1M;JЕ ALS з Л DAYMVTЕ DAY▓7з DAY│ Г0(м1)л1Ma^Бе 520Mxh:ГNEXT DAY'S GRAPHMЪrЕ DAY▓│7 з DAY│1 :Д DAY│DAYл1Mе|NDQ│м1MпЖБе520M╨Р:ГDETAIL EVENT LISTER/EDITORM·ЪЕ EC│0 з З@490,"?EMPTY";:а 1,2:Бе 940NЯА L│1 е EC й 12N)дЮ 1:З"<DETAIL EVENTS>"NNоЗ"dELETE, eXEC NEXT, OR <ENTER>"Nl╕З" day  time device code"Nt┬K│0NВ╠А J│1 е 2NП╓З@94," "N░█Е Lл11▓EC з LM│EC :Д LM│Lл11N┐рА I│L е LMN╪ъЕ EVNT(0,I)│0 з 1910OЇDW$│ Р("SUNMONTUEWEDTHUFRISAT",EVNT(0,I)н3м2,3)O9■DC$│ Л(EVNT(2,I)л64)л П( И(EVNT(3,I)),2)OQCX│ Ш(EVNT(4,I)о10)O{CC$│ Р("CLRALLON OFFDIMBR ",CXн3л1,3)OТCB│EVNT(4,I)мCXн10O░&Е NX│I з A$│">" :Д A$│" "O▐0З A$;DW$;" ";EVNT(1,I);" ";DC$;"   ";CC$;P:Е CX▓3 з З CB;"  ";:Д З"   ";PDЕ J│1 з З: Бе1910PNЙ A$P/XA$│ О(A$,1)PD]Е A$┤▓"E" з 1910P_bЕ A$│"D" з EVNT(0,I)│0PКlЕ NX▓│L ░ NX┤Lл12 з З@32н(NXмLл3)," ";P╕qNX│I: З@32н(IмLл3),">";: З@32н(IмLл4),"";P─vЛ I,J,LP▀АА I│1 е EC::Г COMPRESSPєКЕ I│NX з NX│IмKQ
ФА J│0 е 5QЮEVNT(J,IмK)│EVNT(J,I)Q#иЛ JQ=▓Е EVNT(0,I)│0 з K│Kл1QE╝Л IQQ╞EC│ECмKQ\╨Бе 520Qs┌:ГLOAD FROM DEVICEQНфЮ1:З"<LOAD SCHEDULE>"QдюЙ"FILE NAME";FLNM$Q╦°Е FLNM$│ "" з 530 :Д Щ"I",DV,FLNM$QцЙ#DV,EC,DN::Г READ HDRQїА I│1 е DNRЙ#DV,ADN(I),AD$(I)R Л IR#*А I│1 е ECR14А J│0 е 5RD>Й#DV,EVNT(J,I)RNHЛ J,IRjRЪ DV: З FLNM$;" LOADED"RВ\А I│1е300:ЛI:Бе 520RЬf:ГSAVE SCHEDULE TO DVR╢pЮ1:З"<SAVE SCHEDULE>"R═zЙ"FILE NAME";FLNM$RєДЕ FLNM$│"" з 530 :Д Щ"O",DV,FLNM$SОЗ#DV,EC,DN::Г SAVE HDRSША I│1 е DNS4вЗ#DV,ADN(I),AD$(I)S<мЛ ISK╢А I│1 е ECSY└А J│0 е 5Sl╩З#DV,EVNT(J,I)Sv╘Л J,ISС▐Ъ DV: З FLNM$;" SAVED"SЭшБе 2140SиЄ:ГHELPS░№Ю 1S╞	З"<COMMAND LIST>"Sц	З"I   insert event command"S 	З"D   detail events"T&	$З"L   load new schedule from disk"TG	.З"S   save schedule to disk"TW	8З"H   help"Tq	BЗ"C   clock:set time"TК	LЗ"V   view next day"Tй	VЗ"@   do a direct command"T┬	`З"BRK exit to BASIC"T╘	jа 240,2:Бе920T▐	tЮ 1:КTї	~:Г@ DIRECT COMMANDT¤	ИЮ 1U	ТЗ"<DIRECT COMMAND>"U!	ЬБж 2780U4	жHC│BTAB(HC)н16UO	░X│ Г3(768лHCлBTAB(UN))Un	║Е CB│0 з RP│3 :Д RP│2нCBл1UВ	─А I│1 е 100:Л IUб	╬X│ Г3(&H4000лRPн256лHCлCX)Uм	╪Бе 520U─	тЮ 1: З"<SET CLOCK>"U╨	ьБж 2580Uс	ЎX│ Г0(DAYм1)Uў
X│ Г1(HRн256лMIN)V

Бе 920V
:ГGET DAY AND TIMEV3
Й"DAY OF THE WEEK";A$VI
(Е  З(A$)┤2 з 2620Vy
2DAY│( Ю(1,"SUMOTUWETHFRSAAL", О(A$,2))л1)о2Vл
<Е DAY┤1 з З"ENTER SUN,MON...OR 'ALL'":Бе 2590V╠
FЙ"24 HR TIME (HH:MM)";HR,MINVч
PЕ HR▓23 ▒ MIN▓59 з2630Vэ
ZРW
d:ГDRAW LINE TO RIGHT MARGINW&
ВTH│ Ш(EVNT(1,I)о100)WP
МЕ(EVNT(1,I)мTHн100)▓30 з TM│1 :Д TM│0Wf
ЦTA│HUE( Ш(LCо10))Ws
аY│DIн2л5WЕ
кЕ TA│0 з 2760Wл
┤А X│THн2л16лTM е 63:Ь(X,Y,TA):Л XW▒
╛РW╘
╚А X│THн2л16лTM е 63:Э(X,Y):Л XW┌
╥РW√
▄:ГGET DATA FOR A BSR COMMANDX
цЙ"HOUSE & UNIT";B$X%
ЁЕ B$│"" з 2790X6
·HC│ К(B$)м64XJUN│ Й( Р(B$,2))XsЕ HC▓0 ░ HC┤17 ░ UN▓0 ░ UN┤17 з 2850XдЗ"ENTER AS: C12 (HOUSE C, UNIT 12)": Бе 2790X╡"Й"ACTION";A$X┼,Е A$│"" з РXъ6CX│ Ю(1,"CLALONOFDIBR", О(A$,2))Y@Е CX│0 з З"CLR,ALL,ON,OFF,DIM.BR?": Бе 2850Y*JCX│(CXм1)о2YMTCB│0: Е CX▓3 з CB│ Й( П(A$,1))YS^РYic└ 1: Х 200,&H3D00YТhЕ  Ж(&HC000)┤▓68 з 110 :Д ╤ 1:Бе 100T 12)": Бе 2790X╡"Й"ACTION";A$X┼,Е A$│"" з РXъ6CX│ Ю(1,"CLALONOFDIBR", О(A$,2))Y@Е CX│0 з З"CLR,A                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 .╔>в
Х120:Ю:LT│500:МA$(50),RM(50,4),IT$(35),IT(35),JT$(35):З@230,"ENRAK":З@262,"BY KEN OSTRER":З@294,"MIKE SMITH":З@326,"(C) MARCH 1983":З:ЖNORTH,SOUTH,EAST,WEST?,RT$(3)│"THE DUKE OF 'BONE'              BORN 786 - DIED 835":RT$(4)│"IQVQ QRGP EQHHKP CPF UOGNN VJG  TQUG":RT$(5)│"SILENCE IS NICE.."?dЖ"NORTH OF A FOREST, THERE IS A   CAVE TO THE EAST"@H(ЖIN A CAVE,ON A WINDING MOUNTAIN PASS,ON A FOREST TRAIL,AT A THREE-WAY INTERSECTION OF  PASSAGES,AT A TURN IN THE PASSAGE,IN A LARGE CAVERN,IN A SMALL CAVERN,AT A BLOCKED PASSAGE,AT THE BRINK OF A DEEP PIT,ON A FOREST TRAILA
2ЖIN A SMALL CLEARING,IN THE HEART OF A DARK FOREST,AT A RIVER'S ESTUARY,IN A FOREST,ON A FOREST PATH,ON A FOREST PATH,ON A JAGGED ROAD,ON A DARK ROAD,NORTH OF A MINING TOWN,IN A MINING TOWNA[<ЖAT A TOWN MARKETPLACE,IN A PUB,AT A VERY QUIET GRAVEYARD,AT AN ENTRANCE WAYB%FЖIN A VERY LONG CORRIDOR,IN THE MAIN LIBRARY,IN A VERY LONG CORRIDOR,IN A GIANT LABORATORY,IN A TORTURE ROOM,IN A TIME ROOM.,IN A DINING ROOM,IN A SOUND PROOF ROOM,IN THE DUNGEON,IN AN ANIMAL CAGE.B╕PЖIN A BEDROOM,IN THE MAIN KITCHEN,IN A CIRCULAR ROOM,IN A STOREROOM,IN A ROOM THAT RESEMBLES A      MORTUARY,AT A VERY LONG AND NARROW FOYER,CCWZЖOUTSIDE OF A STOREROOM,IN A TRIANGULAR-SHAPED ROOM.,B,AT A LEDGE. THE MOON IS FULL    TONIGHT,AT A VAMPIRE BAT CLUB HOUSE,IN FRONT OF A GLOWING FIREPLACECпdЖ"IN A MUSTY, DARK ROOM.",IN LUTARN'S DEN. HINT+ LUTARN   EXISTS IN A GASEOUS FORM.DnЖ0,4,2,3,0,5,0,1,1,11,15,0,1,13,0,0,2,10,6,0,0,7,0,5,6,9,8,0,0,9,0,7,8,0,0,7,5,0,0,0,3,19,12,0DЕxЖ0,14,0,11,4,14,0,0,13,0,16,12,0,0,0,3,0,17,0,14,16,0,0,18,0,0,17,20,11,20,0,0,19,21,18,0,20,23,22,0,0,24,0,21D№ВЖ21,0,24,0,22,0,0,23,26,0,0,24,0,25,27,29,0,0,0,28,0,30,26,25,0,0,26,0,28,0,31,40,39,32,33,30,31,0,0,0,38,34,35,31EnМЖ33,0,0,0,37,36,0,33,35,0,0,0,0,35,0,0,0,33,0,0,0,31,0,0,0,41,30,42,40,46,48,0,0,43,40,0,42,45,0,44,0,47,43,0EнЦЖ43,0,46,0,41,0,0,45,44,50,0,0,0,49,0,41,48,0,0,0,47,0,0,0FQаD$│"NSEW":R│1:АX│1е4:Н D$(X):ЛX:АX│1е50:Н A$(X):ЛX:АX│1е50:АY│1е4:Н RM(X,Y):ЛY,X:АX│1е35:Н IT$(X),JT$(X),IT(X):ЛX:З"DO YOU WANT TO LOAD AN OLD GAME FROM TAPE?"F|кA$│ Т:ЕA$│"Y" з 1800 :Д ЕA$┤▓"N" з 170FЮ┤A$(45)│"NEAR A CLOSED COFFIN"F╞╛A$(42)│"IN FRONT OF A LOCKED DOOR."G╚ЕR▓│26 ░ AA│0 з Ю Д(8):З"A COLORFUL DARK MIST COVERS THE ROOM..":Бе340G8╥ЕFG│м1 з IT$(29)│"AN EMPTY BEAKER"GQ▄Ю:З"YOU ARE:":ЗA$(R)GrцЗ:З"OBVIOUS DIRECTIONS ARE:"GвЁАY│1е4:ЕRM(R,Y)┤▓0 з ЗD$(Y);"-> ";:ЛY :Д ЛYG╘·З:I│0:З:З"YOU SEE: ":ЕR│2 з З"OLD HERMIT":I│1H
ЕR│21 ░ ZZ┤▓м1 з З"GUNFIGHTER WITH THE MAGIC GLOVE":I│1H
АX│1е35H7
ЕIT(X)│R з ЗIT$(X):I│1H=
"ЛHT
,Е I│0 з З"NOTHING"HН
6ЕYD│м1 з З:З"THE POISON OF LUTARN WAS FATAL.":Бе1730Hй
@ЕZZ┤▓м1 ░ R│21 з Бж1860I+
JX│ Д(35):Е Д(40)│1 ░ IT(X)│м1 ░ X┤▓19 з ╔"T34O2CCCDDDEEEFFF":З:З"A GIANT VULTURE HAS CARRIED OFF YOUR..??":IT(X)│ Д(24):J│Jм1Iv
TЗ:╗Й">";I$:ЕAA│м1 з LT│LTм1:ЕLT│0 з З"YOUR LIGHT HAS RAN OUT..":Бе1730J5
^Е О(I$,5)│"MOVE " з 1340 :ДЕ О(I$,4)│"HELP" з 1880 :Д Е О(I$,4)│"QUIT" з К :Д Е О(I$,4)│"SING" з 1920 :Д Е О(I$,6)│"SHOOT " з 1820 :Д Е О(I$,6)│"CRACK " з 1750 :Д Е О(I$,5)│"WEAR " з1620JЎ
hЕ О(I$,6)│"TOUCH " з 1650 :Д Е О(I$,4)│"DIP " з 1480 :Д Е О(I$,4)│"ASK " з 1230 :Д Е О(I$,4)│"SAVE" з 1780 :Д Е О(I$,5)│"CALL " з 1690 :Д Е О(I$,5)│"GIVE " з 1310 :Д Е О(I$,5)│"LOAD "з1940Kа
rЕ О(I$,5)│"SHOW " з 1080 :Д Е О(I$,5)│"POUR " з 1580 :Д Е О(I$,7)│"UNLOCK " з 1370 :Д Е О(I$,5)│"OPEN " з 1180 :Д Е О(I$,6)│"THROW " з 1270 :Д Е О(I$,3)│"DIG" з 1110L0
|Е О(I$,5)│"FEED " з 1520 :Д Е О(I$,5)│"SCORE" з 1060 :Д Е О(I$,7)│"INSERT " з 1550 :Д Е О(I$,6)│"SMELL " з 1150 :Д Е О(I$,6)│"LIGHT " з 950Lф
ЖЕ О(I$,5)│"DROP " з 750 :Д Е О(I$,1)│"L" з 200 :Д Е О(I$,1)│"I" з 650 :Д Е О(I$,4)│"GET " з 480 :Д Е О(I$,4)│"SAY " з 1020 :Д Е О(I$,4)│"BUY " з 910 :Д Е О(I$,5)│"READ " з 860M*
РЕRM(25,3)│0 ░ I$│"N" ░ R│25 з З"THE COUNT IS IN YOUR WAY..":Бе340M5
ЪАX│1е4MN
дЕ Р(D$,X,1)│I$ з 450MU
оЛXMp
╕З"W-H-A-T ? ? ?":Бе340Mа
┬ЕRM(R,X)│0 з З"YOU CAN'T GO THAT WAY":Бе340Mо
╠R│RM(R,X)M╕
╓Бе200M█
рG$│ П(I$, З(I$)м4):G$│ О(G$,3)ND
ъЕR│49 ░ G$│ О(JT$(25),3) ▒ R│49 ░ G$│ О(JT$(26),3) з З"IT CANNOT BE TAKEN OFF OF THE   WALL..":Бе340NО
ЇЕG$│ О(JT$(19),3) ░ R│22 ░ BU┤▓1 з З"THE LANTERN COSTS MONEY..":Бе340N№
■ЕG$│ О(JT$(31),3) ░ R│50 ░ IT(31)│50 ▒ G$│ О(JT$(22),3) ░ R│20 з З"THAT IS NOT WITHIN YOUR POWER..":Бе340OWЕUP┤▓м1 ░ G$│ О(JT$(8),3) ░ R│10 з З"A SEMI-FORCE FIELD IS GUARDING  THE ROSE..":Бе340OЦЕNF┤▓м1 ░ G$│ О(JT$(6),3) ░ R│48 з З"IT'S TOO HOT..":Бе340OьЕG$│ О(JT$(34),3) ░ R│35 ░ AG┤▓м1 з З"THE GORILLA WON'T LET YOU TAKE  IT..":Бе340O°&АX│3е34P70ЕX▓8 ░ X┤19 ░ IT(X)│33 ░ R│33 ░ G$│ О(JT$(X),3) з MS│MSм10PМ:ЕJ│6 з 850 :Д Е О(JT$(X),3)│G$ ░ IT(X)│R з J│Jл1:IT(X)│м1:З"OK":╔"T8O5CFE":Бе340PТDЛP╢NЗ"I DON'T FEEL LIKE IT..":Бе340QtXЖCOUNT DRACULA,DRACULA,25,THE TOWN DRUNK,DRUNK,23,BROKEN TOMBSTONE,TOMBSTONE,24,A FADED SIGN,SIGN,8,STONE TABLET,TABLET,0,GLOWING EMBER,EMBER,48,WOODEN SHOVEL,SHOVEL,15,ROSE BUD,ROSE,10RbbЖ**MAGIC OYSTER**,OYSTER,46,**SILVER COMPASS**,COMPASS,0,**DISK OF THE GODS**,DISK,38,**TURQUOISE CROSS**,CROSS,7,**ANTIQUE CLOCK**,CLOCK,0,**SOME GLOWING RUBIES**,RUBIES,0,**PERUVIAN EMERALDS**,EMERALDS,0,**SPARKLING PEARL**,PEARL,0RлlЖ**CROWN JEWELS OF BAVARIA**,JEWELS,0,**SILVER BRACELET**,BRACELET,0SФvЖLANTERN AND OIL,LANTERN,22,GOLD NUGGETS,NUGGETS,0,DIAMOND KEY,KEY,0,STRANGE LOOKING BOX,BOX,20,HOLLOW STICK,STICK,24,WHISKEY BOTTLE,BOTTLE,0,EINSTEIN'S PORTRAIT,PORTRAIT,49,NEWTON'S PICTURE,PICTURE,49,METAL STRAINER,STRAINER,17T?АЖSOME ALGAE,ALGAE,14,BEAKER OF WATER,BEAKER,29,MAGIC GLOVE,GLOVE,0,THE HIDEOUS LUTARN,LUTARN,0,LARGE EGG,EGG,0,REVOLVER,REVOLVER,0,A BULLET,BULLET,35,WALL SAFE,SAFE,0TXКЗ"YOU ARE CARRYING:"TАФЕAA│м1 з LA$│"LIT " :Д LA$│"UNLIT "TвЮЕIT(19)│м1 з ЗLA$;IT$(19):I│1T▓иI│0:АX│3е34T╟▓ЕIT(19)│м1 з I│1T╪╝ЕX│19 з X│20TЇ╞ЕIT(X)│м1 з ЗIT$(X):I│1T·╨ЛU┌Е I│0 з З"NOTHING"UфБе340U>юG$│ П(I$, З(I$)м5):G$│ О(G$,3)Ug°ЕG$│ О(JT$(19),3) ░ IT(18)│м1 з AA│0UоЕG$│ О(JT$(30),3) ░ IT(30)│м1 з З"IT IS A PART OF YOU NOW..":Бе340U║АX│3е34U∙ЕX▓8 ░ X┤19 ░ IT(X)│м1 ░ R│33 ░ G$│ О(JT$(X),3) з MS│MSл10V ЕIT(X)│м1 ░  О(JT$(X),3)│G$ з 830V%*ЛV/4Бе590VG>J│Jм1:З"OK":IT(X)│RVШHЕMS│100 з З"YOU SOLVED THE ADVENTURE...":╔"ABCDEFGO4T5GFEDCBA":Бе1780 :Д 340V┼RЗ"YOU CAN'T CARRY ANYTHING ELSE..":Бе340Vш\G$│ П(I$, З(I$)м5):G$│ О(G$,3)VєfАX│3е5W1pЕIT(X)│м1 ░ G$│ О(JT$(X),3) з З Л(34);RT$(X); Л(34):Бе340W8zЛXWBДБе590WeОG$│ П(I$, З(I$)м4):G$│ О(G$,3)WЧШЕR│22 ░ BU│1 з З"WE'RE ALL OUT BUDDY..":Бе340W╘вЕG$│ О(JT$(19),3) ░ R│22 ░ IT(20)│м1 ░ J┤▓6 з BU│1:Бе550W▐мБе590X
╢G$│ П(I$, З(I$)м6):G$│ О(G$,3)X@└ЕIT(19)│м1 ░ G$│"ON" з 980 :Д ЕIT(19)│м1 ░ G$│"OFF" з 1000XJ╩Бе590Xr╘ЕAA│м1 з З"IT'S ALREADY ON..":Бе340XВ▐AA│м1:Бе200XкшЕAA│0 з З"IT'S ALREADY OFF..":Бе340X╣ЄAA│0:Бе200X╨№G$│ П(I$, З(I$)м4)XчЕRM(24,4)│0 з 1050YЕR│24 ░ G$│"BONE" з RM(24,4)│0:RM(24,3)│25:Бе220Y>З"OK":З Л(34);G$; Л(34):Бе340Yy$З"OUT OF 100 POINTS YOU HAVE      SCORED";MS;"POINTS."YХ.З"LIGHT LEFT=";LT:Бе340Y╕8G$│ П(I$, З(I$)м5):G$│ О(G$,3)Z,BЕRM(25,3)│0 ░ G$│ О(JT$(12),3) ░ IT(12)│м1 ░ R│25 з З"THE COUNT FLIES AWAY IN PAIN..":IT(1)│0:RM(25,3)│28:Бе340Z6LБе590ZZVЕIT(7)┤▓м1 з З"NO SHOVEL":Бе340ZН`ЕR│10 ░ IT(31)│м2 ░ IT(32)│0 з IT(32)│10:Бе220Z┤jЕR│12 ░ IT(21)│0 з IT(21)│12:Бе220Z╫tЗ"NOTHING HERE FRIEND..":Бе340Z·~G$│ П(I$, З(I$)м6):G$│ О(G$,3)[NИЕIT(5)│0 ░ G$│ О(JT$(8),3) ░ R│45 ░ OP│м1 ░ IT(8)│м1 з IT(5)│45:IT(10)│16:Бе200[▓ТЕG$│ О(JT$(8),3) ░ IT(8)│м1 з З"AHHH!! WHAT BEAUTY..":Бе340 :Д З"MY NOSE IS STUFFED UP..":Бе340[╒ЬG$│ П(I$, З(I$)м5):G$│ О(G$,3)\.жЕIT(13)│0 ░ G$│ О(JT$(22),3) ░ IT(23)│0 ░ R│20 з IT(24)│20:IT(13)│31:IT(33)│20:Бе200\Р░ЕIT(23)┤▓0 ░ G$│ О(JT$(22),3) ░ R│20 з З"AN ANGRY DOG IS GUARDING THE    STRANGE BOX..":Бе340\ю║ЕOP┤▓м1 ░ G$│ О("COFFIN",3) ░ R│45 ░ IT(21)│м1 з OP│м1:A$(45)│"NEAR AN OPEN COFFIN":Бе200\°─Бе590]╬G$│ П(I$, З(I$)м4):G$│ О(G$,3)]И╪ЕDS│м1 ░ G$│ О(JT$(2),3) ░ R│23 з З Л(34);"ADD ONE LETTER TO EACH LETTER   IN THE PHRASE.."; Л(34):Бе340]їтЕG$│ О(JT$(2),3) ░ R│23 з З Л(34);"FOR A BOTTLE OF WHISKEY I COULD BECOME VERY TALKATIVE.."; Л(34):Бе340] ьБе590^"ЎG$│ П(I$, З(I$)м6):G$│ О(G$,3)^╘ЕIT(31)│50 ░ R│50 ░ IT(6)│м1 ░ G$│ О(JT$(6),3) ░ IT(31)│50 з З:З"LUTARN BURNS FIERCELY. A VOICE  SAYS"; Л(34);"GID TA TIP"; Л(34):АI│1е1500:ЛI:IT(6)│50:IT(31)│м2:J│Jм1:Бе220_C
ЕIT(23)│м1 ░ G$│ О(JT$(23),3) ░ R│20 з З"THE DOG RUNS FOOLISHLY AFTER    THE STICK..":IT(23)│0:J│Jм1:Бе300_MБе760_pG$│ П(I$, З(I$)м5):G$│ О(G$,3)`(ЕDS┤▓м1 ░ R│23 ░ G$│ О(JT$(24),3) ░ IT(24)│м1 з З"THE DRUNK TAKES THE BOTTLE      IMMEDIATELY..":DS│м1:IT(24)│0:IT$(2)│"THE HAPPY TOWN DRUNK":J│Jм1:Бе340`2Бе760`;<G$│ П(I$, З(I$)м5):G$│ О(G$,3)`uFЕIT(35)│0 ░ G$│ О(JT$(25),3) ░ R│49 з IT(35)│49:Бе200`PБе590`вZG$│ П(I$, З(I$)м7):G$│ О(G$,3)`▌dЕIT(15)│0 ░ G$│ О(JT$(35),3) ░ IT(35)│49 ░ R│49 з 1400`чnБе590a-xЗ Л(34);"REFER TO BIRTH DIGITS"; Л(34);" SAYS AN ECHOING VOICE.."aGВАI│1е1000:ЛI:Ю:АX│1е3asМB$(1)│"LEFT":B$(2)│"RIGHT":B$(3)│"LEFT"aСЦЗ@70,B$(X);" VALUE":ЙC(X)aеаЕC(X)┤│0 з 1430aмкЛXb┤ЕC(1)│7 ░ C(2)│8 ░ C(3)│6 з З"THE SAFE CREAKS OPEN..":АH│1е750:Л:IT(14)│49:IT(15)│49:Бе200b;╛З"THE SAFE DIDN'T OPEN..":АH│1е750:ЛH:Бе200b^╚G$│ П(I$, З(I$)м4):G$│ О(G$,3)bЬ╥ЕIT(20)┤▓0 ░ R│14 ░ G$│ О(JT$(27),3) ░ IT(27)│м1 з Бе1140b╫▄ЕG$│ О(JT$(27),3) ░ R│14 ░ IT(27)│м1 з IT(20)│14:Бе200bсцБе590cЁG$│ П(I$, З(I$)м5):G$│ О(G$,3)cз·ЕIT(16)│0 ░ G$│ О(JT$(9),3) ░ IT(9)│м1 ░ IT(28)│м1 з З"THE OYSTER EATS THE ALGAE.":З"AND SOMETHING IN IT DISAPPEARS":АI│1е750:ЛI:IT(16)│2:IT(28)│0:J│Jм1:Бе200c▒Бе590c╘G$│ П(I$, З(I$)м7):G$│ О(G$,3)dAЕIT(17)│0 ░ G$│ О(JT$(16),3) ░ R│42 ░ IT(16)│м1 з A$(42)│"IN FRONT OF AN UNLOCKED DOOR.":IT(17)│42:Бе200dK"Бе590dn,G$│ П(I$, З(I$)м5):G$│ О(G$,3)d┌6ЕFG┤▓м1 ░ R┤▓10 ░ G$│ О("WATER",3) ░ IT(29)│м1 з З"YOU'RE ARE IN TROUBLE NOW..":АI│1е500:ЛI:FG│м1:Бе200eU@ЕFG┤▓м1 ░ UP┤▓м1 ░ IT(29)│м1 ░ G$│ О("WATER",3) ░ R│10 з UP│м1:FG│м1:З"THE FORCE FIELD IS DESTROYED":АI│1е500:ЛI:Бе200e_JБе590eВTG$│ П(I$, З(I$)м5):G$│ О(G$,3)e╔^ЕNF┤▓м1 ░ G$│ О(JT$(30),3) ░ IT(30)│м1 з З"NICE FIT..":NF│м1:Бе340e╙hБе590eЎrG$│ П(I$, З(I$)м6):G$│ О(G$,3)fH|ЕG$│ О("HERMIT",3) ░ R│2 ░ NF│м1 з З"YOU FEEL DIZZY FOR A MOMENT":PH│м1:Бе340fПЖЕG$│ О("HERMIT",3) ░ R│2 ░ NF┤▓м1 з З"YOU HAVE JUST DIED..":Бе1730fЩРБе590f╝ЪG$│ П(I$, З(I$)м5):G$│ О(G$,3)gдЕIT(31)┤▓м2 ░ G$│ О(JT$(31),3) ░ R│50 ░ PH│м1 з IT(31)│50:Бе220g>оЕG$│ О(JT$(31),3) ░ R│50 ░ PH┤▓м1 з YD│м1:IT(31)│50:Бе220gH╕Бе590gl┬Х:З"DO YOU WANT TO PLAY AGAIN?"gЬ╠A$│ Т:ЕA$│"Y" з Бе10 :Д ЕA$│"N" з К :Д 1740g┐╓G$│ П(I$, З(I$)м6):G$│ О(G$,3)h5рЕIT(18)│0 ░ G$│ О(JT$(32),3) ░ IT(32)│м1 з IT(18)│5:З"SOMETHING FALLS OUT..":З"THEN DISAPPEARS":АI│1е500:ЛI:Бе220h?ъБе590hbЇЙ"FILENAME";FI$:ЕFI$│"" з 1780i■Щ"O",м1,FI$:АX│1е35:З#м1,IT(X):ЛX:З#м1,IT$(2),J,R,MS,DS,OP,RM(24,3),RM(24,4),RM(25,3),A$(45),A$(42),LT,AA,FG,UP,NF,BU,PH,ZZ,AG,LO,IT$(33):Ъ:З"OK":ЕMS│100 з 1730 :Д 340i1Й"FILENAME";FI$:ЕFI$│"" з 1800i╟Щ"I",м1,FI$:АX│1е35:Й#м1,IT(X):ЛX:Й#м1,IT$(2),J,R,MS,DS,OP,RM(24,3),RM(24,4),RM(25,3),A$(45),A$(42),LT,AA,FG,UP,NF,BU,PH,ZZ,AG,LO,IT$(33):Ъ:Бе200iъG$│ П(I$, З(I$)м6):G$│ О(G$,3)jЖ&ЕIT(33)│м1 ░ LO│м1 ░ ZZ┤▓м1 ░ G$│ О("GUNFIGHTER",3) ░ R│21 з З"YOU KILLED THE GUNFIGHTER..":IT(30)│21:АI│1е1000:ЛI:ZZ│м1:IT$(33)│"EMPTY REVOLVER":Бе200jР0Бе590jЦ:Кj▄DЕ Д(10)│1 з З:З"THE GUNFIGHTER FILLED YOU FULL  OF LEAD..":Бе1730jцNБе340k2XЕR│50 з З"WITHOUT THE TOUCH, THE SIGHT OF LUTARN WILL KILL YOU..":Бе340ktbЕR│2 з З"TOUCH THE HERMIT ONLY WHILE THE GLOVE IS ON..":Бе340kйlЕR│20 з З"LUTARN LOVES TO HEAR HIS NAME..":Бе340k└vЗ"NOT NOW..":Бе340k АЕAG┤▓м1 ░ R│35 з З"THE GORILLA FALLS ASLEEP..":AG│м1:Бе340l'КЗ"YOU'RE A LITTLE OFF TUNE..":Бе340lJФG$│ П(I$, З(I$)м5):G$│ О(G$,3)l╛ЮЕLO┤▓м1 ░ G$│ О(JT$(33),3) ░ IT(33)│м1 ░ IT(34)│м1 з З"OK":LO│м1:IT$(33)│"LOADED REVOLVER":IT(34)│0:J│Jм1:Бе340l╚иБе5901 ░ R│35 з З"THE GORILLA FALLS ASLEEP..":AG│м1:Бе340                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
▌&

В"BIRD"&=В  <C> STEVE BLYN,COMPUTER ISLAND,N.Y. 1983&GХ1000&~(TM│ Д(м Я):В"THIS GETS A TRUE RANDOM FOR THE COCO"&К2A│ Д(5)&┌<В"RANDOMLY CHOOSE THE BIRD'S POSITION EACH TIME AND LOCATE THE COORDINATES"&ёFЕ A│2 з X│м8:Y│135'PЕ A│1 з X│30:Y│100'"ZЕ A│3 з X│Xл15:Y│Yм10'<dЕ A│4 з X│Xл60:Y│Yл30'XnЕ A│5 з X│Xл205:Y│Yл115'ГxБе 660:В"READ THE NUMBERS AND LETTERS"'ХВ╚ 3,1:╝5:┐1,1'ЬМ┴2'▒Ц┬(55,60),45,2,.6'╞а┬(55,60),46,2,.6'█к┬(55,60),47,2,.6'ь┤├(60,60),2,2(╛┬(7,120),40,2,2,.93,.10(%╚┬(99,120),40,2,2,.41,.59(>╥╗(36,163)м(68,163),╜(P▄├(55,160),2,2(hцВ"DRAWING THE BIRD"(Ё┴3:┬(10лX,160мY),5(У·┬(18лX,165мY),8(й
├(18лX,165мY),3,3(╩
╗(24лX,160мY)м(36лX,157мY),╜(▀
╗м(20лX,169мY),╜(Ї
"╗м(20лX,176мY),╜)
,┬(20лX,176мY),2)3
6АT│1 е5:╔"O5L200BCB;L250;G-;L100;C":ЛT)L
@╗(5,1)м(250,20),╜,BF)q
J╞ "C1A0S4BM20,16"лW$лH$лE$лR$лE$)Б
T╞ SP$лI$лS$)Ф
^╞ SP$лT$лH$лE$)▓
h╞ SP$лB$лI$лR$лD$лSP$лQQ$)я
rВ"PRINT THE WORDS**IN,OVER,UNDER,NEAR,FAR FROM THE TREE"*
|╞"C4BM130,40"лA1$лSP$лI$лN$*3
Ж╞"BM130,60"лA2$лSP$лO$лV$лE$лR$*Z
Р╞"BM130,80"лA3$лSP$лU$лN$лD$лE$лR$*
Ъ╞"BM130,100"лA4$лSP$лN$лE$лA$лR$*▒
д╞"BM120,120"лA5$лSP$лF$лA$лR$лSP$лF$лR$лO$лM$*╠
о╗(135,130)м(240,130),╜*ю
╕┴ 3:╗(106,163)м(125,147),╜,BF+
┬╞"BM145,140"лT$лH$лE$лSP$лT$лR$лE$лE$+#
╠JJ$│ Т+9
╓А T│ 1 е 200: Л T+Z
р┴2:╗(106,163)м(125,147),╜,BF+m
ъЕ JJ$│"" з 460+Е
ЇЕ JJ$│"1" з KK$│A1$+Э
■Е JJ$│"2" з KK$│A2$+╡Е JJ$│"3" з KK$│A3$+═Е JJ$│"4" з KK$│A4$+хЕ JJ$│"5" з KK$│A5$,&В"DRAW CHILD'S RESPONSE #",0╞ "C0BM112,159"лKK$,+:JJ│ Й(JJ$),CDЕ JJ┤1 ▒ JJ▓5 з 460,╚NЕ JJ$│"1" ░ A│1 з 600 :Д Е JJ$│"2" ░ A│2 з 600 :Д Е JJ$│"3" ░ A│3 з 600 :Д Е JJ$│"4" ░ A│4 з 600 :Д Е JJ$│"5" ░ A│5 з 600 :Д 620,ыXА T│1 е 5:╔"O4;L250;GEFBAG":ЛT,ёbО-lВ"WRONG RESPONSE ROUTINE"-$vА T│1е3:а10,4:ЛT-bА╞"C3A0S4BM140,170"лL$лO$лO$лK$лSP$:╞ A$лG$лA$лI$лN$:Бе460-ЫКВ"THE DIRECTIONS TO DRAW LETTERS AND NUMBERS NEEDED"-╡ФA$│"U8R8D4L8BR8D4BR4"-╓ЮB$│"U8R6F2D2L8BR8D2G2L6BR12"-ЁиD$│"U8R6F2D4G2L6BR12".▓E$│"U8R8BD4L8BD4R8BR4".%╝F$│"U8R8BD4L8BD4BR12".C╞G$│"U8R8BD4L4BR4D4L8BR12".`╨H$│"U8BR8D8BU4L8BD4BR12".|┌I$│"BU8R8BL4D8BL4R8BR4".ЧфK$│"U8BR8G4L4BR4F4BR4".люL$│"U8BD8R8BR4".└°M$│"U8F4E4D8BR4".╓N$│"U8F8U8BD8BR4".ьO$│"U8R8D8L8BR12"/P$│"U8R8D4L8BD4BR12"/ R$│"U8R8D4L8BR4F4BR4"/@*S$│"BU4U4R8BD4L8BR8D4L8BR12"/W4T$│"BU8R8BL4D8BR8"/n>U$│"U8BR8D8L8BR12"/ЙHV$│"BU8D4F4E4U4BD8BR4"/вRW$│"U8BR8D8H4G4BR12"/о\E0$│EO$/╦fQQ$│"BR1H1U1E1R3E2U1H2L5/шpA1$│"BR2R4L2U8G2BD6BR10"0zA2$│"BR1H1U1E1R5E2U1H2L4G2BD6BR1R7BR4"0?ДA3$│"BR1HBU6E1R6F1D2G1L4R4F1D2G1L6BR11"0bОA4$│"BU4U4BR4BD1D3R4L8R4D4BR8"0ЫШA5$│"BR1H1BU2U4E1R6F1BD2BL1L6G1BD4BR1R6E1U3H1BD5BR5"0╡вSP$│"BR12":В "SPACER"0╤мAQ$│"BENR3HER2U2":В "?"0▄╢Бе 1302BD6BR10"0zA2$│"BR1H1U1E1R5E2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                V╪╪╪O╜йОї╜╞Оъ╜╞ОЯh╜ЛР

И
R
Z=$a
#~
	4`О]'O5`~┤ЇG]'ЇьМЭгМШГ	#1СRxьММгМЖ/Н ьb%1 
ьН lгН e/┐ ├╪ ╕ОO╞жЕзеZ*∙ж!з%КАз!!╜│э9]&M.oД9ОXI1?*·Дэ
 ╩АчДoo9╜│ээН W
40
 │эН M5ЖI
[]'*╞9Б
'╞940 Фоф40 ЛoН ,гф$
lН #5 5пН■╬эН■╠Г'Г #2b╞95офМ%."oН■ю 0 EГ#2b╞9чН■╪5 oН■═М'	lН■├ ╞9оН■╗ЖA╦]/╦9зН■▒мН■g"╞	9]'0оН■ЫоМ&я!█пН■НцН■Л┴
'оН■оН■|пН■xпН■q 	mН■o'╞
93Н■]яН■YьН■гН■'оН■
оН■
60_940Н'
oН■FoН■C зН■<Н'Ж _зН■2509оН■оН■#м>$)0
пН■0aуН■
■eГ'Г
Г #╞ Й_9╞
940обД'0бД'0бД'2b╞
9Oц
+
Lц┴#2b╞9'_ ╞ 59НуН¤о
94уфуфуфуф2b9гН¤Т&_970пН¤KпН¤KпН¤DпН¤C╞
9оН¤:1Н¤:4 ╗
o5oͤl]'lͤe],0
 фпН¤9оН¤4 Ц
J5]'lН¤D]/0 шпН№ў92{mН¤2'dоН№ш oоН№с f╞жЕзхZ*∙╞жезЕZ*∙╞жхзеZ*∙mН№ '3гН№єуН№ё
 гН№чуН№х╞жЕзхZ*∙╞жезЕZ*∙╞жхзеZ*∙оН№Д0
пН№~оН№|0пН№v2e9оН№o0
мН№e$оН№^60ьН№ZГ
эН№QэН№QьН№GэН№G9оН№A1?мН№6#оН№060ьН№0├
эН№#эН№#ьН№эН№9ьН№гН№4ьН№гН№гф2b9Н
■Е1Н√√╞жЕзеZ*∙9ьН√чгН√с├
ОO№Чж
зКАз
4@╜┐ОO╜│э5@Г
уН√╝9mН√■'Н9 /mН√ю'
╠эН√ю¤Э]'
oН√цЖ зН√сб&
цН√╠'¤В]'я_mН√╟'
P92}oфmД&mд&_2c9mд&m
*╞  ё╞
 эm!*Ї Ўm
*m!*ъcф m!+цmД*mд*<цд─чaцД─сa..-0 mд+*цДчaцд ьь!Дэaь
Дгa.-ьг#.-_ У╞
 ╞ mф' ЗP Г40жН√7бН√2%[ЙбД$Л
 жДаН√ $
Oсд$╦
 цдрН√$
_4OцН√у
OцН·№у"mф'ma'jфjaжАба'ю"╞ 2b509╞
 ўma&ё_ Ё4@2{CоН·|4оф0
пфмН·r#2g5@9№Ї1;4■в5]*▐1Н·\╞жЕзеZ*∙mН·Н'4гН·уН·}
╞жЕз┼Z*∙50╞жЕзеZ*∙4mН·_'!гН·SуН·Q
 гН·GуН·E╞жЕзеZ*∙оН∙Є№}мф'оф01Н∙ы■%]+5 н51Н∙█╞жезЕZ*∙mН·' HгН∙■уН∙№
╞ж┼зЕZ*∙ 0 NjфjaжАба'ю"╞ 2b509╞
 ўma&ё_ Ё4@2{CоН·|4оф0
пфмН·r#2g5@9№Ї1;4■в5]*▐1Н·\╞жЕзеZ*∙mН·Н'4гН·уН·}
╞жЕз┼Z*∙50╞жЕзеZ*∙4mН·_'!гН·SуН·Q
 гН·G                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !&

Бе 8000&
╚1,1&╝&(МL$(15)&5(МWO$(13)&=2E│0&c<TRN│0:TRT│0:SCR│0:HIT│0:HT│0:TT│0&pFMM│ Д(6)&{PБж1910&ЖZБж2190&МdЮ&зnЕ PLY│1 з PLY│0:Бе 310&╛xАX│1е6:NAM(X)│0:ЛX&╓ВЗ@138,"COPYRIGHTED"&хЗЗ@206,"BY"'МЗ@265,"DAN DROUILLARD"'ЦЗ@333,"1982":А X│1е400:ЛX'ZаЮ:З@135,"HOW MANY PLAYERS ?":З@231,"UP TO SIX CAN PLAY"'eбNP$│ Т'{вЕ NP$│"" з Бе 161'КгNP│ Й(NP$)'ЯкЕ NP▓6 з Ю:Бе160(
╛Ю:З@136,"WHATS YOUR NAME":Бж 2640: АX│1е NP:З@195лSPC,"PLAYER N0." X;:Й NAM$(X):SPC│SPCл32:ЛX(╚Е NP│1з NS│6:Бе2400(2╥Е NP│0 з NP│1:Бе200 (J▄Е NP│2з NS│6:Бе2340(bцЕ NP│3з NS│6:Бе2300(zЁЕ NP│4з NS│4:Бе2370(Х·Е NP│5 з NS│5 :Бе 2370(н
Е NP│6з NS│6:Бе2370(╕
ZP$│ Т(╧
Е ZP$│ Л(13)зБе310(▌
"XM│ Д(13)(ч
,Бе270(∙
6Бж1280:Бж1530)z
@╞"BM156,192":╞"C8R6U5L6U5R8C5R4C8D10R2C5R6C8U10L4R10C5R4C8R6L6D5R4L4D5R8C5R8C8U10D2F8D2U10R2C5R4C8R6D10L6U10R6D10R2C5R4C8R2")е
JАX│1е6:LF(X)│0:WN(X)│0:MZ(X)│0:ЛX:ML│0)╝
T╞"BM8,192":Бж 1760)╔
YJ│ Д(10))э
^D│0:AN│0:AN$(1)│"":D$(1)│"":E│0)√
hTRN│TRNл1*
rА X│1 е6:MZ(X)│0:ЛX:ML│0*#
|АX│1е5*.
Ж╞ "C8"*:
Р╞WO$(X)*E
Ъ╞ "C5"*P
д╞ "R4"*X
оЛ X*В
╕АX│0е12:╗(236,192мX)м(252,192мX),╛:ЛX*Ф
┬Е NP│1з Бе470*Ю
╠Бе490*╡
╓Е MZ(MM)│1з Бе2910*╚
рЕ NP│1 з Бе500*у
ъMM│MMл1:Е MM▓NS з MM│1*ь
ЇPP│0*ў
■Бе2690+╞"BM240,192":╞N$(MM):а220,1+"AN$│ Т+0XM│ Д(13)+D&Е AN$│""з Бе530+O+а230,1+П0Е AN$│"M" з DR│0:АX│0е12:╗(68,192мX)м(136,192мX),╛:ЛX:Бе530+╘:Е AN$│ Л(13) з DR│0:АX│0е12:╗(68,192мX)м(136,192мX),╛:ЛX:Бе 630 ,DЕ DR▓2 з DR│0:АX│0е12:╗(68,192мX)м(136,192мX),╛:ЛX:Бе530,+NAN(2)│ Й(AN$):Бж 2020,AXAN$(1)│AN$(1)лAN$,SbAN│ Й(AN$(1)),]lБе530,ЛvЕ AN▓180 ▒ AN┤1 з AN$│"":AN$(1)│"":Бе 530,бА╞ "BM8,192":╞"C5",пКА X│1 е 5,┴Ф╞WO$(X):╞"R4",╚ЮЛX,╫и╞"BM4,192",ї▓╞"C8":╞WO$(6):╞"C5":╞"R8"-
╝АX│7е13-╞╞"C8"-╨╞WO$(X)-!┌╞"C5"-+ф╞"R4"-2юЛX-<°D$│ Т-NЕ D$│""зБе760-Yа250,1-ЦЕ D$│"M"зDR│0:АX│0е12:╗(92,192мX)м(140,192мX),╛:ЛX:Бе760-┌Е D$│ Л(13)з DR│0:А X│0е12:╗(92,192мX)м(140,192мX),╛:Л X:Бе850 .Е DR▓3з DR│0:А X│0е12:╗(92,192мX)м(140,192мX),╛:ЛX:Бе760./ AN(2)│ Й(D$):Бж2020.B*D$(1)│D$(1)лD$.T4D│ Й(D$(1))о3.^>Бе760.fHG│1.РRЕ D▓500 ▒ D┤1 з D$│"":D$(1)│"":Бе 760.ж\AN│ANо57.29577951.╞fH(1)│ Х(AN)нD:H(2)│ Х(AN)н3.цpV(1)│ Е(AN)нD:V(2)│ Е(AN)н3.°zV(1)│192мV(1)/ДV(1)│V(1)м(192мVS(MM))/#ОV(2)│V(2)мG/;ШH│MS(MM):V│VS(MM)м8/CвR│0/VмЕ V┤5 з Бе 960/k╢╗(H,V)м(H,Vм2),╛/~└Е V┤V(1) з R│1/У╩Е R│0 з V│VмV(2)/и╘Е R│1 з V│VлV(2)/╡▐H│HлH(2)/┴ЄSE│SEл1/▐№Е H│▓250 з Бж1130:Бе1110/∙Е H┤5 з Бж 1130:Бе11100Е V▓156 з Бж 1130:Бе11100)Е V┤1 з Бе 94002$┐1,10F8Е V┤5 з Бе 11000є=Е J│3зАX│1е4:╞"C8;BM32,44;E16F16L32":а150,5:J$│ Т:Е J$│" " з ╞"C5;BM32,44;E16F16L32":Бе 1110:Д ::╞"C5;BM32,44;E16F16L32":ЛX:V│Vл9:АI│1е4:H│(MS(MM)м2)лI:Бж1130:ЛI:Бе11101B╗(H,V)м(H,Vм2),╜1eLЕ  а(H,Vл2)│6 ▒  а(H,Vл2)│8 ▒  а(H,Vл1)│8 ▒  а(H,V)│8 ▒  а(H,Vм1)│8  з Бж 1130 :Д Бе 9401дV╞"BM4,192":╞"C5":╞ WO$(6):╞"R8":АX│7е13:╞ WO$(X):╞ "R4":ЛX1о`Бе3401║jБе 11401╓tЕ V┤5 з Бж6000: Бе 12701▀~TA│11ўИ╔"T2L70O1V30":╔"E-"2ТАX│1е22Ь┬(H,V),4,82ж╔"G"2+░├(H,Vл2),8,82:║┬(H,V),4,52F─╔  И(X)2U╬┬(H,V),2,52`╪╔ "F-"2gтЛX2qь╔"E-"2wЎР2РL$(1)│"R6D8L254U8R8"2╜
L$(2)│"E20R4E12R8F8R4F24"::ГL$=MOUNTAINS2┘L$(3)│"R16E4R12E4R36F8"2№L$(4)│"E16R20E12R12F8D4F8D4F4"37(L$(5)│"E8U12E4R8E4U28R4E4R8F4D20F4D16R8E8R4F4D4F4D8F4"3a2L$(6)│"E4R16E8U8E4R8F8D4R4F4R8F4R8F4"3В<L$(7)│"R8E8R12E8R12F12R16F4"3зFL$(8)│"E8U4E12R44F4D4R4F4D4F4D4"3╩PL$(9)│"R28E4R8E4U8E4R20F4D8F8"3ЎZL$(10)│"E16U4E4R4F4D8F8R16E4R4E4R8D4F8"4)dL$(11)│"U4E8R4E4U8E4U4E4U4E4U4E4R36F4D20F8D20"4enL$(12)│"R8U8E12U8R4E4U8R8D24R12E4U4R8D20R4E4U4R4F4D4F4"4кxL$(13)│"U4E4U8E4U8E4UE4R4F4D8F4D8F4R12E4U8E4U4E4R4F4D8F4DF8D4F4"4░В╝4┴М╞"BM248,152"4╦Ц╞"C6"4╓а╞L$(1)4▀кMT│04ї┤XM│ Д(13):MT│MTл15╛Е XM│0 ▒ XM │1 з XM│ Д(13):Бе14705(╚╞ L$(XM)5G╥Е MT│▓3 Бе 1500 :Д Бе 14605Y▄├(20,154),6,65bц┐1,15hЁР5t·АX│1еNS5ЖMS(X)│ Д(244)5ШMS(X)│MS(X)о25мMS(X)│ Б(MS(X))5╛"MS(X)│MS(X)н25ю,MS(X)│MS(X)о2:MS(X)│ Ш(MS(X)):MS(X)│MS(X)н266Е MS(X)┤10 з Бе 15406@АYY│1еNS6(JЕ YY│X з Бе16506NTЕ MS(X)│▓MS(YY) з MX│MS(X)мMS(YY)6s^Е MS(X)┤MS(YY) з MX│MS(YY)мMS(X)6ШhЕ MX┤20 з Бе 1540::ГSITE SPACING6аrЛYY6з|ЛX6│ЖАY│1еNS6╜РVS│706╔ЪVS│VSл17дЕ  а(MS(Y),VS)│6 з VS│VSм2:VS(Y)│VS: Бе 1710 :Д Бе 16907)оА X│1 е 8 :╜(MS(Y)м4лX,VS,8):ЛX7L╕А X│1 е 4:╜(MS(Y),VSм4лX,8):ЛX7Б┬╗(0,176)м(MS(Y),176),╛:╞"C5":╞"U2":╞"C8":╞ N$(Y)7М╟а245,17У╠ЛY7Щ╓Р7╢рWO$(1)│"U10R6D5L6R6D5R2"7╒ъWO$(2)│"U10D2F6D2U10D10R2"7∙ЇWO$(3)│"U10R6L6D10R6U5L2R2D5R2"8■WO$(4)│"U10D10R6R2"80WO$(5)│"U10R6L6D5R4L4D5R8"8PWO$(6)│"H4U6D6F4R2E4U6D6G4"8oWO$(7)│"U10R6L6D5R4L4D5R8"8Е&WO$(8)│"U10D10R8"8Я0WO$(9)│"U10R6D10L6R8"8║:WO$(10)│"U10R6L6D10R8"8╒DWO$(11)│"U10D10R2C5R4"8ЎNWO$(12)│"U10L4R8L4D10R2C5R8"9XWO$(13)│"U5L4U5D5R8U5R2"9bР9$lБж19109=vN$(1)│"C5R6C7U10D10"9`АN$(2)│"C5C7U2E6U2L6R6D2G6D2R6"9ВКN$(3)│"C5C7R6U5L2R2U5L6R6D10"9ЮФN$(4)│"C5R6C7U10D5L6U5"9╣ЮN$(5)│"C5C7R6U5L6U5R6"9╓иN$(6)│"C5C7U10D10R6U5L6"9ю▓N$(7)│"C5R6C7U10L6":╝N$(8)│"C5C7R6U5L6R6U5L6D10":*╞N$(9)│"C5R6C7U10L6D5R6":F╨N$(10)│"C5C7U10R6D10L6":L┌Р:XфDR│DRл1:rюЕ DR│1 з ╞"BM100,192":М°Е DR│2 з ╞"BM110,192":зЕ DR│3 з ╞ "BM120,192":┴Е DR│4 з ╞"BM130,192":┘Е AN(2)│0 з ╞N$(10):Ё Е AN(2)│1 з ╞N$(1);*Е AN(2)│2 з ╞N$(2);4Е AN(2)│3 з ╞N$(3);5>Е AN(2)│4 з ╞N$(4);LHЕ AN(2)│6 з ╞N$(6);cRЕ AN(2)│5 з ╞N$(5);z\Е AN(2)│7 з ╞N$(7);СfЕ AN(2)│8 з ╞N$(8);иpЕ AN(2)│9 з ╞N$(9);║zЕ DR│5 з DR│0;└ДР;╓ОNE$(1)│"R6U10D10";ЎШNE$(2)│"U2E6U2L6R6D2G6D2R6"<вNE$(3)│"R6U5L2R2U5L6R6D10"<.мNE$(4)│"R6U10D5L6U5"<F╢NE$(5)│"R6U5L6U5R6"<`└NE$(6)│"U10D10R6U5L6"<u╩NE$(7)│"R6U10L6"<Т╘NE$(8)│"R6U5L6R6U5L6D10"<к▐NE$(9)│"R6U106D5R6"<├шNE$(10)│"U10R6D10L6"<╔ЄР<√№Ю:З@131,NAM$(1);:З@136,"-YOU HAVE SITES# 1,4"=+	З@195,NAM$(2);:З@200,"-YOU HAVE SITES# 2,5"=Z	З@259,NAM$(3);:З@264,"-YOU HAVE SITES# 3,6=m	Бж 2640:Бе 270=б	$Ю:З@163,NAM$(1);:З@168,"-YOU HAVE SITES# 1,3,5"=╙	.З@259,NAM$(2);:З@264,"-YOU HAVE SITES# 2,4,6"=ц	8Бж 2640:Бе 270=Ё	BSPC│0>
	LЮ:А X│1 е NP>_	VЗ@131лSPC,NAM$(X):З@131лSPCл5,"-YOU HAVE SITE NO.-"X:SPC│SPCл32:ЛX:Бж2640:╗ Й CON$:Бе 310>┌	`Ю:З@103,"THE COMPUTER WILL":З@167,"SELECT A SITE FOR":З@231,"YOU TO FIRE FROM":З@295,"GO FOR HIGH SCORE!!":Бж2640:ЙCON?Ы	jЮ:З@37,"EACH MISSLE LAUNCHED":З@101,"COST YOU 5000 POINTS":З@166,"EACH SITE DESTROYED":З@228,"GIVES YOU 25,000 POINTS":З@292,"PERFECT SCORE IS 100,000 ":З@361,"GOOD LUCK!!":Бж2640:ЙX:Бе310?н	tЕ NP│3зБе2520?┐	~Е NP│2зБе2610?╠	ИАTX│1еNS?▌	ТML│MLлMZ(TX)?Ё	ЬЕ NP│1 зБе2480@	жЕ ML│NSм1з Бе2650@	░Е ML│NSм1з Бе2920@$	║ЛTX@-	─ML│0@3	╬Р@Q	╪Е MZ(1)лMZ(4)│2 з LF(1)│1@o	тЕ MZ(2)лMZ(5)│2 з LF(2)│1@Н	ьЕ MZ(3)лMZ(6)│2 з LF(3)│1@Ш	ЎАX│1е3@╣
Е LF(1)лLF(2)│2з WN│3:Бе2770@┌

Е LF(1)лLF(3)│2з WN│2:Бе2770@√
Е LF(2)лLF(3)│2з WN│1:Бе2770A
ЛXA
(Бе 2510A5
2Е MZ(1)лMZ(3)лMZ(5)│3з WN│2:Бе2770A\
<Е MZ(2)лMZ(4)лMZ(6)│3з WN│1:Бе2770Ag
FБе2510AН
PЗ@452,"PRESS ENTER TO CONTINUE":РAЩ
ZАX│1еNSAн
dЕ MZ(X)│0з WN│XA┤
nЛXA└
xБе 2770A╠
ВАY│1еNSA╒
МPP│0B
ЦАX│1е8:Е  а(MS(Y)м4лX,VS(Y))│8 з PP│PPл1:ЛXB5
аАX│1е8:Е  а(MS(Y),VS(Y)м4лX)│8 з PP│PPл1:ЛXBЕ
кЕ PP┤2 з MZ(Y)│1:Бж2420:╗(0,176)м(MS(Y),176),╛:╞"C5":╞"U2":╞ NE$(Y):Бж 3030BМ
┤ЛYBЧ
╛Бж2420B╣
╚Е MZ(MM)│1 з Бе 450 :Д Бе 520B■
╥Ю:З@195,NAM$(WN);:З@200,"-YOU WON!!":NAM(WN)│NAM(WN)л1:Бж2640:ЙXC
▄WN│0CE
цЮ:З@256,"DO YOU WANT TO SEE TOTAL SCORE              Y/N"CO
чX$│ ТCe
шЕ X$│"" з Бе 2791CЖ
щЕ X$│"Y"з  Бе2800 :Д Бе 2830CТ
ЁSPX│0:ЮCт
·АX│1еNP:З@131лSPX,NAM$(X);:З@130лSPXл6,"-YOU WON "NAM(X)" GAMES":SPX│SPXл32CєЛX:Бж2640:ЙXDЮ:З@353,"DO YOU WISH TO PLAY AGAIN Y/N"D*ED$│ ТDAЕ ED$│"" з Бе 2840DZ"Е ED$│"N" з Бе 2900 Dе,Ю:З@192,"DO YOU WANT TO CHANGE THE NAMES    OR NUMBER OF PLAYERS  Y/N"D░6ED$│ ТD╟7Е ED$│"" з Бе 2870Dу@Е ED$│"N" з PLY│1:Бе 50DьJБе50D№TЮ:З "BYE":КEQ^З" ":АX│1е8:а100,2:ЮX:З@195,"YOU JUST DESTROYED YOURSELF";:ЛX:АX│1е500:ЛX:Бе2920EohTRN│TRNм1:Е TRN│┤0з TRN│0ErTT│TRNн5000EЧ|ЕMZ(MM)│1з MZ(MM)│0EвЖАX│1е6E╝РЕ MZ(X)│1 з HIT│HITл1E├ЪЛXE╒дЕ HIT┤0зHIT│0EцоHT│HITн25000EЇ╕SCR│HTмTTF'┬Ю:З@163,NAM$(1);:З@168,"-YOUR SCORE IS ";:ЗSCRF<╠Бж2640:ЙX:Бе2830F_╓АX│1е8:╜(MS(Y)м4лX,VS(Y),5):ЛXFВрАX│1е4:╜(MS(Y),VS(Y)м4лX,5):ЛXFИъРFбp╔"T2L170O1V30":╔"E-"FпzА X│1 е 3F╛АV│1е30:ЛVF╟Д╔"G"F╙О╔  И(X)FтУАV│1е30:ЛVFьШ╔"F-"FєвЛXF¤м╔"E-"G╢РG@└2:Бе10YOUR SCORE IS ";:ЗSCRF<╠Бж2640:ЙX:Бе2830F_╓АX│1е8:╜(MS(Y)м4лX,VS(Y),5):ЛXFВрАX│1е4:╜(MS(Y),VS(Y)м4лX,5):ЛXFИъРFбp╔"T2L170O1V30":╔"E-"FпzА X│1 е 3F╛АV│1е30:ЛVF╟Д╔"G"F╙О╔  И(X)FтУАV│1е30:ЛVFьШ╔"F-"FєвЛXF¤м╔"E-"G                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 '=
Ю:З"THIS PROGRAM POKES THE ROUTINE  INTO HIGH MEMORY":ЗiЗ" DO YOU HAVE -":З,"1) 16K":З,"2) 32K"ВЙ " CHOOSE 1 OR 2";K╛(Е K│2 з Х 200,32544 :ST│32544 ::Д Х 200,16160 :ST│16160╥2А L│ST е STл191┌<Н DфFТ L,DьPЛ LPZЮ:З"THE ROUTINE IS NOW READY TO BE  SAVED TO TAPE. INSERT A BLANK   TAPE PRESS RECORD AND PLAY"УdЙ"WHEN READY ENTER THE NUMBER OF  TIMES YOU WISH TO SAVE IT";NбnА T│1 е N└sЗ"SAVING COPY";T"OUT OF";N▐xШM"REVFIELD",ST,STл191,STїВЯИ:А R│1 е 500:Л RМЛ T:Як:ЗAЦЗ"THE PROGRAM IS NOW SAVED WITH A STARTING LOCATION OF";SThаЗ"AND AN ENDING LOCATION OF"STл191ЖкЗ"THE EXEC ADDRESS IS";ST┤┤Ж 52, 54, 141, 26, 48, 141, 0, 40, 188, 1ф╛Ж 104, 39, 14, 16, 190, 1, 104, 191, 1, 104╚Ж 48, 141, 0, 61, 16, 175, 132, 53, 54, 57A╥Ж 16, 142, 2, 0, 142, 4, 0, 159, 136, 134q▄Ж 32, 167, 128, 49, 63, 38, 250, 57, 52, 52гцЖ 246, 1, 84, 193, 191, 39, 38, 158, 136, 129╤ЁЖ 8, 39, 41, 129, 13, 39, 87, 129, 64, 37¤·Ж 16, 129, 96, 37, 42, 140, 6, 0, 38, 2/
Ж 141, 47, 53, 52, 126, 17, 17, 167, 128, 159d
Ж 136, 134, 10, 32, 236, 174, 141, 255, 242, 191Ф
Ж 1, 104, 32, 227, 16, 142, 32, 32, 16, 175╟
"Ж 130, 159, 136, 134, 10, 32, 221, 128, 64, 16Ў
,Ж 142, 1, 1, 49, 63, 38, 252, 32, 214, 142&
6Ж 4, 0, 230, 136, 32, 231, 128, 140, 5, 224Y
@Ж 38, 246, 159, 136, 198, 32, 231, 128, 140, 6И
JЖ 0, 38, 249, 57, 150, 137, 129, 32, 37, 4║
TЖ 128, 32, 32, 248, 198, 32, 231, 128, 140, 6ч
^Ж 0, 38, 4, 141, 210, 32, 7, 76, 129, 32 
hЖ 38, 238, 159, 136, 53, 52, 198, 1, 134, 10 &
rЖ 32, 148
@Ж 38, 246, 159, 136, 198, 32, 231, 128, 140, 6И
JЖ 0, 38, 249, 57, 150, 137, 129, 32, 37, 4║
TЖ 128, 32, 32, 248, 198, 32, 231, 128, 140, 6ч
^Ж 0, 38, 4, 141, 210, 32, 7, 76, 129, 32 
hЖ 38, 238, 159, 136                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                └? 46Н0Н(╝
h'╛
h┐
h0Н=пД569ООЯИЖ зА1?&·944Ў
T┴┐'&ЮИБ')Б
'WБ@%Б`%*М&Н/54~зАЯИЖ
 ьоН Є┐
h уО  пВЯИЖ
 ▌А@О

1?&№ ╓ОцИ чАМр&ЎЯИ╞ чАМ&∙9ЦЙБ %А  °╞ чАМ&Н╥ LБ &юЯИ54╞
Ж
 Ф ? , 141, 210, 32, 7, 76, 129, 32 
hЖ 38, 238, 159, 136                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╠&e
Ю:З"BEFORE RUNNING THIS DEMO BE SUREYOU HAVE THE ROUTINE LOADED IN  MEMORY AT 16160 OR 32544":З&СЗ" DO YOU HAVE -":З,"1) 16K":З,"2) 32K"&кЙ " CHOOSE 1 OR 2";K&ц(Е K│2 з Х 200,32544 :ST│32544 ::Д Х 200,16160 :ST│16160&я2в ST'W<З"THIS ROUTINE CAN BE COMPLETELY  REMOVED FROM OPERATION ANY TIME YOU WISH BY PRESSING THE BREAK":З'ХFЙ"INPUT A NUMBER BETWEEN 0 AND 255FOR THE PRINT SPEED";SP'╘PЕ SP┤0 ▒ SP▓255 з З"***** SPEED OUT OF RANGE ******":Бе 70'фZТ STл121,SP(dЗ"***SPEED NOW SET ***":З(tnЗ"TO CLEAR THE SCREEN AT ANY TIME SIMPLY USE THE EXEC COMMAND IN  YOUR PROGRAM":Й"PRESS ENTER TO CONTINUE";A$(zxв(лВЗ"INPUT A SCREEN LOCATION BETWEEN 0 AND 479"(яМЙ"THIS WILL RESERVE A PROTECTED   WINDOW ABOVE THIS LOCATION";W)'ЦЕ W┤0 ▒ W▓479 з З"INVALID SCREEN LOCATION !":Бе 130)IаM│ Ш(Wо256) : L│WмMн256:M│Mл4)dкТ STл130,M :Т STл131,L)j┤Ф)┼╛:ГST = START OF THE ROUTINE       EITHER 16160 FOR 16K                   32544 FOR 32K)╦╚КD   WINDOW ABOVE THIS LOCATION";W)'ЦЕ W┤0 ▒ W▓4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 └&
:ГSAFECRACKER&:Г&2:ГBY:TED HASENSTAUB&@(:Г4/11/83&G2:Г&M<Ю&XFХ 600 &lPМ N$(10),A$(10)&ИZN$(0)│"R4U6L4D6BR9"::Г0&лdN$(1)│"BR1R4BL2U6G1BR6BD5"::Г1&╨nN$(2)│"BU5U1R4D2G4R4BR3"::Г2    &ЄxN$(3)│"R4U3NL2U3L4BR8BD6"::Г3'ВN$(4)│"BR4U6BL4D3R3BD3BR5"::Г4'6МN$(5)│"R4U3L4U3R4BR4BD6"::Г5'TЦN$(6)│"R4U3L4U3D6BR8"::Г6'tаN$(7)│"BR4U6L4D1BD5BR8"::Г7'ХкN$(8)│"U6R4D3NL3D3L3BR7"::Г8'╖┤N$(9)│"BR5U6L4D3R3BD3BR5"::Г9'╘╛A$(0)│"U8R8D8L8BR12"::ГO'№╚A$(1)│"BU4U4R8BD4L8BR8D4L8BR12"::ГS(╥A$(2)│"U8R8D4L8BR4F4BR4"::ГR(@▄A$(3)│"U8BR8G4L4BR4F4BR9" ::ГK(bцA$(4)│"U8R8BD4L8BD4R8BR4"::ГE(~ЁA$(5)│"U8F4E4D8BR4"::ГM(Ь·A$(6)│"U8R8BD8L8BR12"::ГC(╜
A$(7)│"U8R8D4L8BR8D4BR4"::ГA(╓
A$(8)│"BR10"::ГSPACE(ў
A$(9)│"U8R8BD4L8BD4BR12"::ГF)G
"SA$│A$(7)лA$(6)лA$(5)лA$(4)лA$(8)лA$(1)лA$(7)лA$(9)лA$(4)лA$(8)лA$(6)лA$(0))С
,XX$│A$(1)лA$(7)лA$(9)лA$(4)лA$(6)лA$(2)лA$(7)лA$(6)лA$(3)лA$(4)лA$(2))Ы
6Бж890)б
@Ю)╔
JD1│ Д(62)л1:D2│ Д(62)л1:D3│ Д(62)л1)╤
TG│0)▄
^╚4,1:╝)ь
hP│0:Q│0:R│0*U
r╞"S4;BM48,15;R122F24L122H24D130F6U8F12D8F6U130BD6BR6R110D110L110U110BL6D124R6U8R112D8H6U2D2F6R4U130"*p
|╞"BM184,64;R4D10L4U10"*М
Ж╞"BM184,126;R4D10L4U10"*а
Р┬(132,105),20,1*│
Ъ┬(132,105),9,1*┼
д┬(90,105),4,1*▐
о╞"BM88,108;D14R4U14"*ї
╕╞"S3;BM82,60;"лSA$*■
┬┐1,1+
╠X│ Н(0)л1:Е X│64 з X│63+G
╓Е  Ж(65280)│126 ▒  Ж(65280)│254 з Бе 670+W
рЕ B│X з 540+В
ъЕ B▓X з S│(BмX)о4 :Д Е B┤X з S│(XмB)о4+Р
ЇА C│1 е S+и
■а 255,1            +╣А D│1 е 10:Л+┴Л C+▐B│ Н(0)л1:Е  B│64 з B│63+ї&I│ Б(B):S$│ И(I)  ,
0Е  Й(S$)▓9 з Бе 620,:H│ В(I),5D╞"C5;S4;BM130,94"лN$(H),FNАV│1е 355:Л:,aX╞"C0 ;BM130, 94"лN$(H),lbБе 460,РlB1│ Й( О(S$,2)):B2│ Й( П(S$,1)),╩v╞"C5;S4;BM126, 94"лN$(B1)лN$(B2)                     ,▌АА V│1 е 355:Л , К╞"C0;BM126, 94"лN$(B1)лN$(B2)-
ФБе 460-Юа 200,8--иЕ P│0 з P│B:Бе 460-D▓Е Q│0 з Q│B:Бе 460-Z╝Е R│0 з R│B:G│Gл1-c╞┐0,0-i╨Ю-И┌З@71,"RESULTS OF TRY #";G -кфЕ P│D1 ░ Q│D2 ░R│D3 з Бе 1020-▒ю:Г..°Е P│D1 з З@133,"1RST #";P;" IS CORRECT" :Д Е P▓D1 з З@133,"1RST #";P;" IS TOO LARGE" :Д З@133,"1RST #";P;" IS TOO SMALL".кЕQ│D2 з З@197,"2ND  #";Q;" IS CORRECT" :Д Е Q▓D2 з З@197,"2ND  #";Q;" IS TOO LARGE" :Д З@197,"2ND  #";Q;" IS TOO SMALL"/-Е R│D3 з З@261,"3RD  #";R;" IS CORRECT" :Д Е R▓D3 з З@261,"3RD  #";R;" IS TOO LARGE" :Д З@261,"3RD  #";R;" IS TOO SMALL"      /aЕ G│AT з З@321,"THAT WAS YOUR LAST TRY ";NM$   /Т Е AT│G з З@386,"THE CORRECT COMBINATION WAS"/╢*Е AT│G з З@426,D1;D2;D3:Бе 1050/ю4Е G▓│1 з З@450,"YOU HAVE";(ATмG);"TRY(S) LEFT ";NM$0>З@484,"PRESS <C> KEY TO CONTINUE"0/HQ$│ Т:Е Q$│"" з Бе 84009RБе3500J\╚4,1:┐ 1,1:╝0·f╞"S4;BM48,15;R122F24L122H24D130F6U8F12D8F6U130BD6BR7R110F40D101L4U101R4BL5H40D101F40H40BU108BR10D10BD 99BL12L102U102BL6BD124R8U10R102D10R6U16BD16BL6H8BU22BR6H21U72BD72L78"1pБе8801z╚ 3,1:╝1*Д╞"BM20,100;"лXX$     1@О┬(180,100),55,2  1TШ┬(180,100),15,21wв╞"S8;C7;BM167,70;"лN$(3)лN$(7)1Ам┐1,11┬╢А Q│1 е 5:А W│1 е A:а 255,1:A│ Д(9)л4:Л W:А T│1 е 150:Л T:Л Q1╠└┐ 0,11щ╩З"ENTER YOUR FIRST NAME"1є╘Й NM$2▐З"ENTER NUMBER OF TRY(S) ";NM$2-шЙ AT:Е AT┤1 з AT│123ЄР2W№Ю:З@132,"CONGRATULATIONS ";NM$:2}З@195,"YOU HAVE SOLVED THE SAFES"2жЗ@258,"COMBINATION IN";G;"ATTEMPTS!"2┐А Q│1 е 4000:Л:Бе 601╠└┐ 0,11щ╩З"ENTER YOUR FIRST NAME"1є╘Й NM$2▐З"ENTER                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ┴╞─	
─╔┬┴┼╔╞├┼!┴#$┴&├┼)*+┴-./01┬3┬╟678╟╟┴─=─     ╟                                                                                                                                                                                            MENU    BAS MASTERMDBAS"■STNDGLASBAS■TRAILINGBAS&AUTODSNRBAS%ВRAINBUG BIN'LINES   BASjHOMRUN  BAS(ЦBSR ML  BAS CONGEN  BAS╛ENRAK   BAS,╠CHORDS  BASySALESREGBAS№BIRD    BAS2рQSORTTSTBASПQSORTDIRBAS╧QSORT MLBIN4`MISSILESBAS5ST FBALLBASДREVFIELDBAS9*REVFLDMLBIN:╩REV DEMOBAS;╧SAFECRKRBAS<├SPOOLER BINвDIRSAV  BASф