╦ ╩@НY║
&╩  XНM'
\цЕчdО^oЖ Н,L&жbН%бa&	┴&s
 mc'▄vГW&╠X"od2d5Ц╖ ╢ КА} +К@9Ж╖ ╢ CД@9▌vЖ ╞О
RзАZ&√9^_
[	]  0

\@0&№9462~o╞Пчфoa1ИO_эИэИжфЛБ&ЖЯзфНvoa■╒&
ja+ўЖНg сБ& ъ4ЖНX5Б
'AБ'Б'!Б'/цИ\'╝заlИН9 │mИ'о1?jИН+ еmИ' Ю1?jИЖН юЖ зЖ
заН
ьИ├
эИ2b5╢4ЮИБ'Б
'&Б'BБ %MM+Б@-Б`-Д▀И@зА М'5Ж`зВ 
Ж`зА┼&ЎЯИМ%ОьИ эБМр%Ў О╠``ЯИэБМ %∙ ╢ CH'¤Ў'Б&¤э'√ ї5ЦьdД
├▌И94╞4Ў "─
&∙PН_Н_DYНja&ўН5жфБ
&ЮЧН
5Ц╞
Xў  ЮХ4■Я5■Ъ94&НUж'Б & mИ&ёжБ '
Ж1И¤l&сН6m&ЖкзИ5ж461И╠эИ╞0жАзаZ&∙╞oаZ&√оb╠  эИ'_
5╢4Н&Н:╢НO_эИm&	mИ*Ж з5Ж╢ !Дў╖ !п94"╢ !К╖ !О1?&№P5в4oИНIН/"Н%%jИжИБа' ъН"шН%шlИжИА`&╪зИ5ЖБН БН!╓Б┴"┴
9oИ9БmИ&	Н%№Н$№9Н$№Н%№9БЎ  V9ЖзИНFjИ&°9Н╨╓Б┴94&2~1ИOНюFБ<&∙Н┘зИН╘зИoИзфлИзamф'Н┴залaзajф&ЇН╡аa'Ж■з2b5ж4&чИ "╠UР4Н4jф&·2aЖ<Н*_жИН$жИНM'1ИжаНjИ&ўШНЖUН■сoИ5ж4&ыфчa1Н[4 1Н34 ╞
жИ╖  офхd&жа╖  мb#Ў 
жб╖  мb%ЎжазИX$╒2d5жВТк║╩┌ъЄ···Єъ┌╩║кТzjRB2"

"2BRjоdмb'oдоbоdцд4ыДча5O1лцА'жАзаZ&∙оф2dnДo°оdlдцдO1лжcзд ч4оfоdцасА#ц]'	жабА&	Z Їж°б°52dnДоdoаmg'цiоjO0Лс°
"жАзаl°\jg&я9оhцДOгf-)├
гd,эdгd'4ьg0Льe1Л5цачАJ&∙ц°гdч°92~оhцg'сд#цд\O0лпфца0лы°
ч?1лмф#жВзв ЎоjцА'
офжАзаZ&∙2b92~ojokоfцдO1лпфоf1!пfоhцА'lkмф"жАба&хZ&Є2b9ok ∙4@юfоhоdж└бА&1?&Ў5@52fnД56
CS├
2ы44@3d
жаз└0
&°5└4@юfоhоdж└зА1?&° ╚mf*lcO_гfэfmh*jcO_гhэh9oтoтНсoтжfцh=эфжeцh=ыфчфжfцg=ыфчфmb'O_гфэфьфоc2inДoтoтmf*lфНи4ОO_hiihYIгf%гfli0&э5эdжр'O_гcэcжр'O_гdэd946oтM*lфO_гaэaЖ цf'14зАZ&√оb╠
4&НЫжa*
@Л0зВ╠
эфjd'ьb&шme'Ж-зВ2e2a5╢цgоdчАьhоfНй9оhоdьfXIXIуf├
DVZчажgН
946oтM'цДTTTTНцА─НJ'цф╚ чф&ч╞ ча с2a569╩0┴9/╦ча9ofogоdжАoтзт'@жАБ &jф&Ў 4Б-&ja А0+Б	"зтьiXIэiXIXIуiырЙэhжАjф&▐ma'O_гhэh2b9ьН5э°уbэН,52dnДьН"э°9ьdэН9@ГdгН#*╠  O_эd9 N ьb&шme'Ж-зВ2e2a5╢цgоdчАьhоfНй9оhоdьfXIXIуf├
DVZчажgН
946oтM'цДTTTTНцА─НJ'цф╚ чф&ч╞ ча с2a569╩0┴9/╦ча9ofogоdжАoтзт'@жАБ &jф&Ў 4Б-&ja А0+Б	"зтьiXIэiXIXIуiырЙэhжАjф&▐ma'O_гhэh2b9ьН5э°                                                                                                                                                                                                                                                                ,"(120) HAND OFF"/ИЖ "(122) DECISION","(124) MESSAGE","(125) TAPEMENU","(125) KEY BEEP","(126) ECHO","(126) DIRECTRY","(127) SAVINFOR"/▀Ж "(158) ROBOT","(158)*RBT22SRC","(168) H&SPELL","(183) TAPE DOC","(203) BASICPAL"/щ.Ж END,"(109) HOGSPACE"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ─э╠ш4о─ьгф.
O_эь├
э ш2bо─ьИцГ
эИцьИц4O_гс&├
 Г B'Г F&&о─ьИт4цёO4ьИьдрфрэИцьИц4ьИьгс&▌ъГ H'Г L&@╠
о─э╠ш4о─ьгф.
O_эь├
э ш2bо─ьИцГ
эИцьИц4O_гс&├ЪГ I'Г M&Ко─ьИт4╠4ьbгс2bэИюьИьэь4╠усэ4∙▀2bо─ьИр4ьус4ьёэИтьИр4ьус4╠ус4цёOэИььИт4ьИьчёо─ьИю4цёO4ьдрфрэИцьИц4ьгс&▀ьИт4O_чёо─ьИт4O_чёь4╠усэьИт4O_гс&¤Ь¤e2\5└4@3dо─0Ш4о─4╦2d╠
]'чо─0Ш4═о─0Ш4НENTER LINE NUMBER TO EDIT >O_4┤2bо─0Ш4о─04╠4
9
Уо─ь4O_гс&2\5└о─ь4╠4н52b4O_гс&7о─0Й■└4Н:-3Н
O_46о─4°Щ2bо─0Ш4,о─4їp2b-о─0Ш4Н      INVALID LINE NUMBERO_4	
є 2\5└4@3dо─0Ш4о─4─2d╠
]'
Xо─0Ш4
╞о─0Ш4НENTER LINE NUMBER TO DELETE >O_4
л2bо─0Ш4о─04╠40Ко─ь4O_гс&2\5└о─ь4╠4д52b4O_гс&╙о─ьИр4ьИр4ьё4╠4ьbгс2bэё0Й■└4Н:-3Н
O_4
о─4ўu2bо─ьИр4ьус4ьИр4ьус4╠ус4ьёэёьИр4ьус4╠ус4ьИр4ьус4╠ус4цёOчёьИр4ьус4╠ус4ьИр4ьус4╠ус4ьёэёь4╠усэьИр4ьус4ьё4O_гс& i■а2\5└4@3dо─ьИр4ьёэ0Ш4о─4
C2d╠Aо─чИ▐о─цИ▐O4╠Xгс/4єГ2bо─ьИр4ьэёь4╠усэ ╧2\5└4@3d2~о─0Ш4о─4Ё2dо─ьИр4ьёэьИр4ь4╠усэё0Ш4со─0Ш4НENTER LINE TO INSERT >O_4═2bо─0Ш40Z4╠4
T
оьZ4о─ьгс,2\5└ьZ4╠4╩52b4O_гс&ло─ьИр4ьус4ьИр4ьус4╠4ьbгс2b4ьёэёьИр4ьус4╠ус4ьИр4ьус4╠4ьbгс2b4цёOчёьИр4ьус4╠ус4ьИр4ьус4╠4ьbгс2b4ьёэёь4╠4ьbгс2bэь4ьZгс& \4Є2b2\5└4@3d2щ■─0╪44@Э2d╠Ц4╠
чё╠Aч╚▐╠║4ьё4╠
усэ╚р0╪4Н	POINTER=O_4
Мь╚р4╠4
,
i0╪4
a0╔■└4Н:-3Н
O_4B╠эR╠
]'Є0╪44@2d0╪4Н        ROBOTICS PROGRAMO_4

0╪4
0╪4Н    A - APPEND MACRO LINESO_4	ъ	╘0╪4Н    D - DELETE MACRO LINEO_4	┐	й0╪4Н    E - EDIT MACRO LINEO_4	Ц	А0╪4Н    I - INSERT MACRO LINESO_4	j	T0╪4Н    L - LIST ROBOT MACROO_4	@	*0╪4Н    P - PRINT ROBOT MACROO_4	 0╪4Н    Q - QUIT TO BASICO_4ю╪0╪4Н    R - RUN ROBOT MACROO_4┼п0╪4Н    T - TEST ROBOT MACROO_4ЫЕ0╪4Н    W - WRITE ROBOT MACROO_4pZ0╪4R0╪4Н        ENTER CHOICE >O_4@2b0╪40╚▐4ї'ц╚▐OГA&
4@√Ц2b╢ГD&
4@·2bдГE&
4@°є2bТГI&
4@√║2bАГL'ГP&
4@ї2bfГQ&2\5└WГR'ГT&
4@їы2b=ГW&
4@ЇI2b+0╪4Н         INVALID SELECTIONO_4d2b¤2\5└0Н┐

0Н"┐

9	В	Е @	Ж
N9}	В'╛	Гпj	В;} *} }	Е'z	Е&╢	ЖД0╖	Ж╖ @;46ЖА 46Жа╞4	Еж
1Н
"жжК(цИ┴-КЎ	Ж╖	Ж╖ @┼&
О№∙╙&ЯО	~ж
цжў IсИ'цИў KчжЖ╖ HИИл&yЕ&u┴жИ╖ J1Н_┐	Г0ИО} H╢	ЖКА╖	Жцфs	ВPў HИИ┴А&╞ї H&1?&ў !Ў KчА╖ @ Ў╞ї H&1?&ў 
цАў K╖ @ Ў	ВпНK 	п╢ HД|'#оdЖ■зja'О	~ж
oжЖ╖ HНН4Е' Ж■оdзЖx╖	Е2b5╢О1?'╢ HЕ
&ї9Ж╨╖ HИИ} HЖА9О".1?&№9
@4oтЖзИЖзИ■▓m&#Жзф1ИЖи'1и jф&ЇlИжИБ-┌Ж¤з2a5Цж-зИь.эИж+з ь4НжИзИЛцЖчИН5Ж4ЖзИЖзИ■S5В4жИGзИжИБ"-lИД
'Ж	зИЛ	зИжИБC#ДлИзИ5Ж4m&:lИжИбИ/жИБC"*НО ц■╠
эИOэИжИБC#жИбИ&ьИэИ'5ЖЖ з °Н
m&Н6 {94 ж'Б¤&#o ж-4oд¤╖ L51ИжеoеjеЙM*ї¤б5Ж46НZm&1ЖзИЖзИ¤Дm& ╞1Ижд'L'1и Z&єlИжИБ-▌Ж¤з5╢╞0жАзаZ&∙оb15жз+ч,жИз-o.o/¤C5╢4&■╘oтЖ 1ИН1' lфлфН)'lфlфlфафJ*щЖ√з2a5жцИзезИ╞╔чИчж¤ шцж\'К
цж\94&■Кoт1ИжИБ ,Н"'╠Н Н'─Н'└ ╢4цж\'LБC/Ў5Ж2a5Д4Н╝'ЎА*°5Ж4m&lИ№кm&O_эИжИбИ- Я■<5Ж4&m&#lИ№ЕжИ■m&1ИА	.Л	К└цИзе№hж¤Ъm&з+_J&
Zч,ьИэ.№N5жНSoИж
*L'	L+Ж№з з ¤d╛ЖкзИьИ'4
E2dоф2jnдж
*L&и 
■#m'oИ ▐оj1Й
пБ╞1НДжазАZ&∙оfоjьdэИ0
ца'
┴#╞жазАZ&∙оhоjЖзтжазт'NжаБ 'Б:'Б/&Ж
зa 
цa┴
,зЕlajф&▐ *жфJ'%ца┴+'┴-'O J'Шца└0+
┴.	Б-&
Pоlч
2b9           
╠оdцэf9Ж
зgоdц
!'ч9m&og9ogоdц
'ч9ьИгИ-m&	├жЛБ
&lg9оdoжИБ╠'Ж№з9oИж
*■XL&mИ'╞
к╞ е9оd╜&'Ж№зоИ'o4 1Й
пД
-&заьфГ
эф&Ё2b95 2q40Б&<
&7Б 'ўБ
'єБ,'я1doацd┴'заldЁ&Б 'Б
'Б,&хьИГ
эИO5Р502onдоfНп&A46	r2d52oоbМ
'э° ч°52dnДоdН&Я&з°░50nД4ьИ&54жц
┴¤'цИ┴к'Ж№з5ЖоbН▄&Нk&Б
&°{50nДоdоbьИ'эу0Й
жАзаьфГ
эф&є2bоd4■ь2d50nДоfоdoаНЦ&Н%&Б
'ц°сc$ёзаl° ъьИГ
эИН52dnД4Н&ьИ├
эИ├жЛзф_5Жж
L+ьИгИ-m&ж
*L'
h_9√+ т ▌4@3bO_гB*2ыьBA4ьDнAоFO_46Н/2^5@Tоf0dЖ
зДьb46Н52dnДоb0Н
O_46Н56nД

оfоdжацc'р?$жc_M'	Н&1!J&ў]'1Н
Н&Z Є52dnД 4vц
\+7жИБ╠'Ж№з 9m&7ьИ3И3╦ждз─\чИ'm
*┴ &╞
Z √╤ жд\') лOO55роdоbьИ'эу0Й
жазАьфГ
эф&є2bоd42d50nДоdm&Ж№зьИ'o1Й
пД f&1!Г
&Ї9оdО╠
46■є5ЖоdцOэf9оfьdч946M'0цАса&J&ў5╢42|oc▄vГ
▌v&╠7─О
ROJзфзbжbI$АзblфСзaиДдДцaчА\'хlcM'р╞°╦D$√0Н▒ыф'0┴/0Н]┴ /$0Н7┴0,Нj┴+/И@M& т& d:Г     ROBOT BASIC PROGRAM&>╚:Г     BY DENNIS H. WEIDE&R
,:Г     (C) 1986&Y
Р:Г&`
Ї:Г&|XТ&HFF43,137:Т&HFF47,137&и╝Т&HFF40,0:Т&HFF41,0:Т&HFF44,0:Т&HFF45,0&╗ А X│1 е 1000:Л&фДЮ:З:Зд3)"ACTIVATE ROBOT CONTROL NOW"&√ш└4:╝:Х200,19999:ЧM'
LЮ'"░З:З:Зд7)"ROBOT PROGRAM MENU"'(З'JxЗд5)"1. ACCESS ROBOT PROGRAM"'g▄Зд5)"2. LOAD ROBOT FILE"'Д@Зд5)"3. SAVE ROBOT FILE"'ддЗд5)"4. CLEAR ROBOT MEMORY"'┼Зд5)"5. END PROGRAM SESSION"'ьlЗ:Й"  ENTER ONE OF THE ABOVE >";OA(╨Е OA┤1 ▒ OA▓5 з а 100,10:Бе1100(54И OA Бж 2300,2400,2700,3100,3200(AШБе 1100(I№в:Р(c	`Ю:З:З:Й"FILENAME>";P$(m	─ЧM P$(s
(Р(Н
МЮ:З:З:Й"FILENAME>";P$(▒
ЁЗ:Й"PREPARE CASSETTE TO SAVE";L(╦TШM P$,1536,7679,20000(╤╕Р(┘╝:Р(сАЮ:КVE >";OA(╨Е OA┤1 ▒ OA▓5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "-N 4P5ОА■╞ ї " ╖ ▀О ■0Й жДCзДбД&єяД▄r4О
ьГ4М
"ўяНz0НNЯrуп0Н!▀пО
oт0&·0фЖ¤з
Ж╠зИ43~4@NP╚2щ
"О
5эБМ
%ў5▌r5╖ ▐п5 О
BюНМь%╖ ▀5эБМ
%ў5Яr$╖ ▐nД
Ё4@3dо─0Ш4Н
INSTRUCTION >O_4ж2bо─0Ш4о─0И▐4WЙо─цИ▐OГH&╠э{ГF&	O_о─эjГR&
╠
о─эXГU&
╠	о─эFГW&
╠о─э4ГX&2\5└%о─0Ш4НINSTRUCTION ERRORO_4ьо─цИ▐O4╠Hгс'<0Ш4НDEVICE NUMBER> O_4╧2bо─0Ш4о─0Ит4╠4SнO_о─эИьо─ьИт4╠	гс/╠ @эИюо─ьИт4╠гс,╠ DэИюо─ьИтГ
'Г	&╠
о─эИь║Г'Г
&╠о─эИьЯГ'Г&╠о─эИьДГ'Г&╠о─эИьiГ'Г
&╠о─эИьNГ'Г&╠ о─эИь3Г'Г&╠@о─эИьГ'Г&╠Ао─эИьо─цИ▐O4╠U_мс/
\O4цИ▀O4╠U_мс'
\дрфр]'g0Ш4Н
DURATION> O_4W2bо─0Ш4о─0Иц4╠4█5о─ьИц4╠? гс,0Ш4НDURATION ERRORO_42bO_о─эИцо─цИ▐чИ▀ьИр4ьус4ьИю4ьусэёьИр4ьус4╠ус4ьИьчёьИр4ьус4╠ус4ьИцэё2\5└4@3d2шпо─ьИр4ьус4ьёэьИр4ьус4╠ус4цёOэИъьИр4ьус4╠ус4ьёэИшO_эь4╠ Bгс,╠эо─ь4╠ Iгс&O_эо─ьГ @'Г D&0╚л4НFORWARDИ2bСГ A'Г E&0╚л4НREVERSEa2bjГ B'Г F&0╚л4НWAIT=2bFГ H'Г L&0╚л4НHALT2b"Г I'Г M&0╚л4НUNTILЇ2bо─ьИъГ&╠CS├
эИфХГ
&╠
о─эИфВГ&╠о─эИфoГ&╠о─эИф\Г&╠о─эИфIГ&╠о─эИф6Г &╠о─эИф#Г@&╠о─эИфГА&╠о─эИфо─ьИф4ьусэИфь4O_гс&0╚л4НEND2bO_о─эИфO_эИшо─0Й■└4о─ь4╠44Н  O_4{0╚л4╠4nо─ьИф4╠4о─ьИш4╠4¤:2\5└4@3dо─0Ш4о─42dо─0Ш4╠Aо─чИ▐╠э0Ш4Н
	POINTER =O_4о─ьИр4╠4дсо─цИ▐O4╠Xгс/4·2bо─ьИр4ьэёь4╠усэ ╧2\5└4@3dо─0Ш4о─4Д2dо─цИ▐OГP&0Й■└4Н:-2Н
O_4k ГL&о─0Й■└4Н:-3Н
O_4H╠о─э╠
э0Ш4=о─4№Ч2bо─ь4╠усэь4O_гс&▀0Ш4о─0Й■└4Н:-3Н
O_4єо─0Ш4Н   PRESS <ENTER> TO CONTINUEO_4т2b╠б╦4O_Ш5 4@нд5@ЙOо─эь4O_гс'▌2\5└4@3dо─0Ш4о─4~2d╠
]'У╠о─э╠
э╠╨4о─ьгф.O_эИьь├
э ч2bо─цИ▐O4╠Tгс&#╠б╦4O_Ш5 4@нд5@ЙOо─эь4O_гс'▌╠ 4цёOо─эьГ}'Г~'Г¤'Г■&2\5└о─ьИр4ьус4ьёэИтьИр4ьус4╠ус4цёOэИььИр4ьус4╠ус4ьёэИц4√2bо─ьИтГ @'Г A'Г D'Г E&Lо─ьИт4ьИьчё╠
о 
u&
Й"INPUT START ADDRESS";S&-АI│S еSл76&9НA:ТI,A&?(Л&F2вS&udЖ 182,255,35,132,243,183,255,35,182,255,34&бnЖ 138,2,183,255,34,182,255,35,138,4,183&╠xЖ 255,35,190,1,107,175,141,0,38,49,141&єВЖ 0,4,16,191,1,107,52,6,198,10,134' МЖ 2,186,255,34,183,255,34,141,18,134,253'LЦЖ 180,255,34,183,255,34,141,8,90,38,233'tаЖ 53,6,126,0,0,134,100,74,38,253,57бnЖ 138,2,183,255,34,182,255,35,138,4,183&╠xЖ 255,35,190,1,107,175,141,0,38,49,141&єВЖ 0,4,16,191,1,107,52,6,198,10,134' МЖ 2,186                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Ў&:Г         ECHO&0
:Г SENDS SCREEN OUTPUT&B:Г TO PRINTER&d:Г BY JOHN STEWART,  MAY 1986&y(АX│&H200 е &H241&В2Н A$&Ц<Т X, Й("&H"лA$)&ЮFЛ X&нP╣ Г0│&H200&╝Z╣ Г1│&H219'>dЮ:З"TO SEND OUTPUT TO PRINTER TYPE  A=USR0(0) AND PRESS ENTER":З:З"TO STOP OUTPUT TO PRINTER TYPE  A=USR1(0) AND PRESS ENTER"'їnЖ A6,8D,0,3D,26,12,6C,8D,0,37,BE,1,68,AF,8D,0,2E,30,8D,0,10,BF,1,68,39,AE,8D,0,22,BF,1,68,6F,8D,0,1D,39,34,2,96,6F,26,E,86,FE,97,6F,35,2,34,2,AD,9F,A0,2,F,6F,35,2,6E,9D,0,0,0,0,0 ENTER"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╫&%
:Г*****************************&@:Г        SILENT RADIO&V:Г             BY&q:Г        RUTH  GOLIAS&У:Г 2826 PACIFIC COAST HIGHWAY&│:Г   TORRANCE, CALIF. 90505&╩:Г            1986&ю:Г*****************************&ї	:Г'*
Ю0:З@170,"silent";:З@176, Л(128);:З@177,"radio";':З@239,"by";'zЗ@298,"ruth";:З@302, Л(128);:З@302, Л(128);:З@304,"golias";'Ъ(А B│0 е 31:З@B, Л(111);:Л B'└2А B│31 е 479 й32:З@B, Л(111);:Л B'х<А B│0 е 448 й32:З@B, Л(111);:Л B(	FА B│1504 е 1535:Т B,15:Л B:┐0,1(PА D│1 е 3000:Л D(%ZЮ0(`dА B│163 е 190 й 2:З@B, Л(180);:Л B  :ГTOP OF RADIO-RED(ЭnА B│227 е 253 й 2:З@B, Л(177);:Л B :ГBOTTOM OF RADIO-RED(╦xЗ@195, Л(181);   :ГLEFT SIDE OF RADIO-RED(·ВЗ@221, Л(181);   :ГRIGHT SIDE OF RADIO-RED)5МА B│291 е 317:З@B, Л(220);:Л B  :ГTOP COUNTER ROW-BLUE)sЦА B│322 е 350:З@B, Л(220);:Л B  :ГMIDDLE COUNTER ROW-BLUE)▒аА B│353 е 383:З@B, Л(220);:Л B  :ГBOTTOM COUNTER ROW-BLUE)юкА B│385 е 479 й 8:З@B, Л(218);:Л B  :ГCOUNTER POSTS-BLUE*2┤А B│415 е 479 й 32:З@B, Л(213);:Л B   :ГRIGHT COUNTER POST-BLUE*d╛А B│1505 е 1535 й2:Т B,169:Л B   :ГFLOOR-BLUE*Х╚А B│1506 е 1534 й2:Т B,185:Л B   :ГFLOOR-RED*∙╥З@106, Л(191);:З@107,"silent";:З@113, Л(191);:З@114, Л(191);:З@114,"radio";:З@119, Л(191);:┐0,1+╙:Г WALKING LETTERS+K▄A$│" FASTEN YOUR SEAT BELT           IT'S THE LAW    "+UцS│300+gЁА B│196 е 220+y·А X│1 е S:Л X+Г
B│Bл1+Х
Е B│220 з 240+л
З@B, О(A$,221мB);+├
"З@197, П(A$,Bм197);+╠
,┐0,1+╓
6Бе250114,"radio";:З@119, Л(191);:┐0,1+╙:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
1&
В*TAPE MENU&*В BY J.E.RITTENHOUSE&0Ю&<М P$(6)&J
А X│1 е 6&SН P$&eЕ  М(P) з 250&tЗ X;"-";P$&|Л X&Ь(Ж PROGRAM NAME,PROGRAM NAME&╝2Ж PROGRAM NAME,PROGRAM NAME&▄<Ж PROGRAM NAME,PROGRAM NAME&ц·З:З:З'
З"ENTER THE NUMBER OF THE"''
Й"PROGRAM YOU WISH TO USE";A$'0
Ч A$М P$(6)&J
А X│1 е 6&SН P$&eЕ  М(P) з 250&tЗ X;"-";P$&|Л X&Ь(Ж PROGRAM NAME,PROGRAM NAME&╝2Ж PROGRAM NAME,PROGRAM NAME&▄<Ж PROGRAM NAME,PROGRAM NAME&ц·З:З:З'
З"ENTER THE NUMBER O                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Б&
Х 1000,15871:МI(15)&9АC│15872 е 15916:НD:ТC,D:ЛC&╥Ж 16,142,0,31,142,4,96,230,128,166,132,167,31,48,1,49,63,38,246,231,31,48,136,31,16,142,0,31,230,132,48,31,166,132,167,1,48,31,49,63,38,246,231,1,57'(╣ Г0│15872:Т15877,4:Т15878,0:U│4:V│0:W│0:SC│2500:Q│0: Я│0:Ю(0)'T2АX│0е14:Y│ Д(31):P│(Xн32)лY:I(X)│Y:З@P," ";:ЛX:З@I(0),".";'}<A│ Г0(0):I(W)│I(W)м1:ЕI(W)┤0зI(W)│31'еFI(Wл1)│I(Wл1)л1:ЕI(Wл1)▓31зI(Wл1)│0'┐PA$│ Т:ЕA$┤▓""з90 :Д60(ZQ│Qл1:X│(2нI(W)):Y│(2н(Wл1)):Е С(X,Y)│м1 з 120 :Д Е X┤│0 з 60 :Д Е  С(Xм1,Y)│м1 з 120(BdЕ X▓│62 з 60 :Д Е  С(Xл2,Y)│м1 з 120(LnБе 60(uxV│Vл32:ЕV▓224 з V│0:U│Uл1:ЕU▓5 з 120(МВТ 15877,U:Т15878,V(╥МO│Wн32лI(W):З@O," ";:W│Wл1:O│Wн32лI(W):З@O,".";:ЕW│14 з 150 :Д 60)ЦI(W)│I(W)м1:ЕI(W)┤0 з 160 :Д A│ Г0(0):Бе150))аSC│SCм Я:SC│SCм(8нQ):ЕSC▓TS зTS│SC)eкЗ@483,"SCORE = ";SC;" TOP = ";TS;:A$│ Т:ЕA$│""з180 :Д40)А┤A$│ Т:ЕA$│""з180 :Д 40:Т15878,V(╥МO│Wн32лI(W):З@O," ";:W│Wл1:O│Wн32лI(W):З@O,".";:ЕW│14 з 150 :Д 60)ЦI(W)│I(W)м1:ЕI(W)┤0 з 160 :Д A│ Г0(0):Бе                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Й&$
:Г****************************&G:Г*     MICRO-DECISION       *&j:Г*  COPYRIGHT  (C) 1984 BY  *&Н:Г* ROBERT ROGERS & RTR*SOFT *&░:Г*  VERSION 1.0  JUNE 1984  *&╙:Г* FOR 4K COLOR BASIC COCOS *&Ў:Г****************************'
Х10000:Ю'(МA$(21),B(21),P(21),P$(21),T(21)'╝2Ю:Зд9)"MICRO DECISION":З"ENTER THE ALTERNATIVES THAT ARE UNDER CONSIDERATION. <ENTER>    WILL TERMINATE ENTRY OF ITEMS.":З б(32,143л32);:а200,1'─<C│0'╬FC│Cл1(PЗ"ALTERNATIVE"C;:ЙA$(C):ЕA$(C)│""зC│Cм1:Бе100(Zа225,1:Бе70(▒dЮ:Z│0:АT│1е C:Z│Zл1:ЗA$(T):ЕZ▓12 ▒ T│C зЙ"INCORRECT ITEM ";Z$:ЕZ$│""зZ│0:Ю:Бе110::ДЙ"CORRECTED: ";ZZ$:АY│1еC:ЕZ$│A$(Y)зA$(Y)│ZZ$:Z│0:Ю:Бе100::ДЛY:а1,3:Бе100(╕nЛT(▄ВЮ:З"     TESTING OF PREFERENCES(чЦАI│2еC(ЇаАJ│1еIм1)┤З"WHICH ALTERNATIVE DO YOU PREFER:")3╛З б(32, Л(143л96)))I╚З@192,"<1> "A$(I))V╥Зд5)"OR")g▄З"<2> "A$(J))ЭцЗ:Й"TYPE CHOICE:";W:ЕW┤▓1░W┤▓2зЮ:Бе180::Да200,1:Ю)▓ЁЕW│1зT(I)│T(I)л1)╟·ЕW│2зT(J)│T(J)л1)╨
ЛJ,I)ъ
АN│1еC:T(N)│T(N)л1:ЛN)ї
"АF│1еC*

,L│0:V│0*
6АN│1еC*%
@ЕT(N)▓V з L│N:V│T(N)*,
JЛN*D
TP(F)│L:H(P(F))│T(L)*O
^T(L)│0*V
hЛF*Я
rЮ:З"HERE ARE THE ALTRNATIVES RANKED ON THE BASIS OF YOUR CHOICES..."*┤
|З б(32,143л112);*╬
ЖЗ"RANK    ALTERNATIVE*ч
РF│0:R│0:АN│1еC:F│Fл1+
ЪЕF│12 ░ C▓12 зЗ"<ENTER> TO CONTINUE":в44539:F│0+H
дЕH(P(N))│H(P(Nм1))зЗR;"TIE";::ДR│Rл1:ЗR;+Z
йЗд9);A$(P(N))+a
оЛN+В
╕З"<ENTER> WHEN READY":в44539+И
┬О OF YOUR CHOICES..."*┤
|З б(32,143л112);*╬
ЖЗ"RANK    ALTERNATIVE*ч
РF│0:R│0:АN│1еC:F│Fл1+
ЪЕF│12 ░ C▓12 зЗ"<EN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
6&
:ГDISKDIR2-RAINBOW 7/83&$:Г&H:ГTHIS PROGRAM IS USED TO CHECK&d:ГALL SECTORS ON A DISK&З:ГIF IT ENDS WITH AN I/O ERROR&л:ГTHE LAST TRACK/SECTOR DISPLAY&┴:ГIS NOT READABLE&╚:Г&Є
└ 1:Х 8000:DR│0  :ГDR IS DRIVE NUMBER'А T│ 0 е 34:Ю:А S│1 е 18'5З T,S:▀ DR,T,S,A$,B$:Л S,T:Х 2000IS USED TO CHECK&d:ГALL SECTORS ON A DISK&З:ГIF IT ENDS WITH AN I/O ERROR&л:ГTHE LAST TRACK/SECTOR DISPLAY&┴:ГIS NOT READABLE&╚:Г&Є
└ 1:Х 8000:DR│0  :ГDR IS DRIVE NUMBER'А T│ 0 е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╘& В COPYRIGHT (C) CLOAD 1982&5В COCO-COOCOO by&HВ PHIL BEISTEL&^В 1439 ARNOLD ST.&rВ PGH,PA. 15220&А
В COO-COO'cЮ:З" THE 'CO-CO' COO-COO":З:З" A REAL-TIME 24 HOUR CLOCK THAT":З" RUNS ALONG WITH YOUR BASIC AND  EVEN SOME MACHINE LANGUAGE      PROGRAMS. THE ONLY THING THAT   WILL STOP THE CLOCK IS THE I/O  PROCESS. ONCE SET THE CLOCK"(З" WILL KEEP RUNNING TILL THE      MACHINE IS POWERED OFF. WHEN    YOU PRESS ANY KEY THE PROGRAM   WILL BE MOVED TO THE CORRECT    LOCATION. THIS TAKES A FEW      SECONDS."(E
З@480,"(PRESS ANY KEY TO MOVE CLOCK)";:I$│ Т(\I$│ Т:Е I$│"" з 14(ИЗ@480," RELOCATING CLOCK. STANDBY!!  ";(аQ│ Ж(39)н256л Ж(40)(п(Х200,Qм356(╟-Q│ Ж(39)н256л Ж(40)(▀2E│ Ж(27)н256л Ж(28)(ъ<E│Eм13(ЎFB│Eм359)PW│Qл356)ZАT│ E е B й м1)#dТ W, Ж(T))-nW│Wм1)4xЛT)?Вв Qл23)PМХ200,Qл158:Ю)VЦЦAЕX  WHAT TIME IS IT?
 HHMM
╛

пН
/╜й(Q0И┌╜╣Ь╜б┴'√╖зНl╜б┴'√╖зНa╜б┴'√╖зНV╜б┴'√╖зНKЖ:╖Q0╜╣Ь╜б┴'√БY'* з IS THE TIME CORRECT AS SET?
 (Y OR N)
Q0
┐

900004оМ∙0&ОпМя╢Б:'
Ж:╖ пМ▐АЖ ╖xжМ╠╖жМ╟╖жМ┬╖жМ╜╖жМ│LБ;'зМл SЖзМджМеLБ:'зМЭ AЖ0зМЦжМТLБ6'

пН
/╜й(Q0И┌╜╣Ь╜б┴'√╖зНl╜б┴'√╖зНa╜б┴'√╖зНV╜б┴'√╖зНKЖ:╖Q0╜╣Ь╜б┴'√БY'* з IS THE TIME CORRECT AS SET?
 (Y OR N)
Q0
┐

900004оМ∙0&ОпМя╢Б:'
Ж:╖ пМ▐АЖ ╖xжМ╠╖жМ╟╖жМ┬╖жМ╜╖жМ│LБ;'зМл SЖзМджМеLБ:'зМЭ AЖ0зМЦжМТLБ6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
&
:Г****************&.:Г A DISK UTILITY&D:Г FOR THE COCO-3&Z:Г MIKE JORGENSON&q:Г****************&x#:Г&Е(└1:Х3500&а-М FL$(68),XF(68),V(68)&п2Ю:И Ё Бе75&└7у 9,0:у 10,2&═<т 40:┌ И&хAV$│"ON":A$│"0":Бе75&■FАX│1е DF:FL$(X)│"":Л'KБж325:° 2,0'_PЗ"C= COPY  D= DRIV  K= KILL  L= LOAD":З"   N= NAME  S= SCAN  Q= QUIT  V= "V$'sUQ$│ Т:ЕQ$│""з85'╡ZQ│ Ю("CDKLNSQV",Q$)л1:И Q Бе85,105,210,240,565,290,480,610,95'с_ЕV$│"ON"зV$│"OFF":┌к:Бе100 :ДV$│"ON":┌И'Ёdё 3,Y:Бе80(iЕ DF┤1з100 :ДБж440(<nБж370:° 2,0:З"COPY ALL OR SINGLE FILE:  <A/S> ?"(fsQ$│ Т:ЕQ$│"A"з165 :ДЕQ$│"S"з120 :Д115(│xё 3,Y:╗Й"ENTER THE FILE NUMBER TO COPY ?  ";C$:C│ Й(C$):Е C▓DF ▒ C┤1з100(╚}° 3,0:Е A│B з140)ВЗ:З"   COPYING:  "FL$(C)" TO "B$:▐""лFL$(C)л":"лA$е""лFL$(C)л":"лB$)!За100,6:Бе160)JМЮ:З:З"   COPYING:  "FL$(C):З:З"   ";)`С▐""лFL$(C)л":"лA$)oЦЗ:З:а100,6)ЯЫ╗Й"   INSERT SOURCE DISK, THEN <ENTER> ";Q$)┤аБж370:° 2,0:Бе80)уеё 3,Y:З"COPY ALL, ARE YOU SURE:  <Y/N> ? ")°кQ$│ Т:ЕQ$│""з170*
пЕ Q$┤▓"Y"з100*┤° 3,0:Е A│B з190*Ж╣Y│Yл2:АX│1е DF:ё 3,Y:З"COPYING:  "FL$(X)" TO "B$:▐""лFL$(X)л":"лA$е""лFL$(X)л":"лB$:Л:а100,6:Бе160*Х╛Ю:АX│1е DF*┌├З:З:а100,6:╗Й"   INSERT SOURCE DISK, THEN <ENTER> ";Q$:З:З"   ";*Ё╚▐""лFL$(X)л":"лA$*№═Л:Бе150+╥Бж470:ё 3,6+@╫З"CHANGE WORKING DRIVE TO:  ";:° 2,0:З"<0-3> ?"+U▄A$│ Т:ЕA$│""з220+lсA│ Й(A$):Е A▓3з220+}цЕ A┤1зA$│"0"+Кы╧ A:Бе70+бЁЕ DF┤1з100 :ДБж370+╨ї° 2,0:З"KILL ALL OR SINGLE FILE:  <A/S> ?"+··Q$│ Т:ЕQ$│"A"з270 :ДЕQ$│"S"з255 :Д250,G ё 3,Y:╗Й"ENTER THE FILE NUMBER TO KILL ?  ";K$:K│ Й(K$):Е K▓DF ▒ K┤1з100,S
З:° 3,0,Т
	З"   KILLING:  "FL$(K):╥""лFL$(K):Е DF▓1з а100,6:Бе70 :Д70,┴
ё 3,Y:З"KILL ALL, ARE YOU SURE:  <Y/N> ? ",╓
Q$│ Т:ЕQ$│""з275,ш
Е Q$┤▓"Y"з100--
° 3,0:Y│Yл2:АK│1е DF:ё 3,Y:З"KILLING:  "FL$(K):╥""лFL$(K):Л:Бе70-D
"Е DF┤1з100 :ДБж370-С
'° 2,0:╗Й"ENTER A FILE NUMBER TO RENAME ?  ";N$:N│ Й(N$):Е N▓DF ▒ N┤1з100-б
,Бж470:ё 3,6-╠
1З"RENAME:  "FL$(N)" - TO WHAT ?":° 2,0.
6З:З"   <INCLUDE EXT>:  ";:° 3,0:╗Й N$:L│ З(N$):Е L▓12 ▒ L┤1з160.%
;╓""лFL$(N)е""лN$.5
@а100,6:Бе70.G
EFR│ г(A):DF│0.Z
J▀ A,17,2,X$,Y$.о
OАX│3е9:▀ A,17,X,Y$,Z$:АK│1е128 й32:Бж340:ЛK:Y$│Z$:АK│1е128 й32:Бж340:ЛK,X:Бе370.ё
TSB$│ Р(Y$,K,14):L$│ О(SB$,1):ЕL$│ Л(0)зР :ДЕL$│ Л(255)зY│128:Р/
YЕ  К(SB$)▓127зР/V
^DF│DFл1:XF(DF)│0:V(DF)│0:Y│ К( П(SB$,1))л1:FL$(DF)│ О(SB$,8)л"/"л Р(SB$,9,3)/r
cXF(DF)│ К( Р(SB$,12,1))/и
hV(DF)│V(DF)л1:Z│ К( Р(X$,Y,1)):Е Z┤78зY│Zл1:Бе360/о
mР/├
rБж470:Е DF▓0з3800
wё 3,6:З"NO FILES PRESENT IN DISK DIRECTORY!":а100,6:Y│11:ё 3,Y:Р0"
|T│0:Е DF┤22зY│4 :ДY│30M
БАX│1е DF:Е T│0 ░ Y│17зY│Yм1:АK│1е6:З:Л0p
ЖЕ T│0зT│1:Y│Yл1:Z│1 :ДT│0:Z│200А
Л° 2,0:ё Z,Y0м
РЕ X┤10зЗX;" ";:° 3,0:ЗFL$(X);V(X):Бе4150║
ХЗX;:° 3,00╦
ЪЗFL$(X);V(X)0ю
ЯЛ:° 2,0:Е T│0зY│Yл1:Z│5 :ДZ│241
дё Z,Y:З"Free =";1
й° 2,0,B:З FR1.
оЕ DF┤22зY│Yл3 :ДY│Yл21:
│ё 3,Y:Р1g
╕Бж470:ё 3,6:З"THE SOURCE DRIVE IS: ";A:З1Ь
╜З"   DESTINATION DRIVE:  ";:° 2,0:З"<ENTER=0> ?"1▒
┬B$│ Т:ЕB$│""з4501╚
╟B│ Й(B$):Е B▓3з4501┘
╠Е B┤1зB$│"0"1▀
╤Р1є
╓Ю:ё 7,1:° 1,0,B2
█З"<<<  COCO-3 DISK UTIL  >>>":° 3,0:Р21
рЮ:ё 7,1:° 1,0,B2}
хЗ"<<<  COCO-3 DISK SCAN  >>>":ё 3,6:° 3,0:З"SCANNING DISK ON DRIVE: ";A2▓
ъ° 2,0:ё 3,9:Й"START AT WHICH TRACK:  <0-34> ";SX2┬
яЕ SX▓34з4902є
Їё 3,11:Й"START AT WHICH SECTOR:  <1-18> ";SK3

∙Е SK┤1 ▒ SK▓18з5003
■А X│SX е 343*А K│SK е 183<▀ A,X,K,Y$,Z$3J
° 3,0:З:З3ZЗ"   "Y$;Z$3h° 2,0:З:З3vЗ"  ";X,K3З!Л K:SK│1:Л X3Ъ&° 3,0,B:а100,63╩+З:З:╗Й"   PRESS <ENTER> WHEN READY ... ";Q$3▀0Бж370:° 2,0:Бе803Ў5Е DF┤1з100 :ДБж3704A:° 2,0:╗Й"ENTER A FILE NUMBER TO LOAD ?  ";L$:L│ Й(L$):Е L▓DF ▒ L┤1з1004M?° 3,0:З4hDЗ"   LOADING:  "FL$(L)4}IАX│1е1000:Л:т 324РNЕ XF(L)│2 з6004дS╙ FL$(L)л":"лA$4╣X╙M FL$(L)л":"лA$4╩]Т &HFF40,0:в4┘b└4:Ю:° 3,04уgу Ў:К4¤l:Г*** END PROGRAM ***З:Зд8)"E)XIT AUTOCOPY*п°З:Зд6)"OR RUN AUTOCOPY ON:"*╞З:Зд10)"N)EW DISK"*╓З:Зд14)"OR"*ёЗ:Зд8)"O)RIGINAL DISK"+ З@485,"YO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          Xл1,1)│F$/)─З@36л(DYн16),I$(DY);:Бе 1100/F╨:ГGet image into I$(0-7)/З┌А X│0 е 7:A│ Ж(CAлX):I$(X)│"":Е A│255 з I$(X)│ б(8,E$):Л X:Р/ЪфА Y│7 е 0 й м1/╧юЕ (A ░ 2пY)│0 з I$(X)│I$(X)лF$ :Д I$(X)│I$(X)лE$/я°Л Y:З@36л(Xн16),I$(X):Л X:Р/Ў╖:Г0
╕:Гset character0╣:Г08┬┴ 0,1:А X│0 е 7:З@36л(Xн16),I$(X);0N╠A│0:А Y│7 е 0 йм10r╓Е  Р(I$(X),8мY,1)┤▓F$ з A│Aл2пY0ОрЛ Y:Т CAлX,A:Л X:Бе 500 е 0 й м1/╧юЕ (A ░ 2пY)│0 з I$(X)│I$(X)лF$ :Д I$(X)│I$(X)лE$/я°Л Y:З@36л(Xн16),I$(X):Л X:Р/Ў╖:Г0
╕:Гse                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                b╬Ж~О▓╖
О┐
ПО`жДCcДбД&cА є0Й ┐<╬Ж`ОЯИзАМ%∙_╜йЭОП╜ё╜∙	Е	Ж @нЯаОPЯ~нЯа
|&я
Б&ы╜▐ОаЯИОс╜ёОP╞жА╜чZ&°ОЇ╜ёОЗ╢XБ#ЖHоЖ╜ёО=╜$&ИО` }Z'4╜▐нЯа5Я~нЯа╞

Б&ёЦ|Б 'J&ц╝<%╥╞ ~▓┐>╜▐╢XБ&/}Z&*0
┐>№[эГoВoВЖ зВжзВМe"ў№]эГ№>ГjэГoВ}X&╛>0┐>жзВМc"ў№>ГcэГЖ зВО ЯИОS╜ёОh╜ё╜∙╛X┐	W╢	ZЧыО	LЖ зАМ	W%∙О@╞ \mЕ&√╬v4@oт╬{~mЖO╞
╬╜mО`Ж
ЧoжА4нЯа5╝>%ё╬Г╜mОy╜ёО─╜$'■zqnЯ ■4╬Г╜mН"цф╬┘о┴с─'m└&Ў╜ё5ОЩ┴
'╚┴ '─~?╢ !Дў╖ !94oнЯа5ЦжА'ёНЁ °О@НBБ
&oД сБ&М@'эoВН╘ чБ %уМO'▐зАН┼ ╪╜ёНБN&О8Н┐К 9БY&юО3Н│O94жЯИЛКПзЯИОА0'энЯаM'їО╗Б' :╞`чЯИ5Ф4╢└Д
H3╞5n╘╚д╔R─h─Н╩;╩щ№( TAPE TO DISK FILE TRANSFER
 ==========================

READY TAPE & HIT ENTER? THE FILE IS NAMED 
IT IS A BASIC PROGRAMA DATA FILEAN M.L. PROGRAMIN NON STANDARD FORM
TRANSFER THIS FILE? THE LOAD IS COMPLETE
DISK FILENAME? 
THE FILE TRANSFER IS COMPLETE

THE PROCEDURE HAS BEEN CANCELLED<BREAK>
START PROGRAM ANEW? ш8°<> )DISK SPACE FULLDISK IS WRITE PROTECTEDBAD FILENAMEBUFFER FULLI/O ERRORYES
NO
 
DISK FILENAME? 
THE FILE TRANSFER IS COMPLETE

THE PROCEDURE HAS BEEN CANCELLED<BREAK>
START PROGRAM ANEW? ш8°<> )DISK SPACE FULLDIS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                5,31,63,127,129,126,126,129,24,231,231,24AktЖ 203,102,60,153,217,189,102,203,187,17,187,255,238,68,238,255Aн~Ж 109,182,219,109,182,219,109,182,51,51,204,204,51,51,204,204AяИЖ 204,204,51,51,204,204,51,51,119,255,221,255,119,255,221,255B.ТЖ 159,47,15,159,249,242,240,249,7,119,119,96,6,238,238,224BiЬЖ 217,217,217,24,255,24,24,217,170,0,170,0,170,0,170,0BзжЖ 153,85,102,85,153,85,102,85,0,127,96,96,103,103,103,103Bь░Ж 219,245,110,220,185,115,39,143,255,129,189,189,189,189,129,255C&║Ж 1,1,1,1,1,1,1,255,0,127,127,127,127,127,127,127,9998,224BiЬЖ 217,217,217,24,255,24,24,217,170,0,170,0,170,0,170,0BзжЖ 153,85,102,85,153,85,102,85,0,127,96,96,103,103,103,103Bь░Ж 219,245,110,220,185,115,39,143,255,129,189,189,189,189,129,255C&║Ж 1,1,1,1,1,1,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
П&bЗ Л(27);" ";:Т&HFFDE,0:Х200,&H34FF:╙M"COLRTEXT":в:М X,A,Y,A$,I$(7):╣ ╠C(A)│&H3880л((Aм32)н8)&ТJP$│ Л(13)л Л(8)л Л(9)л Л(10)л Л(94)л Л(12)&м	F$│ Л(254):E$│ Л(255)&╝
╚ 4,1:┐ 1,1&╘╚ 3,1:┴ 0,1:Ю:┴ 2,0'*З "* Color text -                  ";:┴ 3,0:З "  * Character Define Module     ";'4(╚ 4,1'J2З@128,"Select..."'V<П:X│0:З'СFН A$:Е A$┤▓"." з X│Xл1:З д7); П( И(X),1);") ";A$:Бе 70(PЖ Design characters,Save character set,Save as loader,Load character set,Exit (also CLEAR),Warm boot,Cold boot,Directory,.(JdA$│ Т:Е A$│ Л(12) з A│5 :Д A│ Й(A$):Е A┤1 ▒ A▓X з 100(ЖiЕ A│6 з З  Л(27);:в &HA027 :Д Е A│7 з Т &H71,0:в &HA027(лkЕ A┤▓8 з 110 :Д ┴ 0,1:Ю:┐ 1,0:╬:(├lЕ  Т│"" з 108 :Д 10(┘nЕ A│5 з ┴ 0,1:Ю:К)xЕ A│2 з Бж 200:╪M NM$,&H3880,&H3FFF,&H3500)7ВЕ A│3 з Бж 200:╪M NM$,&H3500,&H3FFF,&H3500)WМЕ A│4 з Бж 200:╙M NM$:Бе 10)bЦБе 500)i╟:Г)К╚:Гget and verify a file name)С╥:Г)╢▄З@480,"";:╗Й "FILE NAME =->";NM$)╘сЕ NM$│"" з а 200,1:Бе 220*	цЕ  Ю(NM$,"/")│0 ░  Ю(NM$,".")│0 з NM$│NM$л"/BIN"*\ЁА X│1 е  З(NM$):A│ К( Р(NM$,X,1)):Е A▓96 ░ A┤123 з  Р(NM$,X,1)│ Л(Aм32):A│Aм32*f·Л X:Р*m
Ї:Г*Ж
■:Гselect a character*Н:Г*┴╚ 4,1:┐ 1,1:┴ 0,1:Ю:З "Select a character...":З*▌А X│32 е 255:З  Л(X);:Л+K0З@416,"By moving the cursor with the   arrow keys, and then pressing   ENTER. (Press CLEAR to return)  ";+eXЗ@CXл(CYл2)н32, Л(6);+}bA$│ Т:Е A$│"" з 610+ЧlЗ@CXл(CYл2)н32, Л(6);+│{А Y│341 е 344:Т Y,255:Л+╨АX│ Ю(JP$,A$):Е X│0 з 600+єКИ X Бе 1000,660,670,680,690,10,ФCX│CXм1:Е CX┤0 з CX│31,ЩБе 600,4ЮCX│CXл1:Е CX│32 з CX│0,?гБе 600,YиCY│CYл1:Е CY▓6 з CY│0,dнБе 600,~▓CY│CYм1:Е CY┤0 з CY│6,Й╖Бе 600,Рш:Г,░щ:Гdefine/modify a character,╖ъ:Г,╘ЄC│32лCXл(CYн32):CA│╠C(C),я№╚ 0,1:┐ 1,1:┴ 0,1:Ю236-	З "  * DEFINER *   ";-0З@32,"";:Бж 2000 :Гget image to I$-[$┴ 1,0:А X│0 е 7:З@36л(Xн16),I$(X);:Л X-i.DX│0:DY│0-бLЗ@36л(DYн16)лDX, Л(6);:A$│ Т:З@36л(DYн16)лDX, Л(6);-╡QЕ A$│" " з 1200-╚VЕ A$│"" з 1100-цjX│ Ю(JP$,A$):Е X│0 з 1100.tИ X Бе 3000,1150,1160,1170,1180,500.(~DX│DXм1:Е DX┤0 з DX│7.4ГБе 1100.NИDX│DXл1:Е DX│8 з DX│0.ZНБе 1100.tТDY│DYл1:Е DY│8 з DY│0.АЧБе 1100.ЪЬDY│DYм1:Е DY┤0 з DY│7.жбБе 1100.╛░:Гreverse character/║Е  Р(I$(DY),DXл1,1)│F$ з  Р(I$(DY),DXл1,1)│E$ :Д  Р(I$(DY),D3,239,255,255,255,255,255,255,255,131,243,131,179,131,255,255/Б
оЖ 63,191,191,131,179,131,255,255,255,131,179,191,179,131,255,255/╟
╕Ж 241,243,243,131,179,129,255,255,255,131,179,131,191,131,255,2550
┬Ж 15,191,143,191,191,191,127,255,255,131,179,131,243,243,131,2550Q
╠Ж 63,191,191,131,179,179,255,255,207,255,207,207,207,207,255,2550У
╓Ж 243,255,227,243,243,51,3,255,63,191,179,143,179,179,255,2550┘
рЖ 207,239,239,239,239,199,255,255,255,147,171,171,187,179,255,2551
ъЖ 255,7,179,179,179,179,255,255,255,131,179,179,179,131,255,2551a
ЇЖ 255,3,179,131,191,191,191,255,255,129,177,131,243,243,243,2551е
■Ж 255,3,187,191,191,191,255,255,255,131,191,131,251,131,255,2551ыЖ 239,239,131,239,239,239,255,255,255,179,179,179,179,131,255,25521Ж 255,179,179,179,199,239,255,255,255,179,179,187,171,147,255,2552wЖ 255,179,179,199,179,179,255,255,255,179,179,131,243,243,131,2552╜&Ж 255,131,243,231,207,131,255,255,231,207,207,207,191,207,207,20730Ж 239,239,239,255,239,239,239,255,63,159,159,159,239,159,159,1593G:Ж 191,87,239,255,255,255,255,255,255,255,255,255,255,255,255,2553qDЖ 0,0,0,0,0,0,0,0,0,0,0,0,15,15,15,153зNЖ 0,0,0,0,240,240,240,240,0,0,0,0,255,255,255,2553┘XЖ 15,15,15,15,0,0,0,0,15,15,15,15,15,15,15,154bЖ 15,15,15,15,240,240,240,240,15,15,15,15,255,255,255,2554QlЖ 240,240,240,240,0,0,0,0,240,240,240,240,15,15,15,154ЧvЖ 240,240,240,240,240,240,240,240,240,240,240,240,255,255,255,2554╤АЖ 255,255,255,255,0,0,0,0,255,255,255,255,15,15,15,155КЖ 255,255,255,255,240,240,240,240,255,255,255,255,255,255,255,2555[ФЖ 153,153,255,255,126,129,255,255,153,153,255,255,0,255,255,2555ЯЮЖ 153,153,255,255,255,129,126,255,255,251,253,0,253,251,255,2555уиЖ 255,223,191,0,191,223,255,255,239,199,171,239,239,239,239,2396!▓Ж 239,239,239,239,239,171,199,239,7,17,18,18,17,135,207,36g╝Ж 195,231,195,133,133,133,133,195,255,199,143,143,143,199,255,2556з╞Ж 255,231,103,1,0,231,231,255,239,199,131,1,131,199,239,2556у╨Ж 199,199,1,1,1,239,239,239,239,199,131,1,1,131,239,2397#┌Ж 187,1,1,1,131,199,239,255,255,255,255,255,255,255,255,2557gфЖ 254,253,251,199,155,139,131,199,255,255,195,129,0,129,195,2557зюЖ 126,189,219,231,231,219,189,126,0,127,127,127,127,127,0,07с°Ж 0,255,255,255,255,255,0,0,0,252,252,252,252,252,0,08'Ж 115,115,115,115,115,115,115,115,244,244,244,244,247,240,240,2558aЖ 255,255,255,0,255,0,0,255,244,244,244,4,252,0,0,2558зЖ 244,244,244,244,244,244,244,244,255,255,255,240,247,244,244,2448ф Ж 255,255,255,0,252,4,4,244,231,231,0,195,195,189,189,609(*Ж 255,255,255,255,255,255,255,0,127,127,127,127,127,127,127,1279l4Ж 254,254,254,254,254,254,254,254,0,255,255,255,255,255,255,2559к>Ж 231,231,195,195,129,129,0,0,0,0,129,129,195,195,231,2319рHЖ 63,15,3,0,0,3,15,63,252,240,192,0,0,192,240,252: RЖ 199,199,199,199,199,199,199,199,255,255,0,0,0,255,255,255:f\Ж 199,191,191,199,255,255,255,255,199,199,109,171,199,199,187,125:кfЖ 255,251,248,121,3,131,187,153,219,219,231,231,219,189,189,189:эpЖ 159,127,127,151,247,247,241,255,230,213,55,52,55,213,230,255;3zЖ 255,195,129,129,129,195,255,255,255,195,189,189,189,195,255,255;uДЖ 3,123,123,123,123,123,3,255,251,251,251,251,251,251,251,255;пОЖ 3,251,251,3,127,127,3,255,3,251,251,3,251,251,3,255;эШЖ 123,123,123,3,251,251,251,255,3,127,127,3,251,251,3,255<+вЖ 3,127,127,3,123,123,3,255,3,251,251,251,251,251,251,255<eмЖ 3,123,123,3,123,123,3,255,3,123,123,3,251,251,3,255<б╢Ж 3,123,123,3,123,123,123,255,3,123,123,7,123,123,3,255<▀└Ж 3,127,127,127,127,127,3,255,7,123,123,123,123,123,7,255=╩Ж 3,127,127,3,127,127,3,255,3,127,127,3,127,127,127,255=a╘Ж 143,239,143,191,143,255,255,255,239,199,239,255,199,255,255,255=е▐Ж 207,207,255,3,255,207,207,255,255,255,159,102,249,255,255,255=ъшЖ 255,193,221,28,255,255,255,255,239,215,187,124,255,255,255,255>/ЄЖ 239,207,175,96,255,255,255,255,129,189,195,231,231,219,129,129>u№Ж 234,241,241,234,255,255,255,255,239,195,175,175,175,195,239,255>╗Ж 127,131,157,173,181,195,253,255,231,219,219,231,231,227,231,225> Ж 127,191,223,235,247,235,253,255,102,189,231,66,66,231,189,102?7Ж 54,54,54,54,54,54,54,54,0,255,85,170,0,255,85,170?u$Ж 85,85,85,85,85,85,85,85,170,170,170,170,170,170,170,170?╖.Ж 102,102,102,102,102,102,102,102,85,170,85,170,85,170,85,170?∙8Ж 85,255,85,255,85,255,85,255,170,255,170,255,170,255,170,255@+BЖ 85,0,85,0,85,0,85,0,170,0,170,0,170,0,170,0@qLЖ 119,119,119,119,119,119,119,119,187,187,187,187,187,187,187,187@пVЖ 68,68,68,68,68,68,68,68,136,136,136,136,136,136,136,136@я`Ж 51,204,51,204,51,204,51,204,15,240,255,255,15,240,255,255A(jЖ 0,1,3,7,1 З
В"PRESIDENTIAL QUIZ"RВ"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1987"`Q│ Д(м Я)t(М A$(40),B$(40)Г2А T│1 е 40Х<Н A$(T),B$(T)ЭFЛ TпPG$│ б(32,255)╢ZЮ5сdЗ@32,"    CORRECT =";CR"   WRONG =";WRЁnR│ Д(38)л1xЗ@6," presidential quiz ";:ВЗ@96,"   WHICH PRESIDENT CAME BEFORE "RМЗ@160,G$;:З@352,G$;lЦЗ@128,A$(R);" ";B$(R)xаX│ Д(3)ЕкP│ Д(40)│┤З@194," 1. ";:Е X│1 з З A$(Rм1) :Д ЗA$(P)┴╛P1│ Д(40)Ё╚З@258," 2. ";:Е X│2 з ЗA$(Rм1) :Д З A$(P1)■╥P2│ Д(40),▄З@322," 3. ";:Е X│3 з ЗA$(Rм1) :Д ЗA$(P2)<цЕ P│R з 110TЁЕ P1│P ▒ P1│R з 110t·Е P2│P1 ▒ P2│P ▒ P2│R з 110П
З@222, Л(207)л Л(207);к
З@286, Л(207)л Л(207);┼
З@350, Л(207)л Л(207);э
"З@384,"";:╗Й"ENTER A NUMBER...";AA$√
,A│ Й(AA$)1
6Е A│X з З@404,"CORRECT":CR│CRл1:╔"L50CDEFGGGGGEC"g
@Е A┤▓X з З@404,"SORRY,";X:а 100,2:а 100,2:WR│WRл1У
JЗ@32,"    CORRECT =";CR"   WRONG =";WR;ц
TЕ CRлWR│20 з ╔"O3L200BAGBAGGGGABGFEDC":З@455,"final score="CRн5;"%";:CR│0:WR│0
^З@484,"press ENTER to continue";
hEN$│ ТD
rЕ EN$│ Л(13) з 90 :Д Е EN$│"E" з К :Д 360J
|Кч
ЖЖ GEORGE WASHINGTON,1789-1797,JOHN ADAMS,1797-1801,THOMAS JEFFERSON,1801-1809,JAMES MADISON,1809-1817,JAMES MONROE,1817-1825,JOHN QUINCY ADAMS,1825-1829╨
РЖ ANDREW JACKSON,1829-1837,MARTIN VAN BUREN,1837-1841,WILLIAM H. HARRISON,1841-1841,JOHN TYLER,1841-1845,JAMES POLK,1845-1849,ZACHARY TAYLOR,1849-1850,MILLARD FILLMORE,1850-1853,FRANKLIN PIERCE,1853-1857,JAMES BUCHANAN,1857-1861w
ЪЖ ABRAHAM LINCOLN,1861-1865,ANDREW JOHNSON,1865-1869,ULYSSES S. GRANT,1869-1877,RUTHERFORD B. HAYES,1877-1881,JAMES GARFIELD,1881-1881,CHESTER A. ARTHUR,1881-1885:
дЖ GROVER CLEVELAND,1885-1889,BENJAMIN HARRISON,1889-1893,GROVER CLEVELAND,1893-1897,WILLIAM MCKINLEY,1897-1901,THEODORE ROOSEVELT,1901-1909,WILLIAM H. TAFT,1909-1913,WOODROW WILSON,1913-1921ы
оЖ WARREN G. HARDING,1921-1923,CALVIN COOLIDGE,1923-1929,HERBERT C. HOOVER,1929-1933,FRANKLIN D. ROOSEVELT,1933-1945,HARRY S. TRUMAN,1945-1953,DWIGHT D. EISENHOWER,1953-1961Ж
╕ЖJOHN F. KENNEDY,1961-1963,LYNDON B. JOHNSON,1963-1969,RICHARD NIXON,1969-1974,GERALD FORD,1974-1977,JIMMY CARTER,1977-1981,RONALD REAGAN,1981-PRESENT1929-1933,FRANKLIN D. ROOSEVELT,1933-1945,HARRY S. TRUMAN,1945-1953,DWIGHT D. EISENHOWER,1953-1961Ж
╕ЖJOHN F. KENNED '&!
╚0,1:└1:Х50,&H387F:X│&H3880&`НA:ЕA┤▓999зТX,A:X│Xл1:Бе20:Д╪M"CHARS",&H3880,&H3FFF,&H3500&жdЖ 255,255,255,255,255,255,255,255,207,207,207,207,255,207,255,255&шnЖ 179,179,179,255,255,255,255,255,183,183,1,183,1,183,183,255'.xЖ 239,131,175,131,235,131,239,255,187,187,243,239,239,155,187,255'sВЖ 239,131,175,135,175,131,239,255,207,63,255,255,255,255,255,255'╣МЖ 243,239,239,239,239,243,255,255,159,239,239,239,239,159,255,255' ЦЖ 255,147,239,131,239,147,255,255,255,239,239,131,239,239,255,255(DаЖ 255,255,255,255,207,143,63,255,255,255,255,131,255,255,255,255(ИкЖ 255,255,255,255,255,207,255,255,243,243,231,159,63,63,255,255(╬┤Ж 199,179,179,179,179,199,255,255,207,143,207,207,207,135,255,255)╛Ж 131,243,131,191,179,131,255,255,131,243,227,243,179,131,255,255)Z╚Ж 179,179,131,243,243,243,255,255,131,191,143,243,179,131,255,255)а╥Ж 131,191,131,179,179,131,255,255,131,179,243,231,231,231,255,255)ц▄Ж 131,179,131,179,179,131,255,255,131,179,131,243,179,131,255,255*,цЖ 207,207,255,207,207,255,255,255,207,207,255,239,207,191,255,255*qЁЖ 243,231,31,207,231,243,255,255,255,131,255,131,255,255,255,255*╖·Ж 159,207,241,231,207,159,255,255,131,179,243,239,239,255,239,255*¤
Ж 131,187,179,191,179,131,255,255,207,179,131,179,179,179,255,255+?
Ж 7,179,135,179,179,7,255,255,199,179,191,191,179,199,255,255+}
Ж 7,179,179,179,179,7,255,255,3,191,143,191,179,3,255,255+└
"Ж 3,191,143,191,191,31,255,255,131,179,191,179,187,131,255,255,
,Ж 179,179,131,179,179,179,255,255,199,239,239,239,239,199,255,255,I
6Ж 131,243,243,51,179,195,255,255,51,179,143,179,179,51,255,255,М
@Ж 63,191,191,191,179,3,255,255,179,147,171,187,179,179,255,255,╨
JЖ 7,179,179,179,179,179,255,255,131,179,179,179,179,131,255,255-
TЖ 3,179,131,191,191,31,255,255,131,179,179,179,135,251,255,255-V
^Ж 3,179,135,179,179,51,255,255,131,191,131,251,147,131,255,255-Ъ
hЖ 3,207,207,207,207,207,255,255,179,179,179,179,179,207,255,255-р
rЖ 179,179,179,179,199,239,255,255,179,179,179,147,171,187,255,255.&
|Ж 179,147,239,239,147,179,255,255,179,179,199,239,239,239,255,255.l
ЖЖ 131,243,207,191,179,131,255,255,131,191,191,191,191,131,255,255.▓
РЖ 191,191,159,231,251,251,251,255,131,251,251,251,251,131,255,255.Ў
ЪЖ 239,199,171,239,239,239,239,239,255,223,191,1,191,223,255,255/<
дЖ 22 
░&Е:Г''''''''''''''''''''''''''' 00  LOADMASK MACHINE LANGUAGE   00        LOADER CREATER        00 ............................ 0&┤
А T│&H2500 е &H2514:Н A$:ТT, Й("&H"лA$):ЛT&уА T│&H25DB е &H25FB:Н A$:ТT, Й("&H"лA$):ЛT'╪M"LOADER",&H2500,&H25FB,&H2500'п(Ж 9E,19,10,9E,1B,10,BF,25,FA,EC,84,1E,89,ED,81,BC,25,FA,2F,F5,39,8E,26,01,10,BE,25,FA,EC,84,1E,89,ED,81,BC,25,FA,2F,F5,10,9F,1B,10,8E,26,01,10,9F,19,7E,AD,21,00,00ЛT&уА T│&H25DB е &H25FB:Н A$:ТT, Й("&H"лA$):ЛT'╪M"LOADER",&H2500,&H25F                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                №%ЮЮ┐%·ьДЙэБ╝%·/ї9О&
╛%·ьДЙэБ╝%·/їЯО&
Я~н! Ю┐%·ьДЙэБ╝%·/ї9О&
╛%·ьДЙэБ╝%·/їЯО&
Я~н!                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                    №?№??№?   №  └№╒╨  №ї?№Ц?╬?№╬?ЦФ?   
O╩H№H╒╒ ёї?№Ц?╬╧№╬?ЦЦГ Ё?
O╩H№H├ ёї╧№Ц?╬╧№╬?АР 
O╩H№H?
╘ ёї╧№Ц?╬├№╬?ПЁЦ?╩C
J2C?Ё╘ ёї╧№Ц?╬├№╬?П№<╩C
J2C?№╘?┼ї╧№Ц?╬╠№╬?П№╩C
J2C?№╘ ┼┼є№Ц?┬╠№╬?П№Ц<?Ё╩C
J2C?└╘ ┼┼є№Ц?┬╬<╬?П┬Ц2 №
C
2C├ 51є№Ц?╠╬<╬?АРЄ  
C
2C╒╒ 51є№Ц?╠╬<╬?ЦЦГЄ  
HH
JC╒╒? 51Ї№Ц?╧╠╬?ЦФ?┬  HH
JO╒╒├ 51Ї№Ц?╧╠╬?АГЄ  2HC╩JO╙№Ї№Ї№Ц?╧╬└╬?ПЁРЄ  2HC╩JO?┴╙№ЇЇ№Ц?╧╬└╬?П№2 №2JC╩JO?ё╙№їїї<Ц?╧╬╠╬?П№<?ЁЄJC╩JO?ё╙ёїїї<Ц?╧Є╠╬?П№ЦЄJC╩JO?ё╘ёЁ5<Ц?╧Є╬╬?П┬Ц?ЄJC╩JO?ё╘ёє 5<Ц?╧№╬╬?АЦ?№JOЄJ??Ё╘ё╧ ┼╠Ц?╧№╬╬?ЦЦР №JOЄJ??№╘┼╧ ┼╠Ц?╧ ╬?ЦЦГ Ё?№JOЄJ??№└ └? ??   №Ё?                       №                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    	ь&#
:Г***************************&E:Г* RAINBOW ON DISK GRAPHIC *&g:Г*    BY FRED B. SCERBO    *&Й:Г*   COPYRIGHT  (C) 1985   *&л:Г*     UNDER LICENSE TO    *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** &¤
Ю0:Х1000'OAA$│ б(3,143):АI│1е5:╙M" FALSOFT/"лAA$:╙M"PRESENTS/"лAA$:ЛI:╙M" RAINBOW/"лAA$'fАI│1е300:Е Т│""зЛI'Н(╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,248'Ю2╚2,3:╝1:╚1,3'▒<╙M"   ON/"лAA$'┐F╟3е1:╟4е2(P╝0:╗(40,190)м(212,60),╛,BF:┬(126,126),24,0,.9:├(126,126),0,0:┬(126,126),20,1,.9(LZ┬(170,126),8,0,.9:╞"BM122,186C0R10E4U26H4L10G4D26F4"(hd╟3е1:╟4е2:▀0,17,2,A$,B$(Бn╙M"  DISK/"лAA$:╟3е1)*x╚1,1:╞"BM70,88C3U12R12D12NL12BR8U12F12NU12BR16R2U12NL2R10F2D8G2NL10BR12NU12BR10R10U6L10U6R10BR8D12U6R4NE6NF6BM98,156C2R10D10L10NU10L2D12R14U12L2BD12BR38E12U10L14D2")8ВАII│1е500)LМЕ Т│""з150:Д160)TЦЛII)jаВ START MENU TEXT)~кМ A$(34),B$(34))╡┤АI│1е26:B$(I)│ Л(64лI):Л:АI│27е34:B$(I)│ Л(22лI):Л)┐╛Н MN$)щ╚АP│1е34:Н A$(P):Е A$(P)│"END"з210:ДЛP*╥Е A$(P)│"END"з A$(P)│""*▄NP│Pм1**цАI│NPл1е34:B$(I)│"":Л*0ЁЮ*O·З"        RAINBOW ON DISK"*o
З"       (C) FALSOFT, 1986"*Ш
З" PRESS LETTER TO LOAD BASIC ONLY";*ё
З "  (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"*ў
"З+ 
,АP│1е7:ЗB$(P)A$(P),B$(7лP)A$(Pл7):ЛP+F
6З:З"  *=MACHINE LANGUAGE PROGRAM"+k
@З"   PRESS <SPACE> TO CONTINUE";+А
JX$│ Т:ЕX$│""з330+Р
TЕX$│" "з370+к
^АI│1е14:ЕX$│B$(I)з500+╖
hЛI:Бе330+╜
rЮ+ц
|З:З "  (XX)= PAGE NUMBER OF LISTING"+ь
ЖЗ,
РАP│15е24:ЗB$(P)A$(P),B$(10лP)A$(Pл10):ЛP,\
ЪЗ "    PRESS <SPACE> TO RETURN          TO FIRST PAGE OF MENU",Д
дЗ "  PRESS ^ (UP ARROW) FOR <DIR>";,Ь
оXX$│ Т:Е XX$│""з430,│
╕ЕXX$│ Л(94)з Ю:╬:Ц,─
┬ЕXX$│" "з240,с
╠АI│15е NP:ЕXX$│B$(I)з500,ю
╓ЛI:Бе430,¤
рЕXX$┤▓з430-
ъБе240-'
ЇQ$│A$(I):Е П(Q$,1)┤▓"*"з540-n
■Ю:З@138,"SORRY, BUT":З:Зд8)Q$:З:З" IS A MACHINE LANGUAGE PROGRAM."-╤З:З" THE MENU PROGRAM HAS NOW BEEN   CLEARED SO YOU MAY <LOADM> THE  PROGRAM BY ITS FILENAME."-╫Ц-ўQ│ З(Q$):Q│Qм6:SL$│ П(Q$,Q).&╙ SL$,R.шЖ "FEBRUARY".ЪЄЖ " (24) LOADMASK"," (24)*LOADER"," (36) LOVECARD"," (47) PRESDNTS"," (52) CHARLOAD"," (55) PROGLOAD"," (58) BOOT"," (58) DEFINE"/№Ж " (61) CYCLDRAW"," (74)*TPTODSK"," (90) GRADIR"," (94) DU-3","(104) LANGTRAN","(109) HOGSPACE"
р╝┐╝╜║┐╝╜║┤╜╛╕А┐╝╝┐╡╛╝┐┤╜╛╝┐╡╝┐╝║А┐░╡║┐А╡║А╡║А░┐А░┐╡║░┐░╡║░┐╡░┐░║А ААА Ёї·Аї·АА АЁ ї·╨ Аї·А№їЁ Ё·А ААЁ Аї·Аї·АА ЁА ї·╨ Аї·АААА АААЯЁХЪЯАХЪАХЪААЯАР░ХЪРЯАХЪРЯААЯАААЯЬЭЪЯЬЭЪАХЪААЬЬЬЯХЪРЯРХЮЬЯрРЯАААПАААПАЕКАЕКААПААПЕКАПАЕКААрАПАААПАААПАЕКАЕКААПААПЕКАПАЕКААААПАААпАААпАекАекбвпаАпекАпаекААААпАААпАААпЁекАекекпААпекАпАекААААпААуяуруяРхытчычъяууяхыуясчытААсятА└└└└└р└└└└└└а└└└└└└└└└└└└└└└└└└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ПАЕКАЕКААПААПЕКАПАЕКАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
рьяьэъяьэъфэюшАяььяхюьяфэюьяхьяьъАя░хъяАхъАхъА░яА░яхъ░я░хъ░яхря░ъАпАААпЁекАекААпАЁпек╨пАекАмеЁпакапААЁпАекАекААпЁапек╨пАекААААпАААПЁЕКПАЕКАЕКААПАР░ЕКРПАЕКРПААПАААПМНКПМНКАЕКААМММПЕКРПРЕОМПрРПАААЯАААЯАХЪАХЪААЯААЯХЪАЯАХЪААрАЯАААЯАААЯАХЪАХЪААЯАРЯХЪАЯРХЪААААЯААА ААА Аї·Аї·ёЄ аА ї·А аї·АААА ААА ААА Ёї·Аї·ї· АА ї·А Аї·АААА АА│┐│░│┐Р╡╗▓╡╗╖║┐││┐╡╗│┐▒╖╗▓АА▒┐▓А└└└└└р└└└└└└а└└└└└└└└└└└└└└└└░└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ЯАХЪАХЪААЯАРЯХЪАЯРХЪАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ╚┴├┬┬╞┬─╞╞┬┼├╔┬┬╟┬┬├$%╟'(┬*┼├-┬/0├╚34567┼╞┼;┼┼╞      NBOWППП"
   ON   ППП#
  DISK  ПППMENU    BASLOADMASKBAS│LOADER  BIN FALSOFTППП ъPRESENTSППП!ъ RAINBOWППП"
   ON   ППП#
  DISK  ПППMENU    BASяLOADMASKBAS│LOADER  BINLOVECARDBAS&uPRESDNTSBASКCHARLOADBAS*PROGLOADBAS)	BOOT    BAS+=DEFINE  BASТCYCLDRAWBAS,пTPTODSK BINlGRADIR  BAS.@DU-3    BASLANGTRANBAS10HOGSPACEBAS2HAND OFFBASДDECISIONBASМMESSAGE BAS┌TAPEMENUBAS
4KEY BEEPBAS
xECHO    BAS∙DIRECTRYBAS8╕SAVINFORBAS9єROBOT   BASхRBT22SRCBIN	7H&SPELL BAS:ўTAPE DOCBAS<ЄBASICPALBAS=К                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                № №¤·ЯЬЭЪдноиА┐╝╝┐╒▐▄▀фэюьяЕМПМКА Аї·ЯАХЪАекАА┐АА┐╒┌╨▀АхъАяЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъАьЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъААААПААА Ёї·ЯАХЪАекАА┐АА░╒┌А▀АхъАяААПААА №¤·ЯЬЭЪАекАА╝╝╝┐╒┌А▀АхюьярАПААА АААЯАХЪАекАА┐АА┐╒┌А▀АхъААрАПА	А АААЯАХЪАекАА┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦└╧├╧А ЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           №       Ё?      └       ЁЁ           №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       └                             №         №         Ё?  Ё?        Ё?    Ё?        └      └         └?      Ё?Ё              └        №?    Ё       №?  Ё       Ё?      Ё  ?      └└      └0      0      0     №  └     №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          r&Ю&2
З@32,"--------------------------------&NЗ@70,"I  L O V E  Y O U&yЗ@96,"--------------------------------&Щ(З@134,"BY  ERNIE. DI ZAZZO.&╝2З@197,"10800 A  ESPLANADE AVE.&█<З@263,"MONTREAL.   H3L-2Y6&∙FЗ@328,"QUEBEC     CANADA.'<PЗ@390," MUSIC RE-WRITTEN BY          M.MARANDOLA & E.DI ZAZZO.'hZЗ@448,"-----PRESS ANY KEY TO BEGIN-----'sdв41172'|nХ200'ПxЮ:╚3,1:╝4:┐1,0'┴В╞"BM5,5;C2D28R8U28L8;BM35,25;D28R18U6L10U22L8' М╞"BM65,45;BD3D22F3R15E3U22H3L15G3BR5BD4D14F3R4E3U14H3L4G3(QЦ╞"BM95,65;D20F8R6E8U20L6D18G3L4H3U18L6;BM125,85;D29R18U6L10U6R8U6L8U6R10U6L18(zа╞"BM160,115;F12D16R6U16E12L8G6L2H6L6(║к╞"BM190,135;BD3D24F3R15E3U24H3L15G3BR6BD4D16F3R3E3U16H3L3G3(ш┤╞"BM225,155;D25F3R14E3U25L7D20G2L3H2U20L6)╛├(6,6),3,2:├(38,28),1,2:├(68,48),2,2)?╚├(98,68),1,2:├(128,88),3,2:├(172,124),2,2)a╥├(193,138),1,2:├(226,158),3,2)l▄в41172)ц╚3,1:╝(5):┐1,1)МЁ├(0,0),4)а·АT│30 е м30 йм1)╢
A│(2н3.1415)нTо60)с
╗(128,96)м(75н Е(A)л128,75н Х(A)л96),╜*
╗(128,96)м(75н Е(A)л128,75н Х(A)л96),╛*(
"Q│60м2нT:АY│Q е 0 йм1:Л*0
,Л:Ю*E
6Ю(7):╚4,1:╝:┐1,1*Е
@З@224,"A SONG OF LOVE IS A SAD SONG,HI-LI-LI,HI-LI-LI,HI-LO*═
JA$│"V31O2T3;L4C;L2A;L4F;C;F;A;O3L2.D;L2C;O2L4C;C;A;C;C;A;L4B-;O2L1G*╓
T╔ A$*▀
^Ю(2)+"
hЗ@224,"A SONG OF LOVE IS A SONG OF WOE,DON'T ASK ME HOW I KNOW+l
rB$│"P4;L4C;L2G;L4E;C;E;G;O3L2D;L4C;O2L2G;L4C;O3L2C;L4C;L2C;O2L4B-;L1A+u
|╔ B$+~
ЖЮ(3)+├
РЗ@224,"A SONG OF LOVE IS A SAD SONG,FOR I HAVE LOVED AND IT'S SO,
ЪC$│"P4;L4C;L2A;L4F;C;F;A;O3L2.D;L2C;O2L4C;O3L2C;L4C;C;O2B-;A;L1D,
д╔ C$,
оЮ(4),d
╕З@224,"I SIT AT THE WINDOW AND WATCH THE RAIN,HI-LI-LI,HI-LI-LI,HI-LO,б
┬D$│"P4;L4D;D;B-;D;D;B-;D;L2C;L4A;L2F;L4C;C;G;C;C;G;C;L1A,к
╠╔ D$,│
╓Ю(5),°
рЗ@224,"TOMORROW I'LL PROBABLY LOVE AGAIN HI-LI-LI,HI-LI-LI,HI-LO->
ъE$│"P4;L4D;D;B-;D;D;B-;D;L2C;L4A;L2F;L4C;C;G;C;C;O3L2C;O2L4A;L1.F-G
Ї╔ E$-M
■Ю-`Ю:╚3,1:╝3:┐1,0-▓╞"BM0,0;C2R255D191L255U191;BM60,173;R10E25R75F25R10D16L145U16":├(128,163),2,2-╔┴1:┬(30,25),9,,.80-ч&┬(38,22),12,,.90,.55,1.26.0┬(28,18),15,,.75,.42,1.15.":┬(20,23),10,,.90,.12,.93.@D┬(28,28),13,,.85,.85,1.65.^N┬(36,28),12,,.90,.95,1.35.yX┬(23,50),18,,.99,.85,1.Цb┬(55,48),18,,.99,.35,.49.═l┬(25,50),12,,.99,.85,1.08:┬(38,45),12,,.99,.25,.60.ыv┬(128,70),30,,.99,.60,.99/А┬(80,70),30,,.99,.51,.91/&К┬(140,60),30,,.99,.58,.92/DФ┬(188,60),30,,.99,.60,.99/aЮ┬(65,43),99,,.99,.06,.15/и┬(125,30),99,,.99,.06,.15/Э▓┬(140,55),90,,.99,.38,.480>╝╞"BM78,115;C1D1F2D1R1F2D1R1F2D1R1F2D1R1F2D1R1F2D1R1F2D1R1F2D1;BM140,100;D1F2D1R1F2D1R1F2D1R1F2D1R1F2D1R1F2D1R2F2D1R2E2U1R2E2U1R2E2U1R1E2U1R2E2U1R1E2U1R1E2U10y╞╞"BM102,137;E2U1R2E2U1R2E2U1R1E2U1R1E2U1R1E2U1R1E2U1R10П╨┬(227,148),9,,.800п┌┬(233,147),12,,.90,.55,1.260╧ф┬(224,143),15,,.75,.42,1.150юю┬(215,148),10,,.90,.12,.931°┬(223,153),13,,.85,.85,1.651.┬(231,153),12,,.90,.95,1.351K┬(218,175),18,,.99,.85,11j┬(250,173),18,,.99,.35,.491е ┬(220,175),12,,.99,.85,1.08:┬(235,170),12,,.99,.25,.601║*┬(30,145),9,,.801┘4┬(38,142),12,,.90,.55,1.261°>┬(28,138),15,,.75,.42,1.152H┬(20,143),10,,.90,.12,.9325R┬(28,150),13,,.85,.85,1.652T\┬(36,148),12,,.90,.95,1.352pf┬(23,171),18,,.99,.85,12Оp┬(55,170),18,,.99,.35,.492╟z┬(25,171),12,,.99,.85,1.08:┬(38,166),12,,.99,.25,.602уД╞"BM70,10;C2R8L4D14L4R83О├(32,28),2,1:├(35,20),2,1:├(40,23),2,13HШ├(225,147),2,1:├(35,30),4,1:├(15,24),2,1:├(44,30),4,13sв├(28,17),4,1:├(25,20),4,1:├(21,25),2,13дм├(240,143),4,1:├(230,138),4,1:├(233,160),4,13╒╢├(230,155),2,1:├(215,151),4,1:├(210,150),2,14└├(218,145),4,1:├(230,145),2,1:├(231,140),2,144╩├(28,135),2,1:├(30,147),2,1:├(25,140),4,14b╘├(30,152),2,1:├(35,135),4,1:├(22,148),4,14В▐├(45,144),2,1:├(38,155),4,14├шA$│"C4NH2NE2D2":╞"BM30,25"лA$:╞"BM30,145"лA$:╞"BM226,148"лA$4уЄ├(128,85),4,1:├(170,85),2,15№├(33,50),2,1:├(33,170),2,1:├(228,174),2,15k╞"BM95,55;C1D20R14U4L9U16L4":╞"BM120,55;BD3D14F3R10E3U14H3L10G3BR4BD3D8F2R4E2U8H2L4G25Ч╞"BM147,55;D14F6R6E6U14L5D13G2L3H2U13L45┼╞"BM174,55;NR14D20R14U4L10U4R6U4L6U4R10U46 $╞"BM30,70;C1F10R50BR65C1R20BR33R17H10R6F12G12L6E10L20BL30NU4L20BL65NU4L48G12L6E13H13R66Z.├(38,82),2,1:├(80,82),3,1:├(160,82),3,1:├(210,82),2,16З8├(98,70),2,1:├(128,70),3,1:├(130,58),2,16╡B├(160,70),4,1:├(150,70),2,1:├(177,74),4,16 L╞"BM190,105;C2D4F4ND6E4U4BR10BD2D10F2R6E2U10H2L6G2BR20BU2D12F2R6E2U127?V┴1:┬(133,173),28,,.95,.56,.96:┴4:┬(133,169),22,,.90,.54,.977a`┴1:┬(133,170),18,,.95,.56,.967Гj┴3:┬(133,168),12,,.95,.56,.967Эt┴4:┬(131,181),80,,.187┼~╞"BM72,175;ND12R3BR3R3F2D2G2NL8F2D47юИ╞"BM90,177;D10U6NR10U4E2R2BR4R2F2D108
Т╞"BM108,175;R8L4D12L4R88+Ь╞"BM122,175;BD12U10E2R6F2D108cж╞"BM139,175;D12R3BR4R3E2U2H2L3BL4L3BR9E2U2H2L3BL4L28С░╞"BM157,175;BD2D8F2R2BR3R2E2U8H2L2BL3L2G28╡║╞"BM175,175;D9F3R1E2NU3F2R2E3U98╚─├(128,172),1,48ё╬╜(128,85,4):╜(170,85,2):╜(128,175,1)9 ╪├(128,85),2,1:├(170,85),4,1:├(128,172),2,49Cт╛(128,85):╛(170,85):╛(128,175)9_ь╜(128,85,4):╜(170,85,2)9qЎБе1010:Бе1220BD2D8F2R2BR3R2E2U8H2L2BL3L2G28╡║╞"BM175,175;D9F3R1E2NU3F2R2E3U98╚─├(128,172),1,48ё╬╜(128,85,4):╜(170,85,2):╜(128,175,1)9 ╪├(128,85)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
&!
╚0,1:└1:Х50,&H34FF:X│&H3500&@НA:ЕA┤▓999зТX,A:X│Xл1:Бе20&x╗Й "PREPARE TO LOAD CHARS, THEN     PRESS ENTER";A$&Я(╙M "CHARS":╗Й "PREPARE TO SAVE";A$&╞2╪M "COLRTEXT",&H3500,&H3FFF,&H3500&·dЖ 32,7,56,128,0,0,0,0,0,190,1,104,175,141,0,158'7nЖ 190,1,107,175,141,1,178,134,126,183,1,103,183,1,106,48'rxЖ 141,0,134,191,1,104,48,141,1,154,191,1,107,190,1,161'лВЖ 48,4,175,141,2,113,183,1,160,48,141,2,96,191,1,161'ъМЖ 48,141,2,128,191,1,143,183,1,142,111,140,186,111,140,184('ЦЖ 142,255,192,111,132,111,3,111,5,111,7,111,9,111,11,134(gаЖ 248,183,255,34,15,178,134,3,151,179,134,4,151,182,158,186(гкЖ 48,137,24,0,159,183,134,32,151,185,48,141,3,2,175,140(▀┤Ж 129,48,141,0,10,166,128,39,31,173,159,160,2,32,246,32)╛Ж 12,82,65,73,78,66,79,87,39,115,32,67,111,108,111,114)U╚Ж 32,84,101,120,116,13,13,0,57,13,111,39,3,126,255,255)С╥Ж 50,98,52,118,129,32,37,36,128,32,198,8,61,227,141,255)╧▄Ж 65,31,2,150,178,198,85,61,215,181,150,179,198,85,61,231*
цЖ 141,255,52,141,40,141,13,23,0,166,53,246,51,141,1,23*FЁЖ 141,8,32,246,51,141,0,11,150,182,52,64,72,236,198,227*{·Ж 225,31,5,0,52,0,67,0,52,0,67,0,116,150,185,129*║
Ж 16,39,10,220,136,196,224,141,14,196,31,58,57,220,136,196*ё
Ж 240,141,4,196,15,58,57,131,4,0,88,73,88,73,88,73+0
Ж 211,186,31,1,214,137,57,198,8,166,160,152,181,167,132,48+o
"Ж 136,16,90,38,244,57,198,8,231,141,254,202,166,160,67,132+▓
,Ж 85,167,141,254,191,72,170,141,254,186,31,137,148,181,167,141+ї
6Ж 254,178,83,228,141,254,176,234,141,254,169,231,132,48,136,32,6
@Ж 106,141,254,162,38,214,57,198,8,166,160,152,181,167,132,48,j
JЖ 136,32,90,38,244,57,4,192,5,128,5,128,7,0,7,0,к
TЖ 158,136,48,1,159,136,51,140,237,150,182,72,172,198,37,229,э
^Ж 236,198,208,185,130,0,221,136,109,141,254,108,38,215,158,186--
hЖ 150,185,198,8,61,49,139,236,161,237,129,16,156,183,37,247-k
rЖ 32,7,142,4,0,159,136,158,186,166,141,254,74,167,128,156-з
|Ж 183,37,250,57,13,111,39,3,126,255,255,15,112,50,98,52-т
ЖЖ 116,141,21,173,159,160,0,39,250,52,2,141,11,53,2,129.
РЖ 12,38,3,141,205,79,53,244,23,255,18,198,8,99,132,150.]
ЪЖ 185,48,134,90,38,247,57,255,255,255,255,255,255,255,255,0.Э
дЖ 161,255,255,255,241,255,255,0,64,255,255,255,255,0,84,255.р
оЖ 187,0,99,255,255,255,255,255,255,255,255,255,255,255,255,255/$
╕Ж 255,255,255,255,255,255,255,255,255,255,255,255,255,0,130,255/e
┬Ж 255,255,255,255,255,255,255,141,6,134,32,173,159,160,2,158/б
╠Ж 136,140,4,0,35,4,48,31,159,136,57,220,183,147,186,158/▀
╓Ж 186,99,128,90,38,251,74,38,248,57,220,136,219,185,137,00#
рЖ 167,141,253,160,150,185,74,67,167,141,253,153,228,141,253,1490a
ъЖ 166,141,253,144,31,1,22,255,11,174,141,254,49,191,1,1040Э
ЇЖ 174,141,255,69,191,1,107,174,141,0,28,48,28,191,1,1610█
■Ж 134,57,183,1,142,126,169,40,99,141,253,108,57,52,17,1741Ж 99,140,169,19,39,3,126,255,255,52,102,150,179,198,85,611XЖ 231,141,253,83,166,102,31,138,38,55,23,254,245,53,102,531ТЖ 17,50,98,57,52,17,174,101,140,185,5,39,2,53,145,1891╥&Ж 177,198,166,159,0,166,129,64,38,245,189,179,228,131,1,25520Ж 16,131,1,0,34,7,53,17,50,98,126,165,94,198,8,322E:Ж 220,189,183,11,192,32,37,194,134,8,61,227,141,253,3,522ВDЖ 6,142,4,0,159,136,51,141,254,108,150,182,72,174,198,482┴NЖ 31,52,16,16,174,98,23,253,228,23,253,200,158,136,172,2282√XЖ 36,5,23,254,91,32,236,142,4,0,159,136,50,100,32,1413bЖ 9992E:Ж 220,189,183,11,192,32,37,194,134,8,61,227,141,253,3,522ВDЖ 6,142,4,0,159,136,51,141,254,108,150,182,72,174,198,482┴NЖ 31,52,16,16,174,98,23,253,228,23,253,200,158,136,172,2282√XЖ 36,5,23,254,91,32,236,142,4,0,159,136,50,100,32,1413                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 :&

└4:Ю&%З д9);"* COLOR TEXT *"&EЗ:З "SELECT LOAD TYPE...":З&O(X│0:П&А2Н A$:Е A$┤▓"." з X│Xл1:З д7);X;") ";A$:Бе 50&и<Ж TOP OF 16K,TOP OF 32K,UPPER RAM,.&╟dA│ Й( Т):Е A┤1 ▒ A▓X з 100&▐nИ A Бе 200,300,400&фxЦ'╚Х 200,&H34FF:╙M "COLRTEXT":в:Бе 120';
,Х 200,&H74FF:╙M "COLRTEXT",&H4000:в:Бе 120'L
РХ 200,&H7F00'e
ХН A$:Е A$┤▓"." з 405'Ш
ЪА X│&H7F00 е &H7F19:Н A$:A│ Й("&H"лA$):Т X,A:Л'ъ
дЖ 34,01,1A,50,8E,80,0,10,8E,FF,DE,A6,84,6F,21,A7,80,6F,20,8C,FF,0,25,F3,35,81(
ов &H7F00:Т &HFFDF,0(
╕╙M "COLRTEXT",&HAB00:в(.
┬Х 200,&H7FFF(9
╠Бе 120'L
РХ 200,&H7F00'e
ХН A$:Е A$┤▓"." з 405'Ш
ЪА X│&H7F00 е &H7F19:Н A$:A│ Й("&H"лA$):Т X,A:Л'ъ
дЖ 34,01,1A,50,8E,80,0,10,8E,FF,DE,A6,84,6F,21,A7,80,6F,20,8C,FF,0,25,F3,35,81(
ов &H7F00:Т &HFFD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
м&!
:Г*** CIRCLE CYCLE DRAW ***&A:Г*** BY BECKY MATTHEWS ***&PИ Ё Бе 920&^(И я Бе 60&l2Т 65497,0&~<:Г*TITLE PAGE&ЖFф 2&ОPц 8&ШZч 4,8&╗dю (11,4)," CIRCLE CYCLE DRAW "&╧n:ГSMALL CIRCLES&╫xC│1&шВАX│15е315й14&№МC│Cл2:ЕC▓15зC│1'
ЦАY│9е182й173'ащ(X,Y),5,C'+кш(X,Y),C,C'=┤ЛY:а Xо2,1:ЛX'R╛:ГMEDIUM CIRCLES'Z╚C│1'k╥АY│30е160й26'u▄C│Cл2'ЗцАX│10е310й300'ЧЁщ(X,Y),10,C'ж·ш(X,Y),C,C'╕
ЛX:а Yо2,1:ЛY'╠
:ГLARGE CIRCLES'╘
C│1'х
"АY│45е160й49'я
,C│Cл2(

6АX│45е275й230(
@щ(X,Y),20,C( 
Jш(X,Y),C,C(2
TЛX:а Yо2,1:ЛY(=
^:ГMENU(a
hю (10,11)," CHOOSE CIRCLE SIZE"(}
rю (14,14)," 1 - SMALL "(Щ
|ю (14,15)," 2 - MEDIUM"(╢
Жю (14,16), " 3 - LARGE "(╙
Рю (13,20)," (ENTER 1-3)"(щ
ЪA$│ Т:Е A$│""з410(Ў
дA│ Й(A$))
оЕ A┤1 ▒ A▓3 з 400)$
╕:ГSET CIRCLE RADIUS).
┬R│Aн5)F
╠:Г*INSTRUCTION PAGE)M
╓ц4)W
рч 8,4)s
ъю (14,2),"INSTRUCTIONS")б
Їю (2,7),"USE THE RIGHT JOYSTICK TO DRAW.")╫
■ю (2,10),"PRESS JOYSTICK BUTTON TO CLEAR SCREEN."*ю (2,11),"(RIGHT BUTTON 1 ON NEW JOYSTICK)"*:ю (2,14),"PRESS SPACEBAR TO PAUSE DRAWING AND"*Yю (2,15),"SEE FAST CYCLE."*И&ю (2,18),"PRESS SPACEBAR AGAIN TO RESUME."*░0ю (7,22),"(PRESS ANY KEY TO START)"*┼:A$│ Т:ЕA$│""з570*╘DX│148:Y│96*рNT│1:C│1*■X:ГSET BACKGROUND TO BLACK+bу 0,0+lц0+"v:ГBUTTON CHECK+6АЕ  к(0)│1 з 620+KК:ГSPACEBAR CHECK+iФA$│ Т:Е A$│ Л(32) Бж 1220+ЕЮ:ГGOSUB ADVANCE PALETTE+РиБж 850+е▓:ГJOYSTICK CHECK+▒╝H│ Н(0)+─╞Е H▓41 з X│Xл4+╫╨Е H┤20 з X│Xм4+щ┌Е X┤10 з X│10+¤фЕ X▓310 з X│310,	юV│ Н(1),°Е V▓41 з Y│Yл4,/Е V┤20 з Y│Yм4,CЕ Y▓182 з Y│182,UЕ Y┤10 з Y│10,n Е H┤160 ░ V┤96 з 980,И*Е H▓160 ░ V┤96 з 1040,в4Е H┤160 ░ V▓96 з 1100,╝>Е H▓160 ░ V▓96 з 1160,╟HБе 630,тR:Г*ADVANCE PALETTE SUB,ё\А P│1 е 15,¤fу P,TлP-pЛ-zT│Tл5:ЕT▓49 з T│1-/ДC│Cл1:ЕC▓15 з C│1-5ОР-@Ш:Г*END-Jву ў:Ю-^мЗ"BYE FOR NOW."-k╢Т65496,0-Г└АN│100е1йм5:а N,1:Л-Й╩К-Я╘:Г*QUADRANT 1 SUB-╣▐щ(X,Y),R,C:ш(X,Y),C,C-█шщ(320мX,Y),R,C:ш(320мX,Y),C,C-¤Єщ(X,192мY),R,C:ш(X,192мY),C,C.'№щ(320мX,192мY),R,C:ш(320мX,192мY),C,C.1Бе630.G:Г*QUADRANT 2 SUB.aщ(X,Y),R,C:ш(X,Y),C,C.Г$щ(320мX,Y),R,C:ш(320мX,Y),C,C.▓.щ(320мX,192мY),R,C:HPAING(320мX,192мY),C,C.╘8щ(X,192мY),R,C:ш(X,192мY),C,C.▐BБе630.ЇL:Г*QUADRANT 3 SUB/Vщ(X,Y),R,C:ш(X,Y),C,C/0`щ(X,192мY),R,C:ш(X,192мY),C,C/Zjщ(320мX,192мY),R,C:ш(320мX,192мY),C,C/|tщ(320мX,Y),R,C:ш(320мX,Y),C,C/Ж~Бе630/ЬИ:Г*QUADRANT 4 SUB/╢Тщ(X,Y),R,C:ш(X,Y),C,C/╪Ьщ(X,192мY),R,C:ш(X,192мY),R,C/·жщ(320мX,Y),R,C:ш(320мX,Y),C,C0$░щ(320мX,192мY),R,C:ш(320мX,192мY),C,C0.║Бе6300D─:Г*CYCLE ONLY SUB0U╬А P │ 1 е 150a╪у P,TлP0gтЛ0}ьT│Tл4:ЕT▓49 з T│10ТЎ:ГSPACEBAR CHECK0еЕ  Т│"" з 12300л
РX,Y),C,C/╪Ьщ(X,192мY),R,C:ш(X,192мY),R,C/·жщ(320мX,Y),R,C:ш(320мX,Y),C,C0$░                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =&7
Х2000:МL$(59),M(98),V(20),Q(100),DF$(30),GP(22,2)&AБе190&a:Г*******DRAW LETTERS******&Я(╞"BM"л И( Б(PW))л","л И( Б(PQ))л"C"л И(K2)л"S"л И(S2)л";"&▓2А L│1 е  З(N$)&с<Q$│ Р(N$,L,1):Е  К(Q$)▓97зQ$│ Л( К(Q$)м32)&ўFЕ  К(Q$)м31┤1 з Р'PЕ Q$│ Л(34) з ╞L$(3):Бе100')Z╞L$( К(Q$)м31)'2dЛL:Р'Nn:Гcheck for file length'uxЩ"D",1,F$,1:╨ #1,1  з A$:P│1:Бж150'эВБж150:L│Cн256:Бж 150:L│LлC:Бж150:S│Cн256:Бж 150:S│SлC:Y│LлSм1:P│PлL:Бж150:Бж150:Q│C:Бж150:Бж150:L│Cн256:Бж150:L│CлL'ўМЪ#1:Р(
ЦЕ P▓ е(1) з C│1:Р()а─ #1,P:C│ К(A$):P│Pл1:Р(/кР(Ф┤Ю:З Л(128);"chris"; Л(128);"brown's    GRAPHICS DIR  "; б(32,128):Т1036,39:Т1038,128:Т1039,128:Р)╛Бж180:З:З"PLEASE STAND BY WHILE           THE PROGRAM INITIATES.                                  THANKS.")│╚А I│1е22:НGP(I,1),GP(I,2):ЛI:Ж 0,0,51,0,103,0,155,0,207,0,0,38,51,38,103,38,155,38,207,38,0,76,51,76,103,76,155,76,207,76,0,114,51,114,103,114,155,114,207,114,0,152,51,152*Ъ╥L$(1)│"BR7":L$(2)│"BR1RULDBU2U6RD6BD2BR4":L$(3)│"BR3BU8D2BR2U2BD8BR3":L$(4)│"BR1BU5U3BR2D3U1R1NL4BU1NL4BD7BR1":L$(5)│"BU8NR4D4R4D4L4R2D1U10D9BR5":L$(6)│"BU8R1D1L1U1R1BR3D2G4D2BR3R1U1L1D1R1BR3":L$(7)│"BR7H6U2R2D2G3D3R3E2BD2BR3"+I▄L$(8)│"BR1BU6U2RD2BD6BR3":L$(9)│"BR1H1U7E1BD9BR1":L$(10)│"BR1E1U7H1BD9BR3":L$(11)│"BR3BU3U3D1NR2NL2NE2NG2NF2NH2BR4D5":L$(12)│"BR6U4D2L2R4BR4BD2":L$(13)│"BR1U1R1D3U2L1BR4",AцL$(14)│"BR1BU3R4BD3BR1":L$(15)│"BR1U1R1D1L1BR4":L$(16)│"BR1E5BD5BR1":L$(17)│"BR1BU1U3BU1BR1R3BR1NG4BD1D3BD1BL1NL3BR3":L$(18)│"BR1BU4URD5BR2":L$(19)│"BU5R4DG3DR4BR1":L$(20)│"BU5R4G2R2D3L4BR7":L$(21)│"BU5D3NR5R3U3D5BR4":L$(22)│"R4U3L4U2R3BD5BR3",єЁL$(23)│"BR1NR3U3NU2R3D3BR3":L$(24)│"BR1BU5R4D2G3BR5":L$(25)│"BR1U3NR3U2R3D5NL3BR1":L$(26)│"BR1BU2NR4U3R4D5BR1":L$(27)│"BR1BU4BR4URDLBD3RDLUBD1BR1":L$(28)│"BR1BU4RBD3D2ULBR3"-d·L$(29)│"BR1BU5BR4G2F2BR1":L$(30)│"BR1BU5NR4BD2R4BD3BR1":L$(31)│"BR4BU4F2G2BR3":L$(32)│"BR1BU2U3R4D1G2D3BR1":.
L$(34)│"BR1U5R3D2NL3D3BR1":L$(35)│"BR1U5R3D2RNL4D3NL3BR1":L$(36)│"BR1U5NR3D5R3BR1":L$(37)│"BR1U5R3BR1BD1D3BD1BL1L3BR5":L$(38)│"BR1U5NR3D2NR3D3R3BR1":L$(39)│"BR1U5NR3D2R3BD3BR1":.╗
L$(40)│"BR1BU1U3BU1BR1R3BD2NL1D3BL1L2BR3BR1":L$(41)│"BR1U5D2R3U2D5BR1":L$(42)│"BR3NU5BR3":L$(43)│"BR1BU3D2BD1BR1R2BR1BU1U4BD5BR1":L$(44)│"BR1U5D2R2NE2F3BR1"/W
L$(45)│"BR1NU5R3BR1":L$(46)│"BR1U5F2E2D5BR1":L$(47)│"BR1U5F4U4D5BR1":L$(48)│"BR1BU1U3BU1BR1NR2BD5R2BR1BU1U3BD4BR1":L$(49)│"BR1U5R2BR1BD1D1BD1NL2BD2BR1"0
"L$(50)│"BR1BU1U3BU1BR1R3BR1BD1D3BD1BL1L3BR2NF2BR5":L$(51)│"BR1U5R3BR1BD1L1BD1BL1NL1F3BR1":L$(52)│"BR1BU5BR3L3DF3DL3BR5":L$(53)│"BR4BU5NR3NL3D5BR5":L$(54)│"BR1BU5D4BD1BR1R2BR2BU1U4BD5BR1"0и
,L$(55)│"BR1BU5D2F3E3U2BD5BR1":L$(56)│"BR1BU5D4FRENU4FREU4BD5BR1":L$(57)│"BR1E5BL5F5BR1":L$(58)│"BR1BU5F2ND3E2BD5BR1":L$(59)│"BR1BU5R5G5R5BR1"1
6╚4,1:╝5:╗(1,1)м(44,32),╛,BF:N$│"LONG":K2│5:S2│4:PW│10:PQ│13:Бж40:N$│"FILE":PQ│23:Бж40:╗(6,4)м(38,28),╜,B1/
@─(1,1)м(44,32),M,G:╝51B
J╚4,5:╝5:╚4,1:╝1Y
T:Гstart up routine1Ы
^З:Й"ENTER DISK NAME (8 CHAR. MAX)   -->";DN$:Е  З(DN$)▓8 з3501╣
h╗Й"DATE (ANY FORMAT)";DT$1Є
rЗ:З"PUT DISK IN DRIVE 0 AND PRESS   ENTER":ЙQ$:Бж1802#
|K2│4:S2│4:CT│0:CN│0:З@64,"READING DIRECTORY"2U
Ж:Г**READ DIRECTORY TRACK            main loop2└
РА SE│ 3 е 11:▀0,17,SE,A$,B$:A$│A$л О(B$,114):А DE│ O е 7:PT│DEн32:NA$│ Р(A$,PTл1,8):EXT$│ Р(A$,PTл9,3)2╪
ЪЕ EXT$┤▓"PIC" з 4502Ў
дЕ  О(NA$,1)│ Л(255) з 4503
оЕ  О(NA$,1)│ Л(0) зБе45034
╕CT│CTл1:DF$(CT)│NA$л"/"лEXT$3H
┬ЛDE,SE:FR│ г(0)3{
╠Е CT│0 зЗ"SORRY, NO PICS ON THIS DISK.": Бе7503╛
╓З"CHECKING FILE LENGTHS":А TT│1 е CT:F$│DF$(TT):Бж120:LONG│YмS3ь
рЗ═"## %          % #####";TT,DF$(TT),LONG4
ъЕ LONG▓6143 з DF$(TT)│DF$(TT)л"MAX"4
ЇЛTT4:
■:Гprocess graphic screens4U╚4,1:┐1,0:А I │ 1 е CT4hЕDF$(I)│""з5604╔Е П(DF$(I),3)│"MAX"зN$│"MAX":DF$(I)│ О(DF$(I),8):╚4,1:┼(1,1)м(44,32),M,╜:CN│CNл1:Бж580:Бе5604ы&╚4,1:┐1,0:╝5:╙M DF$(I):Бж 5704°0ЛI:Бе6305А:F│м1:E│0:CN│CNл1:А Y│0 е 192 й 6:F│Fл1:E│0:А X│0 е 255 й 6:E│Eл1:╚4,1:─(X,Y)м(Xл1,Y),V,G:┼(E,F)м(Eл1,F),V,╜:┼(E,F)м(Eл1,F),V,╜:ЛX,Y5╘D─(2,2)м(43,30),Q,G:╚4,5:┐1,0:┼(GP(CN,1),GP(CN,2))м(GP(CN,1)л41,GP(CN,2)л28),Q,╜6NK2│4:S2│4:PW│GP(CN,1):PQ│GP(CN,2)л35:N$│ О(DF$(I),8):Бж406$XЕ CN│CT з 6306*bР6Al:Гprepare for save6[vАI│8е5йм1:╟ I е Iм4:Л6fАN$│DN$6еК╚4,1:┐1,0:╗(103,158)м(255,192),╛,B:S2│4:PW│105:PQ│168:Бж406├ФPW│105:PQ│178:N$│DT$:Бж406ЇЮPW│105:PQ│188:N$│"FREE GRANS = "л И(FR):Бж407иZ$│ Т:а10,2:а100,2:ЕZ$│"" з6807Ц▓Бж180:З"REMOVE PICTURE DISK AND PUT     GRAPHICS DIRECTORY DISK IN      DRIVE ZERO FOR save":Й"PRESS ENTER TO CONTINUE";Z$7╓╝Бж180:F1│ г(0):З:З"FREE GRANS ON THIS DIRECTORY    DISK:"F18B╞Е F1┤3 зЗ"- -  not enough room! - -        START NEW DIRECTORY DISK":Й"PRESS ENTER WHEN READY";Z$:Бе7008╗╨З"SAVE THIS DIRECTORY AS          "DN$" ";:Й"(Y/N)";Z$:Е Z$│"Y" з 730 :Д Й"NEW FILENAME OR <ENTER>";DN$:Е DN$│""з7408х┌DN$│DN$л"/PIC":╪M DN$,3584,9727,409999(фБж180:Е Z$│"Y"зЗ"GRAPHIC DIRECTORY               "DN$" SAVED!"9НюЗ:З"r > RESTART PROGRAM":З"e > END PROGRAM":З"m > GRAPHIC SYSTEN MENU":З:З"PRESS KEY OF CHOICE."9г°Z$│ Т:Е Z$│""з7609┤Е Z$│"R" з О9─Е Z$│"E" зК9▌Е Z$│"M" з 800 :Д760:< Бж180:З"PLACE SYSTEM DESIGN DISK IN     DRIVE ZERO";:╗Й" AND PRESS ENTER";Z$:О"MENU/BAS:0"OGRAM":З"e > END PROGRAM":З"m > GRAPHIC SYSTEN MENU":З:З"PRESS KEY OF CHOICE."9г°Z$│ Т:Е Z$│""з7609┤Е Z$│"R" з О9─Е Z$│"E" зК9▌Е Z$│"M" з 800 :Д760:< Бж180:З"PLACE SYSTEM DESIGN D                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 -&:Г<LISTING1>&>
X│97:Y│225:Z│ Д(7)л1:Е Z│6 Бе1 :Д Бе 10&`З@X, О(X$,P);:З@Y, О(Y$,Q);:Р&ДQ│181:З@Y, О(Y$,Q);:в44539:ЮZ:Р&йP│181:Q│P:Бж3:З@YлA, б(N,143);:Р&╛Бж5:в44539:Бж4:Р&уP│181:Q│P:Бж3:З@XлA, б(N,143);:Р&ЇБж7:в44539:Р'		Бж8:Бж3:в44539:Р'
ЮZ:Бе20'AM│ Д(7): И M Бе 20,40,60,80,100,120,140'jX$│"  DIE STADT IST GROSS UND ALT. "'ПY$│"  THE CITY IS BIG AND OLD. "'пM│ Д(4): И M Бе 23,25,27,29'└A│0:N│11:Бж5'╘в44539:Бж4:Бе40'хA│13:N│4:Бж5'∙в44539:Бж4:Бе40(
A│22:N│5:Бж5(в44539:Бж4:Бе40(/A│18:N│4:Бж5(>в44539:Бж4(`(X$│"  DIESER BERG IST HOCH. "(Г)Y$│"  THIS MOUNTAIN IS HIGH. "(а*M│ Д(3): И M Бе 43,45,47(┴+A│0:N│16:Бж5:в44539:Бж4:Бе60(т-A│18:N│6:Бж5:в44539:Бж4:Бе60)/A│7:N│9:Бж5:в44539:Бж4:Бе60)+<X$│"  DER ANDERE BERG IST NIEDRIG. ")R=Y$│"  THE OTHER MOUNTAIN IS LOW. ")o>M│ Д(3): И M Бе 63,65,67)Р?A│6:N│15:Бж5:в44539:Бж4:Бе80)▒AA│24:N│5:Бж5:в44539:Бж4:Бе80)╞CA│6:N│A:Бж6:Бе80)фPX$│"  HERE IS A BRIDGE. "*QY$│"  HIER IST EINE BRUECKE. "*$RM│ Д(3): И M Бе 83,85,87*:SA│0:N│7:Бж6:Бе100*RUA│11:N│14:Бж6:Бе100*iWA│16:N│9:Бж6:Бе100*НdX$│"  THERE IS ALSO A BRIDGE. "*╡eY$│"  DORT IST AUCH EINE BRUECKE. "*╙fM│ Д(3):И M Бе103,105,107*щgA│0:N│7:Бж6:Бе120+iA│11:N│5:Бж6:Бе120+kA│21:N│ 9:Бж6:Бе120+>xX$│"  THE FIRST HOUSE IS SMALL. "+dyY$│"  DAS ERSTE HAUS IST KLEIN. "+ДzM│ Д(3): И M Бе 123,125,127+Ю{A│6:N│6:Бж6:Бж8:Бе140+┬}A│6:N│11:Бж6:A│6:N│12:Бж8:Бе140+╫A│21:N│7:Бж6:Бж8,МX$│"  I SHAVE MYSELF IN FRONT OF   THE MIRROR. ",>НY$│"  ICH RASIERE MICH VOR DEM     SPIEGEL. ",bОM│ Д(4): И M Бе 143,145,147,149,ЖПA│14:N│5:Бж6:A│10:N│7:Бж8:Бе160,жСA│0:N│14:Бж6:N│10:Бж8:Бе160,╦УA│19:N│4:Бж6:A│17:N│12:Бж8:Бе160,ыХA│23:N│17:Бж6:A│31:N│12:Бж8,Єа:Г-▐:ГPRINT@Y+139," THE END! ";-уЮZ:Бе10-,ч:ГGOTO999     SPIEGEL. ",bОM│ Д(4): И M Бе 143,145,147,149,ЖПA│14:N│5:Бж6:A│10:N│7:Бж8:Бе160,жСA│0:N│14:Бж6:N│10:Бж8:Бе160,╦УA│19:N│4:Бж6:A│17:N│12:Бж8:Бе160,ыХA│23:N│17:Бж6:A│31:N│12:Бж8,Єа:Г-▐:ГPRINT@                                                                                                                                                                                                                                                                 1&
Бе 630&╪"HOG":С&9
В**************************&VВ START DRAW LETTERS SUB&vВ**************************&╡(╔"T255;O2":А LP│1 е  З(A$):LI$│ Р(A$,LP,1):LI│ К(LI$)м64  &█2LX│LXл12:Е LX▓246 з LX│0:LY│LYл12&Ё<Е LI│м19 з LI│28'FЕ LI│м18 з LI│29'6PЕ LI▓м17 ░ LI┤м6 з ╗(LX,LY)м(LX,LY),╛:Бж 420'IZЕ LI┤0 з LI│27'сd╞"BM"л И(LX)л","л И(LY):И LI Бж 130,140,150,160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350,360,370,380,390,400,410'ъn╔"G"'їxЛ LP:Р(В╞"BM+0,+0;ND8R8D4NL8D4":Р :ГA(=М╞"BM+0,+0;ND8R6D4NL6R2D4L8":Р :ГB([Ц╞"BM+0,+0;NR8D8R8":Р  :ГC(~а╞"BM+0,+0;ND8R6F2D4G2L6":Р :ГD(ак╞"BM+0,+0;NR8D4NR6D4R8":Р :ГE(└┤╞"BM+0,+0;NR8D4NR6D4":Р :ГF(с╛╞"BM+0,+0;NR8D8R8U4L3":Р :ГG)╚╞"BM+0,+0;D4ND4R8U4D8":Р :ГH)$╥╞"BM+4,+0;L2R4L2D8L2R4":Р :ГI)C▄╞"BM+0,+0;BR6D8L4U2":Р :ГJ)eц╞"BM+0,+0;D8U4R2NE4NF4":Р :ГK)Ё╞"BM+0,+0;D8R8":Р :ГL)Ю·╞"BM+0,+0;ND8F4E4D8":Р :ГM)┐
╞"BM+0,+0;ND8NF8BR8D8":Р :ГN)▌
╞"BM+0,+0;D8R8U8L8":Р :ГO)№
╞"BM+0,+0;ND8R8D4L8":Р :ГP* 
"╞"BM+0,+0;R8D8NH3NF2L8U8":Р :ГQ*E
,╞"BM+0,+0;R8D4L4NF4L4D4U8":Р :ГR*m
6╞"BM+0,+0;R8D1U1L8D4R8D4L8U1":Р :ГS*К
@╞"BM+0,+0;R4ND8R4":Р :ГT*ж
J╞"BM+0,+0;D8R8U8":Р :ГU*─
T╞"BM+0,+0;D4F4E4U4":Р :ГV*щ
^╞"BM+0,+0;D6F2E2NU4F2E2U6":Р :ГW+
h╞"BM+0,+0;F8BL8E8":Р :ГX+#
r╞"BM+0,+0;F4ND4E4":Р :ГY+?
|╞"BM+0,+0;R8G8R8":Р :ГZ+P
ЖР :ГSPACEBAR+k
Р╞"BM+1,+4;R6":Р :ГDASH+П
Ъ╞"BM+2,+6;D2R2U2L2":Р :Г PERIOD+х
дLI│LIл17:И LI Бж 430,440,450,460,470,480,490,500,510,520:LI│LIм17:Р :ГTHE NUMBERS,

о╞"BM+0,+0;R8D8L8U8R8G8":Р :ГZERO,#
╕╞"BM+4,+0;D8N":Р :Г1,F
┬╞"BM+0,+0;ND2R8D4L8D4R8":Р :Г2,g
╠╞"BM+0,+0;R8D4NL6D4L8":Р :Г3,}
╓╞"D4R8U4D8":Р :Г4,Ш
р╞"NR6D4R6D4L6U1":Р :Г5,▒
ъ╞"NR8D8R8U4L8":Р :Г6,╦
Ї╞"BD8BR8U8L6D2":Р :Г7,ы
■╞"BR2R6D4L6NU4D4R6U4":Р :Г8-╞"BR2ND4R6D4NL6D4":Р :Г9-&В************************-DВ END OF DRAW LETTERS SUB-b&В************************-АXВ************************-ЩbВ START DRAW PROGRAM-╖lВ************************.jvЮ:З"THIS PROGRAM WILL WRITE TO DISK!YOU SHOULD HAVE A BLANK AND     FORMATTED DISKETTE OR A DISK YOUHAVE ALREADY RUN THIS PROGRAM ONIN PLACE. DO YOU STILL WANT TO  CONTINUE?".wАБж 19999.ЙКЕ X$┤▓"Y" з К.ФФ╪"HOG".ЫЮ└4.жи╝:╚3,1.╕▓┴ 3,1:┐ 1,0:╝.╫╝В*************************.ї╞В CHECK FOR CORRECT COLOR/╨В*************************/p┌S│ Ж(&HBC)н256:╝2:╪M"CHECK",S,Sл1024н3м1,&HA000:╚4,1:┴1,0:┐1,1:╝:╙M"CHECK":╥"CHECK/BIN"/╩фA$│"IF SCREEN IS BLUE    THEN HIT -B- KEY. IF SCREEN IS ORANGE     THEN HIT -O- KEY."/█юLX│м1:LY│100/х°Бж 400"X$│ Т:ЕX$│"B" з C2│3:C3│2 :Д Е X$│"O" з C2│2:C3│3 :Д 7700@ В************************0]*В START DRAWING PICTURES0{4В************************0С>╝:╚3,1:┐1,0:┴C2,10╝HЮ:З@97,"DRAWING PICTURES-WAIT PLEASE."0╟RБж 9000╤\Бе9700яfВ************************1
pВ DRAW EMPTY SPACE SUB1(zВ************************1AД╗(0,0)м(256,95),╜,BF1\О╗(25,15)м(225,80),╛,BF1ЙША X│1 е 100:╜( Д(200)л25, Д(65)л15,0):ЛX1ПвР1омВ*************************1╟╢В SAVING EMPTY SPACE1ц└В*************************1∙╩S│ Ж(&HBC)н2562╘╪M"EMPTY",S,Sл1024н3м1,&HA00029▐В************************2QшВ DRAW AND SAVE SUN2oЄВ************************2u№╝2АБж 9002Ч┬(175,48),40,C2,.82к├(175,48),0,C22╩$╪M"SUN",S,Sл1024н3м1,&HA0002ш.В************************38В DRAW AND SAVE STATION3"BВ************************3(L╝33VБж 9003G`┬(125,50),20,C33[j┬(125,50),30,C33ot├(125,75),C3,C33Л~╗(105,45)м(145,55),╜,BF3зИ╗(120,30)м(130,70),╜,BF3╗Т┬(125,50),10,C33╧Ь├(125,50),C3,C33єж╪M"STATION",S,Sл1024н3м1,&HA0004░В************************4&║В DRAW ASTEROIDS4D─В************************4J╬╝4U╪Бж 9004gт┬(35,60),8,C24zь├(35,60),C2,C24НЎ┬(50,30),10,C24Я├(50,30),0,C24▒
┬(80,50),4,C34─├(80,50),C3,C34╪┬(125,50),25,C34ь(├(125,50),C3,C34 2┬(150,70),7,C25<├(150,70),C2,C25'F┬(200,35),15,C25:P├(200,35),0,C25_Z╪M"ASTEROID",S,Sл1024н3м1,&HA0005}dВ************************5СnВ DRAW BOSS-HOG5пxВ************************5╡В╝5└МБж 9005┌Ц╗(95,60)м(155,80),╜,B5юа├(126,61),C3,C26к╗(125,60)м(125,80),╜6#┤╗(100,65)м(115,70),╛,BF6:╛┬(125,45),30,C3,.76N╚├(125,45),C2,C36d╥┬(125,50),10,1,.86v▄┬(121,49),1,16Иц┬(128,49),1,16ЫЁ┬(106,25),6,C26п·├(108,25),C3,C26┬┬(142,25),6,C36╓├(142,25),C2,C36ш┬(116,35),4,16·"├(116,35),0,17,┬(134,35),4,176├(134,35),0,17B@╪M"BOSSHOG",S,Sл1024н3м1,&HA0007_JВ***********************7zTВ SAVE BLANK TEXT SCRN7Ч^В***********************7Юh╝47┼r╪M"CLS",Sл1024н3,Sл1024н6м1,&HA0007у|В************************7■ЖВ DRAW PLANET OPENMIND8РВ************************8#Ъ╝ 8.дБж 9008Eо┬(100,47),30,C2,.88Y╕├(100,47),C3,C28n┬┬(95,40),10,0,.48╠├(95,40),0,08Х╓┬(105,57),10,0,.48зр├(105,57),0,08╠ъ╪M"OPENMIND",S,Sл1024н3м1,&HA0008ъЇВ************************9■В DRAWING PLANET HIPPO9#В************************9)╝94Бж 9009K&┬(150,50),40,C2,.79_0├(150,50),C2,C29x:╗(105,70)м(195,70),╛9СD╗(105,60)м(195,60),╛9кN╗(105,50)м(195,50),╛9├X╗(105,40)м(195,40),╛9▄b╗(105,30)м(195,30),╛9яl├(150,29),C3,1:v├(150,45),C3,1:А├(150,65),C3,1:7К╪M"HIPPO",S,Sл1024н3м1,&HA000:UФВ************************:oЮВ DRAW SWEDISH PLANET:НиВ************************:У▓╝:Ю╝Бж 900:╡╞┬(100,50),30,C2,.8:╚╨├(100,50),0,C2:ф┌╞"BM80,55;U8R4D4U4R4D8":№ф╞"BM+4,+0;U8R6D8L6";ю╞"BM+10,+0;U8R6D4L4R6D4";7°╞"BM+4,+0;U8D4R6U4D4R2D4";[╪M"SWEDISH",S,Sл1024н3м1,&HA000;yВ************************;ТВ DRAWING DOG PLANET;░ В************************;╜*╝:Бж 900;╥4┬(90,45),25,3,.8;у>├(90,45),2,3<H╪M"DOGS",S,Sл1024н3м1,&HA000<"RВ************************<9\В DRAWING HOG KISS<WfВ************************<cp╝:Бж900<zz┬(125,50),45,C2,.6<СД┬(125,50),45,C2,.3<дО├(125,50),0,C2<╗Ш┬(125,50),80,C2,.7<╧в├(125,35),C3,C2<ум├(125,65),C3,C2<Ў╢├(60,50),C2,C2=└LX│90:LY│45:A$│"KISS"=╩Бж 40=;╘╪M"KISS",S,Sл1024н3м1,&HA000=X▐В***********************=rшВ DRAW GRAVE FOR DEAD=ПЄВ***********************=Х№╝=о	╗(0,0)м(256,95),╜,BF>	OX│0:OY│35:А X│1 е 256 й 8:Y│35л Д(20)м10:╗(OX,OY)м(X,Y),╛:OX│X:OY│Y:Л X:╗(OX,OY)м(256,35),╛>	├(1,1),1,1>E	$А X│1 е 100:╜( Д(256), Д(40),0):ЛX>V	.├(5,90),C3,1>p	8╗(85,55)м(168,80),╛,B>Г	B├(100,70),C2,1>Э	L╗(90,60)м(160,75),╛,B>├	VLX│87:LY│64:╞"C1":A$│"R I P":Бж40>▐	`╞"BM85,80;F50;R83;H50">Ё	j├(100,90),1,1? 	tS│ Ж(&HBC)н256:╪M"DEAD",S,Sл1024н3м1,&HA000?=	~В***********************?Z	ИВ END OF PICTURE DRAWING?w	ТВ***********************?└╕а1,4:Ю:З"DO YOU NEED INSTRUCTIONS?":Бж 19999:Е X$│"Y" з 3040 :Д 4000?▌┬В***********************?°╠В INSTRUCTION SEQUENCE@╓В***********************@р└ 4@(ъ╝:╚4,1@:Ї┴ 0,1:┐ 1,1:╝@W■В***********************@sВ SHOW EMPTY VIEWSCREEN@РВ***********************@Ю╙M"EMPTY"@п&LX│м1:LY│100A0A$│"YOU ARE BEING CALLED ON THE INTERSPACE    TELCOMMER...         HIT -ENTER- TO       ANSWER."A2:╔"O1;T100;ABABABABABABAB"A<DБж 40AINБж 19999AUXБж 3520ArbВ***********************AОlВ BOSS HOG COMES ONSCRNAлvВ***********************A╗А╙M"BOSSHOG"BBКA$│"THIS IS YOUR         BOSS-HOG. MISS HOGGY HAS BEEN HOGNAPPED   BY THE INFAMOUS HOGS IN SPACE...          HIT -ENTER- FOR MORE"BLФБж 40BYЮБж 19999BриA$│"YOU ARE BUT A FROG-  MAN FROM PLANET      SWAMP BUT YOU ARE    ALL WE HAVE. YOU ARE TO GO TO...          HIT -ENTER- FOR MORE"Bь▓Бж 3520BЎ╝Бж 40C╞Бж 19999C╨Бж 3520Cl┌A$│"THE CO-ORDINATES I   AM NOW SENDING TO    YOUR NAV-COMPUTER.   HIT -ENTER- FOR MORE"CvфБж 40CГюБж 19999CП°Бж 3520D
A$│"YOU MOVE AROUND THE  STAR SYSTEM BY INPUT -TING DATA ON YOUR   NAV-COMPUTER.  FOR   EXAMPLE-             HIT -ENTER- FOR MORE"D 
Бж 40D-
Бж 19999D9
 Бж 3520Dъ
*A$│"MOVE- 3.4 WOULD MOVE YOU TO A LOCATION    RIGHT 3 AND DOWN 4   FROM THE UPPER LEFT  OF THE SEARCH GRID.  THE GRID COVERS 0.0  TO 8.8 AND YOU START AT 4.4 ON IT.-ENTER-"DЇ
4Бж 40E

>Бж 19999E

HБж 3520Eй
RA$│"THE GRAVITONIC       DETECTOR AT THE      RIGHT OF YOUR SCREEN WILL FLASH WHITE TO  SHOW NEARBY GRAVITY  SOURCES...           HIT -ENTER- FOR MORE"E│
\Бж 40E└
fБж 19999E╠
pБж 3520F:
zA$│"REMEMBER- MISS HOGGY IS DEPENDING ON YOU. GOOD LUCK-KERVIT.    HIT -ENTER- TO       ACTIVATE WARP..."FD
ДБж 40FQ
ОБж 19999F\
ШБе4000Fy
вВ***********************FХ
мВ CLS SCREEN BOTTOM SUBF▓
╢В***********************F═
└╙M"CLS":LX│м1:LY│100:РFыаВ************************GкВ SET UP AND START GAMEG%┤В************************G-╛└ 4G8╚╝:╚4,1GJ╥┴ 0,1:┐ 1,1:╝GX▄МSP$(8,8)GkцSP$(4,4)│"SUN"GЙЁВ************************Gз·В FILL ARRAY WITH PLANETSG┼В************************G╥АZ│1 е 4GрX│ Д(9)м1Gю"Y│ Д(9)м1H,Е SP$(X,Y)┤▓"" з 4120H6Н P$H!@SP$(X,Y)│P$H)JЛ ZHKTЖ OPENMIND,HIPPO,SWEDISH,DOGSHi^В************************HЗhВ FILL ARRAY W/ ASTEROIDSHеrВ************************H│|А Z│1 е 8H┴ЖX│ Д(9)м1H╧РY│ Д(9)м1HщЪЕ SP$(X,Y)┤▓"" з 4230I
дSP$(X,Y)│"ASTEROID"I	оЛ ZI'╕В************************IC┬В PUT HOGULA-1 IN ARRAYIa╠В************************Io╓X│ Д(9)м1I}рY│ Д(9)м1IЧъЕ SP$(X,Y)┤▓"" з 4310IоЇSP$(X,Y)│"STATION"I║■FUEL│20I╞X│4:Y│4I╫LX│м1:LY│100IїИВ************************JТВ TOP OF MAIN LOOPJ*ЬВ************************JQж╝:Е SP$(X,Y)│"" з ╙M"EMPTY":Бе5050Jl░╙M SP$(X,Y) :ГGET PIC.JЮ║A$│"FUEL-"л И(FUEL)л"  LOC-"л И(X)л" ."л И(Y)Jк─╙M"CLS"J┤╬Бж 40J└╙Бж 6030J▌╪В***********************JїтВ DRAW LOCATOR GRIDKьВ***********************K.Ў╗(230,40)м(250,55),╜,BFKI╗(229,40)м(251,55),╛,BKb
╗(230,45)м(250,45),╛K{╗(230,50)м(250,50),╛KФ╗(237,41)м(237,54),╛Kн(╗(243,41)м(243,54),╛K╩2В***********************Kч<В PAINT IN LOCATED ITEMSLFВ***********************LPЕ X│8 з 5220L:ZЕ SP$(Xл1,Y)┤▓"" з ├(244,46),1,1LKdЕ Y│8 з 5240LpnЕ SP$(X,Yл1)┤▓"" з ├(238,51),1,1LБxЕ X│0 з 5260LжВЕ SP$(Xм1,Y)┤▓"" з ├(231,46),1,1L╖МЕ Y│0 з 5280L▄ЦЕ SP$(X,Yм1)┤▓"" з ├(238,41),1,1LєаЕ X│8 ▒ Y│8 з 5300MкЕ SP$(Xл1,Yл1)┤▓"" з ├(244,51),1,1M1┤Е X│8 ▒ Y│0 з 5320MX╛Е SP$(Xл1,Yм1)┤▓"" з ├(244,41),1,1Mo╚Е X│0 ▒ Y│8 з 5340MЦ╥Е SP$(Xм1,Yл1)┤▓"" з ├(231,51),1,1Mн▄Е X│0 ▒ Y│0 з 5360M╘цЕ SP$(Xм1,Yм1)┤▓"" з ├(231,41),1,1MўЁЕ SP$(X,Y)┤▓"" з ├(238,46),1,1N·Е SP$(X,Y)┤▓"" з ├(238,46),1,1N;Е SP$(X,Y)│"STATION" з 6170 NOЕ FUEL│0 з 7030NlВ***********************NВ"В GET PLAYER MOVENЯ,В***********************N┤6A$│"ENTER MOVE-"N┼@LX│м1:LY│180N╧JБж 40N┘TM$│""Nч^А X│1 е 3NЇhБж 19999O!rЕ  Ю(1,".123456780",X$)│0 з а 1,5:Бе5480OD|Е X┤▓2 ░ X$│"." з а 1,5:Бе5480OgЖЕ X│2 ░ X$┤▓"." з а 1,5:Бе5480OqРA$│X$O{ЪБж 40OИдM$│M$лX$OРоЛ XOн╕В***********************O┬┬В INTERPRET MOVEO▀╠В***********************O∙╓╙M"CLS"  :ГCLEAR TEXTPрY│ Й( П(M$,1))PъX│ Й( О(M$,1))P7ЇA$│"WARPING OUT..."PH■LY│100:LX│м1PXFUEL│FUELм1PbБж 40PsLX│м1:LY│100P~&Бе5030PЫ0В***********************P╡:В BOTTOM OF MAIN LOOPP╥DВ***********************P╪NВPїpВ***********************QzВ PRINT MESSAGE ROUTINEQ.ДВ***********************QkОЕ SP$(X,Y)│"SUN" з A$│"YOU SEE THE HOGULA-1 SYSTEM SUN."QзШЕ SP$(X,Y)│"ASTEROID" з A$│"YOU SEE AN ASTEROID  BELT."Q▄вЕ SP$(X,Y)│"" з A$│"YOU ARE IN EMPTY     SPACE."R%мЕ SP$(X,Y)│"STATION" з A$│"YOU HAVE FOUND SPACE STATION HOGULA-ONE!"R|╢Е SP$(X,Y)│"OPENMIND" з A$│"YOU SEE THE PLANET   OF OPEN MINDED STEW- ARDESSES..."R╠└Е SP$(X,Y)│"HIPPO" з A$│"YOU SEE THE PLANET   OF HIPPO-BALLERINAS! -HEAVY-"S,╩Е SP$(X,Y)│"DOGS" з A$│"YOU SEE THE DOG      PLANET. THEY ARE     QUITE -SIRIUS- ABOUT IT."S▓╘Е SP$(X,Y)│"SWEDISH" з A$│"YOU SEE THE PLANET   OF SWEDISH CHEFS.    THEY ARE SERVING     FROGLEGS TODAY...    MORK-MORK-MORK..."S├▐LX│м1:LY│115S═шБж 40S╙ЄРSЁ№В***********************TВ MISS HOGGY IS FOUND!T(В***********************T4╙M"CLS"TЕ$A$│"YOU HEAR A DISTRESS  CALL FROM THE SPACE  STATION. IT IS MISS  HOGGY..."TЦ.LX│м1:LY│100Tа8Бж 40T┤BА X│1 е 1000:ЛXT┴L╙M"KISS"T╤VА X│1 е 100TЇ`Е Xо2│ Б(Xо2) з ┐ 1,1 :Д ┐ 1,0Uj╔"T255;O5;ABC"UtЛXUh~Ю:З"THE GRATITUDE OF MISS HOGGY IS  TRULY OVERWHELMING......             PLAY AGAIN";UМИЙ X$:Е  О(X$,1)│"Y" з 4030 :Д КUйXВ***********************U─bВ RUN OUT OF FUEL-DIE!UсlВ***********************Uэv╙M"CLS"VАA$│"YOU HAVE RUN OUT OF  FUEL..."V$КLX│м1:LY│100V.ФБж 40VBЮА X│1 е 1000:ЛXVOи╙M"DEAD"Vy▓A$│"ANOTHER FROG BITES   THE DUST..."VЕ╝╙M"CLS"VЦ╞LX│м1:LY│100Vа╨Бж 40V▓┌А X│1е5000:ЛXVэфЮ:Й"WANT TO TRY AGAIN??";X$:Е  О(X$,1)│"Y" з 4030 :Д КWNX$│ Т:ЕX$│"" з 19999 :Д РL..."V$КLX│м1:LY│100V.ФБж 40VBЮА X│1 е 1000:ЛXVOи╙M"DEAD"Vy▓A$│"ANOTHER FROG BITES   THE DUST..."VЕ╝╙M"CLS"VЦ╞LX│м1:LY│100Vа╨Бж 40V▓┌А X│1е5000:ЛXVэфЮ:Й"WANT TO TRY AGAIN??";X$:Е  О(X$,1)│"Y" з 4030 :Д КWNX$│ Т:ЕX$│""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ╡&
Х 1000&МI$(58),F$(2)&&N│0&42А I│1 е 9&N<▀0,17,2лI,F$(1),F$(2)&\FА F│1 е 2&pPА J│1 е 97 й 32&╖ZЕ  Р(F$(F),J,1)│ Л(255) з Бе170 :Д Е  Р(F$(F),J,1)│ Л(32) з Бе 140&╬dQ$│ Р(F$(F),Jл8,3)&ъnC$│ Р(F$(F),J,8)л"/"лQ$&ЇxN│Nл1'
ВI$(N)│C$'	МЛ J'ЦЛ F'аЛ I'$кЮ:PA│0'2пI$(24)│""'@┤А I│1 е N'Л╛Е I▓30 ░ PA│0 з З@480,"press m for more, c to choose";:Бж250:PA│м480:Ю'ж╚З@PAл2л(Iм1)н16,I$(I);'о╥Л I'┘▄З@480,"enter to repeat - c to choose";'уцБж250'щЁО(0·I$│ Т:Е I$│"" з 250 :Д Е I$│"M" ▒ I$│ Л(13) з Р :Д Е I$┤▓"C" з 250(E
J│ Н(0):JJ│ Н(1)(f
Е J│0 з T│0 :Д Е J│63 з T│16(в
З@PO," ";:A│ Б(JJо4.3)н32:PO│AлT:З@PO, Л(127л Д(8)н16);)
"Е  Ж(65280)│126 ▒  Ж(65280)│254 з А X│1024лPOл2 е 1024лPOл14:A$│A$л Л( Ж(X)):Л X:Бж310:Бж 335)
,Бе 260)"
6А X│1 е  З(A$))K
@Е  Р(A$,X,1)│ Л(96) з  Р(A$,X,1)│" ")U
JЛ X:Р)Х
OА X│1 е  З(A$):Е  Р(A$,X,1)│"o" з  Р(A$,X,1)│"/":Л X :Д Л X*V
TЕ П(A$,4)│"BIN "зЮ:З"-->"A$:╗Й"ARE ANY COMMANDS REQUIRED PRIOR TO LOADING ?";B$:ЕB$│"Y"▒ B$│"YES" з╗ Й"HAVE YOU DONE THESE COMMANDS    (Y/N)";B$:Е B$│"YES" ▒ B$│"Y" з ╙M A$:в :Д 370 :Д 380*{
^Е  П(A$,4)│"BAS " з ╙  О(A$,8),R*╒
hЮ:ЗA$:З"I DO NOT KNOW THIS EXTENSION    (" П(A$,3)")","SHOULD I LOADm OR lOAD";:Бе400+
rЗ"PLEASE DO THESE COMMANDS THEN   TYPE 'CONT'":С:LOADM A$+F
|Ю:З@224л16м( З("LOADING "лA$)о2),"LOADING "лA$+X
Ж╙M  О(A$,8):в+p
РI$│ Т:Е I$│"" з 400+Н
ЪЕ I$│"M" з ╙M  О(A$,8):в+й
дЕ I$│"L" з ╙  О(A$,8),R+┤
оБе 400SHOULD I LOADm OR lOAD";:Бе400+
rЗ"PLEASE DO THESE COMMANDS THEN   TYP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ё& :ГSAVINFOR by BILL BERNICO&╓
Ю3:З"WHAT IS YOUR NAME";:З@32,"";:ЙN$:Ю:З"WELL, "N$:З"WHAT ITEM ARE YOU SAVING FOR?":АX│1029е(1030л З(N$)):ТX, Ж(X)м64:ЛX:╗ЙA$:З б(32,175);:З"WHAT DOES ";A$:Й"COST IN DOLLARS";B'З б(32,191);:З@261,"IS YOUR INCOME FROM:":З:АX│1285е1304:ТX, Ж(X)м64:ЛX:З"     1.) ALLOWANCE":З"     2.) JOB":З"     3.) BOTH":З:З"     ENTER (1-3)";:ЙC:И C Бж6,7,8(+Ю:З:З"   YOUR TOTAL WEEKLY INCOME IS":F│DлE:З:З:З"             ";:З═"$###.##";F:З:З:З" HOW MUCH OF THAT DO YOU WANT    TO KEEP EACH WEEK FOR SPENDING":З:З:З"     ";:ЙG(┘Е G▓F зЗ@354,"YOU CAN'T KEEP MORE THAN YOU    MADE.  TRY AGAIN":АX│1е1500:ЛX:Бе3:Д H│FмG:Ю:З б(64,128);:З"THIS LEAVES ";N$:W│BоH:З═"$###.##";H;:З" PER WEEK":З б(96,128);)ZЗ"AT THIS RATE YOU WILL HAVE      ENOUGH MONEY TO BUY             ";A$:З"IN";:З═"###.#";W;:З"  WEEKS TIME":З б(128,128);:Бе9)¤Ю:З:З"HOW MUCH DOES ";N$:З"GET FOR A WEEKLY ALLOWANCE":З:З"     examples:":З"     75 CENTS =  .75":З"     1 DOLLAR = 1.00":З"     $3.50    = 3.50":З:З:З;:ЙD:Р*QЮ:З:З"    HOW MUCH DO YOU MAKE ON         YOUR JOB PER WEEK":З:З:З"    $";:ЙE:Р*aБж6:Бж7:Бе3*я	З@484,"aNOTHER RUN   eND";:в43345:АX│1е100:ЛX:IN$│ Т:З@484,"ANOTHER RUN   END";:в43345:АX│1е100:ЛX:ЕIN$│""з9:ДЕIN$│"A"зО:ДЕIN$│"E"зЮ:К:Д9З:З:З;:ЙD:Р*                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Ї&!
В**************************&AВ*  HEAR IT AND SPELL IT  *&aВ*    BY FRED B.SCERBO    *&БВ*   COPYRIGHT (C) 1986   *&бВ*60 HARDING AV.N.ADAMS,MA*&┴В**************************&сВ* THIS PROGRAM WILL NOT  *'
В* WORK WITHOUT A SPEECH  *'A	В*SOUND-PAK BY RADIO SHACK*   REM**************************'u
Ю0:Х2000:З б(32,252);:АI│1е320:НA:З Л(Aл128);:Л'╓Ж60,58,48,62,56,61,60,60,58,53,60,60,58,52,62,60,60,58,,84,94,85,92,93,92,93,80,16,19,27,18,('Ж,59,51,58,,53,51,50,48,53,51,51,58,,59,51,51,58,,80,90,,,85,,,,17,27,19,19,(lЖ,58,,58,,53,,,48,53,,,58,,58,53,50,,,80,90,,,85,,,,21,16,16,16,(┴Ж51,58,,59,50,55,51,51,58,55,,,59,49,58,,61,51,48,81,91,,,87,82,,,20,28,29,28,24)#Ж99,99,99,99,98,99,99,99,99,98,99,99,99,99,99,98,99,98,,,99,98,,,35,34,35,35,35,35,35,34)g(Ж106,,,96,104,101,,,,106,101,96,,,,104,101,,,,101,,,,37,,40,,37,,,40)в-Ж106,,,,,101,,,,106,101,,,,,,101,,,,101,,,,37,,,,37,,,)■2Ж108,108,108,108,106,101,108,108,108,104,101,108,108,108,104,,101,,,,101,,,,37,,,,37,,,*<7Ж,,,,106,101,,,,,101,,,,,,101,,,98,101,96,,98,37,,,,37,,,*Ъ<Ж107,99,99,99,106,103,,,,,103,99,99,99,99,106,103,99,99,106,103,99,99,106,39,34,,,39,34,,*лAЗ б(32,243);*╔FT│80:K│1:SW│41:MU│ Д(м Я)*їKМ B$(SW),W$(SW),P$(SW),P(SW),Q(41),C(7)+PАI│1е7:C(I)│(Iн16)л143:Л+*UXX│&HFF00:YY│&HFF7E+@ZТXXл1,52:ТXXл3,63+N_ТXXл35,60+XdБе140+iiАII│1е З(A$)+ВnЕ  Ж(YY)░ 128│0 з110+ЪsТYY, К( Р(A$,II,1))+вxЛII+╕}Е Ж(YY)░128│0з125+├ВТYY,13+╓ЗАHH│1е70:ЛHH:Р,/МA$│"HEAR IT AND SPELL IT.BY FRED B  SKERBO..COPPEERIGHT NI HN TEEN EIGHTY SIX":Бж105,QСЗ@422,"  BY FRED B.SCERBO  ";,sЦЗ@454," COPYRIGHT (C) 1986 ";,МЫАI│1е20:НW$(I),P$(I),баЕW$(I)│"END"з170,иеЛI,═кA$│"PRESS ENTER TO BE GIN":Бж105,╪пLN│Iм1,ф┤АI│1еLN-╣P(I)│ Д(LN):Е Q(P(I))│1з185-╛Q(P(I))│1:ЛI-)├Е Т┤▓ Л(13)з195-=╚А PY│1е LN:C│PY-I═G│ Д(7)-W╥FT│0:NT│0-Т╫Ю0:З@0, б(64,C(G)):З@96,"  O.K.  LET'S TRY THIS ONE !"-╖▄A$│"O K LETS TRY.THIS ONE":Бж105.сЗ@128,"  HOW WOULD YOU SPELL .....?":З:З б(64,C(G));:A$│"HOW WOOD YOU SPELL ":Бж105.$цАDL│1е1400:ЛDL:З.HыC$│W$(P(C)):A$│P$(P(C)):Бж105:З.gЁP│ З(C$):З@299, б(P,"*"):З.qїБж105.Г·З б(64,C(G));.Х АDL│1е900:ЛDL.┤
АI│1еP:B$(I)│ Р(C$,I,1):ЛI.т
	З@448," PRESS <SPACEBAR> TO SAY WORD.  ";.э
АI│1еP.■
З@330лI,"^";/
X$│ Т/
ЕX$│" "зБж105/*
"ЕX$│"@"з400/;
'З@330лI," ";/K
,ЕX$┤"A"з275/[
1ЕX$▓"Z"з275/w
6З@330лI," ";:ЕX$│""з275/б
;З@298лI,X$;:A$│X$:Бж105:ЕX$│B$(I)з340/п
@АY│1е5:ЛY/╤
ENT│NTл1:A$│"NO NOT "лX$:Бж105/я
JАDL│1е500:ЛDL:A$│P$(P(C))0
OЗ@298лI,"*";:Бе2750
TA$│P$(P(C)):ЛI03
YA$│"VERY GOOD.":Бж1050X
^A$│P$(P(C))л" IS SPELLED.":Бж1050k
cАDL│1е2600:ЛDL0Т
hАI│1е P:A$│B$(I):Бж105:V│ К(B$(I))0▐
mАG│1е6:З@298лI, Л(Vл32);:АDL│1е25:ЛDL:З@298лI,B$(I);:АDL│1е25:ЛDL:ЛG:ЛI1
rАDL│1е200:ЛDL:A$│P$(P(C)):Бж105:Бж1051(
wЕ NT│▓1з NW│NWл1 :Д NC│NCл11V
|З@448,"   PRESS <ENTER> TO CONTUNUE.   ";1М
БАDL│1е900:ЛDL:A$│"PRESS ENTER TO CON TIN U":Бж1051а
ЖЕ Т┤▓ Л(13)з3901и
ЛЛPY1э
РЮ:З@101,"YOU TRIED"NCлNW"WORDS AND":З@165,"SPELLED"NC"CORRECTLY"2
ХЗ@229,"WHILE DOING"NW"WRONG."2)
ЪNQ│NCлNW:Е NQ│0з NQ│12>
ЯMS│ Б(NCоNQн100)2^
дЗ@293,"YOUR SCORE IS"MS"%."2Б
йЗ@357,"ANOTHER TRY (Y/N/C) ?";2Ц
оX$│ Т:ЕX$│"Y"з О2ж
│ЕX$│"N"зЮ:К2╢
╕ЕX$│"C"з2052└
╜Бе4302▌шЖ ALLEGIANCE,AH LEEJENTS2єЄЖ MIXTURE,MIXTURE3№Ж ENCYCLOPEDIA,EN SI CLO PE DEEAH32Ж MECHANIC,MEHKAHNIK3RЖ INDUSTRIAL,INDUHSTREE AHL3jЖ ALCOHOL,AL COHALL3Л$Ж ELECTRICITY,E LEK TRISSITY3е.Ж SOLUTION,SO LU SHUN3┬8Ж INVENTORY,INNVVIN TORY3хBЖ SUPERMARKET,SOO PPER MAR KET3єИЖ END,END№Ж ENCYC                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 я&V:Г tape doctor                    COPYRIGHT (C) 1985              BY MARK NELSON&│	Ю:З:З:З"          tape doctor  ":З:З"      COPYRIGHT (C) 1985":З"        BY MARK NELSON"&╜
Х 999'Ж 26,80,190,128,0,183,255,222,166,128,183,255,223,167,31,140,224,0,37,241,57'1(А I│1 е 21:Н A:A$│A$л Л(A):Л I'@2P│ Э(A$)л1'L<Т P,126'TFв P'ЪKА X│0 е 9:Т &H9D00лX, Ж(&HA7E9лX):ЛX::Гrelocate motor off routine'эPТ &HA7E9,&H7E:Т&HA7EA,&H9D:Т&HA7EB,&H00::Гbranch to reset counter on motor off(aRЖ 9F,76,9E,F3,86,9F,A7,80,9F,F3,9E,76,39:АX│0 е 12:Н R$:Т&H9F00лX,( Й("&H"лR$)):Л::Гroutine to put white square)#UТ &H9E00,&H9F:Т &H9E01,&H76:Т &H9E02,&H9E:Т &H9E03,&HF3:Т &H9E04,&H86:Т &H9E05,&H80:Т &H9E06,&HA7:Т &H9E07,&H80:Т &H9E08,&H9F:Т &H9E09,&HF3:Т &H9E0A,&H9E:Т &H9E0B,&H76:Т &H9E0C,&H39::Гblack)ЯVТ &HA740,4:Т &HA745,&H7E:Т&HA746,&H9F:Т&HA747,0:Т&HA741,&H7E:Т&HA742,&H9E:Т&HA743,0::Г branch to routines to put square*XТ &H9D0A,&H8E:Т&H9D0B,&H04:Т&H9D0C,&HC0:Т&H9D0D,&H9F:Т &H9D0E,&HF3:Т &H9D0F,&H39::Гroutine to reset counter on motor off*nZТ &HF3,&H04:Т &HF4,&HC0:Т &HA531,&H12:Т &HA532,&H12:Т&HA4E3,&H12:Т&HA434,&H12*ПшЗ:З"       THE DOCTOR IS in"*ХЄЦ*ю№:Г      tape doctor                 COPYRIGHT (C) 1985                BY MARK NELSONH39::Гroutine                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  З&МCC(15):Т65497,0&=З"ARE YOU USING AN RGB MONITOR? ";&Н
ANS$│ Т:ЕANS$│""з 10 :ДЕANS$│"N"з П:АX│0е15:НA:Л:уЎ:Д ЕANS$│"Y" зП:уў :Д 10&Ыч4,8:ф2:Ю&┌ъ(0,26)м(320,26),╜:ъ(0,96)м(320,96),╜:ъ(0,166)м(320,166),╜& (А X│0е320й40:ъ(X,27)м(X,165),╜:Л'L2АX│0е7:НCC(X):ш(20лXн40,27),X,4:Л:АX│8е15:НCC(X):ш(20л(Xм8)н40,97),X,4:Л'p<ю(8,0),"CURRENT PALETTE COLORS"'╠FST$│"S0   S1   S2   S3   S4   S5   S6   S7":SB$│"S8   S9   S10  S11  S12  S13  S14  S15'чPю(0,2),ST$:ю(0,21),SB$(ZАX│0е7:CC$│"C"л И(CC(X)):ю(5нX,1),CC$:Л(EdАX│8е15:CC$│"C"л И(CC(X)):ю(5н(Xм8),22),CC$:Л(enэ1,908:ы(0,184)м(200,192),1(╛э2,98:ы(0,0)м(20,8),2(д╚ю(0,23),"SLOT NUMBER TO CHANGE?"(══I$│ Т:ЕI$│""з205:Дю(24,23),I$:SL$│I$(№╥I$│ Т:ЕI$│""з210 :Д ЕI$┤▓ Л(13)зSL$│SL$лI$)6╫SL│ Й(SL$):ЕSL┤0 ▒ SL▓15зь(0,184)м(200,192),1,╜:Бе200){▄ь(0,184)м(200,192),1,╜:ю(0,23),"SLOT "лSL$л"  NEW COLOR NUMBER?")дцI$│ Т:ЕI$│""з230:Дю(26,23),I$:CC$│I$)▌ЁI$│ Т:ЕI$│""з240:ДЕI$┤▓ Л(13)зю(27,23),I$:CC$│CC$лI$) їCC│ Й(CC$):ЕCC┤0 ▒ CC▓63 з220*:·уSL,CC:ь(0,184)м(200,192),1,╜:ь(100,184)м(300,192),1,╜*С ЕSL┤8 зь(16лSLн40,8)м(35лSLн40,15),2,╜:Дь(16л(SLм8)н40,176)м(35л(SLм8)н40,183),2,╜*╧
ЕSL┤8зю(1л5нSL,1), И(CC)л" ":Дю(1л5н(SLм8),22), И(CC)л" "*┘
Бе200*фшБе1000+╨Ж18,54,9,36,63,27,45,38,0,18,0,63,0,18,0,38+C┌Ж18,36,11,7,63,31,9,38,0,18,0,63,0,18,0,38+Ж'Т65496,0:ЯИ:АX│1е9000:Л:АX│1е3:Ш"CNGPALET":ЯИ:АY│1е600:ЛY,X:Як183),2,╜*╧
ЕSL┤8зю(1л5нSL,1), И(CC)л" ":Дю(1л5н(SLм8),22), И(CC)л" "*┘
Бе200*фшБе1000+╨Ж18,54,9,36,63,27,45,3