?▓О.ьй?▓О■1!щй?▓1?йй?▓О.О.эй?▓╜4hО▐ЖцДОэй?▓╠АОэй?▓╠Оэй?▓Оьй?▓Оэй?▓╠Оэй?▓╠Оэй?▓Оьй?▓О■1!тй?▓1?вй?▓ООэй?▓Оой?▓╠чД╠╡О.гй?▓$~2f╠ Оэй?▓Оьй?▓О■1!тй?▓1?вй?▓ООэй?▓Оьй?▓О■1!щй?▓1?йй?▓ООэй?▓╜2Оьй?▓О■1!тй?▓1?вй?▓ООэй?▓╜2╠
Оэй?▓Оьй?▓О■1!щй?▓1?йй?▓ООэй?▓Оьй?▓6
ОоЙ?▓X7
■1!щй?Ё1?йй?ЁООэй?▓╠
Оэй?▓Оьй?▓О■1!тй?▓1?вй?▓ООэй?▓6
ОоЙ?▓X7
ьй?ЁОэй?▓╠Огй?▓'~0л╠О гй?▓#~-░╠

Оэй?▓~-░Оой?▓Оьй?▓чД╠
Оэй?▓Оьй?▓О■1!тй?▓1?вй?▓ООэй?▓Оой?▓Оьй?▓чД9О╠чД9╠О6гй?▓$~2М╠
О6эй?▓9╠Оэй?▓О6ьй?▓О■1!тй?▓1?вй?▓О6О6эй?▓╠┐О6гй?▓#~2┘╠╛О6эй?▓9Оой?▓ЖцДО8эй?▓╠
Оэй?▓Оьй?▓О■1!щй?▓1?йй?▓ООэй?▓Оой?▓ЖцДО:эй?▓╠
Оэй?▓Оьй?▓О■1!щй?▓1?йй?▓ООэй?▓О0ьй?▓Огй?▓%~3Е╠
Оэй?▓9О<ьй?▓Оэй?▓Ожй?▓О
цй?▓=Оэй?▓Ожй?▓Оцй?▓=Оый?▓Йчй?▓Оьй?▓Оэй?▓9О<ьй?▓Оэй?▓ЖОзй?▓ЖОцй?▓XIО
бй?▓%ай?▓\Оjй?▓&хОчй?▓╞Очй?▓ООцй?▓XIО
бй?▓%ай?▓\Оjй?▓&хОжй?▓Оэй?▓9О.ьй?▓Оэй?▓╠ О<эй?▓╜3Ж╠Оэй?▓Оьй?▓О■1!щй?▓1?йй?▓О(О(эй?▓Оьй?▓О*■1!щй?▓1?йй?▓ООэй?▓Оьй?▓О,■1!щй?▓1?йй?▓ООэй?▓9О4ьй?▓О8■1!тй?▓1?вй?▓О
О
эй?▓╠Оэй?▓О8ьй?▓О4гй?▓"~5|О8ьй?▓О4■1!тй?▓1?вй?▓О
О
эй?▓╠
Оэй?▓О6ьй?▓О:■1!тй?▓1?вй?▓ООэй?▓О:ьй?▓О6гй?▓"~6О:ьй?▓О6■1!тй?▓1?вй?▓ООэй?▓╠Оэй?▓Оьй?▓О■1!щй?▓1?йй?▓ООэй?▓╠
Оэй?▓╠
Огй?▓&~6G╠Огй?▓&~6G╠Оэй?▓Оьй?▓О
гй?▓#~7┘╠О
гй?▓&~3Е╠
Оэй?▓Оьй?▓О■1!фй?▓1?дй?▓ООэй?▓╠
Огй?▓&╜9О:ьй?▓О6эй?▓О8ьй?▓О2эй?▓╜9t╠
Оэй?▓О8ьй?▓О■1!щй?▓1?йй?▓О8О8эй?▓О4ьй?▓О8гй?▓&~3ЕО8ьй?▓О2■1!тй?▓1?вй?▓ООэй?▓Оьй?▓О<эй?▓╜3ЖО
ьй?▓О<эй?▓Оьй?▓Оэй?▓╜3▀╠Огй?▓&~7░О6ьй?▓О■1!тй?▓1?вй?▓О:О:эй?▓~6╨О6ьй?▓О■1!щй?▓1?йй?▓О:О:эй?▓~6╨╠
Огй?▓$╜9О:ьй?▓О2эй?▓О8ьй?▓О4эй?▓╜9t╠
Оэй?▓О:ьй?▓О■1!щй?▓1?йй?▓О:О:эй?▓О6ьй?▓О:гй?▓&~3ЕО:ьй?▓О2■1!тй?▓1?вй?▓ООэй?▓О
ьй?▓О<эй?▓╜3ЖОьй?▓О<эй?▓Оьй?▓Оэй?▓╜3▀╠Огй?▓&~8ъО4ьй?▓О■1!тй?▓1?вй?▓О8О8эй?▓~8
О4ьй?▓О■1!щй?▓1?йй?▓О8О8эй?▓~8
О8ьй?▓Оэй?▓О4ьй?▓О8эй?▓Оьй?▓О4эй?▓О:ьй?▓Оэй?▓О6ьй?▓О:эй?▓Оьй?▓О6эй?▓9О:ьй?▓Оэй?▓╠ О<эй?▓╜3ЖОьй?▓О*■1!щй?▓1?йй?▓О$О$эй?▓О8ьй?▓Оэй?▓╠О<эй?▓╜3▀╠Оэй?▓О8ьй?▓О■1!фй?▓1?дй?▓О(О(эй?▓О$ьй?▓О■1!щй?▓1?йй?▓О$О$эй?▓О$ой?▓ЖцДО"эй?▓6
О(оЙ?▓X7
ьй?ЁОэй?▓╠ Огй?▓&~;l╠ О,гй?▓&~;3Оьй?▓О"■1!фй?▓1?дй?▓О(О(эй?▓╠О(гй?▓$~;╦╠ Оэй?▓О$ьй?▓О■1!щй?▓1?йй?▓ООэй?▓Оой?▓ЖцДО(эй?▓Оьй?▓О(■1!фй?▓1?дй?▓ООэй?▓╠Огй?▓$~;╦Оьй?▓О"■1!ъй?▓1?кй?▓О(О(эй?▓О$ой?▓О(ьй?▓чД9Оьй?▓О■1!тй?▓1?вй?▓О(О(эй?▓О"ьй?▓О(■1!фй?▓1?дй?▓ООэй?▓О$ой?▓Оьй?▓чД9О,ьй?▓Оэй?▓╠О<эй?▓╜3ЖОьй?▓О(эй?▓О(ьй?▓О8■1!тй?▓1?вй?▓ООэй?▓О8ьй?▓О(гй?▓"~<[О8ьй?▓О(■1!тй?▓1?вй?▓ООэй?▓О:ьй?▓О.■1!тй?▓1?вй?▓О(О(эй?▓О.ьй?▓О:гй?▓"~<╜О.ьй?▓О:■1!тй?▓1?вй?▓О(О(эй?▓Оьй?▓О(■1!щй?▓1?йй?▓ООэй?▓О ьй?▓Огй?▓$~=О╠чД~>р╜4h╠Оэй?▓Оьй?▓О■1!тй?▓1?вй?▓ООэй?▓╠
О&эй?▓╜?N╠О<гй?▓&~;3╠Оэй?▓Оьй?▓О■1!щй?▓1?йй?▓ООэй?▓О(ьй?▓О*■1!щй?▓1?йй?▓ООэй?▓╠
Оэй?▓Оьй?▓О■1!тй?▓1?вй?▓О(О(эй?▓╜?N╠О<гй?▓&~;3О▐ЖцДОэй?▓О(ьй?▓О■1!тй?▓1?вй?▓ООэй?▓О,ьй?▓О*■1!щй?▓1?йй?▓ООэй?▓╠ О&эй?▓╜?N╠О<гй?▓&~;3О(ьй?▓О■1!щй?▓1?йй?▓ООэй?▓╠№Оэй?▓О*ьй?▓О■1!щй?▓1?йй?▓ООэй?▓╜?N╠О<гй?▓&~;3О╠
чД╠
Оэй?▓О8ьй?▓О■1!щй?▓1?йй?▓О4О4эй?▓╠
Оэй?▓О:ьй?▓О■1!щй?▓1?йй?▓О6О6эй?▓╠	О эй?▓9Оой?▓ЖцДО<эй?▓╠О<гй?▓'~?пОьй?▓О&■1!щй?▓1?йй?▓ООэй?▓Оьй?▓Огй?▓%~?N99                               А@ 
 %fО4О4эй?▓╠
Оэй?▓О:ьй?▓О■1!щй?▓1?йй?▓О6О6эй?▓╠	О эй?▓9Оой?▓ЖцДО<эй?▓╠О<гй?▓'~?пОьй?▓О&■1!щй?▓1?йй?▓ООэй?▓Оьй?▓Огй?▓%~?N99                                                                                                                                                                                                                                                                                               =8дP╛
hпНЩ0НР┐
hЖ╖

ЖЧ╢ЖЧ┴О╢└БD&ОпН
a
╘╛
#1Н┐
#╞sжАзаZ&∙0Н
ї0И<1Н
0пД╛

пН 0Н┐

oН
╙oН
╨п9жН
╚LзН
├Б'~oН
╕жН
╡LБ&
OзН
лзН
д
] т
o'~2b44PБ&ЮИМ'ЧЎ
чН
~
7ЮИ0ЯИДБ
&0Ў
чН
g
 ╓Й─чН
[╞ рН
UЮИ:ЯИ
М&YОрЯИНW PБ -LА Д╞=1Н
п1л╢╞чН
%O╞└HHхд'║
 ║
TT&юзД0И 1!jН
&▐▄И├
▌ИГ-╠р▌ИНп549оНы1ЙАпНрьЙ
АэБмН╓-ЇоН╥1Й оН╚пН├Ў
чН╕ (P'╜╖─чНй Ў
чНаОЯИоНЭ1Й пНТН	эБмНК/°9O╞HHкНzZ&ўЙ9▄ИГ4─чНf5DVDVDVDVDVЖ└=эНXуНTуНR
цНE:9Н┐4Н╩╞5зД0И Z&°9╢ "Д╓╢┴'Кр КЁЪ┴╖ "╖ └╖ ├╖ ┼╖ ╟╖ ╔╢└БD&╖ ╦9G G G G G G G G G G G W fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffFfffffffffFfffffffffF33333 33 3?<??3033<330000033?0?00033333<?30?33033?00<<30<33?00333333300??00333333?333<33<33<30003<33333<?00<00??00<000300?3333?333??3333<<33000000?3?3333333?333333333<33<00033333<33<333303?3333333333333333?3333333333?00??00000?00????33333000<3300333<?30<000333000<333300003<3<?3?3333333<33<000333<000?3333333?3333333?0??00000?00???* 8д0003<3<?3?3333333<33<000333<000?3333333?3333333?0                                                                                                                                                                                                                                                                
%f╬@О>pоГпуМ%{.ї~'ОО'ЙюбяБМ-ў╢ Д
&∙~)Й9                                             √            
	 
.        	 
	   	 
  
  ' 
 	 	.  
 4		 (, 	,  
 ).  
   & 
 
 
   	 
 	  	.    '     
 
  	 

  
	. 
 
	 
, 	  	
,   
 	. 
  
   5 
 '  
 
   
  	  	  	 .         	   ()
 ╜+OО
ыoАМ
я/∙О  ОЖпБJ&·0ИМ&-ЁО,КО?жДзд1и 0И М-к-ёО,ФОz╞Н_1и0ИМ-к-ёО,ЭО √╞НI1и0ИМ-к-ёО,ЩОЫ╞Н31и0ИМ-к-ёО ╟oБoБoБ0
oБoБoБoД ┼ ├ └╢ "ДК°╖ " UжАзаZ&∙9╬9 
 О
ЁН @О
√╬∙ 
 ╞oАZ&√╞ О╬∙ 
 ╞жВ■
 О,К1ж3┼ждз─3╚ 1и М-к-ЁZ&р9Н╛Ж╖z╖{Ж;╖?у╜+Ozz╢zО"|О,К1ж╞	ждзД0И 1и Z&є╢zБ'
ОЖ`зАМA-∙}z'▀╜+OЖ`╖?ы╖?эЖ
╖?╧╢?у╖?═╢{╖?╙Ж ╖?▀?─№
Лc╦Х=╖
ДК╖?┼╖▌ў
°
─╦ў▄╢{J╞ =ў▐╜-кz& k|{│╢{Л9░?уОлВ_А
+\ ∙Л
зД]'Ш ыО╞oАZ&√0М&-Є9■ЄО ╬Ў?▀0ЕЖ Ў?с=0ЛЖяД0И J&°╢{Б	- ^Ж╖{╢?уА_А
+\ ∙Xў
╢?у░
╖?уН[ О,аОF╞
жАзаZ&∙0И1иМ-к-ь╢ Д
&∙Т
Ж`╖
Жа╖
 A
Ж╖
╞pў
Н2╞`ў
Н+╞@ў
Н$╞0ў
 
Ж(╖
╞`ў
Н╞Pў
Н╞@ў
 ╢ 
Дў╖ 
╢ Дў╖ ╢ #К╖ #╛
Ж№╖

Н


Н1?&Ё9╞╢

╖  НZ&ї9╢
J&¤9О
ыО
√╞жабА%■"Z&є■зжазАZ&∙¤л├ч├├ўГуБ├├├у├З{Гу╜~┴╛>?Ар├?|╜╫╜╜я┐▀¤╜╜╜▌╜╗{я▌╜<▀Ю┴0├0c╜ў¤¤▀┐┐¤╜╜┐┐╜╗{я┐╜Z▀о└
ЖЛ0├0c╜ў¤¤╗┐┐√╜╜┐┐╜╗{я┐╜f▀о└╞s0├0e╜ў├уБГГ√├┴├┐╜Зя┐Б~├╢└0f?├>~╜ў┐¤√¤╜ў╜¤¤┐╜Я{я▒╜~▀║╧?ц0├0x╜ў┐¤√¤╜ў╜¤¤┐╜п{я╜╜~▀║├0f0f0l╜ў┐╜√╜╜я╜╜╜▌╜╖{я▌╜~▀╝├0f0f0f├├├├√├├я├├├у├╗{Гу╜~┴╛?0f?Ар?c╠й▐¤
>нЯ
>╠О<эй?▓О
ZЖцДОэй?▓╜3▀О8ьй?▓О■1!щй?▓1?йй?▓О6О6эй?▓О
[ЖцДОэй?▓╜2oО6ьй?▓О4эй?▓╜3▀О:ьй?▓О■1!щй?▓1?йй?▓О6О6эй?▓╜2oОой?▓О4ьй?▓чД╠
Оэй?▓Оьй?▓О■1!щй?▓1?йй?▓О
О
эй?▓О
ой?▓О6ьй?▓чД╠Оэй?▓╜5╜2┌╠ Оэй?▓Оой?▓ЖцДО4эй?▓╠
Оэй?▓Оьй?▓О■1!щй?▓1?йй?▓О
О
эй?▓О
ой?▓ЖцДО6эй?▓╜5Оьй?▓Оэй?▓Оьй?▓Оэй?▓╜2┌Оьй?▓Оэй?▓Оьй?▓Оэй?▓╠	О гй?▓&~?░╠
Огй?▓$~/ш╠ О,гй?▓#~-░╠
Оэй?▓Оьй?▓О■1!тй?▓1?вй?▓ООэй?▓╠Огй?▓$~-░О▄ЖцДО,эй?▓О▌ЖцДО.эй?▓╠
ОэйDЗ"    FOR PMODE 3 SCREEN 1,0               0 = GREEN                       1 = YELLOW                      2 = BLUE                        3 = RED":З01FЗ"    FOR PMODE 3 SCREEN 1,1               0 = BUFF                        1 = CYAN                        2 = MAGENTA                     3 = ORANGE"0BHБж9000:Ю:З:З0▌JЗ"   FOR PMODE 4 SCREEN 1,0               0 = BLACK                       1 = DULL RED (OR BLUE)          2 = DULL BLUE(OR RED)           3 = GREEN":З1vLЗ"   FOR PMODE 4 SCREEN 1,1               0 = BLACK                       1 = BLUE (OR RED)               2 = RED (OR BLUE)               3 = WHITE"1ЗNБж9000:Ю:З:З2PЗ" IF YOU DO NOT WISH TO EDIT THE  CHARACTER SET, THAT IS OKAY     BACAUSE GRAFTEXT COMES PREDE-   FINED WITH ITS OWN.":З2ьRЗ" WHEN YOU ARE DONE EDITING, YOU  CAN SAVE THE NEW CHARACTER SET  ON TAPE OR DISK. THE PROGRAM    PART IS SAVED WITH THE CHAR-    ACTER SET. TO LOAD AND EXEC A   NEW SET, FOLLOW THE SAME LOAD-  ING INSTRUCTIONS FOR GRAFTEXT."2ўTБж90003ПVЮ:З@129,"DO YOU WISH TO EDIT THE CHAR-   ACTER SET OR GO STRAIGHT TO     RUNNING A DEMO OF GRAFTEXT?     PRESS e TO EDIT, r TO RUN       GRAFTEXT."3┤WK$│ Т:ЕK$│"E" з90 :ДЕK$┤▓"R" з873┐XБе50003╬ZЮ:З@96,"";47[З" BEFORE YOU CAN START EDITING,   THE GRAPHIC TEXT MACHINE LAN-   GUAGE PROGRAM MUST BE LOADED. ":З4X\З"    USE TAPE OR DISK? T/D"4Ш]K$│ Т:ЕK$│"T" з ЧM "GRAFTEXT" :ДЕK$│"D" з ╙M"GRAFTEXT" :Д935dЮ:З@33, б(12,175);:З@33л13н32, б(12,175);:АI│65 е 440 й 32:З@I, Л(175) Л(175);:З@Iл10, Л(175) Л(175);:Л5╝nЗ@48,"USE ARROWS TO";:З@78,"MOVE PIXEL CURSOR";:З@116,"---";:З@238,"C - CLEAR CHAR.";:З@270,"N - EDIT NEXT";:З@302,"P - EDIT PREVIOUS";:З@334,"S - SAVE SET";:З@366,"L - LOAD SET";5ўsЗ@142,"SPACE-BAR CHANGES";:З@179,"PIXEL";:З@212,"---";6
xЗ@398,"Q - QUIT";6vВЗ@0, б(33,191);:АI│31 е 510 й32:З@I, Л(191); Л(191);:Л:З@480, б(31,191);:Т1535,191:З@429, б(18,191);6КМCX│0:CY│0:CP│326╚ЦЗ@462,"               ";:З@462,"CHARACTER: '"; Л(CP);"'";7аPT│(CPм32)н12лTS:Т279,PTо256:Т280,PT ░ 255:в PL:АY│0 е 11:BT(Y)│ Ж(PTлY):Л7Ф╛X│CX:Y│CY:Бж3:З@PP, Л(191) Л(191);:АZQ│338 е 345:ТZQ,255:Л:ЕBT(CY) ░ BP(CX) зЗ@PP, Л(223) Л(223); :ДЗ@PP, Л(128) Л(128);7к╚K$│ Т:ЕK$│"" з1907┼╩P│ Ю(CM$,K$):ЕP│0 з2007√═И P Бе210,220,230,240,250,260,270,275,280,990,3008╤Бе2008$╥ЕCY│0 з190 :ДCY│CYм1:Бе1908D▄ЕCY│11 з190 :ДCY│CYл1:Бе1908cцЕCX│0 з190 :ДCX│CXм1:Бе1908ВЁЕCX│3 з190 :ДCX│CXл1:Бе1908Ь·ЕBT(CY) ░ BP(CX) з2558р√BT(CY)│BT(CY) ▒ BP(CX):X│CX:Y│CY:Бж3:З@PP, Л(223) Л(223);:Бе1909* BT(CY)│BT(CY) ░ (255мBP(CX)):X│CX:Y│CY:Бж3:З@PP, Л(128) Л(128);:Бе1909R
Бж1000:ЕCP│127 з200 :ДCP│CPл1:Бе1509y
Бж1000:ЕCP│32 з200 :ДCP│CPм1:Бе1509╧
Бж1000:Бж2000:Бж3000:ЕDN│1 з ╪M F$,14500,&H3FE0,14500 :Д ШM F$,14500,&H3FE0,145009┘
Бе100:	
Бж1000:Бж2000:Бж3000:ЕDN│1 з ╙M F$ :Д ЧM F$:
Бе100:B
,PT│(CPм32)н12лTS:АI│0 е 11:ТPTлI,0:Л:Бе150:Y▐Бж1000:З@480,"";:К:_чК:ПшPT│(CPм32)н12лTS:АI│0 е 11:Т PTлI,BT(I):Л:Р:┤╨Ю:З@230,"use tape or disk? t/d";:ш┌K$│ Т:ЕK$│"T" зDN│м1:Р :ДЕK$│"D" зDN│1:Р :Д2010;$╕Ю:З@230,"filename:";:╗Й F$:ЕF$│"" ▒  З(F$)▓12 з3000 :ДР;HИЗ:З"     USE TAPE OR DISK? T/D";wТK$│ Т:ЕK$│"D" з5100 :ДЕK$│"T" з5200 :Д5010;ЛьО"GRAFDEMO.BAS";СOК;пPЗ:З" ENTER 'RUN' WHEN OK";┐ZЧ"GRAFDEMO";┼│К;ь#(З@484,"press [enter] to continue";<#2Е Т┤▓ Л(13) з9010 :ДР<O├PЖ 142,4,67,16,190,1,23,51,44,239,141,0,28,198,128,134,223,229,164,38<Ч├ZЖ 2,134,128,167,128,84,38,243,48,136,24,49,33,16,172,141,0,3,38,229<а├dЖ 57<мъ`└1:Бе20;┐ZЧ"GRAFDEMO";┼│К;ь#(З@484,"press [enter] to continue";<#2Е Т┤▓ Л(13) з9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                З@115,"WUMPUS ";:АTM│1е10:а44,1:ЛTM 8F8З@198,"YOU UTILIZED"MM"MOVES";8PBБе8808ЩVЗ@390,"  YOU ARE RATED AS   ";:З@422," SUPER EXPERT HUNTER.";:Бе11508р`З@390,"  YOU ARE RATED AS   ";:З@423,"   EXPERT HUNTER   ";:Бе11509jЗ@393,"YOU ARE RATED";:З@425,"SENIOR HUNTER";:Бе11509ctЗ@390,"  YOU ARE RATED AS   ";:З@422,"   JUNIOR HUNTER      ";:Бе11509мyЗ@390,"  YOU ARE RATED AS   ";:З@422,"   A BEGINNER        ";:Бе11509┘~З@448,"<PRESS ENTER KEY TO REPLAY.>";:ЙX9тИБе709¤╪:Г******SNOOT*********:т╚ 4,1:
ь╝:Ў┐ 1,0:+:Г*** SNOOT ***:H
┬(128,49),70,3,1,.10,.21:e┬(128,49),70,3,1,.31,.42:Б┬(67,70),19,3,1,.20,.99:Ю(┬(191,69),19,3,1,.49,.30:╗2┬(127,14),70,3,1,.15,.37:═<┬(112,96),2,3:▀F┬(144,96),2,3:·P╗(104,115)м(152,115),╜;Z:Г*** LEFT EYE ***;)d╗(112,76)м(92,68),╜;@n╗(92,68)м(85,56),╜;Wx╗(84,56)м(96,52),╜;oВ╗(96,52)м(112,60),╜;ИМ╗(112,60)м(120,72),╜;бЦ╗(120,72)м(112,76),╜;╣а:Г*** RIGHT EYE ***;╥к╗(164,68)м(144,76),╜;ы┤╗(144,76)м(136,72),╜<╛╗(136,72)м(144,60),╜<╚╗(144,60)м(160,52),╜<6╥╗(160,52)м(172,56),╜<O▄╗(172,56)м(164,68),╜<kц:Г*** LEFT TOP HEAD ***<ВЁ╗(84,32)м(74,52),╜<а·:Г *** RIGHT TOP HEAD ***<╣╗(181,52)м(173,32),╜<╙:Г*** TOP OF HEAD ***<Ё┬(128,65),60,3,1,.65,.87=":Г*** LEFT HORN ***=!,╗(100,24)м(112,24),╜=96╗(112,24)м(92,40),╜=O@╗(92,40)м(56,4),╜=fJ╗(56,4)м(100,24),╜=T:Г*** RIGHT HORN ***=Ш^╗(144,24)м(164,40),╜=░h╗(164,40)м(200,4),╜=╚r╗(200,4)м(156,24),╜=с|╗(156,24)м(144,24),╜=°Ж:Г*** TL TOOTH ***>Р╞"BM104,115D16R8U16">(Ъ:Г*** TR TOOTH ***>Aд╞"BM152,115D16L8U16">Xо:Г*** BL TOOTH ***>q╕╞"BM108,155U16R8D16">И┬:Г*** BR TOOTH ***>а╠╞"BM148,155U16L8D16>╕╓:Г*** RIGHT EYE ***>╩р┬(152,64),4,3>съ:Г*** LEFT EYE ***>єЇ┬(104,64),4,3?■:Г*** INNER JAW ***?%╗(92,155)м(164,155),╜?>╗(85,104)м(92,155),╜?Y╗(173,105)м(164,155),╜?q&:Г*** OUTER JAW ***?Л0╗(182,95)м(177,170),╜?г:╗(75,95)м(81,170),╜?┬D╞"BM79,170R18D4R18R46U4R18?╒NЕ PP│1 з Бе850?шPЕ PP│2 з Бе920@X:Г*** WUMPUS LETTERING ***@%b╞"BM4,40D10E4NU1F4U10BR4"@@l╞"BM4,56D8F2R4E2U8BR4"@]v╞"BM4,72ND10F4E4ND10BR4"@АА╞"BM4,88ND10R6F2D1G2L6BR12BU5"@ЬК╞"BM4,104D8F2R4E2U8BR4"@╚Ф╞"BM4,120BR8L6G2D1F2R4F2D1G2L6BR12BU10"@█ЮАTM│1е3000:ЛTM@сиРе920@X:Г*** WUMPUS LETTE н&A
В COPYRIGHT (C) T&D SOFTWARE 1985    * GRAFTEXT AND EDITOR*&P╚0:Бе60000&ePP│Yн32лXн2л67:Р&╒Х200,14449:М BT(11),BP(3):BP(0)│192:BP(1)│48:BP(2)│12:BP(3)│3:CM$│"^"л Л(10)л Л(8)л Л(9)л" NPSLQC":TS│15200&¤АI│14450 е 14490:НD:ТI,D:Л:PL│14450'gЮ:З@96,"":З"      graftext character              editing program                 and instructions":З'К З"     WANT INSTRUCTIONS? Y/N"'п"K$│ Т:ЕK$│"N" з86 :ДЕK$┤▓"Y" з34'╗$Ю:З:З:З(>&З" GRAFTEXT, THE NEXT PROGRAM, IS  A MACHINE LANGUAGE PROGRAM      THAT GIVES YOU TEXT ON THE HI   RESOLUTION GRAPHIC SCREEN.")(З" ONCE GRAFTEXT HAS BEEN EXECed,  IT WORKS AUTOMATICALLY. ALL     OUTPUT THAT WOULD NORMALLY      GO TO THE STANDARD TEXT         SCREEN IS NOW DISPLAYED ON THE  HI RESOLUTION SCREEN.":Бж9000)ь)Ю:З@96," SINCE THE HI RESOLUTION SCREEN  IS BEING USED TO DISPLAY THE    TEXT, THE CHARACTER SET USED    BY GRAFTEXT IS CHANGABLE.       EDITING THE CHARACTER SET IS    THE FUNCTION OF THIS PROGRAM    YOU ARE CURRENTLY RUNNING."*\*З" EDITING INSTRUCTIONS ARE PRO-   VIDED LATER.":Бж9000:Ю:З:З:З" GRAFTEXT HAS THE FOLLOWING      FEATURES:"+T,З" 1. TRUE UPPER/LOWER CASE        2. DECENDERS ON LOWER CASE      3. 4 DIFFERENT CHARACTER FORE-     GROUND COLORS                4. 4 DIFFERENT CHARACTER BACK-     GROUND COLORS                5. SUPPORTS PRINT @, CLS, AND      CLS (NUMBER)"+О.З" 6. WORKS WITH PMODE 3 AND          PMODE 4":Бж9000+Ъ0Ю:З:З:З,2З"       TO USE GRAFTEXT:":З:З:З"  16K: CLEAR200,14499                  (C)LOADM                        EXEC":З,h4З"  32K: CLEAR200,30883                  (C)LOADM'GRAFTEXT',16384        EXEC":Бж9000,s6Ю:З:З:-f8З" WHEN GRAFTEXT IS EXECed FOR     FIRST TIME, IT WILL SET UP      PMODE 4, SCREEN 1,1. IT WILL    SET THE CHARACTER FOREGROUND    COLOR TO 3 (WHITE, IN THIS      CASE), AND IT WILL SET THE      CHARACTERS BACKGROUND COLOR TO  0 (BLACK)."-р:З" YOU MAY CHANGE THE BACKGROUND   AND FOREGROUND COLOR NUMBERS    TO ANY VALUE BETWEEN 0 AND 3,   INCLUSIVE.":Бж9000-ъ<Ю:З:З.n>З" TO CHANGE THE FOREGROUND        COLOR: POKE277,COLOR CODE":З:З" TO CHANGE THE BACKGROUND        COLOR: POKE278,COLOR CODE":З.ы@З" THE COLOR CODE NUMBER (0 TO 3)  REPRESENTS ONE COLOR OF FOUR    POSSIBLE. THE COLORS VARY WITH  PMODE AND COLOR SET.".№BБж9000:Ю:З:З/Ц т&5
В COPYRIGHT (C) T&D SOFTWARE 1985    * WUMPUS *&@
Бж1240&└Ю4:З@3,"WRITTEN BY R.E. MCCLINTOCK";:З@195,"DO YOU NEED INSTRUCTIONS.";:З@264,"TURN UP SOUND";:З@452,"ENTER <YES> OR <NO>";&╚ЙV$&▐Е V$│"YES" з Бе20&єЕ V$│"NO" з Бе70'│Ю:З"THE OBJECTIVE OF THE GAME IS TO TRAVEL THE NETWORK OF CAVES TO  FIND AND KILL THE WUMPUS BEFORE IT KILLS YOU.  YOU MUST AVOID   THE BOTTOMLESS PITS LEAST YOU   FALL AND FALL FOREVER."(СЗ:З"BEWARE OF FLYING BATS!  IF YOU  ENTER A CAVE WHICH HAS A BAT    OR A BAT ENTERS A CAVE WHERE    YOU ARE THEN THE BAT WILL PICK  YOU UP AND DROP YOU INTO ANOTHERCAVE WHICH THE BAT HOPES        CONTAINS THE WUMPUS."(└(З@448,"<PRESS ENTER KEY TO CONTINUE.>";:ЙV)Л2Ю:З"BEWARE OF ENDLESS PITS!  IF YOU ENTER A CAVE WITH AN ENDLESS PITYOU WILL FALL AND FALL FOREVER.":З:З"BEFORE EACH MOVE YOU WILL SHOOT AN ARROW INTO THE CAVE OF YOUR  CHOICE.  IF THE WUMPUS IS IN"*r<З"THAT CAVE IT IS KILLED.":З:З"THE COMPUTER WILL LET YOU KNOW  IF THE CAVE OR A CAVE           IMMEDIATELY AROUND WHERE YOU    SHOT THE ARROW CONTAINS THE     WUMPUS, ENDLESS PIT OR A BAT.":З" PRESS <ENTER> KEY TO CONTINUE":ЙV*пFЮ:W│ Д(40):E│ Д(40):B│ Д(40):C│ Д(40):C│5:MV│4:MM│0:PP│0+xHЮ:З@0,"      MAP OF CAVE NETWORK":З" 33  34  35  36  37  38  39  40  25  26  27  28  29  30  31  32  17  18  19  20  21  22  23  24   9  10  11  12  13  14  15  16   1   2   3   4   5   6   7   8"+ВPБж270+УZAR│100:Бж680+у}З@352,"alert warning at your location":З@192,"shoot arrow into which cave";+№Ва200,1:а180,1:а200,1,МЙ AR,ЦMM│MMл1,TаЕ AR┤1 ▒ AR▓40 з З@192,"NOT LISTED ON MY MAP-TRY AGAIN";:Бе130,jкC│ Д(40):B│ Д(40),t╛Бж680,Ц╚З@480,"move into which cave";,п╥а150,1:а100,1:а150,1,╕▄Й MV,∙цЕ MV┤1▒MV▓40 з З@480,"NOT LISTED ON MY MAP-TRY AGAIN";:Бе210-ЁC│ Д(40):B│ Д(40)-
Бе72-3
Е MV│1 з З@160,"HERE";-N
Е MV│2 з З@164,"HERE";-i
"Е MV│3 з З@168,"HERE";-Д
,Е MV│4 з З@172,"HERE";-Я
6Е MV│5 з З@176,"HERE";-║
@Е MV│6 з З@180,"HERE";-╒
JЕ MV│7 з З@184,"HERE";-Ё
TЕ MV│8 з З@188,"HERE";.
^Е MV│9 з З@128,"HERE";.'
hЕ MV│10 з З@132,"HERE";.C
rЕ MV│11 з З@136,"HERE";._
|Е MV│12 з З@140,"HERE";.{
ЖЕ MV│13 з З@144,"HERE";.Ч
РЕ MV│14 з З@148,"HERE";.│
ЪЕ MV│15 з З@152,"HERE";.╧
дЕ MV│16 з З@156,"HERE";.ъ
оЕ MV│17 з З@96,"HERE";/
╕Е MV│18 з З@100,"HERE";/"
┬Е MV│19 з З@104,"HERE";/>
╠Е MV│20 з З@108,"HERE";/Z
╓Е MV│21 з З@112,"HERE";/v
рЕ MV│22 з З@116,"HERE";/Т
ъЕ MV│23 з З@120,"HERE";/о
ЇЕ MV│24 з З@124,"HERE";/╔
■Е MV│25 з З@64,"HERE";/фЕ MV│26 з З@68,"HERE";/ Е MV│27 з З@72,"HERE";0Е MV│28 з З@76,"HERE";05&Е MV│29 з З@80,"HERE";0P0Е MV│30 з З@84,"HERE";0k:Е MV│31 з З@88,"HERE";0ЖDЕ MV│32 з З@92,"HERE";0бNЕ MV│33 з З@32,"HERE";0╝XЕ MV│34 з З@36,"HERE";0╫bЕ MV│35 з З@40,"HERE";0ЄlЕ MV│36 з З@44,"HERE";1
vЕ MV│37 з З@48,"HERE";1(АЕ MV│38 з З@52,"HERE";1CКЕ MV│39 з З@56,"HERE";1^ФЕ MV│40 з З@60,"HERE";1dЮР1~иQ│ В(WмMV):R│ В(WмAR)1Ф╝C│ Д(40):B│ Д(40)1┌╞Е R│1 ▒ R│7 ▒ R│8 ▒ R│9 з З@224,"SNIFF, SNIFF A WUMPUS IS NEARBY"2 ╨Е Q│1 ▒ Q│7 ▒ Q│8 ▒ Q│9 з З@384,"SNIFF, SNIFF A WUMPUS IS NEARBY"2:┌Q│ В(EмMV):R│ В(EмAR)2АюЕ R│1 ▒ R│7 ▒ R│8 ▒ R│9 з З@256,"DRAUGHTY BOTTOMLESS PIT NEARBY";2╞°Е R│1 ▒ R│7 ▒ R│8 ▒ R│9 з З@352,"warning alert at your location."3Е Q│1 ▒ Q│7 ▒ Q│8 ▒ Q│9 з З@416,"DRAUGHTY BOTTOMLESS PIT HEARBY";3Q│ В(BмMV)3*R│ В(BмAR)39 S│ В(CмMV)3{*Е R│1 ▒ R│7 ▒ R│8 ▒ R│9 з З@288,"FLAP, FLAP A BAT IS NEARBY";3┴4Е R│1 ▒ R│7 ▒ R│8 ▒ R│9 з З@352,"warning alert at your location."4>Е Q│1 ▒ Q│7 ▒ Q│8 ▒ Q│9 з З@448,"FLAP, FLAP A BAT IS NEARBY"4HЕ W│AR з PP│1:Бе124040RЕ W│AR з Бе 10704NpЕ W│AR ░ MM│┤0  з Бе 11104jzЕ W│AR ░ MM│┤8 з Бе11204ИДЕ W│AR ░ MM│┤11 з Бе 11304еОЕ W│AR ░ MM│┤16 з Бе11404┬УЕ W│AR ░ MM│┤20 з Бе11454█ХЕ W│MV з PP│2:Бе12405{ШЕ W│MV з Ю(3):АX│1е75:а55,1:Ю(3):З@200,"DO NOT DISTURB ";:З@264,"WUMPUS EATING  ";:З@296,"   'Y O U'     ";:ЛX:З@384,"<PRESS ENTER KEY TO REPLAY>";:ЙV:Бе706вЕ E│MV з Ю(5):З"YOU ARE IN A PIT AND SEEM TO BE":АX│1е8:а44,1:З"FALLING":АTM│1е500:ЛTM:ЛX:З@384,"<PRESS ENTER KEY TO REPLAY.>";:ЙV:Бе706*мЕ B│MV з Ю(7):MV│ Д(40):Бе100060╘Р6rшMV│ Д(40):Ю:З@64,"YOU ARE PICKED UP BY A LARGE    BLACK BAT."6╗ЄЗ:З"THE BLACK BAT TAKES A BITE YOU  OF YOUR ARM AND STARTS YELLING."6∙№З:З"WUMPUS!  WUMPUS!  WHERE ARE YOU.I HAVE FOOD FOR YOU."74З:З"OH WELL!  I SHALL DROP THIS     PLAYER AT CAVE "MV7GАTM│1е1800:ЛTM7PБе707~$З@448,"<PRESS ENTER KEY TO REPLAY.>";:ЙZZ8#.Ю(8):АTM│1е10:а44,1:ЛTM:З@102,"YOU ";:АTM│1е10:а44,1:ЛTM:З@106,"KILLED ";:АTM│1е10:а44,1:ЛTM:З@113,"A ";:АTM│1е10:а44,1:ЛTM: k&8
В COPYRIGHT (C) T&D SOFTWARE 1985   ** GAS COST **&G╚0:Бе60000&`╞"BM+8,0 R4U7L4D7":Р&ВХ1000:М EU(12),DT$(12),EC(12)&дЮ:З:З"            gas cost":З' З" THIS HOME APPLICATIONS PROGRAM  IS GEARED TOWARD KEEPING TRACK  OF YOUR NATURAL GAS USE.":З'p"З" EACH MONTH YOU NEED TO ENTER    A SMALL AMOUNT OF DATA. DATA    CAN BE SAVED TO TAPE AND DISK.":З'╧$З" YEARLY REPORTS CAN BE DISPLAY-  ED ON THE SCREEN OR PRINTED ON  A PRINTER AS YOU WISH."'р%Бж9000:Ю:З:З(T&З" ALSO INCLUDED IS A HIGH RESOL-  UTION THREE DIMENSIONAL GRAPH   WHICH SHOWS GAS COST OVER  A    YEAR'S TIME.(Ъ(З" TO LEAVE THE GRAPH AND RETURN   TO THE MENU, PRESS ANY KEY.":З)*З" YOU SHOULD NOTE THAT 'CCF'      STANDS FOR CUBIC FEET. NATURAL  GAS IS MEARSURED IN TERMS OF    CUBIC FEET.");Бж9000):ZЕ Ж(&HC000)│68 зDN│1 :ДDN│м1)YdЮ:З:З"             menu":З)ПnЗ"       i/o device = ";:ЕDN│1 зЗ"DISK" :ДЗ"TAPE")ХxЗ*ИВЗ"    c. CHANGE I/O DEVICE            l. LOAD DATA FILE               s. SAVE DATA FILE               e. ENTER A BILLING PERIOD       d. DISPLAY YEARLY REPORT        p. PRINT YEARLY REPORT          g. GRAPH GAS COST               q. QUIT"*иМЗ:З"          your choice?"*╛ЦK$│ Т:ЕK$│"" з150*раP│ Ю("CLSEDPGQ",K$):ЕP│0 з150+
кИ P Бе200,210,240,260,400,500,600,990+╟Бе100+,╚ЕDN│1 зDN│м1 :ДDN│1+6╔Бе100+N╥Бж10000:ЕF$│"" з100+^╫Щ"I",#DN,F$+Р▄АI│1 е 12:Й#DN,DT$(I):Й#DN,EU(I):Й#DN,EC(I):Л+ЯсЪ#DN:Бе100+╖ЁБж10000:ЕF$│"" з100+╟їЩ"O",#DN,F$+∙·АI│1 е 12:З#DN,DT$(I):З#DN,EU(I):З#DN,EC(I):Л, Ъ#DN:Бе100,2
Ю:З@226,"ENTER BILLING PERIOD NUMBER",L
	З@266,"(1-12) ";:Й BP,p
ЕBP┤1 ▒ BP▓12 ▒ BP┤▓ Б(BP) з100,Ч
Ю:З@228,"ENTER START AND END DATE",╣
З@261,"FOR BILLING PERIOD";BP,╥
З@295,"--> ";:╗Й DT$-
"Ю:З@193,"ENTER CUBIC FEET (CCF) OF GAS               USED-2
'З@261,"FOR BILLING PERIOD";BP-K
,З@298,"--> ";:╗Й EU$-o
1ЕEU$│"" ▒  Й(EU$)┤0 за1,1:Бе290-Ф
6Ю:З@228,"ENTER COST OF GAS BILL"-╢
;З@261,"FOR BILLING PERIOD";BP-╧
@З@298,"--> ";:╗Й EC$-Ї
EЕ EC$│"" ▒  Й(EC$)┤0 за1,1:Бе310.
JЮ:З:З:З."
OЗ"     BILLING PERIOD #";BP:З.;
TЗ"     DATE: ";DT$:З.\
^З"    CUBIC FEET USED: ";EU$.Й
cЗ"   GAS COST: ";:З═"$######.##"; Й(EC$).┤
hЗ:З:З:З"    is the input correct? y/n".╦
iK$│ Т:ЕK$│"N" з260.▌
jЕK$┤▓"Y" з361/
mDT$(BP)│DT$:EU(BP)│ Й(EU$):EC(BP)│ Й(EC$)/
qБе100/
РЮ/J
ХTC│0:TU│0:З"  #     date     ccf     cost"/С
ЪАI│1 е 12:З═" ## %          % #### $#####.##";I;DT$(I);EU(I);EC(I)/п
ЯTU│TUлEU(I):TC│TCлEC(I):Л/т
дЗ" YEARLY TOTALS->";:З═"##### $#####.##";TU;TC/Є
нЕTU│0 зTU│10%
оЗ" AVERAGE COST PER CCF ";:З═"$##.#####";TCоTU00
╕Бж90000:
┴Бе1000D
ЇPD│м20w
∙TC│0:TU│0:З#PD,"  #     DATE     CCF     COST"0┬
■АI│1 е 12:З#PD,═" ## %          % #### $#####.##";I;DT$(I);EU(I);EC(I)0рTU│TUлEU(I):TC│TCлEC(I):Л1З#PD," YEARLY TOTALS->";:З#PD,═"##### $#####.##";TU;TC1+ЕTU│0 зTU│11fЗ#PD," AVERAGE COST PER CCF ";:З#PD,═"$##.#####";TCоTU1p%Бе1001ЪX╝:╚3:╝0:Ю:З@230,"generating graph..."1╛v╞"BM4,0 C1 NR4D3R4D4L4":Бж5:Бж51р{╞"BM4,30 D3R4U3D7BL4":Бж5:Бж52
А╞"BM4,60R4D3NL2D4L4":Бж5:Бж52#Е╞"BM4,90R4D3L4D4R4L4":Бж5:Бж52@К╞"BM6,120 D7BL2":Бж5:Бж52TП╞"BM12,157":Бж52▌Р╞"BM40,160 D7 BM56,160 R4D3L4D4R4 BM74,160 R4D3NL2D4L4 BM92,160 D3R4U3D7 BM110,160 NR4D3R4D4L4 BM128,160 NR4D7R4U4L4 BM146,160 R4D7"3$С╞"BM164,160 D7R4U7L4D3R4 BM182,160 R4D7U4L4U3 BM198,160 D7BL4":Бж53WТ╞"BM216,160 D7BR6U7 BM234,160 D7BR4NR4U4R4U3L43иФ┴1,0:╗(30,0)м(30,154),╜:╗м(249,154),╜:╗(30,155)м(249,155),╜:╗м(249,0),╜:CC│23┐ЮАI│1 е 12:EC│EC(I)4аN1│ECо100н30:X1│32л(Iм1)н18:X2│48л(Iм1)н18:N2│154мN1:ЕN2┤12 зN2│124бЕEC▓3 з6804mг┴1,0:╗(X1,N2)м(X1л8,N2м8),╜:ЕI│12 з678 :ДЕECл3┤EC(Iл1) з678 :Д╗м(X2л8,N2м8),╜:Бе6794ж╗м(X2,N2м8),╜4зз╗м(X2,N2),╜:├(X1л4,N2м2),CC,1:Бе6904∙и┴1,0:╗(X1,N2)м(X2,153),╜,B:├(X1л2,152),CC,1:╗(X1,N2)м(X1л8,N2м8),╜:ЕI│12 з6855йЕEC(I)л16┤EC(Iл1) з6855█к╗м(X2л8,N2м8),╜:╗м(X2,N2),╜:├(X1л4,N2м2),CC,1:ЕEC┤EC(Iл1)з690 :ДN3│EC(Iл1)о100н30:N4│154мN3:╗(X2л8,N2м8)м(X2л8,N4м6),╜:╗м(X2,N4),╜:Е(N4мN2)▓1 з├(X2л4,N2м2),CC,1:├(X2л6,N2м4),CC,1:╜(X2л2,N2м1,CC)5хмБе6906н╗м(X2,N2м8),╜:╗м(X2,N2),╜:├(X1л4,N2м2),CC,16;▓CC│CCл1:ЕCC│1 зCC│2 :ДЕCC│4 зCC│06C╗Л I6R╝╚4:┐1,1:╚36[CT│06zCT│CTл1:ЕCT│100 за1,1:CT│06РЕ Т│"" з791 :Д1006о▐Ю:З@232,"ok to quit? y/n"6┼▀K$│ Т:ЕK$│"N" з1006╫рЕK$┤▓"Y" з9916▌чК7#(З@484,"press [enter] to continue";7#2Е Т┤▓ Л(13) з9010 :ДР7@'Ю:З@230,"filename: ";:╗Й F$:Р7^.р╚4:┐1,1:╚3:АTD│0е1E32:Л:С7jъ`└4:Бе2000 за1,1:CT│06РЕ Т│"" з791 :Д1006о▐Ю:З@232,"ok to quit? y/n"6┼▀K$│ Т:ЕK$│"N" з1006╫рЕK$┤▓"Y" з9916▌чК7#(З@484,"press [enter] to contiCAN HAVE SHIPS ON A STAR AT ONE TIME).82~Бж 1000089░:Г8H║:Г PAGE 128O─:Г9I╬З "   THE RIGHT HAND SIDE OF THE   SCREEN WILL LIST EITHER STAR    DATA, OR YOUR SHIPS IN SPACE.   (IT STARTS OFF WITH THE FORMER).THE STAR DATA IS COMPOSED OF    STAR NAME (A LETTER), CLASS, ANDNUMBER OF SHIPS.  IF YOU HAVE   NEVER BEEN TO A ";9ч╪З"PARTICULAR STAR,THE CLASS WILL BE UNKNOWN.":З:З"   THE SHIPS IN SPACE LISTING   WILL BE COMPOSED OF ARRIVAL TURNDESTINATION, AND NUMBER OF      SHIPS."9ЇтБж 100009√:Г:
:Г PAGE 13:(:Г:г2З "   WHILE IT IS YOUR TURN, THERE ARE SIX COMMANDS YOU MAY USE    (NUMBERED 1 TO 6).  TO SEE THE  LIST, ENTER '0' TO THE COMMAND  PROMPT.":З;b3З "1 - DISPLAY STAR DATA.  THIS        COMMAND DISPLAYS THE STAR       DATA AT THE RIGHT SIDE OF       THE STAR MAP (ONLY APPLIES      IF SHIPS IN SPACE IS CUR-       RENTLY DISPLAYED).";o4Бж 10000;v5:Г;Ж6:Г PAGE 13A;Н7:Г;ю8З "2 - LIST SHIPS IN SPACE.  AS #1,    BUT SWITCHES FROM STAR DATA     TO SHIPS IN SPACE.":З<Г9З "3 - CALCULATE DISTANCE BETWEEN      ANY TWO STARS.  THIS COMMAND    WILL PROMPT YOU FOR THE TWO     STARS, AND DISPLAY THE DIS-     TANCE.":З<Р:Бж 10000<Ч;:Г<з<:Г PAGE 13B<о=:Г=Д>З "4 - SEND SHIPS INTO SPACE.  THIS    COMMAND ALLOWS YOU TO SEND      SHIPS INTO SPACE.  YOU WILL     BE PROMPTED FOR THE START       STAR, THE ARRIVAL STAR, AND     THE NUMBER OF SHIPS THAT        DEPART.":З>?З "5 - REVIEW THIS TURNS BATTLES       AND ARRIVALS.  THIS COMMAND     RE-DISPLAYS THE INFORMATION     SHOWN AT THE START OF YOUR      TURN.">#@Бж 10000>*A:Г>:B:Г PAGE 13C>AC:Г>цDЗ "6 - END TURN.  WHEN YOU HAVE        FINISHED ENTERING ALL YOUR      COMMANDS, ENTER THIS COMMAND    TO END YOUR TURN, AND ALLOW     THE NEXT PLAYER TO GO.":З?АEЗ "7 - RESIGN.  ALLOWS HONORABLE       ESCAPE FROM INEVITABLE          DISASTER.  OF COURSE, YOU       WILL BE ASKED TO CONFIRM        THIS COMMAND!"?НFБж 10000?ФG:Г?дH:Г PAGE 13D?лI:Г@%JЗ "   THE GAME WILL TERMINATE WHEN THE MAX NUMBER OF TURNS IS      REACHED, OR WHEN TOO MANY       PLAYERS RESIGN.":З@фKЗ "   IF THE GAME ENDS NATURALLY,  THEN THE WINNER WILL BE THE     PLAYER WITH THE MOST POINTS     (THE SCORE IS DETERMINED FROM   STAR CONTROL AND SHIP QUANTITY, THE MORE THE MERRIER)."@ёLБж 10000@°x:ГAВ:Г PAGE 14AМ:ГAоЦЗ "   DATA ON THE TOTAL NUMBER OF  SHIPS BUILT BY ALL PLAYERS AND  THE TOTAL NUMBER DESTROYED WILL ALSO BE DISPLAYED.  THIS IS FOR THE SAKE OF INTEREST.":ЗBМаЗ "   ADVICE - THE PLAYERS WILL BE SITUATED FAR APART, SO DON'T BE AFRAID TO EXPAND TO ALL STARS   IN YOUR AREA.  GET THAT INCOME  IN FAST!  THINK AHEAD, IT IS A  LONG WAY FROM ONE END OF THE    BOARD TO THE OTHER..."BЩкБж 10000Bа▄:ГBпц:Г PAGE 15B╢Ё:ГCи·З "   A FINAL WORD - TRY THE GAME, IT IS SIMPLE TO LEARN AND A LOT OF FUN.  INITIALLY, TRY A FEW   GAMES WITHOUT THE SECRECY RULE  TO LEARN THE INS AND OUTS.      WHEN YOU ARE SURE EVERYTHING IS UNDERSTOOD - GO FOR A SERIOUS   GAME - ":ЗCчЗ:З "      - AND CONQUER A GALAXY...":З:З"BEST OF LUCK..."DЗ@480,"    PRESS ENTER TO FINISH...";D)Е  Т┤▓ Л(13) з 1560DM"Ю:З@230,"use tape or disk? t/d"De'K$│ Т:ЕK$│"T" з1600Dx,ЕK$┤▓"D" з1575DК6О"SOLCON.BAS"D╘@З:З"  PRESS PLAY ON TAPE RECORDER":З:З"  ENTER 'RUN' WHEN OK APPEARS"D┌JЧDрTКE'З@480,"   PRESS ENTER TO CONTINUE...";E<'X$│ Т:Е X$│ Л(13) з Ю:Р::Д Е X$┤▓"" з а 64,3EI'$Бе 10010"De'K$│ Т:ЕK$│"T" з1600Dx,ЕK$┤▓"D" з1575DК6О"SOLCON.BAS"D╘@З:З"  PRESS PLAY ON TAPE RECORDER":З:З"  ENTER 'RUN' WHEN OK APPEARS"D┌JЧDрTКE'З@480,"   PRESS ENTER TO C                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 J&5В COPYRIGHT (C) T&D SOFTWARE 1985   * SOC INS *&<
:Г&X:Г INTERSTELLAR EMPIRES&_:Г&s:Г INSTRUCTIONS&z:Г&Т:Г BY GRAHAM WILSON&в:Г JAN 1985&й:Г&п	Ю&╢d:Г&─n:Г PAGE 1&╦x:Г'НВЗ @6,"INTERSTELLAR EMPIRES":З:З"   INTERSTELLAR EMPIRES IS A    GAME OF STRATEGY FOR 2,3, OR 4  PLAYERS.  THE GAME IS SET ON AN 8X8 PARSEC GRID OVER WHICH ARE  SPREAD 24 STAR SYSTEMS.  THE"'цМЗ "OBJECT IS TO CONQUER AS MANY OF THE STARS AS POSSIBLE - AND TO  HOLD ON TO THEM."'єЦБж 10000'·╚:Г(╥:Г PAGE 2(▄:Г(▀цЗ "   EACH PLAYER STARTS OFF ON HISOR HER HOME STAR WITH TEN SHIPS.AT THE BEGINNING OF EACH TURN,  THE PLAYER'S INCOME IS CALCULAT-ED AND THE CORRESPONDING NUMBER OF SHIPS ARE PLACED ON HIS HOME STAR.":З)ИЁЗ "   THE BASIC ECONOMIC UNIT IS   THE RESOURCE UNIT (RU).  FOR    EACH RU THE PLAYER HAS, ONE SHIPWILL BE BUILT FOR HIM (THIS IS  DONE AT THE START OF EACH TURN).")Х·Бж 10000)Ь
,:Г)к
6:Г PAGE 3)▒
@:Г*Ш
TЗ "   AS MENTIONED EARLIER, THERE  ARE 24 STARS ON THE BOARD.  EACHSTAR HAS A SINGLE LETTER NAME INTHE RANGE A-X (I.E. 'A' OR 'O').EACH STAR ALSO HAS A CLASS.  THECLASS OF A STAR DICTATES ITS RU OUTPUT (AMONG OTHER THINGS).":З+-
^З "   A CLASS 0 STAR IS A WASTE    STAR.  IT PRODUCES 0 RU'S, AND  IT'S ONLY VALUE IS STRATEGIC.":З:З"   A CLASS 1 STAR PRODUCES 1 RU PER TURN."+:
hБж 10000+A
Р:Г+O
Ъ:Г PAGE 4+V
д:Г,9
оЗ "   A CLASS 2 STAR PRODUCES 2-3  RU'S PER TURN, AND IS BLESSED   WITH NATIVES.  THESE CHAPS ARE  OF A LOWER TECHNOLOGICAL LEVEL, AND ONLY PRODUCE SHIPS FOR DE-  FENDING THEIR STAR.  THEY ARE   VERY PRONE TO REVOLTS...":З,╥
╕З "   A CLASS 3 STAR IS A HOME STAROF A PLAYER.  IT PRODUCES 4-6   RU'S AND IS PRONE TO REVOLT IF  RULED BY SOMEONE OTHER THAN THE ORIGINAL PLAYER.",▀
┬Бж 10000,ц
Ї:Г,Ї
■:Г PAGE 5,√:Г-ЁЗ "   TO CONTROL A STAR (AND HENCE GAIN INCOME FROM IT), YOU MUST  HAVE SHIPS SITUATED THERE.  (ALLSHIPS MUST BE AT STARS - YOU    CAN'T HAVE ANY SHIPS AT EMPTY   LOCATIONS).  TO GET SHIPS TO A  STAR, YOU MUST SEND THEM INTO   HYPERSPACE.";.иЗ "  THE NUMBER OF TURNSREQUIRED FOR SHIPS TO TRAVEL    FROM ONE STAR TO ANOTHER IS     EQUAL TO THAT OF THE DISTANCE   (I.E. 3 PARSECS DISTANCE WILL   TAKE 3 TURNS TRAVEL TIME).".╡&Бж 10000.╝X:Г.╩b:Г PAGE 6.╤l:Г/бvЗ "   ONCE YOU SEND SHIPS INTO     HYPERSPACE, THEY CANNOT BE      TOUCHED UNTIL THEY ARRIVE AT    THEIR DESTINATION.  EACH PLAYER IS ALLOWED A MAXIMUM OF TWELVE  FLEETS IN HYPERSPACE AT ONE     TIME.":З0ZАЗ "   IF SHIPS FROM TWO OR MORE    PLAYERS (AND NATIVES - DONT     FORGET THESE GUYS) MEET, COMBAT WILL ENSUE.  THE OUTCOME OF A   BATTLE IS SOLELY DICTATED BY THENUMBER OF SHIPS."0gКБж 100000n╝:Г0|╞:Г PAGE 70Г╨:Г1l┌З "   THE VICTOR IN COMBAT IS THE  PLAYER (OR NATIVE) WITH THE     LARGEST NUMBER OF SHIPS.  BUT HEWILL LOSE A QUANTITY OF SHIPS   EQUAL TO TWO THIRDS THE SECOND  LARGEST FORCE (ROUNDED UP).  IF A TIE OCCURS - EVERYONE LOSES.":З2фЗ "   FOR EXAMPLE, PLAYER ONE HAS  5 SHIPS, PLAYER TWO HAS 12, AND PLAYER THREE HAS 9 SHIPS ON STARH.  PLAYER TWO AUTOMATICALLY    WINS, BUT LOSES (2/3 * 9 = 6)   SIX SHIPS."2,юБж 1000023 :Г2A*:Г PAGE 82H4:Г2чHЗ "   AT THE END OF EACH TURN, THE COMMANDS ENTERED BY EACH PLAYER ARE PROCESSED SIMULTANEOUSLY, SOTHERE IS NO ADVANTAGE IN GOING  FIRST OR FOURTH ETC.":З3БRЗ "   DURING THE GAME, PLAY IS DONESECRETLY - NO OTHER PLAYER MAY  WATCH.  YOU DONT KNOW THE LOCAT-ION OF THE ENEMY UNTIL YOU MEET,AND BATTLE ENSUES"3О\Бж 100003ХД:Г3гО:Г PAGE 93кШ:Г4sвЗ "   AT THE BEGINNING OF THE GAME YOU WILL BE PROMPTED FOR THE    NUMBER OF PLAYERS (2-4) AND THE GAME LENGTH IN TURNS.  THIS LASTVALUE ACTUALLY VARIES BY -5% TO +5%, NO ONE IS SURE EXACTLY...":З5
мЗ "   A SHORT GAME IS ABOUT 20     TURNS, A MEDIUM 30 AND A LONG   GAME IS 40 TURNS OR MORE.  THE  BEST WAY TO LEARN IS TO PLAY THEGAME."5╢Бж 100005ш:Г5$Є:Г PAGE 105+№:Г5■З "   AT THE BEGINNING OF EACH TURNTHE PLAYER WILL BE INFORMED OF  ALL BATTLES AND NEW ARRIVALS.":З:З"   FOLLOWING THAT HIS PRODUCTION(RU'S) WILL BE CALCULATED, SHIPSBUILT AND PLACED ON HIS HOME    STAR.":З6БЗ "   THE GAME SCREEN WILL THEN BE DISPLAYED.  THE UPPER LEFT CORN-ER IS THE STAR MAP SHOWING THE  LOCATIONS OF THE 24 STARS."6ОБж 100006ХL:Г6дV:Г PAGE 116л`:Г7РjЗ "   THE STARS ARE REPRESENTED BY A SINGLE LETTER EACH (THEIR NAMEFOR THE GAME), AND BESIDE EACH  STAR IS A GRAPHIC BLOCK.  IF THEBLOCK IS RAISED, THEN YOU HAVE  SHIPS THERE (YOU CONTROL IT).   IF THE BLOCK IS LOWERED, YOU"8%tЗ "DON'T CONTROL IT.  OBVIOUSLY THEBOARD WILL APPEAR DIFFERENTLY   FOR EACH PLAYER (AS ONLY ONE    PLAYER  ╦&6
В COPYRIGHT (C) T&D SOFTWARE 1985     * GRUMPS *&BБе60000&Л
Х:Х1000:Q│0:S│0:МF(65,13),LD$(38):T$│ Л(128)л"grumps"л Л(128):Бж1010'R$│"V30T15L4O4ED#ED#EO3BO4DCL4O3AP4":T1$│"T224O5L6CECE":W$│"O4;T100;1;5;9;4;2;3;6;9;6;2;7;3;7;8;5;2;3;5;7;9;9;8;4;2;3;5;7;7;8;7"'2Ю0:З@235,T$;:АX│1 е8:V(X)│1:Л'╖(╚4,1:╝:P$│"GRUMPS":Бж300:╞"BM90,20"лS$:X$│"D5F2D7F3D10F3D5F3E3U5E3U10E3U7E2U5":╞"BM5,0"лX$л"BM50,0"лX$л"BM230,0"лX$л"BM180,0"лX$'ь-├(7,2),1,1:├(52,2),1,1:├(182,2),1,1:├(232,2),1,1(M2┬(125,99),15,,2:├(125,99),1,1:┴0:┬(125,95),4,,2:┬(120,89),3:┬(130,89),3:╞"BM125,107;G5BE5F5"(i<─(108,58)м(142,132),F,G(─FY│1:АX│5 е225 й30:┼(X,58)м(Xл34,132),F,╜:╞"BM"л И(Xл17)л",50"лLD$(Yл27):Y│Yл1:Бж1000:Л)PЗ@327,"instructions"л Л(128)л"y"л Л(128)л"or"л Л(128)л"n";))UI$│ Т:ЕI$│"Y" з2000 :ДЕI$┤▓"N"з85)dZQ│1:P$│"SCORE":Бж300:┴1:╞"BM20,160"лS$:┐1,0:╔T1$лW$лR$)вdI$│ Т:ЕI$│"" з100 :ДЕI$│"S" з3000 :ДЕI$│"R" зБж2030:Бе100)╛nI│ Й(I$):ЕI┤1 ▒I▓8 з100)тo┴0:╗(110,150)м(150,160),╜,BF:┴1*;pS│Sл1:P$│ И(S):Бж300:╞"BM100,160;"лS$:ЕI┤8 з120 :ДАX│1 е7:ЕV(X)│0 з135 :ДЛ:╔W$:Бе100*TxЕV(Iл1)│0 з╔W$:Бе100*yВАX│Iл2 е9:ЕV(X)│1 з╔W$:Бе100 :ДЛ*ЫЗVT│22л((Iм1)н30):ЕV(I)│0 з150*ъМ┴1:╞"BM"л И(VT)л",107;G5BE5F5":┴0:╞"BM"л И(VT)л",112;E5BG5H5":V(I)│0:Бе200+9Ц┴1:╞"BM"л И(VT)л",112;E5BG5H5":┴0:╞"BM"л И(VT)л",107;G5BE5F5":V(I)│1:Бе200+\╚╔R$:АX│1 е8:ЕV(X)│1 зБе100 :ДЛ+q╥АX│1 е4:╔R$:ЮX:Л+░▄З@232,"CONGRATULATIONS";:З@292,"YOU HAVE MADE ALL OF THE";+┌цЗ@361,"GRUMPS SMILE";:АX│1 е5:╔R$:Л:К+ф
"Бе290,
,S$│"":АX│1 е З(P$):Е Р(P$,X,1)│" " зS$│S$лLD$(27):Л:Р,m
6Е Й( Р(P$,X,1))▓0 ▒  Р(P$,X,1)│"0" з330 :ДS$│S$лLD$( К( Р(P$,X,1))м64):Л:Р,Ф
JЕ Р(P$,X,1)│"0" зS$│S$лLD$(15):Л:Р,╣
TS$│S$лLD$( К( Р(P$,X,1))м21):Л:Р,эш╔T1$:╔T1$:З@235, П(T$, З(T$)мYл1);:З О(T$,Y);:Р-ЄLD$(1)│"U8R8D4L8BR8D4BR4"::Г A-:№LD$(2)│"U8R6F2D2L8BR8D2G2L6BR12"::Г B-ZLD$(3)│"U8R8BD8L8BR12"::Г C-}LD$(4)│"U8R6F2D4G2L6BR12"::Г D-бLD$(5)│"U8R8BD4L8BD4R8BR4"::Г E-─$LD$(6)│"U8R8BD4L8BD4BR12"::Г F-ы.LD$(7)│"U8R8BD4L4BR4D4L8BR12"::Г G.8LD$(8)│"U8BR8D8BU4L8BD4BR12"::Г H.6BLD$(9)│"BU8R8BL4D8BL4R8BR4"::Г I.ZLLD$(10)│"U4BU4BR8D8L8BR12"::Г J.VLD$(11)│"U8BR8G4L4BR4F4BR4"::Г K.Э`LD$(12)│"U8BD8R8BR4"::Г L.╝jLD$(13)│"U8F4E4D8BR4"::Г M.▄tLD$(14)│"U8F8U8BD8BR4"::Г N.№~LD$(15)│"U8R8D8L8BR12"::Г O/ИLD$(16)│"U8R8D4L8BD4BR12"::Г P/CТLD$(17)│"U8R8D8H4BG4R8BR4"::Г Q/gЬLD$(18)│"U8R8D4L8BR4F4BR4"::Г R/ТжLD$(19)│"BU4U4R8BD4L8BR8D4L8BR12"::Г S/│░LD$(20)│"BU8R8BL4D8BR8"::Г T/╘║LD$(21)│"U8BR8D8L8BR12"::Г U/∙─LD$(22)│"BU8D4F4E4U4BD8BR4"::Г V0╬LD$(23)│"U8BR8D8H4G4BR12"::Г W0:╪LD$(24)│"E8BL8F8BR4"::Г X0]тLD$(25)│"BU8F4E4BG4D4BR8"::Г Y0}ьLD$(26)│"BU8R8G8R8BR4"::Г Z0ЩЎLD$(27)│"BR12"::Г SPACE0╜LD$(28)│"R2U8G2BE2BD8R2BR5":В 10▐
LD$(29)│"BU6U2R4D4L4D4R4BR5"1LD$(30)│"R4U4L3BR3U4L4BD8BR9"1 LD$(31)│"BU8D4R4BL2U2D6BR7"1K(LD$(32)│"BU8R4BL4D4R4D4L4U1BD1BR9":В 51g2LD$(33)│"R4U3L4U5D8BR9"1А<LD$(34)│"BU8R4D8BR5"1дFLD$(35)│"U4R1U4R2D4L2R3D4L4BR9"1╞PLD$(36)│"BU5U3R4D3L4BR4D5BR5"1▌ZLD$(37)│"E8BD8BR5"1ўdLD$(38)│"BU4R5BD4BR5"1¤nР2xЗ@485,"any key to continue";29ВI$│ Т:ЕI$│"" з1410 :ДР2_╨Ю:Зд10)"instructions":З б(32,45);3C┌З" THE 8 GRUMP BROTHERS LIVE IN A DARK, DAMP CAVE. THIS DOESN'T   GIVE THEM MUCH TO SMILE ABOUT,  SO THEY DON'T SMILE VERY OFTEN. YOUR MISSION, SHOULD YOU DECIDE TO TAKE IT, IS TO MAKE THE ALL  OF THE GRUMP BROTHERS SMILE."3║фЗ:З"THIS ISN'T AS EASY AS IT SOUNDS.THE GRUMPS HAVE SOME SPECIAL    RULES ABOUT WHEN THEY WILL      SMILE.":Бж14004ПюЮ:З" GRUMP #8 WILL ONLY SMILE WHEN  ONE OF THE OTHERS IS SMILING.":З:З" ANY OF THE OTHER GRUMPS (1-7)  WILL ONLY SMILE WHEN THE GRUMP  TO HIS RIGHT IS FROWNING BUT ANYGRUMPS FURTHER TO THE RIGHT ARE SMILING."5°З:З"FOR EXAMPLE: GRUMP #4 WILL SMILEONLY WHEN GRUMP #5 IS FROWNING  AND GRUMPS #6, #7, AND #8 ARE   SMILING.":Бж14005ФЮ:З:З:З:З" TO MAKE A GRUMP SMILE JUST     PRESS THE NUMBER ABOVE HIS FACE.IF THE CONDITIONS ARE RIGHT, HE WILL SMILE; IF NOT, HE WON'T.6З:З" IF YOU WANT TO MAKE A SMILING  GRUMP FROWN, PRESS THE NUMBER   ABOVE HIS HEAD. THERE ARE NO    CONDITIONS FOR FROWNING.":Бж14006ьЮ:З:З:З:З:З" IF YOU WANT TO REVIEW THE RULESDURING THE GAME, PRESS R INSTEAD OF A NUMBER.":З:З" IF YOU CAN'T SOLVE THE PUZZLE, PRESS S INSTEAD OF A NUMBER AND YOU WILL BE SHOWN THE SOLUTION  (SORT OF?).7 ЕQ│1 з╚4,1:┐1,0:Р :ДБе31007-╕Ю:Зд12)"solution":З б(32,45);7В┬З" I AM NOT GOING TO GIVE YOU THE INPUTS, BUT I WILL TELL YOU HOW TO FIND THEM."8#╠З" FIRST, THINK OF THE 8 GRUMPS ASTHE 8 BITS IN A BINARY NUMBER.  THE 1ST BIT IS 1. THE FOLOWING  BITS ARE THE OPPOSITE                                                                                                                                                                                                                                                                                 ╚╚┼╔╔┼!"──%&'(├*+,-.╚┼┬2345╚              GRUMPS  BAS ╬DISKSPEDBAS#VSOC-INS BASMSOLCON  BAS$жGAS COSTBASnRIME    BAS)лWUMPUS  BASхCHAREDITBAS░GRAFDEMOBAS/9GRAFTEXTBINGLOOPY   BINBOLDPRNTBIN0NINTRO41 BAS1┘                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                VALUE OF  THE BIT THAT PRECEDES IT."8l╓З:З" THIS GIVES YOU THE NUMBER:      10101010 (170 DECIMAL).":Бж14009@рЮ:З" FOR EACH INPUT: SUBTRACT 1 FROMTHE NUMBER, USING THE RULES OF  THE BINARY SCALE. (IF YOU WANT  TO CHEAT, THE APPENDIX OF MOST  PROGRAMMING BOOKS CONTAINS A    LIST OF DECIMAL TO BINARY CON-  VERSIONS.)"9ъъЗ" COMPARE THE NUMBER(BINARY) AND THE NUMBER-1, STARTING FROM THE LEFT SIDE. LOOK FOR THE 1ST BIT THAT IS DIFFERENT. THAT TELLS   YOU WHAT YOU NEXT INPUT SHOULD  BE.:ЇЗ"    SOME EXAMPLES FOLLOW:":Бж1400:e■Ю:З" THESE ARE THE FIRST 10 MOVES:":З б(32,45):АX│1 е10:НA$,B$:ЗA$,B$:Л:Бж1400;$Ж 10101010,START,10101001,PRESS 7,10101000,PRESS 8,10100111,PRESS 5,10100110,PRESS 8,10100101,PRESS 7,10100100,PRESS 8,10100011,PRESS 6,10100010,PRESS 8,10100001,PRESS 7,10100000,PRESS 8;ФЮ:З:З:З:З:З" CONTINUE SUBTRACTING 1 UNTIL    YOU GET THE NUMBER 00000000.":З:З" HAVE FUN AND KEEP SMILING.";╛З@485,"any key to begin";:Бж1410:Бе90;╩ъ`└4:Бе10 7,10100100,PRESS 8,10100011,PRESS 6,10100010,PRES                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 S&=
В COPYRIGHT (C) T&D SOFTWARE 1985   * DISK SPEED TEST *&L
╚0:Бе60000&ОХ200,16299:SK│.0015:LT│13.675:DT│4:АI│16300 е 16349:НD:ТI,D:Л&лЮ:З@72,"coco disk drive"&┬(З@139,"speed test"&щ2З@227,"select drive (0-3) to test"'7╔"V31O4A P200 A P252A"'3<K$│ Т:ЕK$│"" з60 :ДK│ Й(K$):ЕK┤0 ▒ K▓3 з60'ZFЗ@227,"press any key to stop test"'vK╔"V31O5A P190 A P190 A"'╘PТ&HEB,K:в 16300:IC│ Ж(277)н256л Ж(278):SP│SKн(ICнLTлDT):З@363,═"###.# rpm";SP;:Е Т│"" з80(<ZЗ@363,"         ";:АTD│0е200:Л:Т&HFF40,0:З@227," test another drive?  y/n ";:╔"V31O3 D P10 D P10 D"(RdK$│ Т:ЕK$│"Y" з30(dnЕK$┤▓"N" з100(Г╚Х200, Ж(116)н256л Ж(117):К(╤├PЖ 26,80,134,40,142,215,170,214,235,170,133,183,255,64,198,3,247,255,72,30)├ZЖ 136,30,136,198,2,206,255,72,158,138,229,196,39,252,229,196,38,252,48,1)F├dЖ 229,196,39,250,191,1,21,28,175,57)Rъ`└1:Бе20nЕK$┤▓"N" з100(Г╚Х200, Ж(116)н256л Ж(117):К(╤├PЖ 26,80,134,40,142,215,170,214,235,170,133,183,255,64,198,3,247,255,72,30)├ZЖ 136,30,136,198,2,206,255,72,158,138,229                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &г&'
В COPYRIGHT (C) T&D SOFTWARE 1985&C:Г INTERSTELLAR EMPIRES&d:Г BY GRAHAM WILSON 85/01/17&k:Г&z╚0:Бе32000&э
Х 500:М SD(23,5),PD(3,3),BD(23,7),SS(3,11,2),PN$(3):Ю:AZ$│"ABCDEFGHIJKLMNOPQRSTUVWXYZ":NM$│"0123456789":DD│2о3'ALE$│"@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ !"л Л(34)л"#$%&'()*+,-./0123456789:;<=>?"'aА A│1 е  Яо1000:B│ Д(A):Л A'▓З@69,"INTERSTELLAR EMPIRES":З@165,"NUMBER OF PLAYERS:":LV$│"234":LM│1:LS│184(Бж30000:Е LI$│"" з 30 :Д NP│ Й(LI$)м1:З@294,"LENGTH OF GAME:":LV$│NM$:LM│3:LS│310(q(Бж30000:Е LI$│"" з40 :Д ET│ Й(LI$):ET│ETм Б(ETо20л.5)л Б( Д( Б(ETо10л.5))):З@425,"PLEASE WAIT..":T│0(|2Бж6000(▓<T│Tл1:Ю:З@204,"TURN";T:З@330,"PLEASE WAIT":Бж4000)NFА P│0 е NP:Е PD(P,0)│м1 з 350 :Д Ю:З@108,"PLAYER";Pл1:З@224л Б((32м З(PN$(P)))о2),PN$(P):X$│ Т:З@356,"PRESS ANY KEY WHEN READY":а 210,1:а 204,1:а 197,1)АPX$│ Т:Е X$│"" з 80 :Д Бж 4500:Бж 2200:Бж 2100)йZDF│1:Бж 3000:Бж 3100:З@256,"TURN";T;*dБж 3600:З@288,"COMMAND?";:З@352,"(PRESS 0 FOR THE";:З@385,"COMMAND LIST)";:LV$│"01234567":LM│1:LS│297*mnБж 30000:Е LI$│"" з 110 :Д C│ Й(LI$):Бж 3600:И Cл1 Бе 120,130,150,170,180,310,350,320*ЗxБж 3300:Бж 3400:Бе 90*ЬВЕ DF│2 з Бж 3100*мМDF│1:Бе 100*┴ЦЕ DF│1 з Бж 3200*╤аDF│2:Бе 100+/кБж 3500:Бж 2000:З@320,"DISTANCE IS";D;:З@352,"PARSEC"; О("S", А(Dм1));".";:Бж 3400:Бе 100+╠┤А I│0 е 11:Е SS(P,I,0)│9999 з 190 :Д Л I:З@288,"SORRY, YOU CAN";:З@320,"ONLY HAVE TWELVE";:З@352,"FLEETS IN SPACE";:З@384,"AT A TIME...";:Бж 3400:Бе 100,4╛Бж 3500:Е SD(S1,4)┤▓P з З@320,"YOU DON'T HAVE";:З@352,"ANY SHIPS ON "; Л(S1л65);"!";:Бж 3400:Бе 100,Я╚З@320,"SHIPS ON "; Л(S1л65);":";SD(S1,5);:З@352,"HOW MANY SHIPS";:З@384,"DEPART:";:LV$│NM$:LM│4:LS│392-╥Бж 30000:Е LI$│"" з 210 :Д X│ Й(LI$):Е X▓SD(S1,5) з З@416,"YOU DON'T HAVE";:З@448,"THAT MANY SHIPS!";:Бж 3400:Бе 100-x▄Е S1│PD(P,0) ░ X│SD(S1,5) з З@416,"CANNOT ABANDON";:З@448,"YOUR HOME STAR!";:Бж 3400:Бе 100-лцЕ X│0 з З@416,"NO SHIPS SENT.";:Бж 3400:Бе 100-№ЁБж 2000:З@416,"ARRIVE TURN";TлD;:З@480,"CONFIRM (Y/N)";:LV$│"YN":LM│1:LS│494.+·Бж 30000:Е LI$│"" з 250 :Д Е LI$│"N" з 100.─
SS(P,I,0)│TлD:SS(P,I,1)│S2:SS(P,I,2)│X:Бж 5500:SD(S1,5)│SD(S1,5)мX:Е SD(S1,5)▓0 з 280 :Д SD(S1,4)│м1:Е SD(S1,1)│2 з SD(S1,4)│4:SD(S1,5)│ Д(2):Бе 280/2
Е SD(S1,1)┤▓3 з 280 :Д А J│0 е NP:Е PD(J,0)│S1 з SD(S1,4)│J:SD(S1,5)│ Д(2)::Д Л J:SD(I,4)│4:SD(I,5)│ Д(3)/n
Е SD(S1,4)┤▓P з З@(SD(S1,2)м1)н32лSD(S1,3)н2м1, Л(226);/є
"Е DF│2 з Бж 3200 :Д A│м(S1┤12)н(32нS1л112)м(S1▓11)н(32н(S1м12)л120)л4:Е SD(S1,4)│P з З@A, П("  "л И(SD(S1,5)),4); :Д З@A,"   -";/■
,Бе 1000
6Бж 4500:Бе 900S
@З@324,"CONFIRM";:З@354,"RESIGNATION";:З@387,"PRESS Y/N";:X$│ Т0
JX$│ Т:Е X$│"N" з 100 :Д Е X$┤▓"Y" з 3300з
TЕ SD(PD(P,0),4)│P з SD(PD(P,0),4)│40╢
YPD(P,0)│м10└
^Л P:Ю0 
hА I│0 е 23:Е SD(I,1)│2 ░ SD(I,4)│4 з SD(I,5)│SD(I,5)л Д(3)13
rЕ SD(I,1)│3 ░ SD(I,4)│4 з SD(I,5)│SD(I,5)л Д(6)1;
|Л I1L
ЖЕ T│ET з 4601u
РA│м1:А P│0 е NP:Е PD(P,0)│м1 з A│Aл11Ы
ЪЛ P:Е A│NPм1 з 430 :Д Е A┤NP з 601╙
дЗ"THE GAME IS OVER":З"EVERYBODY RESIGNED...":Бе 5101ї
оА P│0 е NP:Е PD(P,0)│м1 з Л P26
┬З"PLAYER";Pл1;"HAS WON!":З"EVERYONE ELSE RESIGNED...":Бе 5102▓
╠А P│0 е NP:SS(P,0,0)│0:Л P:А I│0 е 23:Е SD(I,4)┤▓м1 ░ SD(I,4)┤▓4 з SS(SD(I,4),0,0)│SS(SD(I,4),0,0)л2пSD(I,1)н50лSD(I,5)2ь
╓Л I:A│0:B│0:C│0:А P│0 е NP:Е PD(P,0)│м1 з SS(P,0,0)│03-
рЕ SS(P,0,0)│A з B│Bл1 :Д Е SS(P,0,0)▓A з A│SS(P,0,0):B│1:C│P35
ъЛ P3с
ЇЗ "************ SCORES ************":А I│0 е NP:З ═ "    PLAYER #          ######";Iл1,SS(I,0,0):Л I:З:Е B│1 з З "THE WINNER IS PLAYER";Cл1 :Д З "THE GAME IS A TIE..."4o
■З:З "SHIP DATA:":A│0:B│0:А P│0 е NP:A│AлPD(P,1):B│BлPD(P,2):Л P:З"TOTAL     BUILT:";A:З"TOTAL DESTROYED:";B:З ═ "RATIO: ##.# %";(100нBоA)4uК4┤╨D│ Б( Ы((SD(S1,2)мSD(S2,2))п2л(SD(S1,3)мSD(S2,3))п2)л.5):Р5C4Ю:З"**  RESOURCE UNIT PRODUCTION  **":Е SD(PD(P,0),4)┤▓P з З"    NO HOME STAR, NO INCOME!":Бе 2140::Д З"   STAR  CLASS  RU PRODUCTION":D│05╡>А I│0 е 23:Е SD(I,4)┤▓P з 2130 :Д X│0:Е SD(I,1)│1 з X│1 :Д Е SD(I,1)│2 з X│ Д(2)л1 :Д Е SD(I,1)│3 з X│ Д(3)л35яHЗ "    "; Л(Iл65);"     ";SD(I,1);"         ";X:D│DлX6uRЛ I:З  б(21," ");"---":З"TOTAL PRODUCTION:    "; П(" "л И(D),3):З"SHIPS BUILT:";D:SD(PD(P,0),5)│SD(PD(P,0),5)лD:PD(P,1)│PD(P,1)лD6Е\З:Бж 3400:Р6╠ШЮ:А I│0 е 23:Е SD(I,1)┤2 ▒ SD(I,4)┤▓P з 2310 :Д Е SD(I,1)│3 з 22606ывX│40мSD(I,5):Е X┤10 з X│107iмЕ  Д(100)▓X з 2310 :Д З "STAR: "; Л(Iл65):З"CLASS:";SD(I,1):З"THE NATIVES HAVE REVOLTED!":X│ Д(7):Е X▓SD(I,5) з X│SD(I,5)7Щ╢З X;"OF YOUR SHIPS HAVE BEEN":З"DESTROYED!"7ю└SD(I,5)│SD(I,5)мX:Е SD(I,5)│0 з З"THE NATIVES HAVE WON!":SD(I,4)│4:SD(I,5)│ Д(3)8╩Бж 3400:Ю:Бе 231089╘Е PD(P,0)│I з 2310 :Д X│70мSD(I,5):Е X┤20 з X│208╖▐Е  Д(100)▓X з 2310 :Д З"STAR: "; Л(Iл65):З"CLASS:";SD(I,1):З"THE NATIVES HAVE REVOLTED!":X│ Д(15):Е X▓SD(I,5) з X│SD(I,5)8чшЗ X;"OF YOUR SHIPS HAVE BEEN":З"DESTROYED!"9fЄSD(I,5)│SD(I,5)мX:Е SD(I,5)│0 з З"THE NATIVES HAVE WON!":SD(I,4)│4:SD(I,5)│ Д(3):А J│0 е NP:Е PD(J,0)│I з SD(I,4)│J :Д Л J9t№Бж 3400:Ю9~	Л I:Р9я╕Ю:А I│1 е 8:З@(Iм1)н32, Р(SM$,Iн16м15,16):Л I:А I│0 е 23:Е SD(I,4)│P з З@(SD(I,2)м1)н32лSD(I,3)н2м1, Л(184);:/┬Л I:А Y│0 е 7:А X│0 е 7:Z│1024лXн2лYн32:Е  Ж(Z)│128 з ТZ,45:;╠Л X,Y:Р:чЗ@16,"!STAR CLASS, AND";:З@48,"!NUMBER OF SHIPS";:З@80,"!               ";:З@496,"!";:А I│0 е 23:A│м(I┤12)н(32нIл112)м(I▓11)н(32н(Iм12)л120):З@A,"!"; Л(Iл65);" -   -";;G&Е (SD(I,0) ░ 2пP)▓│1 з З@Aл3, П( И(SD(I,1)),1);:Е SD(I,4)│P з З@Aл4, П("  "л И(SD(I,5)),4);;V0Л I:DF│1:Р;юАЗ@16,"!FLEETS IN SPACE";:З@48,"!               ";:З@80,"!TURN STAR SHIPS";:А I│0 е 11:A│32нIл112:Е SS(P,I,0)│9999 з З@A,"!               ";:Бе 3220<JКЗ@A,"!"; П(" "л И(SS(P,I,0)),3);"    "; Л(65лSS(P,I,1)); П("    "л И(SS(P,I,2)),6);" ";<dФЛ I:З@496,"!";:DF│2:Р=фЮ:З"********  COMMAND LIST  ********":З"1. DISPLAY STAR DATA.":З"2. LIST SHIPS IN SPACE.":З"3. CALCULATE DISTANCE BETWEEN      ANY TWO STARS.":З"4. SEND SHIPS INTO SPACE."=jюЗ"5. REVIEW THIS TURNS BATTLES       AND ARRIVALS.":З"6. END TURN":З"7. RESIGN":Р=Г
HЗ@480,"PRESS ENTER";=┴
RX$│ Т:Е X$│"" з 3410 :Д Е X$│ Л(13) з Р :Д а 64,5:Бе 3410=ю
мЗ@288,"FROM";:LV$│ О(AZ$,24):LM│1:LS│293>/
╢Бж 30000:Е LI$│"" з 3510 :Д S1│ К(LI$)м65:З@295,"TO";:LS│298>q
└Бж 30000:Е LI$│"" з 3520 :Д S2│ К(LI$)м65:Е S2│S1 з 3520 :Д Р>жА I│288 е 480 й 32:З@I,"                ";:Л I:Р>їаА I│0 е 23:А J│0 е 7:BD(I,J)│0:Л J:Е SD(I,4)┤▓м1 з BD(I,SD(I,4)л3)│SD(I,5)?lкЛ I:А P│0 е NP:А I│0 е 11:Е SS(P,I,0)▓T з 4020 :Д BD(SS(P,I,1),Pл3)│BD(SS(P,I,1),Pл3)лSS(P,I,2):SS(P,I,0)│9999:Л I?═┤Бж 5500:Л P:А I│0 е 23:A│0:B│0:C│0:D│0:А P│0 е 4:Е P┤4 ░ BD(I,Pл3)▓0 з SD(I,0)│SD(I,0) ▒ 2пP@$╛Е BD(I,Pл3)▓0 з A│Aл1:Е BD(I,Pл3)│B з D│Dл1 :Д Е BD(I,Pл3)▓B з B│BD(I,Pл3):C│P:D│1@I╚Л P:Е A│0 з 4130 :Д Е A▓1 з 4060@о╥Е SD(I,5)▓0 з SD(I,5)│BD(I,SD(I,4)л3):Бе 4130::Д BD(I,0)│1:BD(I,1)│C:SD(I,4)│C:SD(I,5)│B:Бе 4130A▄Е D│1 з 4090 :Д BD(I,0)│3:SD(I,5)│0:Е SD(I,1)┤2 з SD(I,4)│м1:Бе 4110::Д Е SD(I,1)│2 з SD(I,4)│4:Бе 4110AUцА P│0 е NP:Е PD(P,0)│I з 4080 :Д Л P:SD(I,4)│4:Бе 4110AkЁSD(I,4)│P:Бе 4110A┤·BD(I,0)│2:BD(I,1)│C:D│0:А P│0 е 4:Е BD(I,Pл3)▓D ░ P┤▓C з D│BD(I,Pл3)AЇЛ P:BD(I,2)│ Б(DDнDл.5):SD(I,4)│C:SD(I,5)│BD(I,Cл3)мBD(I,2)BQА P│0 е 3:Е BD(I,0)│2 ░ BD(I,1)│P з PD(P,2)│PD(P,2)лBD(I,2) :Д PD(P,2)│PD(P,2)лBD(I,Pл3)BYЛ PBc"Л I:РBЇФЮ:З"BATTLES AND NEW ARRIVALS":З:C│0:А I│0 е 23:Е BD(I,0)│0 ▒ BD(I,Pл3)│0 з 4590 :Д З"STAR: "; Л(Iл65);"   CLASS:";SD(I,1):Е BD(I,0)▓1 з 4520C_ЮЗ"YOUR";BD(I,Pл3);"SHIP"; О("S", А(BD(I,Pл3)м1));" LANDED.  NO":З"OPPOSITION WAS ENCOUNTERED.":Бе 4580DиЗ"YOUR";BD(I,Pл3);"SHIP"; О("S", А(BD(I,Pл3)м1));" ENCOUNTERED:":А J│0 е NP:Е J┤▓P ░ BD(I,Jл3)▓0 з З BD(I,Jл3);"SHIP"; О("S", А(BD(I,Jл3)м1));" FROM PLAYER";Jл1DH▓Л J:Е BD(I,7)▓0 з З BD(I,7);"NATIVE SHIP"; О("S", А(BD(I,7)м1))Dн╝Е BD(I,0)│3 з З"ALL SHIPS WERE DESTROYED...":Бе 4580::Д Е BD(I,1)│P з 4560 :Д Е BD(I,1)│4 з 4570E╞З"PLAYER";BD(I,1)л1;"WON THIS BATTLE, BUT HELOST";BD(I,2);"SHIP"; О("S", А(BD(I,2)м1));"...":Бе 4580Ex╨З"YOU DEFEATED THE ENEMY, BUT AT ALOSS OF";BD(I,2);"SHIP"; О("S", А(BD(I,2)м1));"...":Бе 4580E╘┌З"THE NATIVES WERE VICTORIOUS, BUTTHEY LOST";BD(I,2);"SHIP"; О("S", А(BD(I,2)м1));"..."EцфC│1:Бж 3400:ЮFюЛ I:Е C│0 з З "THERE WERE NONE...":Бж 3400F°РFС|Z│0:А ZZ│0 е 10:Е SS(P,ZZ,0)▓SS(P,ZZл1,0) з Z│1:А J│0 е 2:Y│SS(P,ZZ,J):SS(P,ZZ,J)│SS(P,ZZл1,J):SS(P,ZZл1,J)│Y:Л JFмЖЛ ZZ:Е Z│1 з 5500 :Д РG
pSM$│ б(128,128):LV$│LE$:LM│20:LS│325:А I│0 е 23:SD(I,0)│0:SD(I,2)│0:SD(I,4)│м1:SD(I,5)│0:Л IG╖zX1│ Д(2):Y1│ Д(2):А P│0 е NP:X│X1:Y│Y1:А I│0 е 11:SS(P,I,0)│9999:Л I:PD(P,1)│0:PD(P,2)│0:A│Pн6л Д(6)м1:Е P│0 з 6030 :Д Е P│2 з Y│9мY:Бе 6030::Д Е P│3 з X│9мX:Бе 6030GсДЕ NP│2 з X│8:Y│ Д(2)л3::Д X│9мX:Y│9мYHwОPD(P,0)│A:SD(A,0)│2пP:SD(A,1)│3:SD(A,2)│Y:SD(A,3)│X:SD(A,4)│P:SD(A,5)│10:Ю:З@196,"PLAYER";Pл1;"ENTER YOUR NAME":а 128,3:Бж 30000:PN$(P)│LI$:Ю:Л PH╒ШЗ"DESIGNING GALAXY...":D│0:C│м1:А I│0 е 23:Е SD(I,4)▓м1 з 6070 :Д D│Dл1:C│Cл1:Е D│5 з D│1IвX│ Д(4):Y│ Д(4):Е D│2 з Y│Yл4 :Д Е D│4 з X│Xл4 :Д Е D│3 з X│Xл4:Y│Yл4I▒мА J│0 е 23:Е Y│SD(J,2) ░ X│SD(J,3) з 6050 :Д Л J:SD(I,1)│0:SD(I,2)│Y:SD(I,3)│X:Е C▓3 з SD(I,1)│1:Е C▓15 з SD(I,1)│2:SD(I,4)│4:SD(I,5)│ Д(7)л1Iё╢ Р(SM$,(SD(I,2)м1)н16лSD(I,3)н2м1,2)│ Л(Iл97)л Л(226):Л I:РJ
u0LI$│"":LC│1:Бж 30090JCu:LX$│ Т:Е LX$│"" з 30010 :Д Е LX$│ Л(13) з Бж 30100:РJКuDЕ LX$│ Л(8) з Е LC│1 з 30110 :Д Бж 30100:LC│LCм1:Бж 30090:Бе 30010J■uNЕ LX$│ Л(21) з Е LC│1 з 30110 :Д Бж 30100:А LX│LSл З(LI$) е LS й м1:ТLXл1024,96:Л:LC│1:Бж 30090:LI$│"":Бе 30010KМuXЕ LX$┤▓ Л(9) з 30060 :Д Е LC│LM з 30110 :Д Е LC│ З(LI$) ░  Ю(1,LV$," ")│0 з 30110 :Д Бж 30100:LC│LCл1:Бж 30090:Е LC▓ З(LI$) з LI$│LI$л" "KЩubБе 30010KЄulЕ  Ю(1,LV$,LX$)│0 з 30110 :Д Бж 30100:Е LC▓ З(LI$) з LI$│LI$лLX$ :Д  Р(LI$,LC,1)│LX$L&uvТ 1023лLCлLS, Ю(1,LE$,LX$)л63:Е LC┤LM з LC│LCл1L<uАБж 30090:Бе 30010L_uКLX│1023лLSлLC:Т LX, Ж(LX)м64:РLВuФLX│1023лLSлLC:Т LX, Ж(LX)л64:РLЦuЮа 64,1:Бе 30010Lв}└1:Бе10LV$,LX$)│0 з 30110 :Д Бж 30100:Е LC▓ З(LI$) з LI$│LI$лLX$ :Д  Р(LI$,LC,1)│LX$L&uvТ 1023лL                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 4и&4В COPYRIGHT (C) T&D SOFTWARE 1985     * RIME *&T
:Г*************************&t:Г* RIME WORLD MISSION    *&Ф:Г*   BY                  *&┤:Г* HAROLD SNYDER         *&╘:Г* P.O. BOX 3330         *&Ї:Г* CHEYENNE,  WY         *':Г*            82003      *'4:Г*************************'>	Х1000'G
Ю(0)'mЗ@160,"       RIME WORLD MISSION"'КЗ@224,"              BY"'н
З@288,"         HAROLD SNYDER"'╡НIT'╛PL│6'╟TM│1'╨H1│1'┘H2│1'ЎМ NA$(IT),NM$(IT),LO(IT)(АI│1еIT(Н NA$(I),NM$(I),LO(I)($Л I(-Н LO(KМ DE$(LO),CO(LO,6),LI(LO)(\А I│0 е LOм1(ЯН DE$(I),CO(I,1),CO(I,2),CO(I,3),CO(I,4),CO(I,5),CO(I,6),LI(I)(зЛ I(╖А I│1 е 599(┐Л I(┼Ю(╬LC│1(╪ Бе 34(у!З" OK")
"З"*******************************")#Е TM┤20 з 38)C$Е H2│1 з З"I BLED TO DEATH!":Бе 265)l%Е H1│1 з З"I FROZE TO DEATH!":Бе 265)╛&Е(LI(LC)│0 ░ L│0)▒(L│1 ░ LO(10)┤▓LC ░ LO(10)┤▓99)зЗ"IT'S DARK IN HERE!":Бе 50)у'З"  I NOW SEEM TO BE LOCATED IN")Ё(ЗDE$(LC)*)Е FO│1 з LO(9)│LC**З "I CAN SEE ";*#+IS│0*2,А I│1 е IT*G-Е LO(I)┤▓LC з 48*s.Е  Ъ(X)л З(NA$(I))л З(NM$(I))л1▓│32 з З*Ц/З NM$(I);""NA$(I);",";:IS│ISл1*Ю0Л I*┐1Е IS│0 з З"NOTHING AT ALL.";*┼2З*┘3З"------------"*я4A$│"":V$│"":N$│""*√5TM│TMл1+6Е TM▓360 з 287+!7Й"WHAT NOW";A$+28Е A$│"" з 34+Y9З"*******************************"+w:Е  З(A$)│1 з N$│A$:Бе 100+З;V$│ О(A$,3)+Ъ<А I│1 е  З(A$)+╧=Е  Р(A$,I,1)│" "з N$│ О( П(A$, З(A$)мI),3):Бе 63+╫>Л I+▌?В+Є@Е V$│"GO " з 100,AЕ V$│"RUN" з 100,BЕ V$│"WAL" з 100,1CЕ V$│"GET" з 110,FDЕ V$│"TAK" з 110,[EЕ V$│"GRA" з 110,pFЕ V$│"CAR" з 110,ЕGЕ V$│"MOV" з 110,ЪHЕ V$│"DRO" з 124,пIЕ V$│"PUT" з 124,─JЕ V$│"THR" з 124,┘KЕ V$│"REM" з 124,юLЕ V$│"REA" з 134-MЕ V$│"WEA" з 146-NЕ V$│"CUT" з 158--OЕ V$│"LIG" з 163-BPЕ V$│"SHO" з 168-WQЕ V$│"BLA" з 168-lRЕ V$│"FIR" з 168-БSЕ V$│"BAN" з 181-ЦTЕ V$│"STI" з 181-лUЕ V$│"OPE" з 190-└VЕ V$│"UNL" з 190-╒WЕ V$│"FIL" з 204-ъXЕ V$│"SAY" з 212- YЕ V$│"YEL" з 212.ZЕ V$│"CAL" з 212.)[Е V$│"INV" з 215.>\Е V$│"LOO" з 241.S]Е V$│"RUB" з 245.h^Е V$│"PRE" з 253.}_Е V$│"PUS" з 253.Т`Е V$│"FEE" з 285.мaЕ V$│"QUI" з Ю:Бе 264.╬bЗ"I DON'T KNOW WHAT YOU MEAN".╪cБе 51.шdN$│ О(N$,1)/eЕ LC│18 ▒ LC│20 Бж 292/2fЕ N$│"N" ░ CO(LC,1)┤▓0 з LC│CO(LC,1):Бе 33/agЕ N$│"E" ░ CO(LC,2)┤▓0 з LC│CO(LC,2):Бе 33/РhЕ N$│"S" ░ CO(LC,3)┤▓0 з LC│CO(LC,3):Бе 33/┐iЕ N$│"W" ░ CO(LC,4)┤▓0 з LC│CO(LC,4):Бе 33/юjЕ N$│"U" ░ CO(LC,5)┤▓0 з LC│CO(LC,5):Бе 330kЕ N$│"D" ░ CO(LC,6)┤▓0 з LC│CO(LC,6):Бе 330@lЗ"I CANNOT GO THAT DIRECTION."0JmБе 510_nЕ N$│"INV" з 2150╢oЕ PO▓│PL з З"I AM CARRYING TOO MUCH ALREADY. I CAN'T PICK UP ANYTHING ELSE.":Бе 510┼pА I│1 е IT0тqЕ N$┤▓ О(NA$(I),3) з 1210°rЕ LO(I)┤▓LC з 1211osЕ NA$(I)│"SLED" ▒  О(NA$(I),4)│"GATE" ▒ NA$(I)│"SNOWBEAST" ▒ NA$(I)│"ALIEN" з З"THAT'S OUT OF THE QUESTION!":Бе 511─tЕ NA$(I)│"WIRES" ░ LC│26 з З"THEY'RE FASTENED SECURELY TO THELASER MOUNT.":Бе 511эuЕ LC│9 ░ I│14 ░ LO(27)│0 з LO(27)│LC1·vLO(I)│992wPO│POл12xЗ" GOT IT":Бе 342#yЛ I2@zЗ"I CAN'T PICK THAT UP."2J{Бе 512P|В2_}А I│1 е IT2|~Е  О(NA$(I),3)┤▓N$ з 1312ЮЕ LO(I)┤▓99 ░ LO(I)┤▓98 з 1312│АLO(I)│LC:PO│POм12─БЕ I│3 з H1│12╬ВБе 332╓ГЛ I2ЄДЗ"YOU DON'T HAVE THAT."2№ЕБе 5136ЖЕ LI(LC)│0 ░ L│0 з З"I CAN'T READ IN THE DARK!":Бе 513ФЗЕ N$│"PAN" ░ LC│1 з З"THE WARNING LIGHTS SAY 'MASSIVE DAMAGE!'":З"'FIRE IMMINENT!'":Бе 513сИЕ N$│"PAN" ░ LC│32 з З"IT HAS A BUTTON MARKED 'LAUNCH  TO ORBIT'.":Бе 5141ЙЕ N$│"PAN" ░ LC│17 з З"THE WARNING LIGHTS SAY          '&%#$# **** '":Бе 514tКЕ N$│"BAD" ░ (LO(4)│99 ▒ LO(4)│LC) з З"IT SAYS '%##&%*'":Бе 514оЛЕ N$│"GAU" ░ LC│11 ░ GA│0 з З"IT SAYS 'EMPTY'.":Бе 514яМЕ N$│"ORD" ░ LO(21)┤▓99 ░ LO(21)┤▓LC з З"WHAT ORDERS?":Бе 515║НЕ N$│"ORD" ░ (LO(21)│LC ▒ LO(21)│99) ░ LI(LC)│1 з З"ATTENTION: RETURN THE HASLAN    AMBASSADOR AND THE TREATY TO THEORBITOR CIRCLING THIS PLANET.   THIS WILL END THE WAR BETWEEN   OUR WORLDS.":Бе 516TОЕ N$│"WAT" ░ (LO(2)│99 ▒ LO(2)│98 ▒ LO(2)│LC) з З"IT SAYS '";(3м Б(TMо90));"ZHORG AND ";(( Б(TMо90)л1)н90мTM); "QUAKL' BEFORE THE PLANET DIES.":Бе 516╞ПЕ N$│"LET" ░ (LO(11)│99 ▒ LO(11)│LC) ░ NM$(11)│"AN OPEN " з З:З" THIS IS THE TREATY, TAKE CARE  OF IT!":Бе 516чРЗ"I CAN'T READ THAT. SORRY."6ёСБе 516·ТIS│07УА I│1 е 57%ФЕ  О(NA$(I),3)┤▓N$ з 1557WХЕ LO(I)│98 з З"I ALREADY HAVE THAT ON.":Бе 517ЛЦЕ LO(I)┤▓99 з З"I HAVE TO GET IT, FIRST.":Бе 517аЧLO(I)│98:IS│ISл17╝ШЕ NA$(I)│"PARKA" з H1│07┌ЩЕ NA$(I)│"BANDAGE" з H2│07цЪPO│POм17юЫЛ I8ЬЕ IS│0 зЗ"I CAN'T WEAR THAT."8ЭБе 338NЮЕ LO(12)┤▓99 ░ LO(25)┤▓99 з З"WITH WHAT?":Бе 518СЯЕ N$┤▓"WIR" ░ N$┤▓"ROD" ░ N$┤▓"KEY" з З"THAT WON'T CUT.":Бе 518заЕ N$┤▓"WIR" з 2048╤бЕ LC┤▓26 з З"THEY AREN'T HERE.":Бе 518ЁвNM$(25)│"THREE CUT ":Бе 3390гЕ N$│"FLA" ░ (LO(18)│99 ▒ LO(18)│LC) з З"IT'S BROKEN":Бе 519ВдЕ N$│"GLO" ░ (LO(10)│LC ▒ LO(10)│99) з L│1:NM$(10)│"A BRIGHT, GLOWING ":Бе 339╔еЕ N$│"GLO" ░ (LO(10)┤▓LC ░ LO(10)┤▓99) з З"I DON'T HAVE IT.":Бе 519ьжЗ"SORRY.  THAT DOESN'T LIGHT."9ЎзБе 51:иЕ LO(8)┤▓99 з З"WITH WHAT?":Бе 51:HйЕ N$│"BLA" з З"GIVE ME A TARGET!":Бе 51:акЕ N$│"GAT" ░ (LC│15 ▒ LC│20) з З"B A R O O O M! THERE IS A SHOWER OF SPARKS!":Бе 51:▌лЕ N$│"WIR" ░ LC│26 з З"BBZZZZZT. NOTHING HAPPENS.":Бе 51;8мЕ N$│"GAT" ░ LC│30 ░ NM$(30)│"A CLOSED " з NM$(30)│"A BLASTED OPEN ":CO(30,2)│31:Бе 33;GнА I│1 е IT;]оЕ LO(I)┤▓LC з 178;zпЕ N$┤▓ О(NA$(I),3) з 178;▓░Е NA$(I)│"RUBBLE" з З"YOU ALREADY SHOT THAT.":Бе 51;р▒NA$(I)│"RUBBLE":NM$(I)│"A PILE OF ":Бе 33;ш▓Л I<	│З"I CAN'T GET A BEAD ON IT."<┤Бе 51<G╡Е (LO(5)┤▓LC ░ LO(5)┤▓99) з З"WITH WHAT?":Бе 51<t╢Е N$│"BAN" з З"ON WHAT":Й N$:N$│ О(N$,3)<д╖Е N$│"CUT" ▒ N$│"WOU" з H2│0:LO(5)│98:Бе 51<╪╕Е N$┤▓"ALI" з З"THE BANDAGE WON'T STICK.":Бе 51=╣Е (LO(9)┤▓99 ░ LO(9)┤▓LC) з З"HE ISN'T HERE.":Бе 51=H║NM$(9)│"A GAUDILY DRESSED,               FRIENDLY "=T╗LO(5)│0=]╝FO│1=g╜Бе 33=═╛Е N$┤▓"KIT" ░ N$┤▓"MED" ░ N$┤▓"POR" ░ N$┤▓"LET" ░ N$┤▓"ORD" ░ N$┤▓"GAT" зЗ"IT DOESN'T OPEN":Бе 51>
┐Е N$│"KIT" ░ LO(18)│0 ░ (LO(17)│99 ▒ LO(17)│LC) з LO(18)│LC>S└Е N$│"KIT" ░ LO(13)│0 ░ (LO(17)│99 ▒ LO(17)│LC) з LO(13)│LC:Бе 33>У┴Е N$│"KIT" ░ (LO(17)│99 ▒ LO(17)│LC) з З"IT'S EMPTY.":Бе 51>ь┬Е N$│"POR" ░ LO(11)│0 ░ (LO(20)│99 ▒ LO(20)│LC) з LO(11)│LC:NM$(20)│"AN OPEN ":Бе 33?,├Е N$│"POR" ░ (LO(20)│99 ▒ LO(20)│LC) з З"IT'S EMPTY.":Бе 51?p─Е N$│"LET" ░ (LO(11)│99 ▒ LO(11)│LC) з NM$(11)│"AN OPEN ":Бе 33?к┼Е N$│"MED" ░ (LO(13)│99 ▒ LO(13)│LC) з LO(5)│LC:Бе 33?Є╞Е N$│"ORD" ░ (LO(21)│99 ▒ LO(21)│LC) з NM$(21)│"SOME OPENED ":Бе 33@╟Е N$┤▓"GAT" з З"IT ISN'T HERE.":Бе 51@a╚Е (LC│15 ▒ LC│20) ░ LO(26)┤▓99 з З"I DON'T HAVE THE TOOL.":Бе 51@й╔Е NM$(26)│"A ROUND " ░ LC│20 з NM$(29)│"AN OPEN ":CO(20,2)│21:Бе 33A╩Е NM$(26)│"A TRIANGULAR " ░ LC│15 ░ LO(26)│99 з NM$(28)│"AN OPEN ":CO(15,2)│16:Бе 33A"╦З"SOMETHING'S WRONG.":Бе 51A]╠Е LO(27)┤▓99 з З"I HAVE NO TOOL.":Бе 51:В FILE ROUTINEAй═Е N$┤▓"KEY" ░ N$┤▓"ROD" з З"SORRY. THIS OLD FILE WON'T CUT THAT.":Бе 51Aш╬Е LO(26)┤▓99 ░ LO(26)┤▓LC з З"SORRY. IT ISN'T HERE.":Бе 51B,╧Е NM$(26)│"A SQUARE " з NM$(26)│"A TRIANGULAR ":LO(24)│LC:Бе 33Bn╨Е NM$(26)│"A TRIANGULAR "з NM$(26)│"A ROUND ":LO(24)│LC:Бе 33B╔╤Е NM$(26)│"A ROUND " з NM$(26)│"A CRUMPLED ":LO(24)│LC:NA$(26)│"NEEDLE OF METAL":Бе 33BЁ╥З"IT DOESN'T DO ANY GOOD ANYMORE."B·╙Бе 51C╘З" !!!!!!!!!"C$╒З"NO-ONE HEARS ME."C.╓Бе 51C7╫PO│0CO╪З "I AM CARRYING ";C^┘А I│1 е ITCt┌Е LO(I)┤▓99 з 222CЭ█Е  Ъ(X)л З(NA$(I))л З(NM$(I))▓31 з ЗC╢▄З NM$(I);NA$(I);",";C┬▌PO│POл1C╩▐Л ICы▀Е PO│0 з З"NOTHING AT ALL.";CёрЗC·сIS│0DтЗ"I AM WEARING ";DуА I│1 е 5D4фЕ LO(I)┤▓98 з 231D]хЕ  Ъ(X)л З(NA$(I))л З(NM$(I))▓31 з ЗDцЗ NM$(I);NA$(I);", ";:IS│ISл1DЗчЛ ID║шЕ IS│0 з З"NOTHING BUT MY     UNIFORM.":Бе 234D└щЗD╒ъЕ H1лH2│0  з 240DэыЕ H2│0 ░ LC│1 з 240D√ьЗ"I AM ";EэЕ H1│1 ░ LC┤▓1з З"COLD, ";ECюЕ H2│1 з З"CUT AND BLEEDING.":Бе 240EIяЗESЁБе 51EdёЕ N$│"" з 33EдЄЕ N$│"WAT" ▒N$│"PAN" ▒ N$│"GAU" ▒ N$│"0RD" ▒ N$│"LET" з 134E╠єЗ"I DON'T SEE ANYTHING OF INTEREST"E╓ЇБе 51EхїА I│1 е ITFЎЕ  О(NA$(I),3)┤▓N$ з 250F8ўЕ LO(I)┤▓LC ░ LO(I)┤▓99 з З"IT'S NOT HERE.":Бе 51F^°Е I┤▓10 з З"IT FEELS COLD.":Бе 51Fi∙Бе 163Fq·Л IFИ√З"SORRY. I CAN'T."FТ№Бе 51F╛¤Е N$┤▓"BUT" з З"NOTHING HAPPENS.":Бе 51Fх■Е LC┤▓32 з З"IT'S NOT HERE.":Бе 51G Е LO(22)┤▓32 з З"CLICK. CLICK. CLICK. NOTHING.":Бе 51G%
ЮGJ

А I│1 е 500:З"LIFT-OFF    ";:Л IGP
ЮG}
Е LO(19)│32 ░ NM$(25)│"THREE CUT " з 270GГ
ЗGЪ
З"C R A S H ! ! !"G┌
Е NM$(25)│"THREE TINY " з З"A LASER CUTS YOUR SHIP IN TWO."H
З"THE SHIP SPUN IN,OUT OF CONTROL."HI
З"I AM DEAD. THE PLANET IS        DESTROYED BY THE ORBITING SHIP."HO
	ЗHt

З"WOULD YOU LIKE TO PLAY AGAIN?"H~
A$│ ТHР
Е A$│"" з 267Hж

Е A$│"Y" з О :Д ЦHм
ЮH▓
ЗH▀
З"I HAVE DOCKED WITH THE ORBITING SHIP."I

Е LO(11)│32 ░ LO(9)│32  з 278IA
Е (LO(11)┤▓32 ░ LO(11)┤▓99) з З"I DIDN'T BRING THE TREATY."Iu
Е LO(9)┤▓32 з З"I DIDN'T BRING THE AMBASSADOR."IА
Бе 264IО
В SUCCESSIФ
ЗIл
З"CONGRATULATIONS"I╙
З"::::::::::::::::::::::::::::::::"I▌
З:З:ЗJ
З"YOU HAVE SAVED TWO PLANETS AND  BILLIONS OF LIVES."J7
З"              THANK YOU."JB
Бе 265Jг
Е LO(6)│LC ░ (LO(23)│LC ▒ LO(23)│99) ░ N$│"SNO" з LO(23)│0:NM$(6)│"A FRIENDLY DOCILE ":Бе 51J╣
З"I CAN'T.":Бе 51J╒
Ю:В PLANET IS DESTROYEDJ√
 А I│1 е 500:З"B O O M      ";:Л IK

!ЗKA
"З"I TOOK TOO LONG.  THE ORBITTING SHIP BLEW UP THE PLANET."KK
#Бе265Kл
$Е LC│20 ░ LO(1)┤▓98 з З"I CAN'T GO ON. I AM SLIDING IN  THE SNOW.":А I│1 е 700:Л I:N$│"E":РL
%Е LC│18 ░ LO(1)┤▓98 з З"I CAN'T GO ON. I AM SLIPPING IN THE SNOW.":А I│1 е 700:Л I:N$│"W":РL
&РL-
'В THIS IS THE ITEM LISTL`
(В FORMAT   NOUN,DESCRIPTION,BEGINNING LOCATIONL~
)В IT=NO. OF ITEMS ON LISTLЗ
*Ж 30Lй
+Ж"SNOWSHOES","SOME ALIEN ",11L─
,Ж"WATCH","AN ALIEN ",4L▐
-Ж"PARKA","A HEAVY ",2L°
.Ж"BADGE","A GOLD ",16M
/Ж"BANDAGE","A STICKY ",0M8
0Ж"SNOWBEAST","A WILD, MEAN ",5MY
1Ж"SLED","A STALLED POWER ",7M}
2Ж"BLASTER","A FULLY CHARGED ",2Mд
3Ж"ALIEN","A MENACING, WOUNDED ",17M─
4Ж"GLOBE","A DULL, DARK ",22Mр
5Ж"LETTER","A SEALED ",0N
6Ж"CUTTERS","A PAIR OF RUSTY ",17N"
7Ж"MEDIKIT","A CLOSED ",0ND
8Ж"STRAW","A PILE OF MUSTY ",9N]
9Ж"LUMP","A GREY ",18N{
:Ж"SNOWBALL","AN ICEY ",19NЦ
;Ж"KIT","A SURVIVAL ",1N╖
<Ж"FLASHLIGHT","A TWISTED ",0N╪
=Ж"AUTOPILOT","A SHUTTLE ",14Nў
>Ж"PORTFOLIO","A SEALED ",2O
?Ж"ORDERS","A SET OF SEALED ",31O@
@Ж"IGNITER","A SHUTTLE ENGINE ",1O\
AЖ"MOSS","SOME DRIED ",6O
BЖ"POWDER","A PILE OF BRASS ",0OЭ
CЖ"WIRES","THREE TINY ",26O╖
DЖ"ROD","A SQUARE ",10O╨
EЖ"FILE","A RUSTY ",0P
FЖ"GATE WITH A TRIANGULAR  KEYHOLE","A CLOSED ",15P<
GЖ"GATE WITH A ROUND       KEYHOLE","A CLOSED ",20Pp
HЖ"GATE WITH A HEXAGONAL KEYHOLE","A CLOSED ",30PД
IВ LOCATION LISTPа
JВ LO IS NO OF LOCATIONSP█
KВ STRUCTURE   "DESCRIPTION",N,E,S,W,U,D,STATE OF LIGHTPу
LЖ33Q

MЖ "NOWHERE",0,0,0,0,0,0,0QT
NЖ "THE COCKPIT OF A GROUNDED SHIP. THE PANEL IS BLINKING DIMLY.",2,0,0,0,0,0,1R
OЖ "A PUBLIC SQUARE IN A CITY OF    SQUALID ICE HUTS ON AN ALIEN    WORLD. THERE IS A SHOT UP SHIP  TO THE SOUTH. DEBRIS FROM THE   SHIP LITTERS THE SQUARE.",8,15,1,3,0,0,1RN
PЖ "A LONG ABANDONED MARKET SQUARE  UNDER A PURPLE SUN.",9,2,4,0,0,0,1Rн
QЖ"A CRUMBLED STREET WITH THE      BROKEN CITY WALL TO THE SOUTH   AND EAST.",3,6,5,0,0,0,1R 
RЖ "A GLARING ICE FIELD WITH A      CRUMPLED CITY TO THE NORTH.",4,0,0,0,0,0,1Sj
SЖ "A FIELD OF SWEET SMELLING GREEN MOSS, WITH LONG GROOVES IN IT   MADE BY SHARP TEETH.",0,7,0,4,0,0,1S╝
TЖ"A GLARING ICE FIELD, WITH MELTEDPATCHES SMOKING IN THE SUN.",0,0,0,6,11,0,1T
UЖ "AN ALLEY WITH BROKEN STONE AND  ICE WALLS ON BOTH SIDES.",12,0,2,9,0,0,1TW
VЖ "A COLLAPSED ICE HUT WITH A LONG SHELF DOWN ONE WALL.",0,8,3,0,0,0,1Tн
WЖ "AN ABANDONED STOREROOM. IT'S    MUSTY AIR SMELLS OF DEAD MOSS.",0,0,15,0,0,0,1U
XЖ "THE SADDLE OF A SNOWMACHINE.    THERE IS A GAUGE ON THE PANEL.",0,0,0,0,0,7,1Un
YЖ "THE BOTTOM FLOOR OF A TALL HUT. A CHILL BLAST CURLS OUT THROUGH A HOLE IN THE ROOF.",0,0,8,0,14,13,0U╜
ZЖ"A CELLER UNDER THE HUT.  A DIRT SIDE-WALL HAS COLLAPSED.",0,0,0,0,12,0,0V
[Ж "THE ATTIC OF THE HUT. A PILE OF DRIED STRAW HAS SETTLED IN ONE  CORNER.",0,0,0,0,0,12,0Ve
\Ж "A PUBLIC SQUARE WITH A WEATHEREDWALL TO THE EAST.",10,0,0,2,0,0,1V┼
]Ж "A HUGE FIELD OF WHITE ICE. AN   ALIEN LANDER HAS CRASHED TO THE SOUTH.",0,18,17,15,0,0,1W+
^Ж "IN THE COCKPIT OF AN ALIEN      LANDER.  THE PANEL LIGHTS ARE   GLOWING DIMLY.",16,0,0,0,0,0,0Wc
_Ж "AN ENDLESS EXPANSE OF PINK ICE.",0,19,0,16,0,0,1WЩ
`Ж "A LONG STRETCH OF ORANGE ICE.",0,20,0,18,0,0,1Wт
aЖ "A STRETCH OF RED ICE WITH A CITYWALL TO THE EAST.",0,0,0,19,0,0,1X"
bЖ "AN OPEN SQUARE IN A CITY OF     SPIRES.",0,22,0,20,0,0,1XQ
cЖ "A TOWERING RED SPIRE.",23,24,0,21,0,0,1X~
dЖ "A SQUAT, GREEN SPIRE.",0,0,22,0,0,0,0X▒
eЖ "A CRUMBLING PURPLE SPIRE.",0,28,25,22,0,0,0Xт
fЖ "AN ORANGE, PITTED SPIRE.",24,0,26,0,0,0,0Y9
gЖ "A PINK SNOWFIELD BESIDE AN ANTI-SHIP LASER, SCANNING THE SKIES.",25,0,0,0,0,0,1Yh
hЖ "A BLUE SPIRE BUILDING.",28,30,0,0,0,0,1Yо
iЖ "A GREEN SPIRE BUILDING WITH A   GLASS FLOOR.",29,0,27,24,0,0,0Y▐
jЖ "A YELLOW SPIRE BUILDING.",0,0,28,0,0,0,1Z
kЖ "A FLAT FIELD WITH A GATE TO THE EAST.",0,0,0,27,0,0,1ZX
lЖ "AN ICE FIELD WITH AN UNDAMAGED SHIP.",0,0,0,30,32,0,1Zз
mЖ "THE INTERIOR OF A SHUTTLE SHIP, WITH A DIMLY LIT PANEL.",0,0,0,0,0,31,1,0,0Y▐
jЖ "A YELLOW SPIRE BUILDING.",0,0,28,0,0,0,1Z
kЖ "A FLAT FIELD WITH A GATE                                                                                                                                                                                                                                                                  6&9
В COPYRIGHT (C) T&D SOFTWARE 1985      * GRAFDEMO *&E
Бе60000&Е Ж(116)│&H7F з Х200,30883:OS│16384 :ДХ200,14499:OS│0&гЮ:З@37,"graftext demo program";&с(З@134,"LOAD GRAFTEXT FROM              tape OR disk? t/d"'2K$│ Т:ЕK$│"T" зDN│м1 :ДЕK$│"D" зDN│1 :Д50'><ЕDN│1 з ╙M"GRAFTEXT",OS :Д ЧM"GRAFTEXT",OS'DAв'JFЮ'mHЗ@36,"GRAFTEXT Demonstration";'╙KЗ@225,"This is a demonstration of the  character set and the color     combinations available.":З'▐MБж9000(NАI│0е3:АCS│0 е 2:Н C$(I,CS):Л:Л(_OЖ GREEN,BUFF,BLACK,YELLOW,CYAN,RED (OR BLUE),BLUE,MAGENTA,BLUE (OR RED),RED,ORANGE,WHITE(mPАCS│0 е 2(║RЕCS│0 з╚3:┐1,0:P│3:S│0 :ДЕCS│1 з╚3:┐1,1:P│3:S│1 :ДЕCS│2 з╚4:┐1,1:P│4:S│1(╟ZАB│0 е 3(╘dАF│0 е 3(тnЕB│F з140(ЇxТ277,F:Т278,B)$ВЮ:З@128,"";:АI│32 е 127:З Л(I);:Л:З@289,"";)QДЗ@289,"PMODE";P;":SCREEN1,"; Р( И(S),2);)zЖЗ@321,"BACKGROUND COLOR: ";C$(B,CS);)гИЗ@353,"FOREGROUND COLOR: ";C$(F,CS);)оКБж9000)┤МЛ)║ЦЛ)└аЛ)скЮ:З@236,"The End";:З@416,"";)ччК*#(З@483,"Press [ENTER] to continue ";*)#2Е Т┤▓ Л(13) з9010 :ДР*5ъ`└4:Бе20;":SCREEN1,"; Р( И(S),2);)zЖЗ@321,"BACKGROUND COLOR: ";C$(B,CS);)гИЗ@353,"FOREGROUND COLOR: ";C$(F,CS);)оКБж9000)┤МЛ)║ЦЛ)└аЛ)скЮ:З@236,"The End";:З@416,"";)ччК*#(З@483,"Press [ENTER                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
D>А╛
hпН20Н┐
hЖ╖
Ж╖
ЖO╖
Ж зНПoНМ944mНД'╓o┴■'54~Б
' Б
'цНl0НlзЕ\чНaё
&▀jНXНLЖ
oНOзНO╢
зНFmНB''╢
Н0жН6зН40Н2mН,'
жАНjН" ЁjН ╙oНcНжН Н44нЯа549'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''                                                                  * >АlзЕ\чНaё
&▀jНXНLЖ
oНOзНO╢
зНFmНB''╢
Н0жН6зН40Н2mН,'
жАНjН" ЁjН ╙oНcНжН Н44нЯа549''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 +╓&'
:ГCOPYRIGHT (C) T&D SOFTWARE 1985&2Бе 970&CТ359,57:┐0,1&╦(Ю:З@73,"*** menu ***":З@132,"1. DISCLAIMER":З@164,"2. LOADING INSTRUCTIONS":З@196,"3. PMODES AND PCLEARS":З@228,"4. *** ERRORS ***"'E2З@260,"5. SUBMISSION INFORMATION":З@292,"6. PRICE INFORMATION":З@324,"7. CHATTER!":З@356,"8. END":З@425,"ENTER (1-8)"'z<I$│ Т:Е I$│""з60 :ДЕ  Й(I$)┤9 ░  Й(I$)▓0з70 :Д60'лFI│ Й(I$):ИI Бе80,220,580,290,130,490,700,650'▓P:Г(LZЮ:З@40,"T & D SOFTWARE";:З@71,"HOLLAND MICHIGAN";:З@130,"REPRODUCTION OF ANY OF THE       FOLLOWING IS PROHIBITED.":З@194,"T & D SOFTWARE SHALL HAVE"(ъdЗ@226,"NO LIABILITY OR RESPONSIB-      ILITY TO CUSTOMER WITH RE-       SPECT TO ERROR, LOSS, OR         DAMAGES CAUSED BY THESE               PROGRAMS.")(nЗ@421,"COCO CASSETTE NO. 41                NOVEMBER 1985")7xБж680:Бе40)TВ:ГSUBMISSION INFORMATION*>МЮ:З@5,"submission information":З@64," T & D SOFTWARE PRODUCES 70% OF  ITS PROGRAMS 'IN HOUSE' OR      FROM AUTHORS LOCATED IN HOL-    LAND MICHIGAN.  THEREFORE,      ONLY ONE TO FIVE PROGRAMS ARE   PURCHASED EACH MONTH FROM OUT-"*╖ЦЗ" SIDERS.":З" WE PREFER TO OFFER SUBSCRIP-    TIONS INSTEAD OF MONEY BUT WE   SOMETIMES OFFER MONEY AS WELL.":Бж660+mаЮ:З@33,"procedure:":З" SIMPLY SEND YOUR PROGRAMS IN    (ON DISKETTE OR CASSETTE) ALONG WITH INSTRUCTIONS.  WE WILL TRY TO DECIDE IF WE CAN USE THEM    WITHIN FIVE WORKING DAYS.",DкЗ@224," IF WE CAN USE THE PROGRAM(S) WE WILL MAKE YOU AN OFFER.  IF WE  CANNOT USE THE PROGRAM WE WILL  SEND YOU THE TAPE OR DISKETTE   BACK ALONG WITH A SHORT EXPLA-  NATION OF WHY WE COULD NOT USE  IT.":Бж660,┘┤Ю:З@32," program suggestions:":З@96," WE USUALLY NEED HELP WITH       ADVENTURES, HOME FINANCE, AND   UTILITIES.  GAMES ARE ALSO      WELCOMED."-\╛З@256," WE PREFER PROGRAMS WHICH ARE    COMPLETE, BUG FREE, HUMOROUS,   AND WORK WITH A 16K EXTENDED    COLOR COMPUTER.":Бж660-я╚Ю:З@32," we need your programs":З@128," YOU PROBALBLY HAVE A BUNCH OF   PROGRAMS COLLECTING DUST SOME-  WHERE.  WE WOULD LOVE TO SEE    THEM!".Z╥З" WHO KNOWS?  IT MIGHT BE WORTH   A LOT MORE THAN THE $.37 IT     WILL COST TO SEND THEM.":Бж680:Бе40.u▄:ГLOADING INSTRUCTIONS/RцЮ:З@6,"loading instructions":З@96," AFTER REWINDING THE CASSETTE    TAPE, YOU SHOULD ZERO YOUR TAPE COUNTER.  TAPE COUNTER LOCA-    TIONS FOR THE PROGRAMS ARE      GIVEN FOR TWO POPULAR RADIO     SHACK TAPE PLAYERS:"/╕ЁЗ" THE OLDER (BLACK) TAPE RECORDER - CTR-80A AND THE NEWER (GREY)  TAPE RECORDER - CCR-81.":Бж6600Щ·Ю:З@6,"loading instructions";:З@32," WE USE A 60 MINUTE TAPE WHICH   ALLOWS US TO PUT EACH PROGRAM   ON TWO TIMES AND SOMETIMES EVEN THREE. IF THE FIRST COPY WILL   NOT LOAD BECAUSE OF AN ?IO      ERROR, TRY THE OTHERS."1{
З" PLEASE ASSUME THAT EACH PROGRAM IS WRITTEN IN BASIC UNLESS WE   TELL YOU OTHERWISE.  SIMPLY     FAST-FORWARD TO THE DESIRED     PROGRAM AND ENTER CLOAD, OR     CLOADM IF IT IS A MACHINE LAN-  GUAGE PROGRAM.":Бж660:Бе401М
:Г IO ERRORS1е
Ю:З@12,"?io errors":1▓
":ГERRORS1═
,Ю:З@8,"*** errors ***"2@
6З@64," WE WOULD LIKE TO COVER SOME OF  THE ERRORS WHICH MIGHT OCCUR    WHEN LOADING/RUNNING OUR PRO-   GRAMS."2Ё
@З@200,"1. ?FC ERROR":З@232,"2. ?FM ERROR":З@264,"3. ?IO ERROR":З@296,"4. ?OM ERROR":З@328,"5. ?OS ERROR":З@360,"6. ?SN ERROR":З@392,"7. RETURN TO MENU":З@456,"ENTER (1-7)"3
JI$│ Т:Е I$│""з330 :Д3403I
TI│ Й(I$):ЕI┤1▒I▓7з330:Д И I Бе350,370,390,430,450,470,4047
^Ю:З@7," *** fc error ***":З@96," THE ILLEGAL FUNCTION CALL WILL  HAPPEN WHEN YOU USE AN OUT OF   RANGE number WITH A basic       WORD.  FOR EXAMPLE - PMODE 5.   THIS MIGHT ALSO HAPPEN WHEN YOU TRY TO PMODE MORE THAN YOU      PCLEAR."4Е
hЗ" PLEASE REFER TO THE PMODES AND  PCLEARS IN THE MAIN MENU.":Бж680:Бе2905*
rЮ:З@7,"*** fm errors ***":З@96," BAD fILE mODE ERRORS WILL OCCUR WHEN YOU TRY TO cload A MACHINE LANGUAGE PROGRAM OR WHEN YOU    TRY TO cloadm A BASIC PROGRAM."5╩
|З:З" THIS ERROR WILL ALSO OCCUR WHEN YOU TRY TO INPUT DATA FROM A    FILE OPEN FOR OUTPUT(O), OR     PRINT DATA INTO A FILE OPEN FOR INPUT(I).":Бж680:Бе2906и
ЖЮ:З@7,"*** io errors ***":З@64," iNPUT/oUTPUT ERRORS ARE OFTEN   CAUSED BY TRYING TO LOAD A      PROGRAM FROM A BAD RECORDING OR TAPE.  THEY WILL ALSO OCCUR IF  YOU TRY TO LOAD A PROGRAM MID-  WAY THRU THE RECORDING."7n
РЗ" WE RECOMMEND THAT YOU USE THE   audio on COMMAND BEFORE YOU     ATTEMPT TO LOAD A QUESTIONABLE  PROGRAM.  LISTENING TO THE      PROGRAM LOAD MIGHT HELP IN      DIAGNOSING THE PROBLEM.":Бж6608J
ЪЮ:З@6,"*** io errors ***":З@64," SOMETIMES IT HELPS TO CHANGE    THE VOLUME OF YOUR TAPE PLAYER  WHEN TRYING TO LOAD A PROGRAM.  PLEASE REMEMBER THAT THERE ARE  AT LEAST TWO COPIES OF EACH     PROGRAM ON EACH TAPE."9$
дЗ" IF YOU CANNOT GET ANY COPIES OF ANY PROGRAM(S) TO LOAD, YOU CAN SEND THE FAULTY TAPE BACK TO US FOR A PROMPT REPLACEMENT.       PLEASE INCLUDE AN EXPLANATION   OF WHY YOU ARE RETURNING THE    TAPE.":Бж680:Бе290:
оЮ:З@7,"*** om errors ***":З@32," oUT OF mEMORY ERRORS OCCUR WHEN ALL AVAILABLE MEMORY HAS BEEN   USED OR RESERVED.  IT MIGHT     MEAN THAT YOU HAVE RESERVED TOO MUCH MEMORY FOR GRAPHICS SUCH   AS PCLEAR4 OR STRING SPACE SUCH AS CLEAR 4000.:∙
╕З" TO AVOID FRUSTRATING ?OM        ERRORS, WE RECOMMEND THAT 16K   USERS TURN THE COMPUTER OFF AND ON, THEN ENTER THE PCLEAR       STATEMENT BEFORE LOADING IN A   PROGRAM WHICH PCLEAR VALUE IS   LESS THAN 4.":Бж680:Бе290;П
┬Ю:З@6,"*** os errors ***":З@96," oUT OF sTRING SPACE ERRORS CAN  OCCUR WHEN YOUR STRING OPERA-   TIONS REQUIRE MORE MEMORY THAN  YOU ALLOW THEM."<
╠З:З" MAKING THE CLEAR STATEMENT      LARGER WILL HELP YOU CREATE     MORE MEMORY FOR YOUR STRING     SPACE.":Бж680:Бе290<ё
╓Ю:З@6,"*** sn errors ***":З@96," sYnTAX ERRORS RESULT FROM A LOT OF THINGS INCLUDING MISPELLED   COMMANDS OR ILLEGAL CHARACTERS. SOMETIMES THE COMPUTER WILL     TELL YOU THERE IS A ?SN ERROR   IN A LINE YOU KNOW IS CORRECT."={
рЗ" USUALLY YOU CAN RUN THE PRO-    GRAM AGAIN AND IT WORKS FINE.   SOMETIMES IT HELPS IF YOU RE-   TYPE THE ENTIRE LINE.":Бж680:Бе290=У
ъ:ГPRICE INFORMATION>M
ЇЮ:З@7,"price information":З@64," OUR PRICES HAVE NEVER GONE UP!":З@299,"SEND TO:":З@328,"T & D SOFTWARE":З@360,"P.O. BOX 256-C":З@391,"HOLLAND MI 49423" :З@422,"TEL. (616) 396-7577">╤
■З@134,"1 YEAR ****** $55.00":З@166,"6 MO'S ****** $30.00":З@198,"SINGLE IS. ** $ 6.00":A│159:З@483,"press any key to continue";?zАV│101е122:З@V, Л(Aм12);:ЛV:З@154, Л(A):З@186, Л(A):З@218, Л(A):АV│250е229 йм1:З@V, Л(Aм3);:ЛV:З@197, Л(A);:З@165, Л(A);:З@133, Л(A);:A│Aл16:I$│ Т:ЕI$│""з530 :Д 550?ЩЕA▓255 зA│159:Бе520 :Д 520?гБж660@`&S$│ Л(128):Ю(3):З@7,"computer cassettes";:З@69,"*** 5 screw shell ***";:З@101,"***  free labels  ***";:З@133,"** error free tape **";:З@165,"* immediate shipping*";:З@235,"item price";@█0З@267,"c-10  .59";:З@299,"c-20  .69";:З@331,"c-60  .85";:З@363,"c-90  .99";:З@395,"case  .18";:З@425,"shipping $3.00";@ъ:Бж680:Бе40AD:ГPMODE + PCLEARSAфNЮ:З@8,"pmodes + pclears":З@64," THE NORMAL MEMORY AREA IS       LARGE ENOUGH FOR TEXT (LETTERS  AND NUMBERS) BUT NOT FOR GRA-   PHICS (CIRCLES, LINES, ETC.).   THE COLOR COMPUTER MAKES IT     POSSIBLE TO SET ASIDE ROOM FOR"BЪXЗ" GRAPHICS WITH THE pmode AND     pclear  COMMANDS.  GENERALLY,   THE HIGHER THE pmode VALUE,     THE MORE DISTINCT THE GRAPHICS  AND THE MORE MEMORY IS RE-      QUIRED.":Бж660C}bЮ:З@8,"pmodes and pclears":З@64," WHEN YOU FIRST FIRE UP THE      COLOR COMPUTER, THE PCLEAR      VALUE IS 4.  THEREFORE, ANY     PROGRAM OF OURS THAT HAS A      PCLEAR VALUE OF 4 SHOULD LOAD   AND RUN WITH NO DIFFICULTY "DlЗ" WITH RESPECT TO pmodes AND      pclears.":З" THE PROGRAMS THAT MIGHT CAUSE   YOU PROBLEMS ARE THOSE WITH     pclear VALUES OF LESS THAN 4.":Бж660D┼vЮ:З@8,"pmodes and pclears":З@64," IF YOU HAVE ANY DOUBTS ABOUT    WHETHER OR NOT A PROGRAM WILL   LOAD OR RUN SUCCESSFULLY WE     RECOMMEND THE FOLLOWING PRO-    CEDURE:"E|АЗ" (1) TURN YOUR COMPUTER OFF AND  ON.":З" (2) ENTER DIRECTLY FROM THE     KEYBOARD THE pclear VALUE FOL-  LOWED BY THE pmode VALUE.":З" (3) LOAD AND RUN THE PROGRAM.":Бж680:Бе40EНКТ359,126:Ю:КE┤ФЗ@483,"press any key to continue";E╨ЮI$│ Т:Е I$│""з 670 :Д РFиЗ@484,"press";:З@490,"any";:З@494,"key";:З@498,"to";:З@501,"return";F5▓I$│ Т:Е I$│""з 690 :Д РFC╝:ГCHATTERFI╞ЮG╨З@8,"*** chatter ***":З@64," IF YOU HAVE ANYTHING TO SELL,   (NON COMMERCIAL), TRADE OR      ANNOUNCE OR IF YOU JUST WISH    TO SAY 'HI' TO SOMEONE THEN WE  WOULD LIKE TO HEAR ABOUT IT."Gя┌З" IT WON'T COST YOU ANYTHING BUT  ALL THAT WE ASK IS THAT YOU     SUBMIT YOUR 'CHATTER' BY THE    30TH OF THE MONTH PRIOR TO THE  NEXT ISSUE.  FOR EXAMPLE: IF    YOUR CHATTER ARRIVES BY THE     30TH OF JANUARY, WE CAN GET IT"HфЗ" INTO OUR FEBRUARY EDITION.";:Бж660H :ГIБж960:З:З" help wanted -  1) I AM TRYING   TO FIX MY DRAGON. THE PROBLEM   APPEARS TO BE ROM RELATED AND   I NEED TO KNOW IF I CAN GET     THEM SEPERATELY. 2) I WOULD     LIKE TO CONNECT MY RADIO SHACK  MODEL 1 TO MY COCO FOR FILEI=З" TRANSFER. IF ANYONE CAN HELP,   WRITE TO:"IвЗ"       BRYAN MCPHEE                    418 VIRGINIA DR                 BROWNS MILLS, NJ 08015"Iм
Бж660JЮ:Бж960:З:З:З:З:З:З" 2. public domain SOFTWARE FOR      THE COLOR COMPUTER. FOR DE-     TAILS WRITE:"JY
З:З"       P.O. BOX 13124                  HOUSTON, TX  77219"JcБж660K+Бж960:З:З" 3. for sale COLOR COMPUTER      SYSTEM. 64K ECB EXCELLENT       CONDITION, SWITCHABLE INVERSE   VIDEO; NUMERIC KEYPAD; WRITE    FOR COMPLETE DETAILS AND LIST   OF OTHER PERIPHERALS.":ЗK=З" WRITE TO:"KЯЗ"      JOHN BOALS                      494 CLINE AVE                   MANSFIELD, OH  44907"KйБж660KїfЮ:З@0,"     $$$ BULK DISKETTES $$$":З:З"  quant     price     shipping"L║pЗ"   1-15     $1.60       $1.75     16-35      1.50        2.00     36-75      1.45        2.25     76-199     1.40        3.00    200-499     1.35        3.75    500-?       1.25        5.00"LрzЗ" ADD $.10 EA FOR BLANK SLEEVES"MLДЗ:Зд4)"T & D COMPUTER PRODUCTS":Зд8)"P.O. BOX 256-C":Зд7)"HOLLAND MI 49423":Зд8)"(616) 396-7577";:Бж660MФОЮ:З"   $$$ quality cassettes $$$":З:З"  QUANTITY 1-29  30-59  60-?"NYШЗ:З"  C-10     $.55  $.50  $.45       C-20      .65   .60   .55       C-60      .80   .75   .70       C-90      .90   .85   .80       CASES     .18   .16   .15       SHIPPING 2.00  3.00  4.00"N├вЗд4)"T & D COMPUTER PRODUCTS":Зд8)"P.O. BOX 256-C":Зд7)"HOLLAND MI 49423":Зд8)"(616) 396-7577";:Бж680N╔мЮN╙╢Бе 40Nё└Ю:З@8,"*** chatter ***":РO╩╚0:└1:Бе30IК/@ ~1~А~oНОoНЛoНЕжНБ╞ =уН{├
жДБ@%А@╞=0НЭ0Л1Нc╞жАзаZ&∙жНS╞└=эНVжНH╞└=уНK├`╙║
OцН70Л╞1Н0жакДзД0И Z&ЇжНLзНБ &ПoНжНLзНБ& |9@Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є<B:JJ<"">""|""<""|"   "|"""""|>  <  >>  <   "  &"""">"""B<""$8$""      >"6*""""""2*&"">"""""><""<   """*$<""<$""" ">""""""""""""""*6""""""""> >8     8@ 
*I ~ ?? |qRt%G">>>0
 @"&*2"">""$D~>  <<" <"">""""""">>  "



 ╨Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є?? |qRt%G"