NES READY":Бе98<°Зд7)"WARNING":З"EXTREMELY FRAGILE":ЗO$(17)8_¤ЗD$(12):З"IS CRACKED! STARTING8аЗ"ENGINES WILL RESULT IN AN       ANTI-MATTER IMPLOSION":Бе98╕З"CAN'T DO IT!":Бе98╙З"HANDS ARE FULL!":Бе99	З"AUTHORIZED PERSONS ONLY -       PRESENT ID":Бе99*З"THE VALVE IS CRACKED!":Бе99R З"YOU ARE FLOATING AWAY IN SPACE":Р9{%З"YOU ARE IN THE VACUUM OF SPACE!":Р9Э*АI│1е4:ЕP(L,I)┤0зM│ В(P(L,I))9е/Л:Р9╫4Ю:З"THE ENGINES IMPLODED!":АI│0е1250:Л:АI│1е89є9Зд Д(50))"BOOM":Л:Бе845:>Бж800:ЕL(6)│0зЗ"CARRYING "O$(13):"CБе845:OHБж805:ЕL(4)│0▒L(5)│0зЗ"HOLDING A "O$(11):eMЗ"YOU'RE DEAD!":К:┼RЗ"THE SHIP JUST CRASHED!":З"YOU'D BE UP FOR COURTMARSHAL -  IF YOU WERE STILL ALIVE.":Бе845:є\ЕL│23▒L│1зP(23,3)│м10:P(10,4)│м23:Z│0:Бе9:¤aБе780;ДМO$(50),D$(14);=ШАI│1е50:НO$(I):Л:АI│1е14:НD$(I):Л:МL(40);iвАI│1е40:НL(I):Л:МP(23,4):АI│1е23:АJ│1е4;БмНP(I,J):ЛJ,I:L(0)│1;└╢P│13:O$(0)│"SPACE SUIT WITH POCKETS":D$(0)│"OPEN LOCKER":Р;чЖNORTH,SOUTH,EAST,WEST,UP,DOWN,OUT<
ЖPHASER,KLIGAT,UNIFORMS,SPACESUIT,SPACESUIT<IЖ MAGNETIC BOOTS,FLASHLIGHT,SHOES,FLUX SENSOR<_ЖMAGNATOMIC VALVE<z(ЖSAURIAN BRANDY,PILLOW<е2ЖTRICORDER,HAMMER,ORDINARY SCREWDRIVER<╓<ЖSPANNER WRENCH,ID BADGE,PENCIL,MESSAGE TAPE<ўFЖHATCH,POCKETS,CRACKED VALVE=#PЖMIRROR,MAIN VIEWSCREEN,IMPULSE ENGINES=UZЖUHURA'S PANEL,SPOCK'S POSITION,GYM EQUIPMENT=ШdЖLOCKERS,DETENTION CELLS,ENGINE FIRING BUTTON,FLASHING READOUT=─nЖCONTROL PANEL,STARS,DILITHIUM CRYSTALS=▀xЖOPEN SHUTTLEBAY DOORS>ВЖSPACESUIT LOCKER,ARMORY,CLOSED DOOR,TURBOLIFT><МЖCOMPUTER TERMINAL,VENILATOR,VIEWPORT>мЦЖIN A CABIN,IN A GYM,IN SECURITY,IN ENGINEERING, IN PARTS STORAGE,IN A TRANSPORTER ROOM,IN A STORAGE LOCKER?0╚Ж IN AUXILIARY CONTROL,ON THE WRECKED BRIDGE  OF THE STARSHIP ENTERPRISE,IN THE SHUTTLECRAFT BAY, ON THE STARBOARD ENGINE PYLON?tцЖON THE STARBOARD ENGINE,IN A VENTILATION DUCT,IN THE TURBOLIFT?╠·Ж50,50,50,7,50,50,7,50,5,5,1,1,4,4,4,4,50,50,50,12,50,50,1,9,4,9,9,2,2,3,8,8,6,10,4?▀JЖ10,10,3,50,50?ъеЖ,,21,?·жЖ-21,22,15,@зЖ,18,,@иЖ-5,,,19@йЖ,-4,,@*кЖ17,,,-7@5лЖ,,-6,@AмЖ,,-22,@JнЖ,,,@VоЖ,,,-23@_пЖ,,,@h░Ж,,,@y▒Ж13,13,13,13@В▓Ж,,,@У│Ж20,17,-16,2@г┤Ж18,19,,-15@│╡Ж15,6,19,22@┴╢Ж3,16,,20@╧╖Ж16,,4,17@▐╕Ж,15,18,21@ь╣Ж,-2,20,1@·║Ж2,,17,-8A╗Ж,,-10,иЖ-5,,,19@йЖ,-4,,@*кЖ17,,,-7@5лЖ,,-6,@AмЖ,,-22,@JнЖ,,,@VоЖ,,,-23@_пЖ,,,@h░Ж,,,@y▒Ж13,13,13,13@В▓Ж,,,@У│Ж20,17,-16,2@г┤Ж18,19,,-15@│╡Ж15,6,19,22@┴╢Ж3,16,,20@╧╖Ж16,,4,17@▐╕Ж,15,18,21@ь╣Ж,-2,20,1@·║Ж2,,17,-8A╗                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                S*3,1:DRAW"XS$;C5;XLA$;":NEXTS:RETURN
7000 PCLS(5):FORS=10TO1STEP-1:S$="BM110,130S"+STR$(S)+"BM+0,-10":DRAW"XS$;C0;XSH$;":SOUNDS*10,1:DRAW"XS$;C5;XSH$;":NEXTS
7005 IFNG=0THENSC=SC+100:CLS:PRINT"ROBOTS DESTROYED IN SHIP EXPLOSION":FORDE=1TO200:NEXTDE:GOTO9500
7010 GOSUB6200:CLS:PRINT"ROBOTS DESTROYED THE SHUTTLE":SC=SC*.5:GOTO9040
8000 CLS:PRINT:FORDE=1TO3:SOUNDRND(255),1:NEXTDE:PMODE 2,1:SCREEN 1,1:SP=SP-HP/(3+RND(5)):IFSP<0THENSP=0
8010 CC=CC OR FG(4):RETURN
9000 PCLS(5):FORX=9TO1STEP-1:Z=RND(2):S$="BM110,10S"+STR$(X)+"BM+0,40":DRAW"C0;XS$;":DRAWRO$(Z):SOUNDRND(255),1:DRAW"C5;XS$;":DRAWRO$(Z):NEXTX:CLS:PRINT"YOU'RE DEAD"
9040 PRINT"SCORE-";SC:INPUT"ANOTHER TRY Y/N";A$:IFA$<>"Y"THENEND
9050 SP=100:CH=100:LX=RND(MR+1)-1:LY=RND(MR+1)-1:LZ=RND(MZ+1)-1:IF(CC AND FG(0))THENCC=CC-FG(0)
9060 SC=SC*.7:CC=CC OR FG(3):GOTO750
9400 FORX=1TO5:CLS:PRINT:SOUNDRND(255),1:PMODE2,1:SCREEN1,1:NEXTX:PRINT"SHIP,ROBOTS,AND YOU DESTROYED":PRINT"SCORE-";SC:INPUT"TRY AGAIN Y/N";A$:IFA$="Y"THENRUNELSEEND
9500 CLS:PRINT"YOU KILLED ALL ROBOTS":PRINT"SCORE-";SC:INPUT"NEW GAME Y/N";A$:IFA$="Y"THENRUN
FORX=1TO5:CLS:PRINT:SOUNDRND(255),1:PMODE2,1:SCREEN1,1:NEXTX:PRINT"SHIP,ROBOTS,AND YOU DESTROYED":PRINT"SCORE-";SC:INPUT"TRY AGAIN Y/N";A$:IFA$="Y"THENRUNELSEEND
9500 CLS:PRINT"YOU KILLED ALL│16)зN│L:L│14:Бе276++сЕS│7░L│10зL│11:Бе276+DцЕS│5░L│11зL│12:Бе276+eыЕS│6░(L│11▒L│12)зL│Lм1:Бе276+}ЁЕS│6░D│м1зL│E:Бе276+ЭїЕ(S│49░L┤9)▒(L│13░D┤м1)з720+░·M│L:ЕL┤▓14з280+╜№ЕS▓7з780+т ЕS┤5зЗO$(47)" BLOCKED "O$(S):Бе9+∙
ЕS│7зL│N:M│L:Бе365,
	Е(S│5░N│23)▒(S│6░N│9)зN│16:Бе275,0
N│23:ЕS│5зN│9,:
Бе365,H
M│L:Бе365,Y
M│L:ЕS▓4з780,z
ЕP(L,S)▓0зL│P(L,S):M│L:Бе365,Д
"Бе780,Т
,ЕS│45з365,д
1ЕS│39░L│8з755,─
6ЕL(4)│LANDS│11зO$(11)│O$(0),ф
;ЕL(5)│LANDS│11зO$(12)│O$(0),∙
@ЕS│50░X┤▓0зБж810-
EЕS│20░L(13)│0з685-%
JЕS│33░L│9зL(19)│L-7
OЕS│34░L│9з680-T
TЕ(S│10)░(L(3)│L)зL(21)│L-f
YЕB$┤▓"PO"з385-Ю
^Е((L(3)│L)▒(L(3)│0))зL(17)│L:L(18)│L:L(21)│50:Бе385-╦
cЕ(L(4)▓0)░(L(4)┤▓L)░(L(5)┤▓L)░(L(5)▓0)з9- 
hO$(22)│"PHILLIPS SCREWDRIVER":L(15)│L:W│1:Бе385.2
mJ│0:З"YOU ARE--";:ЕL▓14зЗ"IN A CORRIDOR":Бе375.=
rЗD$(L).X
wЕL│9▒L│23▒L│16зL(40)│L.p
|Е(L▓9░L┤13)зL(34)│L.~
БЕS│48з685.б
ЖЗ"YOU CAN SEE--":ЕS│30░L│1з711.╗
ЛЕ(M┤▓L)░(M┤15)зЗD$(M).ы
ХЕS│31зЗ"STARS AND A VERY CLOSE PLANET!":Бе9/
ЪL(39)│50:АI│1е4:ЕP(L,I)┤0зL(39)│L/9
ЯЛ:Е(L▓3░L┤8)▒L│23▒L│10▒L│22▒L│8зX│1/E
дАI│1е40/y
йЕ(L(I)│M)зЗO$(Iл7):J│1:ЕX ░I│39зЗ"-WITH WINDOW"/а
оЛ:ЕL┤9зЗO$(50):ЗO$(49):ЗO$(48):J│1/╕
│M│L:ЕJ│0зЗ"NOTHING"/ы
╕З"OBVIOUS EXITS ARE-";:ЕL│11зЗ"UP ";:З"DOWN ";0
┬Е(L│13░D│0)▒L│12зЗ"DOWN"0%
╟Е(L│14)зЗ"OUT, UP, DOWN"0F
╠АI│1е4:ЕP(L,I)▓0зЗ" *"O$(I);0P
╤Л:Бе90b
█ЕS│45░L│3з5250П
рЕS│36░L│2зO$(36)│D$(0):L(3)│2:L(8)│2:Бе90╜
хЕS│36░L│10зO$(44)│D$(0):L(5)│L:L(6)│L:Бе90╨
ъЕS│21░L│12з5350т
яЕB$┤▓"DO"з6900є
ЇБж705:ЕI│5з91
∙ЕL│23▒L│10з6951)
■ЕL┤▓4░L┤▓5зЗ"IT'S JAMMED!":Бе91BЕ(L(17)│L)зБж715:Бе91LБе7901В
Е(L(17)│L)зO$(45)│"OPEN ARMORY":L(1)│L:L(2)│L:Бе91МБе5201├Й"WITH WHAT";A$:Е З(A$)▓1зA$│ О(A$,2):ЕA$│"PH"з8201фЕA$┤▓"SC"зЗ"WON'T WORK!":Бе92!ЕL(15)│0░W│1зO$(27)│"OPEN HATCH":L(22)│L:Бе92B&ЕL(15)│0зЗ"THEY'RE PHILLIPS SCREWS!":Бе92L+Бе5752В0Е(S│17)░(L│12)░(L(22)│L)░(L(10)│0)зL(22)│99:Бе5702о5ЕS│17░(L(12)┤▓L)зL(10)│50:L(22)│L:Бе7952─6ЕS│11░L(5)│0зS│122ь:ЕS▓7зЕ(L(Sм7)│0)зL(Sм7)│L:C│Cм1:Бе93?З"DON'T HAVE IT":Бе93#IЕL(1)┤▓0зЗ"WITH WHAT":Бе931NЕS│21з8203QSЕB$┤▓"DO"зЗ"NO EFFECT!":Бе93bXБж705:ЕI│5з93Г]Бж715:N│L:L│P(L,I):Бж715:L│N3Ц^ЕL│10▒L│23зZ│13╛bЕL│4▒L│5зL(22)│L(10):L(10)│50:Бе7953╞cБе93█lЕS┤▓11░S┤▓13з7803¤nАI│1е40:ЕL(I)│0░(I┤4▒I▓6)з7854qЛ:ЕF│8з6554)vЕS│13░L(6)│0зL(6)│м1:Бе94RАЕL(4)│0░L(5)▓0░иL(6)зL(4)│м1:O│P:Бе94wЕЕL(5)│0░L(4)▓0░иL(6)зL(5)│м1:Бе94БКБе7804ЮПЕS│13░L(6)│м1зL(6)│0:Бе94╦ЩЕL(4)│м1░иL(6)░L(5)▓0зL(4)│0:P│O:O│0:Бе94ЁЮЕL(5)│м1░иL(6)░L(4)▓0зL(5)│0:Бе94·гБе7805(иЗ"SCREEN SAYS - ORBITAL DECAY CONTINUING"5\нЗ"CONTACT WITH ATMOSPHERE IN "U":"T" HOURS":Бе95|▓ЗZ$:З"DOES NOT COMPUTE":Бе95Х╖ЕL(4)│м1▒L(5)│м1з6055╔╝З"AREA DEPRESSURIZED":З"SPACESUIT REQUIRED":Бе95р┴АI│1е4:ЕP(L,I)┤0зР5Ў╞Л:З"WHAT DOOR?":Р6╟ЕиL(4)░иL(5)зЗ"RERUTNEVDA YDRAH A69╚ЕL(4)┤1▒L(5)┤1зI│0:Бж7176U╔АI│8е26:ЕL(Iм7)│1зБж7176s╩Л:АI│50е48йм1:Бж717:Л:Бе96Ф╦АJ│1е4:P(L,J)│ В(P(L,J)):Л:Р6╞═АJ│ З(O$(I))е1йм1:З Р(O$(I),J,1);:ЛJ:З"  ";:Р6∙╨ЕL(4)┤1▒L(5)┤1▒L(10)│0зЗ"CAN'T FIT NOW!":Бе3657╒L│13:M│L:D│ Д(5):E│ Д(8):Бе3657.┌ЕL(22)┤99з8207b▀З"HORRAY!! YOU SAVED THE ENTERPRISE AT "U":"T:К7ТфЗ"SHIP SEVERLY DAMAGED BY FREAK   ION STORM7╝щЗ"ENGINES DAMAGED":З"TRANSPORTER OUT"7ъюЗ"ABANDONING SHIP IN":З"SHUTTLECRAFT":Бе98
єЕL(22)│99зЗ"ENGI"HOSTILE SHIPS APPROACHING!!":Бж5:Бж128:Бе2148}╒SN│ Д(SHлGN)л1:SA│SN:M1│SH:З@320,"SHIPS OF LI YUEN'S PIRATE FLEET":Бж5:Бж1288Ф╓Бж252:Е Д(2)│1з2218╠╫Бж6:З@320,"THEY'RE FIRING ON US, TAIPAN!":Бж140:Бж68·╪Е Д(SN)┤ Д(4)зЗ@320,"THEY MISSED!!":Бе2219┘Бж2659l┌SH│SHм Д(30):DM│ Б((SHоM1)н100):Бж254:З@320,"WE'VE BEEN HIT!!":З"STATE OF REPAIR IS"; Б(DM);"%":Бж69╟█Е DM│┤0 ░ SH│┤0 зБж6:З"THE BUGGERS GOT US, TAIPAN!!":З"IT'S ALL OVER NOW!!":Бж274:Д221:
▄CK│1:Бж128:Бж251:З@320,"WANT TO TRY AGAIN";:ЙQ$:ЕQ$│"Y"зО:ДЮ:К:r▌Бж6:Е  Д(WZн20)│1 ░ BR│1 зSN│0:Бж252:CK│1:Бж128:З@320,"LI YUEN'S FLEET DROVE 'EM OFF!!":Бж5:Бж234:Р:╡▐Е GN│0зЗ@320,"SHALL WE RUN?" :Д З@320,"SHALL WE RUN OR FIGHT?":╟▀а200,1:Q1$│ Т:ёрQ1$│"":АT│0е59:Q1$│ Т:ЕQ1$│""зЛ:ДT│60;qсЕQ1$│"R" ▒ Q1$│"Y" зЕ Д(3)▓ Д(SN)зSN│0:З@320,"WE GOT AWAY FROM 'EM!!":Бж5:CK│1:Бж128:Бж234:Р::ДЗ@320,"CAN'T LOSE 'EM!!":Бж6<%тБж252:ЕQ1$┤▓"R" ░ Q1$┤▓"Y" з227:ДЕSN▓2 ░  Д(10)▓9зPU│ Д(SNм1):SN│SNмPU:SA│SN:Бж128:З"BUT WE ESCAPED FROM";PU:З"OF 'EM, TAIPAN!!":З"ONLY";SN;"STILL ATTACKING!!":Бж252:Бж6:Бе215<ШуЕGN▓0 ░ Q1$│"F" зЗ@320,"WE'RE FIRING ON 'EM!!":Бе228::ДЕGN│0 ░ Q1$│"F"зЗ@320,"WITH WHAT, TAIPAN?!?":Бе215:Д228<▒фЕGN│0 ▒ Q1$┤▓"F"з215=хЕ  Д(GN)▓│ Д(4)оWZ зБж6:Бж142:З@320,"WE HIT 'EM!!":ДБж6:З@320,"MISSED 'EM!!":Бе232=hцЕ  Д(100)▓25мGN зSN│SNм1:Бж6:Бж144:З"THE BUGGER'S JOINING DAVY JONES":Бж5:Бж128:Бж250:Бе232=ЙчБж6:З@320,"STILL FLOATING!!"=╩шБж252:Бж6:ЕSN│0з З"WE'VE DONE FOR 'EM ALL!!":Бж6:Бж251::Д215>1щБж5:З@320,"WE'VE CAPTURED SOME BOOTLE,":CB│ Д(10000)нSA:CA│CAлCB:З"IT'S WORTH";CB;"!!":Бж5:Бж234:Р>MъQ1$│"":Е Д(10)┤2з211:ДР>uыG1│ Д(1000)л500:Е G1▓CA ▒  Д(4)▓1зР>░ьЗ@320,"DO YOU WISH TO BUY A SHIP'S GUN":З"FOR";G1;:ЙQ$>╛эЕQ$│"N"зР>╙юЕMWм10┤0зБж241:Р>ёяCA│CAмG1:GN│GNл1:MW│MWм10>¤ЁБж251:Р?/ёЗ@320,"YOUR SHIP WOULD BE OVERBURDENED":Бж5:Р?9ЄБж249?bєЗ@416,"HOW MUCH ";TG$;" SHALL I BUY"?ПЇЗ@448,"(YOU CAN AFFORD"; Б(CAоTP);")";:Р?╣їЗ@416,"HOW MUCH SHALL I SELL     ";:Р?ЇЎЗ@416,"HOW MANY UNITS OF ";TG$:З"MOVE TO WAREHOUSE";:Р@-ўЗ@416,"HOW MANY UNITS OF "TG$:З"MOVE ABOARD SHIP";:Р@7°Бе251@I∙Бж251:Бж150:Р@л·Е Д(10)▓5 ░ SN┤(SAо4) ░ SN▓1 з SR│ Д(SN):SN│SNмSR:Бж128:SA│SN:З@448,"RAN AWAY, TAIPAN!!":Р:ДР@¤√Бж16:Бж35:ЕL│8зЗ@288,"CAPTAIN'S REPORT:";:Р :Д З@288,"COMPRADOR'S REPORT:";:РAA№З@416,"SHIPS ATTACKING:";SN:З"YOUR SHIP'S GUNS:";GN:З@320,"";:РAV■ЕDM┤│0зDM│0:Р:ДРA{
Ж128,128,128,195,199,195,194,128Aа

Ж128,229,239,207,207,207,202,128A┼
Ж128,229,239,207,207,207,202,128Aъ
Ж161,162,236,238,237,161,163,162B
Ж164,175,175,175,175,175,175,168B4
Ж161,255,236,238,237,255,163,162BY
Ж224,224,224,224,224,224,224,224B~
Ж255,255,255,255,255,255,255,255Bб
АI│0е4:З@PPлIн32,S$(Iл1);:ЛI:РB░
	Ю8:а100,15B┬

Ю 0: Бж128: РC
Ю:З@168,"DO YOU WANT TO BE":Зд8);"1) A TRADER":Зд8);"2) A PIRATE"C
Зд8);C"

ЙWZ:ЕWZ│1зРCB
ЕWZ│2зD0│0:GN│5:MW│0:CA│0:РCL
Бе267CX
а10,3:РCf
а100,15:РCЕ
АII│0е6: а S(II,0),S(II,1)CФ
АJJ│1е50:ЛCк
ЕII│3зАJJ│1е100:ЛC┤
ЛII:РCр
Ж 40,8,20,4,80,20,40,8,20,4,80,4,120,20Зд8);"1) A TRADER":Зд8);"2)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ARMS":Бж246:ЙA1$&9hЕ A1$│"A" з A1│AC:Бе106 :Д A1│ Й(A1$)&JiЕ A1▓AC з103&ojAW│AWлA1:AC│ACмA1:MW│MWлA1:Бж249&ШkЕ AW│0 з111 :Д TG$│"ARMS":Бж247:ЙA2$&┬lЕ A2$│"A" з A2│AW:Бе110 :Д A2│ Й(A2$)&╙mЕ A2▓AW з107&°nAW│AWмA2:AC│ACлA2:MW│MWмA2:Бж249'&oЕ GC│0 з115 :Д TG$│"GENERAL": Бж246: ЙG1$'QpЕ G1$│"A" з G1│GC: Бе114 :Д G1│ Й(G1$)'cqЕ G1▓GC з 111'ИrGW│GWлG1:GC│GCмG1:MW│MWлG1:Бж249'┤sЕ GW│0 з119 :Д TG$│"GENERAL":Бж247:ЙG2$'▐tЕ G2$│"A" з G2│GW:Бе118 :Д G2│ Й(G2$)'яuЕ G2▓GW з115(vGW│GWмG2:GC│GCлG2:MW│MWмG2:Бж249(#wБж150:Бе56(uxЕL│8з127 :ДЕ L│1 зЗ@416,"DO YOU WISH TO RETURN TO BANK";:ЙQ$: Е Q$│"Y" зБж152(▒yЕ MW┤0 зЗ@416,"YOUR SHIP IS OVERLOADED!":Бж5:Бж150:Бе56)2zБж251:З@320,"DO YOU WISH TO GO TO":З"1) HONGKONG 2) SHANGHAI":З"3) NAGASAKI 4) SAIGON 5) MANILA":З"6) SINGAPORE 7) BATAVIA";)E{ЙLD: LD│ Б(LD))d|Е LD│L ▒ LD┤1 ▒ LD▓7 з 122)r}L│8: Бе34)z~L│8)ТЕLD│8з34:ДL│LD:Бе34)кАЮ 0: ЕCK│1 зCK│0: Р)─БЕ SN│0 з CK│1:Бж128:Р)┘ВЕSN▓0зPP│0:Бж264)юГЕSN▓1зPP│8:Бж264*ДЕSN▓2зPP│16:Бж264*ЕЕSN▓3зPP│24:Бж264*1ЖЕSN▓4зPP│160:Бж264*HЗЕSN▓5зPP│168:Бж264*_ИЕSN▓6зPP│176:Бж264*vЙЕSN▓7зPP│184:Бж264*ЛКЕSN▓8зЗ@287,"+";*ЫЛЗ@320,"";:Р*╪МАJ│1е3:З@96,S$(6);:Бж272:З@96,S$(4);:Бж6: ЛJ:З@320,"";:Р*▐НР*щОАJ│1е1+>ПАI│1е5:З@(Iм1)н32,S$(8);:ЛI:Бж273:АI│1е5:З@(Iм1)н32,S$(I);:ЛI:Бж6:ЛJ:З@320,"";:Р+jРЗ@0,S$(7);:АI│1е4: З@Iн32,S$(I);:ЛI:Бж6+ЫСЗ@32,S$(7);:АI│1е3: З@32н(Iл1),S$(I);:ЛI:Бж6+╦ТЗ@64,S$(7);:АI│1е2:З@32н(Iл2),S$(I);:ЛI:Бж6+ьУЗ@96,S$(7);:З@128,S$(1);:Бж6,ФЗ@320,"";: Бж274: Р,HХOK│(OKо2)н Д(3):SP│(SPо2)н Д(3):AP│(APо2)н Д(3):GP│(GPо2)н Д(3),еЦЗ@320,"PRESENT PRICES PER UNIT ARE:":З"OPIUM:";OK,"SILK:";SP:З"ARMS:";AP,"GENERAL:";GP:Р,ЎЧБж186:Бж190:Бж160:Бж251:З@320,"DO YOU WISH TO VISIT THE BANK";:ЙQ$:ЕQ$│"N"зР-'ШБж251:З@320,"HOW MUCH WILL YOU DEPOSIT";:ЙD$-IЩЕD$│"A"зD│CA:Бе155::ДD│ Й(D$)-ГЪЕ D▓CA зЗ@320,"YOU ONLY HAVE";CA;"IN CASH.":Бж4:Бе152-ЧЫBA│BAлD:CA│CAмD-╔ЬБж251:З@320,"HOW MUCH WILL YOU WITHDRAW";:ЙW$-шЭЕ W$│"A" зW│BA :Д W│ Й(W$).'ЮЕ W▓BA з З@320,"YOU ONLY HAVE";BA;"IN THE BANK.":Бж4:Бе156.CЯBA│BAмW:CA│CAлW:Бж251:Р.`аЕD0▓10000░WN┤▓1з161:Д162.рбWN│1:Бж251:З@320,"ELDER BROTHER WU HAS SENT"; Д(100)л50:З"BRAVES TO ESCORT YOU TO THE WU":З"MANSION, TAIPAN.":Бж5:Бж5:Бж184/BвБж251:З@320,"DO YOU HAVE BUSINESS WITH ELDER":З"BROTHER WU, THE MONEYLENDER";:ЙQ$:ЕQ$│"N"з171/жгR│0:R$│"":ЕD0▓0зБж251:З@320,"HOW MUCH DO YOU WISH TO REPAY":ЙR$:ЕR$│"A"зЕCA▓│D0THENR│D0ELSER│CA/╝дЕR$┤▓"A"зR│ Й(R$)/┘еЕ R▓D0 ▒ R┤0 ▒ R▓CA з163/эжD0│D0мR:CA│CAмR0"зБж251:З@320,"HOW MUCH DO YOU WISH TO BORROW":ЙB$0GиЕB$│"A"зB│2нCA:Бе170 :Д B│ Й(B$)0ХйЕ B┤0 з167 :ДЕB▓(BAлCA)н2 зЗ@320,"HE WON'T LEND YOU THAT MUCH!":Бж5:Бе1670йкD0│D0лB:CA│CAлB0╟лЕD0▓20000░ Д(5)│2зCA│0:ДР1OмБж251:З@320,"BAD JOSS!!!":З"TWO OF YOUR BODYGUARDS HAVE":З"BEEN KILLED BY CUTTHROATS AND":З"YOU HAVE LOST YOUR CASH!!!":Бж4:Бж251:Р1nнM1│SH:Бж211:Е  Д(10)┤9з1761ЯоБж251:З@320,"LI YUEN'S PIRATES, TAIPAN!":Бж51▀пЕ BR│1 з З"GOOD JOSS!! THEY LET US BE!!":Бж5:Бе176 :Д Бж2131Ї░Е Д(100)┤95 з1822(▒Бж251:З@320,"STORM, TAIPAN!!":Е  Д(100)┤75 з1812O▓Бж5:З"WE'RE GOING DOWN!!":Бж20:Бж52v│З"WANT TO GIVE IT ANOTHER GO";:ЙQ$2М┤Е Q$│"Y" зО :ДЮ:К2Ё╡Бж5:З"WE MADE IT!!":Бж5:Е Д(5)▓3зБж6:L│ Д(7):LD│L:З"WE'VE BEEN BLOWN OFF COURSE TO":ЗLO$(L):Бж53.╢L│LD:Бж251:З@320,"ARRIVING AT ";LO$(L):Бж6:Е Д(5)│1зБж19534╖Р3y╕Бж251:З@320,"ELDER BROTHER WU REMINDS YOU":З"TO PAY YOUR DEBTS."3Г╣Бж4:Р3╦║TM│CAлBAмD0:Е TM▓│1000000 з З@320,"DO YOU WISH TO RETIRE";:ЙQ$ :Д Р4╗Е Q$│"Y" з З@320,"Y O U ' R E   A":З"M I L L I O N A I R E !"::ДР4H╝З"YOUR RATING IS"; Б(TMоTIо100):З"PLAY AGAIN";:ЙQ$4_╜ЕQ$│"Y" з О :Д Ю:К4k╛ЕBR│1зР4К┐BB│ Б(CAн Д(100)о100):BR│04╒└З@320,"LI YUEN ASKS";BB;"IN DONATION":З"TO THE TEMPLE OF TIN HAU, THE"4√┴З"SEA GODDESS. WILL YOU PAY";:ЙQ$5┬ЕQ$│"Y"зCA│CAмBB:BR│1:Р:ДР5Ц├PS│1000л Д(500): Е CA▓PS з З@320,"DO YOU WISH TO TRADE YOUR SHIP":З"FOR ONE WITH 50 MORE CAPACITY":З"BY PAYING";PS;:ЙQ$5е─Е CA┤PS зР5╒┼Е Q$│"N" з198 :Д CA│CAмPS:MW│MWл50:SH│SHл505с╞Бж251:Р5№╟Е L│8 ▒  Д(10)┤7 з 2046%╚RB│ Б(CAн Д(100)о100):CA│CAмRB:Бж2516O╔З@320,"TAIPAN, YOU'VE BEEN BEATEN UP"6s╩З"AND ROBBED OF";RB;"IN CASH!!"6З╦Бж4:Бж6:Бж251:Р6Ю╠Е OC│0 ▒ L│8 з 2106┬═OF│ Б(CAн Д(100)о100): CA│CAмOF6ъ╬З@320,"LOCALS SEIZE YOUR OPIUM AND"7╧З"FINE YOU";OF;", TAIPAN!":MW│MWлOC:OC│0:Бж47'╨Бж251:Р7╕╤ЕBR│0 ░  Д(10)▓6 ░ L┤▓1 з З@320,"LI YUEN HAS SENT A LIEUTENANT":З"HE SAYS HIS ADMIRAL WISHES TO":З"SEE YOU IN HONGKONG POSTHASTE.":Бж4:Бж2517╛╥Р7█╙Е Д(10)▓1л(WZм1)н2зР:ДЮ08,╘SN│ Б( Д(SHо20)л1):SA│SN:З@320, /с:Г(C) CLOAD@
Х200:LO$(1)│"HONGKONG ":LO$(2)│"SHANGHAI "jLO$(3)│"NAGASAKI ":LO$(4)│"SAIGON   "╛LO$(5)│"MANILA   ":LO$(6)│"SINGAPORE":LO$(7)│"BATAVIA  ":LO$(8)│"AT SEA   ":Бе8╬АT│0е2000:Л▐АT│0е1000:ЛяАT│0е500:Л:РЮ: З@236,"TAIPAN";#	АI│1е32:S$│S$л Л(134):ЛI6
М S(6,1),S$(8)cАI│1е8:АJ│1е8:НA:S$(I)│S$(I)л Л(A):ЛJ:ЛIЮ:З@161,"ENTER LEVEL OF EXPERIENCE:":З:З"   1=LANDLUBBER":З"   2=APPRENTICE SEAMAN":З"   3=OLD SEA DOG":З"   ";:ЙDL:ЕDL┤1 ▒ DL▓3 з12:ДDL│64о2пDL:АI│0е6:АJ│0е1:НS(I,J):ЛJ:ЛID
L│1:D0│5000:MO│1:YE│1860:CA│400:MW│50:SH│MWЗЮ:З@168,"WHAT WILL YOU NAME":Зд8);"YOUR HONG (FIRM)":Зд8);:ЙA$ЬБж267:Бж251:Бе34вЮ░З@256,S$;╙З@0,"HONG: ";A$;:З@16,"DATE:"; З@32,"WAREHOUSE";:З@48,"HOLD     GUNS";З@66,"OPIUM";:З@82,"OPIUM";>З@98,"SILK";:З@114,"SILK";^З@130,"ARMS";:З@146,"ARMS";ДЗ@162,"GENERAL";:З@178,"GENERAL";дЗ@192,"BANK";:З@208,"CASH";├З@224,"DEBT";:З@240,"LOC";╔Р2GP│GPн10: З"FAMINE IN SOUTH CHINA, TAIPAN!":З"GENERAL CARGO PRICES":З"HAVE RISEN TOWARD HEAVEN!!";:РмOK│OKн10:З"TAIPAN!! A FIRE HAS SWEPT":З LO$(L);" AND THE PRICE OF":З"OPIUM HAS LEAPED BECAUSE OF":З"HOSPITAL USE!";:РSP│SPн10:З"THE ";LO$(L);" WARVES HAVE":З"BEEN BURNED BY REBEL SAMURAI,":З"TAIPAN!! ALL SILK WAS DESTROYED";:РwSP│SPо5:З"A RIVAL HONG HAS DUMPED SURPLUS":З"SILK ON THE MARKET IN":З LO$(L);"!!";:РэAP│APн10:З"TAIPAN, AN AGENT FOR THE MORO":З"REBELS IS BUYING ARMS AT HIGH":З"PRICES!! ARMS ARE SKY-HIGH HERE!";:Р^ OK│OKо5:З"TAIPAN, A YANKEE CAPTAIN IS":З"SELLING TURKISH OPIUM BELOW":З"THE BRITISH PRICE IN ";LO$(L);"!";:Р╧!GP│GPо10:З"MALAY PIRATES HAVE FLOODED ":З LO$(L);" WITH CHEAP GENERAL":З"CARGO FROM THEIR BOOTY, TAIPAN!";:Р("BA│ Б(BAл(BAо24)):D0│ Б(D0л(D0о10)):MO│MOл1:TI│TIл1:Е MO▓12 з YE│YEл1:MO│1:Бе43::Д43<#З@21,MO;"/";YE;R$З@73,OW;:З@89,OC;j%З@105,SW;:З@121,SC;В&З@137,AW;:З@153,AC;Ъ'З@169,GW;:З@185,GC;╧(З@196,BA;:З@228,D0;: З@212, Б(CA);:З@245,LO$(L);х)З@52,MW;:З@61,GN;ы*Р+И L Бж 48,49,50,51,52,53,54H,ЕL│8зБж173:L│LD:З@245,LO$(L);:И L Бж48,49,50,51,52,53,54W-ЕL│1зБж151q.Бж235:Бж47:Бж209:Бе55║/Е  Д(100)┤8 з З@320,"";:И L Бж 27,28,29,30,31,32,33:Бж4:Бж251:Р :Д Р▐0OK│15000:SP│1300:AP│150:GP│10:Р1OK│16000:SP│1400:AP│160:GP│11:Р&2OK│14000:SP│1500:AP│100:GP│12:РJ3OK│13000:SP│1600:AP│110:GP│13:Рn4OK│12000:SP│1000:AP│120:GP│14:РТ5OK│10000:SP│1100:AP│130:GP│15:Р╢6OK│11000:SP│1200:AP│140:GP│16:Р▌7Е Д(DL)│1зBR│0:Бж199 :Бж149:ДБж14948З@416,"SHALL I BUY, SELL, OR QUIT";:ЙQ$:Е Q$│"B"з57 :ДЕQ$│"S"з58 :ДЕQ$│"Q"з85 :Д56У9З@416,"WHAT DO YOU WISH ME TO BUY";:ЙQ$:ЕQ$│"O"з59:ДЕQ$│"S"з67:ДЕQ$│"A"з73:ДЕQ$│"G"з79:Д57Є:З@416,"WHAT ITEM SHALL I SELL    ";:ЙQ$:ЕQ$│"O"з63:ДЕQ$│"S"з69:ДЕQ$│"A"з75:ДЕQ$│"G"з81:Д58;TG$│"OPIUM":TP│OK:Бж242:ЙOB$C<Е OB$│"A" з OB│ Б(CAоOK):Бе62 :Д OB│ Й(OB$)]=Е OBнOK▓CA ▒ OB┤0 з59К>CA│CAмOBнOK:OC│OCлOB:MW│MWмOB:Бж249:Бе56е?TG$│"OPIUM":Бж245:ЙOS$╧@Е OS$│"A" з OS│OC: Бе66 :Д OS│ Й(OS$)цAЕ OS▓OC ▒ OS┤0 з63 BCA│CAлOSнOK:OC│OCмOS:MW│MWлOS:Бж249:Бе56 hCTG$│"SILK":TP│SP:Бж242:ЙSB$:ЕSB$│"A"зSB│ Б(CAоSP):ДSB│ Й(SB$):ЕSBнSP▓CAORSB┤0з67 ХDCA│CAмSBнSP:SC│SCлSB:MW│MWмSB:Бж249:Бе56 пETG$│"SILK":Бж245:ЙSS$ ┘FЕ SS$│"A" з SS│SC: Бе72 :Д SS│ Й(SS$) ЁGЕ SS▓SC ▒ SS┤0 з69!HCA│CAлSSнSP:SC│SCмSS:MW│MWлSS:Бж249:Бе56!rITG$│"ARMS":TP│AP:Бж242:ЙAY$:ЕAY$│"A"зAY│ Б(CAоAP):ДAY│ Й(AY$):ЕAYнAP▓CAORAY┤0з73!ЯJCA│CAмAYнAP:AC│ACлAY:MW│MWмAY:Бж249:Бе56!╣KTG$│"ARMS":Бж245:ЙAZ$!уLЕ AZ$│"A" з AZ│AC: Бе78 :Д AZ│ Й(AZ$)!·MЕ AZ▓AC ▒ AZ┤0 з75"'NCA│CAлAZнAP:AC│ACмAZ:MW│MWлAZ:Бж249:Бе56"OTG$│"GENERAL":TP│GP:Бж242:ЙGB$:ЕGB$│"A"зGB│ Б(CAоGP):ДGB│ Й(GB$):ЕGBнGP▓CAORGB┤0з79"мPCA│CAмGBнGP:GC│GCлGB:MW│MWмGB:Бж249:Бе56"╔QTG$│"GENERAL":Бж245:ЙGS$"єRЕ GS$│"A" з GS│GC: Бе84 :Д GS│ Й(GS$)#
SЕ GS▓GC ▒ GS┤0 з81#7TCA│CAлGSнGP:GC│GCмGS:MW│MWлGS:Бж249:Бе56#АUЕ OW│0 ░ SW│0 ░ AW│0 ░ GW│0 ░ OC│0 ░ SC│0 ░ AC│0 ░ GC│0 ▒ L┤▓1 з 120#╜VЗ@416,"DO YOU WISH TO TRANSFER CARGO";:ЙTR$:ЕTR$│"N"з120#шWЕ OC│0 з91 :Д TG$│"OPIUM": Бж246: ЙO1$$XЕ O1$│"A" з O1│OC: Бе90 :Д O1│ Й(O1$)$#YЕ O1▓OC з 87$HZOW│OWлO1:OC│OCмO1:MW│MWлO1:Бж249$s[Е OW│0 з95 :Д TG$│"OPIUM": Бж247: ЙO2$$Э\Е O2$│"A" з O2│OW: Бе94 :Д O2│ Й(O2$)$н]Е O2▓OW з91$╥^OC│OCлO2:OW│OWмO2:MW│MWмO2:Бж249$№_Е SC│0 з99 :Д TG$│"SILK": Бж246: ЙS3$%%`Е S3$│"A" з S3│SC:Бе98 :Д S3│ Й(S3$)%6aЕ S3▓SC з 95%[bSW│SWлS3:SC│SCмS3:MW│MWлS3:Бж249%ЖcЕ SW│0 з103 :Д TG$│"SILK": Бж247: ЙS4$%░dЕ S4$│"A" з S4│SW:Бе102 :Д S4│ Й(S4$)%┴eЕ S4▓SW з 99%цfSW│SWмS4:SC│SCлS4:MW│MWмS4:Бж249&gЕ AC│0 з107 :Д TG$│")) ▒ FG(5),=ЭMA(X,Y,(LVл1))│(MA(X,Y,(LVл1)) ▒ FG(9)) ▒ FG(7),HвЛLV:ЛZ,БмАLV│0еMZ:АX│0еMR:АY│0еMR:MA(X,Y,LV)│MA(X,Y,LV)мFG(6),а╢Е(MA(X,Y,LV) ░ FG(9))з2270,▀╩Е Д(10)│10зMA(X,Y,LV)│(MA(X,Y,LV) ▒ FG(8)) ▒ FG(7):RN│RNл1,э▐ЛY:ЛX:ЛLV,∙уАZ│0еNG-%шX│ Д(MRл1)м1:Y│ Д(MRл1)м1:LV│ Д(MZл1)м1-DЄЕ(MA(X,Y,LV) ░ FG(7))з2280-t№MA(X,Y,LV)│(MA(X,Y,LV) ▒ FG(10)) ▒ FG(7):ЛZ-А	АZ│0еNS-╕	X│ Д(MRл1)м1:Y│ Д(MRл1)м1:Е(MA(X,Y,0) ░ FG(7))з2320-ц	MA(X,Y,0)│(MA(X,Y,0) ▒ FG(12)) ▒ FG(7):ЛZ-Є	$АZ│0еNL.7	.X│ Д(MRл1)м1:Y│ Д(MRл1)м1:L│ Д(MZл1)м1:Е(MA(X,Y,L) ░ FG(7))з2350.d	8MA(X,Y,L)│(MA(X,Y,L) ▒ FG(11))▒ FG(7):ЛZ.jTР.о╕╚ 2,1:┐ 1,1:╝5:╞ "S4C0BM0,0M255,0M255,191M0,191M0,0BM222,0D191".╨┬Бж 3400:RF│DIл1:ЕRF▓3зRF│RFм4.ъ╠LF│DIл3:ЕLF▓3зLF│LFм4/╓Е(MA(LX,LY,LZ) ░ FG(7))зБж3100:Р//рSR│1:RD│2:PX│LX:PY│LY:PZ│LZ/ОъБж3200:MA(PX,PY,PZ)│(MA(PX,PY,PZ) ▒ FG(6)):ЕSR┤▓0зPX│PXлDX(DI):PY│PYлDY(DI):RD│RDл1:Бе3050/ФР/ЇS$│"BM110,95S32":╞ "XS$;A0;XRW$;XS$;A2;XRW$;A0;XS$;XFW$;":MA(LX,LY,LZ)│MA(LX,LY,LZ) ▒ FG(6)0!&Е(MA(LX,LY,LZ) ░ FG(LF))з╞"XS$;A0;XLD$;"0N0Е(MA(LX,LY,LZ) ░ FG(RF))з╞"XS$;A0;XRD$;"0{:Е(MA(LX,LY,LZ) ░ FG(DI))з╞"XS$;A0;XFD$;"0еDЕ(MA(LX,LY,LZ) ░ FG(9))з╞"XCE$;XEL$;"0╨NЕ(MA(LX,LY,LZ) ░ FG(10))з╞"XCE$;XGE$;"0√XЕ(MA(LX,LY,LZ) ░ FG(12))з╞"XCE$;XSH$;"1&bЕ(MA(LX,LY,LZ) ░ FG(11))з╞"XCE$;XLR$;"1,vР1sАS$│"BM110,95S"л И(FG(5м(RDм2))):SR│0:Е(MA(PX,PY,PZ) ░ FG(LF))з32201ОК╞"XS$;A2;XRW$;":Бе32501╜ФЕ(MA(PXлDX(LF),PYлDY(LF),PZ) ░ FG(7))з32401╪Ю╞"XS$;A2;XRP$;":Бе32501°и╞"XS$;A2;XRW$;XS$;A0;XLD$;"2▓Е(MA(PX,PY,PZ) ░ FG(RF))з327025╝╞"XS$;A0;XRW$;":Бе33002d╞Е(MA(PXлDX(RF),PYлDY(RF),PZ) ░ FG(7))з32902╨╞"XS$;A0;XRP$;":Бе33002Ь┌╞"XS$;A0;XRW$;XS$;XRD$;"2┼фЕ(MA(PX,PY,PZ) ░ FG(DI))зSR│1:Бе33202█ю╞"XS$;A0;XFW$;":Р3(°Е(MA(PXлDX(DI),PYлDY(DI),PZ) ░ FG(7))зSR│0:╞"XS$;A0;XFW$;XS$;XFD$;BR1":Р3.
Р3`
H╞ "C0BM225,191S16A0U7NR1U7NR1U7NR1U7NR1U7NR1"3m
pБж3510:Р3Ъ
м╞"BM235,191;S4;C5;NU140;BR6NU140BR6U140"3╧
╢S$│"U"л И( Б(SPн1.4)):╞"BM235,191;C0;S4;XS$;BR1"4
└S$│"U"л И( Б(CHн1.4)):╞"BM241,191;C0;S4;XS$;BR1"44
╩S$│"U"л И(NGн14):╞"BM247,191;C0;S4;XS$;BR1"4j
╘ЕNG▓0з╞AH$ :Д╞"C5;XCK$;C0":╞ О(CK$,12л Б(TIо2.5))4vOS│SP:Р4ЯИЮ:З"PLACE TAPE IN CASSETTE.HIT PLAY"4╜ТЗ"HIT S TO START LOADING"4╧ЬЕ Т┤▓"S"з50204ужЩ"I",#м1,"GAME"5
░Й#м1,A$:З"LOADING FILE NAMED -";A$5:║Й#м1,TI,RN,NG,SP,CH,CC,LX,LY,LZ,RX,RY,RZ,SC5Б─АX│0еMR:АY│0еMR:Й#м1,MA(X,Y,0),MA(X,Y,1),MA(X,Y,2),MA(X,Y,3):ЛY:ЛX5ж╬Ъ#м1:З"FILE LOADED":З"WORKING":Р5╤ьЮ:З"PLACE TAPE IN CASSETTE.HIT RECORD"5шЎЙ"NAME OF FILE";A$61Щ "O",#м1,"GAME":З#м1,A$:З#м1,TI,RN,NG,SP,CH,CC,LX,LY,LZ,RX,RY,RZ,SC6Л
АX│0еMR:АY│0еMR:З#м1,MA(X,Y,0),MA(X,Y,1),MA(X,Y,2),MA(X,Y,3):ЛY:ЛX:Ъ#м1:З"FILE SAVED"6╖Й"RESUME GAME Y/N";A$:ЕA$│"Y"зA$│"Q":ДК6═CC│(CC ▒ FG(3)):Р7ZpБж6300:Е(CC ░ FG(0))зHP│HPмCHо Д(3):SC│SCл10:ЕHP┤│0зSC│SCл50:HP│100:MA(RX,RY,RZ)│MA(RX,RY,RZ)мFG(8):CC│(CCмFG(0)) ▒ FG(3):RN│RNм1:Бж62007guCH│CHн.87tАZ│10е127┴ДSW│MA(LX,LY,LZ):Е(SW ░ FG(Z))зMA(LX,LY,LZ)│SWмFG(Z):CC│CC ▒ FG(3):Бж62007хЙЕ(SW ░ FG(10))зNG│NGм1:ДSC│SCм17ьОЛZ8╘CC│CC ▒ FG(4):Р8I8АS│1е10:S$│"S"л И(S):╞"XS$;C0;XEX$;":а Д(255),1:╞"XS$;C5;XEX$;":ЛS:Р8ТЬАS│25е1йм5:S$│"S"л И(S):╞"XS$;C0;XLA$;":а Sн3,1:╞"XS$;C5;XLA$;":ЛS:Р8ЄX╝(5):АS│10е1йм1:S$│"BM110,130S"л И(S)л"BM+0,-10":╞"XS$;C0;XSH$;":аSн10,1:╞"XS$;C5;XSH$;":ЛS9C]ЕNG│0зSC│SCл100:Ю:З"ROBOTS DESTROYED IN SHIP EXPLOSION":АDE│1е200:ЛDE:Бе95009АbБж6200:Ю:З"ROBOTS DESTROYED THE SHUTTLE":SC│SCн.5:Бе90409╔@Ю:З:АDE│1е3:а Д(255),1:ЛDE:╚ 2,1:┐ 1,1:SP│SPмHPо(3л Д(5)):ЕSP┤0зSP│09▌JCC│CC ▒ FG(4):Р:\#(╝(5):АX│9е1йм1:Z│ Д(2):S$│"BM110,10S"л И(X)л"BM+0,40":╞"C0;XS$;":╞RO$(Z):а Д(255),1:╞"C5;XS$;":╞RO$(Z):ЛX:Ю:З"YOU'RE DEAD":О#PЗ"SCORE-";SC:Й"ANOTHER TRY Y/N";A$:ЕA$┤▓"Y"зК:ф#ZSP│100:CH│100:LX│ Д(MRл1)м1:LY│ Д(MRл1)м1:LZ│ Д(MZл1)м1:Е(CC ░ FG(0))зCC│CCмFG(0);#dSC│SCн.7:CC│CC ▒ FG(3):Бе750;{$╕АX│1е5:Ю:З:а Д(255),1:╚2,1:┐1,1:ЛX:З"SHIP,ROBOTS,AND YOU DESTROYED":З"SCORE-";SC:Й"TRY AGAIN Y/N";A$:ЕA$│"Y"зО:ДК;─%Ю:З"YOU KILLED ALL ROBOTS":З"SCORE-";SC:Й"NEW GAME Y/N";A$:ЕA$│"Y"зО)м1:Е(CC ░ FG(0))зCC│CCмFG(0);#dSC│SCн.7:CC│CC ▒ FG(3)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !┼
└ 2:Х100;NL│15:NS│3:NG│10:CC│0:SP│100:CH│100:ZE│0ТMR│5:MZ│3:МMA(MR,MR,MZ):MC│ Б((MRл1)п2):МFG(14):FG(0)│1:АX│1е14:FG(X)│FG(Xм1)н2:ЛXг#TI│60:HP│100■(МDX(3):МDY(3):DX(1)│1:DX(3)│м1:DY(0)│м1:DY(2)│1:МMO(3):MO(0)│2:MO(1)│3:MO(2)│0:MO(3)│1,7LX│ Д(MRл1)м1:LY│ Д(MRл1)м1:LZ│ Д(MZл1)м17<Q3│1:Ю╕FЗ@165,"THE VOYAGER PROGRAM";:З@232,"AN AVALON HILL";:З@294,"MICROCOMPUTER GAME";:З@355,"                       ";:З@393," ";╬
,З"NEW GAME Y/N?";ў
6A$│ Т:X│ Д(100):ЕA$┤▓"Y"░A$┤▓"N"з310
@ЗA$;:ЕA$│"N"зБж5000:ДБж2000O
JМDR$(3):DR$(0)│"u":DR$(1)│"r":DR$(2)│"d":DR$(3)│"l"s
РBK$│ Л(143):CE$│"BM110,145S9A0"У
ЪRW$│"BR7U6NM+7,-6D12NM+7,6"▒
дFW$│"BM+7,-6D12L14U12R14"╔
оRP$│"BR7U6NR7D12R7"ц
╕RD$│"BM+9,8U11M+3,-2D15"
┬LD$│"BM-9,8U11M-3,-2D15"
╠FD$│"BM+4,6U7L8D7"S
╓LR$│"D1NR1NL1D2R1D1R1NR5D8F4L2H3L2G3L2E4U8NL5R1U1R2"Ь
рSH$│"D2R3F4NL16D6NL16G5NL4D3NR2NL2H3L1F1L1E1L1G3NR2NL2U3NR4H5U6E4R5"
ъGE$│"D1NR1NL1D1NR2NL2D1NR3NL3D2ND1R3ND1R2NU2R2D5NF9L2NL9D2NL9D2NL9D1L2D4NR2NL2BU4L5D4NR2NL2BU4L2U5L2ND9NL2U5R1NU2R2ND1R3"Z
ЇEL$│"ND10R6D10NG3L3NL6NU8NE3NH3D3L6NH3U3L3U10R3NG3ND8NF3R6"═
■МRO$(2):RO$(1)│"ND1R2NU4F2D2G2NL6D2NL6R5NE4D1L7D1F2D2L1F5NR2NL2BH5L5D4NR2NL2U6E2U1L5U1NL3R3U2H2U2E2NH4R1ND1R3";RO$(2)│"ND1R2NE4F2D2G2NL6D2NL6R5NR6D1L7D1F2D2L1D4NR2NL2BU4L5G5NR2NL2BE5U2E2U1L6NG4U1R4U2H2U2E2NU5R2ND1R2"^LA$│"BM110,145A0BF5F1BH6BG5G1"БFR$│"U2R1E1R1F3D1L1G2H1L1U1H1"╔&EX$│"BM110,145A0BR10;XFR$;BL20;XFR$;BE10;XFR$;BD30;XFR$;BE20;XFR$;"°0CK$│"BM240,20A0S4NU8NE8NR8NF8ND8NG8NL8NH8" 5:AH$│"BM233,20A0S4C0NM-6,15NM+6,15BM+10,5ND13BR7D6NL20D7" Bф╝:Бж3000 tюA$│ Т:SW│MA(LX,LY,LZ):ЕA$┤▓""зAC│ К(A$):ДAC│0 ╥°Е(SW ░ FG(8))▒(CC ░ FG(0))з╞"C5BM110,130S10":╞RO$(Q3):Q3│ Д(2):╞"C0BM110,130S10":╞RO$(Q3) ц¤ЕSP┤100зSP│SPл1!ЕAC│9зDI│DIл1:ЕDI▓3зDI│DIм4!&ЕAC│8зDI│DIм1:ЕDI┤0зDI│DIл4!NЕAC│9▒AC│8зSP│SPн.9:CC│(CC ▒ FG(3))!xЕ(CC ░ FG(0))зБж8000:Е Д(100)▓SP з820!ТЕ(CC ░ FG(0))зSC│SCл5!▐ ЕAC│94░(SW ░ FG(DI))зLX│LXлDX(DI):LY│LYлDY(DI):SP│SPн.8:CC│(CC ▒ FG(3))!°%BF│DIл2:ЕBF▓3зBF│BFм4"D*ЕAC│10░(SW ░ FG(BF))зLX│LXлDX(BF):LY│LYлDY(BF):SP│SPн.8:CC│(CC ▒ FG(3))"u/ЕA$│"U"░(SW ░ FG(4))зLZ│LZл1:CC│(CC ▒ FG(3))"ж1ЕA$│"D"░(SW ░ FG(5))зLZ│LZм1:CC│(CC ▒ FG(3))"╞4ЕA$│"F"░(CC ░ FG(1))зБж6000"ч>ЕA$│"A"░(SW ░ FG(12))зБе7000#&HЕA$│"C"░(SW ░ FG(10))зЕ(CC ░ FG(1))зCH│100:CC│(CC ▒ FG(4))#aRЕA$│"Q"зЮ:Й"SAVE GAME Y/N";A$:ЕA$│"Y"зБж5100:ДЮ:Бж5140#Я\Е(MA(LX,LY,LZ) ░ FG(8))зCC│(CC ▒ FG(0)):RX│LX:RY│LY:RZ│LZ#ъaЕ(MA(LX,LY,LZ) ░ FG(8))│0зЕ(CC ░ FG(0))│FG(0) ░ Д(100)┤SP зCC│CCмFG(0)$bfЕ(CC ░ FG(0))▒(CC ░ FG(1))з880:ДЕA$│"T"░(SW ░ FG(11))зA$│"":CC│(CC ▒ FG(1)):MA(LX,LY,LZ)│SWмFG(11):╞"XCE$;C5;XLR$;"${pЕ(CC ░ FG(0))зБж8000$НzЕSP┤│0зБе9000$лЕRN┤│0зSC│SCл40нNG:Бе9500$▄ДЕNG┤│0зTI│TIм1:а(255м(TIн3)),1:CC│CC ▒ FG(4)$юОЕTI┤│0зБе9400%ШЕ В(SPмOS)▓10зCC│(CC ▒ FG(4))%?вЕA$│"T"░(SW ░ FG(11))зCH│100:CC│CC ▒ FG(4)%bзЕ(CC ░ FG(0))│0зЕA$│"M"зБж1500%ОмЕ(CC ░ FG(3))зЕ(CC ░ FG(4))зCC│CCмFG(4)%│╢Е(CC ░ FG(4))зБж3500:CC│CCмFG(4)%╪└Е(CC ░ FG(3))зБж3000:CC│CCмFG(3)%у▐Бе 750&X▄Ю:Z│LZ:З@480,"EL-ELEVATOR,RO-ROBOT,LA-LASER,GE-GENERATOR,SH-SHUTTLE";RN;"ROBOTS     REMAIN...HIT C TO CONTINUE";&░цАZ1│0е384й32:З@Z1, б(25,128);:ЛZ1:АX│0еMR:АY│0еMR:W1│MA(X,Y,Z):Е(W1 ░ FG(6))│0з1630'ЁPL│34л(Xн4)л(Yн64):З@(PLм34),BK$;:З@(PLм30),BK$;:З@(PLл30),BK$;:З@(PLл34),BK$;',·Е(W1 ░ FG(0))│0зЗ@(PLм33), б(3,BK$);'NЕ(W1 ░ FG(1))│0зЗ@(PLл2),BK$;'wЕ(W1 ░ FG(2))│0зЗ@(PLл31), б(3,BK$);'ЩЕ(W1 ░ FG(3))│0зЗ@(PLм2),BK$;'╢"Е(W1 ░ FG(9))зЗ@PL,"EL";'╙,Е(W1 ░ FG(8))зЗ@PL,"RO";'ё6Е(W1 ░ FG(10))зЗ@PL,"GE";(@Е(W1 ░ FG(11))зЗ@PL,"LA";(-JЕ(W1 ░ FG(12))зЗ@PL,"SH";(WTЕX│LX ░ Y│LY ░Z│LZ зЗ@(PLм1),DR$(DI);(a^ЛY:ЛX(ЧcЗ@27,"LEVEL";:З@59,Z;:З@91,"SCORE";:З@123, Б(SC);(уeЗ@0,"AVALON HILL'S VOYAGER";:ЕNG┤│0зЗ@384,"EXPLOSION IN";TI;" SECONDS";)hA$│ Т:ЕA$│""з1640:ДЕA$│"C"зCC│(CC ▒ FG(3)):Р)3rЕA$│"^" з Z│Zл1:ЕZ▓MZ зZ│0)R|ЕA$│ Л(10)зZ│Zм1:ЕZ┤0зZ│MZ)sЖЕA$│ Л(10)▒A$│"^"з1510:Д1640)л╨З@430,"WORKING";:АLV│0еMZ:X│ Д(MRл1)м1:Y│ Д(MRл1)м1)╧┌MA(X,Y,LV)│(MA(X,Y,LV) ▒ FG(6)))╪фNC│1)ъюЕNC▓│MC з2170)∙°DI│ Д(4)м1*NX│XлDX(DI):NY│YлDY(DI)*(Е Д(0)▓.9з2140*@ЕNX▓MR ▒NY▓MR з2040*T ЕNX┤0▒NY┤0з2040*u*Е(MA(NX,NY,LV) ░ FG(6))з2040*Ъ4MA(X,Y,LV)│(MA(X,Y,LV) ▒ FG(DI))*╟>MA(NX,NY,LV)│(MA(NX,NY,LV) ▒ FG(MO(DI)))*яHMA(NX,NY,LV)│(MA(NX,NY,LV) ▒ FG(6))+RX│NX:Y│NY:NC│NCл1:Бе2030+*\X│ Д(MRл1)м1:Y│ Д(MRл1)м1+IfЕ(MA(X,Y,LV) ░ FG(6))з2030+UpБе 2140+]zЛLV+ПДАZ│1е4:X│ Д(MRл1)м1:Y│ Д(MRл1)м1:АLV│0е(MZм1)+│ОMA(X,Y,LV)│(MA(X,Y,LV) ▒ FG(4))+▀УMA(X,Y,LV)│(MA(X,Y,LV) ▒ FG(9)) ▒ FG(7),	ШMA(X,Y,(LVл1))│MA(X,Y,(LVл1^"THEN1510ELSE1640
2000 PRINT@430,"WORKING";:FORLV=0TOMZ:X=RND(MR+1)-1:Y=RND(MR+1)-1
2010 MA(X,Y,LV)=(MA(X,Y,LV) OR FG(6))
2020 NC=1
2030 IFNC>=MC THEN2170
2040 DI=RND(4)-1
2050 NX=X+DX(DI):NY=Y+DY(DI)
2060 IFRND(0)>.9THEN2140
2070 IFNX>MR ORNY>MR THEN2040
2080 IFNX<0ORNY<0THEN2040
2090 IF(MA(NX,NY,LV) AND FG(6))THEN2040
2100 MA(X,Y,LV)=(MA(X,Y,LV) OR FG(DI))
2110 MA(NX,NY,LV)=(MA(NX,NY,LV) OR FG(MO(DI)))
2120 MA(NX,NY,LV)=(MA(NX,NY,LV) OR FG(6))
2130 X=NX:Y=NY:NC=NC+1:GOTO2030
2140 X=RND(MR+1)-1:Y=RND(MR+1)-1
2150 IF(MA(X,Y,LV) AND FG(6))THEN2030
2160 GOTO 2140
2170 NEXTLV
2180 FORZ=1TO4:X=RND(MR+1)-1:Y=RND(MR+1)-1:FORLV=0TO(MZ-1)
2190 MA(X,Y,LV)=(MA(X,Y,LV) OR FG(4))
2195 MA(X,Y,LV)=(MA(X,Y,LV) OR FG(9)) OR FG(7)
2200 MA(X,Y,(LV+1))=MA(X,Y,(LV+1)) OR FG(5)
2205 MA(X,Y,(LV+1))=(MA(X,Y,(LV+1)) OR FG(9)) OR FG(7)
2210 NEXTLV:NEXTZ
2220 FORLV=0TOMZ:FORX=0TOMR:FORY=0TOMR:MA(X,Y,LV)=MA(X,Y,LV)-FG(6)
2230 IF(MA(X,Y,LV) AND FG(9))THEN2270
2250 IFRND(10)=10THENMA(X,Y,LV)=(MA(X,Y,LV) OR FG(8)) OR FG(7):RN=RN+1
2270 NEXTY:NEXTX:NEXTLV
2275 FORZ=0TONG
2280 X=RND(MR+1)-1:Y=RND(MR+1)-1:LV=RND(MZ+1)-1
2290 IF(MA(X,Y,LV) AND FG(7))THEN2280
2300 MA(X,Y,LV)=(MA(X,Y,LV) OR FG(10)) OR FG(7):NEXTZ
2310 FORZ=0TONS
2320 X=RND(MR+1)-1:Y=RND(MR+1)-1:IF(MA(X,Y,0) AND FG(7))THEN2320
2330 MA(X,Y,0)=(MA(X,Y,0) OR FG(12)) OR FG(7):NEXTZ
2340 FORZ=0TONL
2350 X=RND(MR+1)-1:Y=RND(MR+1)-1:L=RND(MZ+1)-1:IF(MA(X,Y,L) AND FG(7))THEN2350
2360 MA(X,Y,L)=(MA(X,Y,L) OR FG(11))OR FG(7):NEXTZ
2900 RETURN
3000 PMODE 2,1:SCREEN 1,1:PCLS5:DRAW "S4C0BM0,0M255,0M255,191M0,191M0,0BM222,0D191"
3010 GOSUB 3400:RF=DI+1:IFRF>3THENRF=RF-4
3020 LF=DI+3:IFLF>3THENLF=LF-4
3030 IF(MA(LX,LY,LZ) AND FG(7))THENGOSUB3100:RETURN
3040 SR=1:RD=2:PX=LX:PY=LY:PZ=LZ
3050 GOSUB3200:MA(PX,PY,PZ)=(MA(PX,PY,PZ) OR FG(6)):IFSR<>0THENPX=PX+DX(DI):PY=PY+DY(DI):RD=RD+1:GOTO3050
3090 RETURN
3100 S$="BM110,95S32":DRAW "XS$;A0;XRW$;XS$;A2;XRW$;A0;XS$;XFW$;":MA(LX,LY,LZ)=MA(LX,LY,LZ) OR FG(6)
3110 IF(MA(LX,LY,LZ) AND FG(LF))THENDRAW"XS$;A0;XLD$;"
3120 IF(MA(LX,LY,LZ) AND FG(RF))THENDRAW"XS$;A0;XRD$;"
3130 IF(MA(LX,LY,LZ) AND FG(DI))THENDRAW"XS$;A0;XFD$;"
3140 IF(MA(LX,LY,LZ) AND FG(9))THENDRAW"XCE$;XEL$;"
3150 IF(MA(LX,LY,LZ) AND FG(10))THENDRAW"XCE$;XGE$;"
3160 IF(MA(LX,LY,LZ) AND FG(12))THENDRAW"XCE$;XSH$;"
3170 IF(MA(LX,LY,LZ) AND FG(11))THENDRAW"XCE$;XLR$;"
3190 RETURN
3200 S$="BM110,95S"+STR$(FG(5-(RD-2))):SR=0:IF(MA(PX,PY,PZ) AND FG(LF))THEN3220
3210 DRAW"XS$;A2;XRW$;":GOTO3250
3220 IF(MA(PX+DX(LF),PY+DY(LF),PZ) AND FG(7))THEN3240
3230 DRAW"XS$;A2;XRP$;":GOTO3250
3240 DRAW"XS$;A2;XRW$;XS$;A0;XLD$;"
3250 IF(MA(PX,PY,PZ) AND FG(RF))THEN3270
3260 DRAW"XS$;A0;XRW$;":GOTO3300
3270 IF(MA(PX+DX(RF),PY+DY(RF),PZ) AND FG(7))THEN3290
3280 DRAW"XS$;A0;XRP$;":GOTO3300
3290 DRAW"XS$;A0;XRW$;XS$;XRD$;"
3300 IF(MA(PX,PY,PZ) AND FG(DI))THENSR=1:GOTO3320
3310 DRAW"XS$;A0;XFW$;":RETURN
3320 IF(MA(PX+DX(DI),PY+DY(DI),PZ) AND FG(7))THENSR=0:DRAW"XS$;A0;XFW$;XS$;XFD$;BR1":RETURN
3330 RETURN
3400 DRAW "C0BM225,191S16A0U7NR1U7NR1U7NR1U7NR1U7NR1"
3440 GOSUB3510:RETURN
3500 DRAW"BM235,191;S4;C5;NU140;BR6NU140BR6U140"
3510 S$="U"+STR$(INT(SP*1.4)):DRAW"BM235,191;C0;S4;XS$;BR1"
3520 S$="U"+STR$(INT(CH*1.4)):DRAW"BM241,191;C0;S4;XS$;BR1"
3530 S$="U"+STR$(NG*14):DRAW"BM247,191;C0;S4;XS$;BR1"
3540 IFNG>0THENDRAWAH$ ELSEDRAW"C5;XCK$;C0":DRAWLEFT$(CK$,12+INT(TI/2.5))
3590 OS=SP:RETURN
5000 CLS:PRINT"PLACE TAPE IN CASSETTE.HIT PLAY"
5010 PRINT"HIT S TO START LOADING"
5020 IFINKEY$<>"S"THEN5020
5030 OPEN"I",#-1,"GAME"
5040 INPUT#-1,A$:PRINT"LOADING FILE NAMED -";A$
5050 INPUT#-1,TI,RN,NG,SP,CH,CC,LX,LY,LZ,RX,RY,RZ,SC
5060 FORX=0TOMR:FORY=0TOMR:INPUT#-1,MA(X,Y,0),MA(X,Y,1),MA(X,Y,2),MA(X,Y,3):NEXTY:NEXTX
5070 CLOSE#-1:PRINT"FILE LOADED":PRINT"WORKING":RETURN
5100 CLS:PRINT"PLACE TAPE IN CASSETTE.HIT RECORD"
5110 INPUT"NAME OF FILE";A$
5120 OPEN "O",#-1,"GAME":PRINT#-1,A$:PRINT#-1,TI,RN,NG,SP,CH,CC,LX,LY,LZ,RX,RY,RZ,SC
5130 FORX=0TOMR:FORY=0TOMR:PRINT#-1,MA(X,Y,0),MA(X,Y,1),MA(X,Y,2),MA(X,Y,3):NEXTY:NEXTX:CLOSE#-1:PRINT"FILE SAVED"
5140 INPUT"RESUME GAME Y/N";A$:IFA$="Y"THENA$="Q"ELSEEND
5150 CC=(CC OR FG(3)):RETURN
6000 GOSUB6300:IF(CC AND FG(0))THENHP=HP-CH/RND(3):SC=SC+10:IFHP<=0THENSC=SC+50:HP=100:MA(RX,RY,RZ)=MA(RX,RY,RZ)-FG(8):CC=(CC-FG(0)) OR FG(3):RN=RN-1:GOSUB6200
6005 CH=CH*.8
6015 FORZ=10TO12
6020 SW=MA(LX,LY,LZ):IF(SW AND FG(Z))THENMA(LX,LY,LZ)=SW-FG(Z):CC=CC OR FG(3):GOSUB6200
6025 IF(SW AND FG(10))THENNG=NG-1ELSESC=SC-1
6030 NEXTZ
6100 CC=CC OR FG(4):RETURN
6200 FORS=1TO10:S$="S"+STR$(S):DRAW"XS$;C0;XEX$;":SOUNDRND(255),1:DRAW"XS$;C5;XEX$;":NEXTS:RETURN
6300 FORS=25TO1STEP-5:S$="S"+STR$(S):DRAW"XS$;C0;XLA$;":SOUND 
10 PCLEAR 2:CLEAR100
20 NL=15:NS=3:NG=10:CC=0:SP=100:CH=100:ZE=0
30 MR=5:MZ=3:DIMMA(MR,MR,MZ):MC=INT((MR+1)^2):DIMFG(14):FG(0)=1:FORX=1TO14:FG(X)=FG(X-1)*2:NEXTX
35 TI=60:HP=100
40 DIMDX(3):DIMDY(3):DX(1)=1:DX(3)=-1:DY(0)=-1:DY(2)=1:DIMMO(3):MO(0)=2:MO(1)=3:MO(2)=0:MO(3)=1
55 LX=RND(MR+1)-1:LY=RND(MR+1)-1:LZ=RND(MZ+1)-1
60 Q3=1:CLS
70 PRINT@165,"THE VOYAGER PROGRAM";:PRINT@232,"AN AVALON HILL";:PRINT@294,"MICROCOMPUTER GAME";:PRINT@355,"                       ";:PRINT@393," ";
300 PRINT"NEW GAME Y/N?";
310 A$=INKEY$:X=RND(100):IFA$<>"Y"ANDA$<>"N"THEN310
320 PRINTA$;:IFA$="N"THENGOSUB5000ELSEGOSUB2000
330 DIMDR$(3):DR$(0)="u":DR$(1)="r":DR$(2)="d":DR$(3)="l"
400 BK$=CHR$(143):CE$="BM110,145S9A0"
410 RW$="BR7U6NM+7,-6D12NM+7,6"
420 FW$="BM+7,-6D12L14U12R14"
430 RP$="BR7U6NR7D12R7"
440 RD$="BM+9,8U11M+3,-2D15"
450 LD$="BM-9,8U11M-3,-2D15"
460 FD$="BM+4,6U7L8D7"
470 LR$="D1NR1NL1D2R1D1R1NR5D8F4L2H3L2G3L2E4U8NL5R1U1R2"
480 SH$="D2R3F4NL16D6NL16G5NL4D3NR2NL2H3L1F1L1E1L1G3NR2NL2U3NR4H5U6E4R5"
490 GE$="D1NR1NL1D1NR2NL2D1NR3NL3D2ND1R3ND1R2NU2R2D5NF9L2NL9D2NL9D2NL9D1L2D4NR2NL2BU4L5D4NR2NL2BU4L2U5L2ND9NL2U5R1NU2R2ND1R3"
500 EL$="ND10R6D10NG3L3NL6NU8NE3NH3D3L6NH3U3L3U10R3NG3ND8NF3R6"
510 DIMRO$(2):RO$(1)="ND1R2NU4F2D2G2NL6D2NL6R5NE4D1L7D1F2D2L1F5NR2NL2BH5L5D4NR2NL2U6E2U1L5U1NL3R3U2H2U2E2NH4R1ND1R3"
520 RO$(2)="ND1R2NE4F2D2G2NL6D2NL6R5NR6D1L7D1F2D2L1D4NR2NL2BU4L5G5NR2NL2BE5U2E2U1L6NG4U1R4U2H2U2E2NU5R2ND1R2"
530 LA$="BM110,145A0BF5F1BH6BG5G1"
540 FR$="U2R1E1R1F3D1L1G2H1L1U1H1"
550 EX$="BM110,145A0BR10;XFR$;BL20;XFR$;BE10;XFR$;BD30;XFR$;BE20;XFR$;"
560 CK$="BM240,20A0S4NU8NE8NR8NF8ND8NG8NL8NH8"
570 AH$="BM233,20A0S4C0NM-6,15NM+6,15BM+10,5ND13BR7D6NL20D7"
740 PCLS:GOSUB3000
750 A$=INKEY$:SW=MA(LX,LY,LZ):IFA$<>""THENAC=ASC(A$)ELSEAC=0
760 IF(SW AND FG(8))OR(CC AND FG(0))THENDRAW"C5BM110,130S10":DRAWRO$(Q3):Q3=RND(2):DRAW"C0BM110,130S10":DRAWRO$(Q3)
765 IFSP<100THENSP=SP+1
770 IFAC=9THENDI=DI+1:IFDI>3THENDI=DI-4
780 IFAC=8THENDI=DI-1:IFDI<0THENDI=DI+4
785 IFAC=9ORAC=8THENSP=SP*.9:CC=(CC OR FG(3))
790 IF(CC AND FG(0))THENGOSUB8000:IFRND(100)>SP THEN820
795 IF(CC AND FG(0))THENSC=SC+5
800 IFAC=94AND(SW AND FG(DI))THENLX=LX+DX(DI):LY=LY+DY(DI):SP=SP*.8:CC=(CC OR FG(3))
805 BF=DI+2:IFBF>3THENBF=BF-4
810 IFAC=10AND(SW AND FG(BF))THENLX=LX+DX(BF):LY=LY+DY(BF):SP=SP*.8:CC=(CC OR FG(3))
815 IFA$="U"AND(SW AND FG(4))THENLZ=LZ+1:CC=(CC OR FG(3))
817 IFA$="D"AND(SW AND FG(5))THENLZ=LZ-1:CC=(CC OR FG(3))
820 IFA$="F"AND(CC AND FG(1))THENGOSUB6000
830 IFA$="A"AND(SW AND FG(12))THENGOTO7000
840 IFA$="C"AND(SW AND FG(10))THENIF(CC AND FG(1))THENCH=100:CC=(CC OR FG(4))
850 IFA$="Q"THENCLS:INPUT"SAVE GAME Y/N";A$:IFA$="Y"THENGOSUB5100ELSECLS:GOSUB5140
860 IF(MA(LX,LY,LZ) AND FG(8))THENCC=(CC OR FG(0)):RX=LX:RY=LY:RZ=LZ
865 IF(MA(LX,LY,LZ) AND FG(8))=0THENIF(CC AND FG(0))=FG(0) ANDRND(100)<SP THENCC=CC-FG(0)
870 IF(CC AND FG(0))OR(CC AND FG(1))THEN880ELSEIFA$="T"AND(SW AND FG(11))THENA$="":CC=(CC OR FG(1)):MA(LX,LY,LZ)=SW-FG(11):DRAW"XCE$;C5;XLR$;"
880 IF(CC AND FG(0))THENGOSUB8000
890 IFSP<=0THENGOTO9000
895 IFRN<=0THENSC=SC+40*NG:GOTO9500
900 IFNG<=0THENTI=TI-1:SOUND(255-(TI*3)),1:CC=CC OR FG(4)
910 IFTI<=0THENGOTO9400
920 IFABS(SP-OS)>10THENCC=(CC OR FG(4))
930 IFA$="T"AND(SW AND FG(11))THENCH=100:CC=CC OR FG(4)
935 IF(CC AND FG(0))=0THENIFA$="M"THENGOSUB1500
940 IF(CC AND FG(3))THENIF(CC AND FG(4))THENCC=CC-FG(4)
950 IF(CC AND FG(4))THENGOSUB3500:CC=CC-FG(4)
960 IF(CC AND FG(3))THENGOSUB3000:CC=CC-FG(3)
990 GOTO 750
1500 CLS:Z=LZ:PRINT@480,"EL-ELEVATOR,RO-ROBOT,LA-LASER,GE-GENERATOR,SH-SHUTTLE";RN;"ROBOTS     REMAIN...HIT C TO CONTINUE";
1510 FORZ1=0TO384STEP32:PRINT@Z1,STRING$(25,128);:NEXTZ1:FORX=0TOMR:FORY=0TOMR:W1=MA(X,Y,Z):IF(W1 AND FG(6))=0THEN1630
1520 PL=34+(X*4)+(Y*64):PRINT@(PL-34),BK$;:PRINT@(PL-30),BK$;:PRINT@(PL+30),BK$;:PRINT@(PL+34),BK$;
1530 IF(W1 AND FG(0))=0THENPRINT@(PL-33),STRING$(3,BK$);
1540 IF(W1 AND FG(1))=0THENPRINT@(PL+2),BK$;
1550 IF(W1 AND FG(2))=0THENPRINT@(PL+31),STRING$(3,BK$);
1560 IF(W1 AND FG(3))=0THENPRINT@(PL-2),BK$;
1570 IF(W1 AND FG(9))THENPRINT@PL,"EL";
1580 IF(W1 AND FG(8))THENPRINT@PL,"RO";
1590 IF(W1 AND FG(10))THENPRINT@PL,"GE";
1600 IF(W1 AND FG(11))THENPRINT@PL,"LA";
1610 IF(W1 AND FG(12))THENPRINT@PL,"SH";
1620 IFX=LX AND Y=LY ANDZ=LZ THENPRINT@(PL-1),DR$(DI);
1630 NEXTY:NEXTX
1635 PRINT@27,"LEVEL";:PRINT@59,Z;:PRINT@91,"SCORE";:PRINT@123,INT(SC);
1637 PRINT@0,"AVALON HILL'S VOYAGER";:IFNG<=0THENPRINT@384,"EXPLOSION IN";TI;" SECONDS";
1640 A$=INKEY$:IFA$=""THEN1640ELSEIFA$="C"THENCC=(CC OR FG(3)):RETURN
1650 IFA$="^" THEN Z=Z+1:IFZ>MZ THENZ=0
1660 IFA$=CHR$(10)THENZ=Z-1:IFZ<0THENZ=MZ
1670 IFA$=CHR$(10)ORA$="q	р46╠эНїB╠
эНї=∙dьНї6├
эНї/Га/ь56946╞4╠эНї╠
@эНї∙9ьНїГ
эНїГ ,ь∙%ьНЇў├
эНЇЁГ
@/ь5Z&├56946╠¤%K╠
¤%M╞ 4°ў№%KГ¤%K№%M├ ¤%M5Z&ф569Ї▒lНЇ╕&▀ЖзН°▀Ж№зН°ь569460Н■О╞4ьДэНЇМьэНЇД°н╠эНЇБ∙05Z&▐56946oН■nжНЎ_Б&@нЯа
╢
ZБ
.Ж зН■U 
Б5-Ж
зН■I╢
[Б
.жН■>АзН■8 OБ5-KжН■.ЛзН■( ?
ЖўзжДБў' ЖязжДБў'Ж▀зжДБў'Ж┐зжДБў' ЖЁ 
Ж Ж  Ж
зН¤ч56946╠  эН¤▌жН¤╪зНє╒°ЄоНє╧жДБ '
0НЇЙ╞=0ЛпН¤╗56946жН¤▒зНєй·уoНєв°h56946жН¤ЪзНєТ·╠ льН¤НГ  &Н═ 
жДЕА&Д°┤ ЖзНєi°/56946ОЖкзАМ&∙5694╢ !Д√╖ !╢  К№╖  ╢ !К╖ !╢ 
Дў╖ 
╢ Дў╖ ╢ #К╖ #оНє594О ~2Z√зЖ зжКзж
Д√з
oДж
Кз
59  52946Ж зН№цЬoНЄх√╥lНюгжН№╘Б '4зН№╬oНЄ╬√╗ 
╠эНЄ╝ўGжН№┤зН№▓ oНЄп√Ь╠эНЄаў+lНЇбў:■жН№ПБ'
oНЄК√wлНЇuБ└$2зНЄ|ДзН№tжНЇcДБ&
жН№fБ' Б&жН№XБ'жНЄRзНЇ?oНЄI√6жНЇ4зН№:■R■═ьН№1Г  &
╠аэНЄ"ЎнП╠эНё√Ж
зНёўЖзНёЄоН№жДЕА'ЖзНёуЇ╥fў0Б'эБ
&Ж$ "Б&Ж% Б&Ж& Б&Ж' 
Б&Ж( Ж)зНёиЇЧжДДЎЇБ.!╠АэНёНЖ<зНёЛЇz╠МэНё}жДД∙№∙╬oНёО·{■ЯжНєtБ&╢ Е
&■Х╢ Е
'∙ 
нЯаБ &■ВжН√ZБ &+жНєHзН√N¤fоН√HМ  '■bжДДpБ0.■XжНє(зН√,■MжН√%бНє'КзН√¤3жЭ√ДpзН√Б .CжНЄ№зН√¤ьН·№Г  '.¤Л╠эНЁ╨ЖзНЁ╬є╜╠эНЁ╒╠АэНЁ╠ЇїoНЁ╤∙╛¤┘жН·╞Б %*жНЄ▒аН·╡0Н·Ь╞	бА'Z&∙¤@╠эНЁЕЖзНЁГєr │oНЁХ∙В569"кНЁЙўvlНЄЕўTБ &ўwlНь9ўF460Н·eжНЄYбД'жз№sьГ  'жЭ·MДpБP/	жДзНЄ6ЖьэжДз№MьэжНЄ зНЁ'їDьНЁ!э	жДзНЁї5ьНЁэцЭ·жЭ·
зЭ·чЭ·оН∙ М  'жНёчз
оН∙южН∙хз
жЭ∙цДpБ&жН∙╒зН∙╙№·бжНё┐зН∙┼№"жН∙╝зН∙║№56946жН∙╣зН∙к√┬ьН∙дэН∙лжН∙жзНяШЇ╡ьНяТэН∙ЪoН∙ШoН∙Х0Н∙i╞	4жДлН∙ББ└$]зН∙АДБ&жН∙oДБ& GБ&
жН∙_ДБ'9жН∙\зН∙F√^ьН∙@Г  '$эН∙HжЭ∙DДБ_.ДлН∙5зН∙1 
ДлН∙*зН∙&0
5Z&Р0Н°Ї╞Н$жН∙
Б '0
Z&ё56946ж┤Дз┤ж?зН°ш√E56946жДлН°хБ└$
DзН°тДБ&жН°╤ДБ'
. Б&жН°┐ДБ'
жН°║зН°д·╝ьН°ЮГ  '
эН°джН°ЯзНюКєзьНюДэН°УжЭ°ЖДpзН°ЛжЭ°ГДpзН°ВжН°}Б`,НБP'hБ@'PБ0';жН°hБ`,БP'╡1Н°T▒л 
джН°KБ'
1Н°<
╤У1Н°+
╟ЙжН°-БP'╜1Н°   ┤╕жН°БP/m1Н°
 dджН°Б`,
Б@,U1НўэQ L1Нўфi CГжНўфБ`,8БP'-Б@' Д
)жНў╨Б&	1Нў┴
V 1Нў▒
M 1Нўпз 1Нўж$56946Є+жНяДДБ&ж┤Дяз┤ж?зНўr∙╧56946Є
жНяcДБ&
Жсз┤ж?зНўS∙░5694цНў_┴0&1НўK■F5946╞0Нў<Н0Нў=НZ&ё56946жДзНў∙aё╕цНя─\ёmZ&·жДзНў∙_╠эНьўёВ56946ёРжНющДБ&B зo┤Ж з╕ж?зНЎ╙∙∙fЖзНь░╠эНьеяШЖ*зНьа╠АэНьХяИ╠АэНьеё0 
Ж╨з┤ж?зНЎЧ°Ї
&46oНЎежНЎШлНЎУзНЎШёжНюxД?бНЎГ/бНЎГ/
lНш-jНюg ▀Ж
зНЎr56946╠эНь1°тж┤ДpБp'└Б`'ДБ0'\Б 'MЖ$зНья╠АэНьж┤ДJ.o┤Ж з╕ж?зНЎ
°jЖ*зНыэю▄ў\Дj┤Ж,зНы▄ю╦╠└эНышЁs mЖ%зНы╟ю╢ ▒Ж&зНы╝юл╠АэНыож┤ДJ/иj┤Ж+зНыгюТ ┼Ж(зНыШж┤ДJ.%юА╠АэНыГЖ*зНыБюpo┤Ж з╕ж?зНїИўх Уj┤ Ж)зНыb ╚	╖/Sў╬569М/_&ж┤Б.Ж ╖/^56946Ў'E\Ж=О'CжДБ'їg╢/q╖/^√ЕZ'0М&1.ф56946ў└╢'H╖/Sў9№/TГ  'H╠¤%8жЯ/TЕА'Ж 0ДpБP'ЎБ&Ж$ "Б &Ж% Б0&Ж& Б@&Ж' 
Б`&Ж( Ж)╖%<эи56946Ж
╖%Wє┤ї╒їg╢'H╖%OёъЖ°╖ "╛%P1ирО.м╞4Н0И╠¤%Rя5Z&ыїаЖч╖ "56946╞Н01и Z&Ў56946╞жАзаZ&∙56946╢&Б'
зЎы╠¤%8Ж0╖%<э╠А¤%8Ж1╖%<э╠  ¤%Rю║■■Ж
╖%Wєїк╢/RБ'^|'Z╗'HБ└$
0╖%XЎ'HД─Б'Б'
 ┴'
 ┴'
Ж
╖%WЄ╓╢%X╖'HЄ═■к╖%TюёжЯ%UБ &ъ╠А¤%RюJ▐╢'GБ&╢ Е
&╬╢ Е
'∙ 
нЯаБ &╗╢'H╖/SїйжЯ/TДpБ &Ж
╖%WЄp╦■м╚ю╢'SДБ
'╢'H╖/Sї╛н╢'H╖/Sїm№/TГ  'ЩцЯ/ToЯ/T╢'H╖%TюWЖ зЯ%U─p┴0.иЇВ t┴P.Mї┤4╠¤%85┴@&Ж Ж╖%<ы▄ПО&1жДБ'
ДpБ@&Ж╨зД0М'E&щёН .Ж
╖%W
ц■зїg4╠¤%85┴`&Ж Ж╖%<ыП2B56946╢'H╖%Oя┘╛%P1ир╞	1и Z&ў56946╞oаZ&√5694╠А¤%8Ж*╖%<ыJ594╠А¤%Rью5946┐%8╖%<ы.56946ОЖ!НщОАLНуО	LН▌56946О
АЖН╤╠
Г¤%8╢'FЁОЁ`О
ЗЖН╗56946ОЖ	НпОАLНй569эEЁн╢'L╖'E|'FїўВ╢'I╖/^°2¤В№Йя9яЪ╢'PБ@%№'QГ'O№'LГ't ╟Oь%;Ж
╖%: `О Ж
 J mОЖ ?ОАL 8ОL 1ОАЖ )ОL " g `Oы╩%;Ж
╖%: О Ж
  )ОЖ■√ОАL■Ї 9 2Ж ыЫЖ╖%;Ж
╖%:■ыО Ж
■╒■°ОL■╦ОАL■─ОL■╜ОАЖUзАМ&∙Ж╖%:Ж
╖%;ОАЖ■ЯнЯаБY'■яБN&Є9╠эНццыqя╒9   =OPБ@%№'QГ'O№'LГ't ╟Oь%;Ж
╖%: `О Ж
 J mОЖ ?ОАL 8ОL 1ОАЖ )ОL " g `Oы╩%;Ж
╖%: О Ж
  )ОЖ■√О=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)):E=E-2:P=P-1
1820 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)):X=S1:Y=S2
1830 PRINT"TORPEDO TRACK:"
1840 X=X+X1:Y=Y+X2:X3=INT(X+.5):Y3=INT(Y+.5)
1850 IF X3<1 ORX3>8 ORY3<1 ORY3>8THEN2050
1860 PRINT"                ";X3;","Y3:A$="   ":Z1=X:Z2=Y:GOSUB3610
1870 IF Z3<>0 THEN1840
1880 A$="+K+":Z1=X:Z2=Y:GOSUB3610:IF Z3=0 THEN1930
1890 PRINT"*** KLINGON DESTROYED ***":K3=K3-1:K9=K9-1:IF K9<=0 THEN2520
1900 FORI=1TO3:IF X3=K(I,1)ANDY3=K(I,2)THEN1920
1910 NEXTI:I=3
1920 K(I,3)=0:GOTO2030
1930 A$=" * ":Z1=X:Z2=Y:GOSUB3610:IF Z3=0 THEN1950
1940 PRINT"STAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":GOSUB2320:GOTO580
1950 A$=">!<":Z1=X:Z2=Y:GOSUB3610:IF Z3=0 THEN1770
1960 PRINT"*** STARBASE DESTROYED ***":B3=B3-1:B9= v@ааNНp8аААААААААА@ра  `└Арр@ра @  ар@ аааЁЁ    ррАА└р ар@@раААраар@рр   `@@@@@раа@ааар@@раар  ар@@раааарааа└раа└ааар└@рааААаар@└раааааар└ррАА└└ААррррАА└└АААА`ЁРАА░РРЁ`ааааррааааАААААААААА      аар@ааа└А└раРРААААААААррИИ╪°°иииИИРР╨╨Ё░░РРР`ЁРРРРРРЁ`└раарААААА`ЁРРРРР░рp└раар└ааРР@раА└` ар@рр@@@@@@@@ааааааарр@ИИИИИИPP  ИИИии°°╪ИИРРР`@ `РРРааарр@@@@@ЁЁ0 `@└АЁЁ@@└АААА└@@АА└@@@@└АА0 ``@└ААррАА*и
а	`	`
а
а
а   АА
Р*T*dd
T*РT?№T?№T?№T?№TА
а*и*и
@PTT?№=№=№=№T5|=№5|\▄?№=№=№=№T%h)и%hXШ  └└└└└└└└└└  ккААААААААААкк01
234(526<7F8P9ZAdBnCxDВEМFЦGаHкI┤J╛K╚L╥M▄NцOЁP·QRST"U,V6W@XJYTZ^(h)r/|-Ж.Р ЪЙSIR-IN    DAYS OF YOUR COMMANDMORE THAN HALF OF THECIVILIAN POPULATION OFTHIS PROVINCE HAVE BEENDESTROYED OR HAVE JOINEDWITH THE ENEMYYOU ARE HEREBY RELIEVEDOF COMMAND.ALL ARVN AND U.S. FORCESHAVE BEEN LOST IN COMBAT.CONGRATULATIONS.ALL ENEMY UNITS OPERATINGIN THIS PROVINCE HAVE BEENELIMINATED.WANT TO PLAY AGAIN (Y/N)ILLEGAL MOVE - U.S. TROOPSMOVE ONLY 1 POSITIONU.S. AIR CAVALRY BATTALIONU.S. FIELD ARTILLERY BATTALIONARVN INFANTRY BATTALIONUNIDENTIFIED VIETNAMESEFRIENDLY CIVILIANSNEUTRAL CIVILIANSVIET CONG BATTALIONNORTH VIETNAMESE BATTALIONMICROCOMPUTER GAMESA DIVISION OFTHE AVALON HILL GAME COMPANYP R E S E N T S(C) 1983 (P)COMMANDING OFFICERIII FIELD FORCESHUY BINH PROVINCEU.S. AIR CAVU.S. ARTILLERYARVN INFANTRYFRIENDLY CIVILIANSVC BATTALIONNVA BATTALIONDESTROYEDMODERATE CASUALTIESLIGHT CASUALTIESNEUTRALIZEDENTER LEVEL OF PLAY(0-EASY 5-HARD)ARTILLERY FIRESPOT TARGET-PUSH BUTTONPUSH JOYSTICK BUTTONORSPACE BAR FOR KEYBOARDNVVCNCVFCCIVARUSSTRENGTH -
 @А<
$·М{\*└2├066C ЛZ  5  0#jUV "O  R
  4t+YeJ  3 T  Kc xs>p  XQ 9 i !БG @=  P /
 b $,S`  &v aЙ H NW)       E1 fКД     g:_d7 <6-    ] ^ hoВ Ж.Ik   DЗ~ r M}y8l*  q      Г'zB[        
 % ;  #*╕1нb123и3йcЗ1E└╨#@@G╨I└\╨O╨_╨@Ы@/@SPГ2P╝@m└o@└=╨:@@	╨K@║@RPм!@^╨Я╨PLP}@НPDP@iоP"@PP|Py@Э@6@v└╜@{@?P-п@>Ю@оИ@У@h%P<@YPОP@(@Щ@[@@B@4╨@M@%@@╨]@3╨PPпQ@Д@Ж@w@N@V@HP)@x@Pk@u@И@8╨
╨П╨ЮU@ЙP.@в@Ч╨,@F@TR@+PЬ@н0b@Ъ@Х@fP;@К@лPnЬ@МPФ@WPl└
aкqwЛЖvПB
2)ClaoNЫхц└к
А└T
 └*б╠└кбf└*б2А

А└T
 └*ШР%)
 '* $2.3#4	ЧЖЧМУИК
У╖*╕3╢3╣3ж3з3и3й3Ц3Ч3Ш3ЩlН∙╢ ;40Н¤":еД5940Н¤:кД5940Н¤
:CкДC594ЖзН¤НGжЭ¤'>НRНtьН№°├
эН№ёжН№ё╞=чН№ЄжН№саН№ъM.4ьН№╧├
эН№╚5Л ъзН№├ ╝590Н°ЪжА&№jН№▒&ЎпН№н90Нў▐жЭ№дбД'0М!&ї0Н°oь
эН№СжзН№Н9ьН№~эН№Е╞
4НьН№{├ эН№tьН№m├
эН№f5Z&с9ьН№_эН№]ЖзН№YжН№KзН№RжН№HзН№KжЭ№>цН№A■ &жН№, жН№%Н#jН№,жН№)M.
ьН№├
эН№ЖзН№jН№&┼9╞
■╔'Н  НjН√¤Z,ю94цН√єжЭ√ь■─зЭ√х594цН√▀жЭ√╪■дзЭ√╤5942Б1?М/Ж║  ╖  оН√╗0М.∙Ж№╕  ╖   █╖4ОзАМ&∙5946╠эН√Н╠
эН√И╞
4 льН√}уН√yэН√u5Z&ъ5694ьН√l]'Z ·M'JZ є59460Н¤W╞ж
зД0
Z&ўжН¤HцНў
=\чН¤E56946жН√1&ЖJ╞=0Нїz0ЛоН√╞
Н01и Z&Ў56946╞жАзаZ&∙56946ЖзН·чжН·т╞=0НЎ:ь
эН·╪жзН·╘■E5694жН·┌Н╞=0Н·╓:цН·╠─:пН·╞59DDDD9Жк 
Жч╖ " ╔ ╟ ├ ┼╢ К
╛ °1Н¤п
Ж
зН·CЖзН·>0Н№Ъ╞4ьДэН·-жзН·+¤50Z&ш0Н№<╞4ьДэН·$ьэН·■E05Z&шЖзН·╠@эН·0Н№i╞4ьДэН∙№■┴■[■ЩжН√ЄДБ&■v05Z&█oН√╥lН√┌╢ Е
& нЯаБ &ыЖ
зН√╖Ж ■ЖзН∙а╠
эН∙ЦЖ.зН∙Ф№Г╠АэН∙ЖЖ/зН∙Д№slН√ХнЯаБ0-ЇБ5.ЁА0зН√tзН∙g╠
эН∙\■ooН√cЖ╕зН√_Ж╖зН√ZЖ ╞└0Н∙bзАZ&√1Н√█╞0Н·жазАZ&∙0Н·_ж
зН∙<■YчЭ∙60\┴&ь╞0Н·¤╟жН√ ДзН∙жН√ДЁБ░ДН∙зН∙	■&жЭ∙Г╓чЭ°√┴Л"Ж╨ ЖсзДжН°ъз
0\┴Ц&╣0Н·╬жН·╩Б'0ЖєзДjН·╝ ь94жН°╜¤¤╞=Ж =О 0ЛцН°л─X:пН°д5940Н·Ч╞oАZ&√0Н∙Y╞ЦжДБ'CД¤┼Б.lН·} 4Б.lН·r *Б.
lН·flН·c Б.
lН·WlН·U Б.lН·H lН·A0Z&▓5946ОЖUзАМ&∙╠ эН°эН°+ЖзН°Ж
зН°Ж5╞4зНў··щьН°├эН°эНўфlНўф5LZ&▐╠аэНў╙эНўщ0Н∙▀╞жАJНZ&є5694ьНў═├эНўмэНў┬5940Нў╗╞жДБ0&0
Z&їпНўФ╠эН·Е·z╠НGэН·{594╞0НўОoАZ&√0НўЕЙOГd-lД ў├dГ
-l
 ў├
ч╞0НўbжДЛ0зАZ&ўoНўX5946O√ЮОЖкзАМ&∙0Н°
╞Цж
зНў/■iжДЕА&Д№d ЖзНў√▀0Z&▄■n■╧56946жНў
Б
. 'жН°Є жН°ызНЎю■(ьНЎшГ эНЎсН56946жНЎ▌Б
'0Нё┬ 0Нё╘оНЎ├╞Н1и 0Z&Ў56946╞жАидзаZ&ў569└└└└└└ЁЁЁ└0<Ё└└?Ё?№Ё└0└└Ё╠<Ё└└№0<?Ё╠0└└└└├Ё╠0└Ё0╠└└└└├└└└└└└
ёЁя 
└
@└
АBZ  &╣&#%Л%ЫI&;%вZ&й%▓P@	
I%вI%в:46ж
╖/n╖/q╖%T·ь№%U¤/o¤/rО/=·^Ў'S─1ежд╗/nБ└$H╖/tЎ/nД─Б'Б' 
┴'0 ┴'*╢/t╖%T·ецЯ%U┴ &╖/qз
№%U¤/rцЯ/oЖ зЯ/oчЯ/r╢/n╖/S
║╢/
10 '**DUNGEON**
20 '
30 REM THE DUNGEON OF DANGER
50 CLS: CLEAR 2000
60 PRINT "THE DUNGEON OF DANGER"
70 PRINT
80 PRINT "A FANTASY GAME"
90 BB=2
100 GOSUB 410
110 CLS: DIM A(9,9,2)
120 PRINT "YOU WILL BE TELEPORTED TO..."
130 PRINT
140 PRINT "THE DUNGEON OF DANGER"
150 PRINT: DY=0: MD=1
160 GOSUB 5690
170 MA=0: CA=0: G=500: M1=1: K=0: HI=20+RND(15): HI=INT(HI/PL)
180 H1=HI: PRINT "ENTER YOUR CHARACTER'S NAME?"
190 INPUT A$
200 GOSUB 400
210 CLS: PRINT "YOU CARRY A MAGIC SWORD"
220 PRINT "AND 500 GOLD PIECES WITH YOU."
230 INPUT "ENTER 'HIT-POINT' VALUE IS ";H1: GOSUB 400
240 PRINT "IF IT REACHES ZERO, YOU WILL DIE"
250 PRINT "........SO BE CAREFUL"
260 PRINT: GOSUB 400: PRINT A$;","
270 PRINT ".... YOU ARE ON YOUR WAY!"
280 BB=5: GOSUB 410
290 GOSUB 440
300 CLS
310 PRINT "YOU HAVE ARRIVED AT ...."
320 PRINT
330 PRINT "THE DUNGEON OF DANGER LEVEL 2"
340 PRINT
350 PRINT "YOU WILL ENCOUNTER MONSTERS AND"
360 PRINT "THIEVES, AND GOLD ... GOOD LUCK"
370 BB=6
380 GOSUB 410
390 GOTO 980
400 BB=1
410 FOR ZZ=1 TO 400*BB
420 NEXT ZZ
430 RETURN
440 FOR X=1 TO 8
450 FOR Y=1 TO 8
460 FOR Z=1 TO 2
470 A(X,Y,Z)=RND(7)
480 NEXT Z
490 NEXT Y
500 NEXT X
510 H=RND(3)
520 FOR A=1 TO 2
530 FOR N=1 TO H
540 X=RND(8)
550 Y=RND(8)
560 A(X,Y,A)=8
570 NEXT N
580 NEXT A
590 S=RND(4)+2
600 FOR A=1 TO 2
610 FOR N=1 TO S
620 X=RND(8)
630 Y=RND(8)
640 A(X,Y,A)=9
650 NEXT N
660 NEXT A
670 RETURN
680 L1=L1-1
690 PRINT "YOU WALK UP THE STAIRWAY"
700 GOSUB 400
710 PRINT "THE ENCHANTED KEY OPENS THE LOCK"
720 GOSUB 400
730 IF L1=0 THEN 840
740 MA=0: K=0: K4=RND(4)+1: IF H1<HI THEN 760
750 GOTO 800
760 H1=HI
770 PRINT "YOU FEEL STRONGER .....": GOSUB 400
780 PRINT "YOUR 'HIT-POINTS' ARE"
790 PRINT " RESORED TO ";HI
800 PRINT: CB=CA+K4
810 PRINT "YOU ARE AT ..... LEVEL 1"
820 BB=4: GOSUB 410
830 GOTO 1020
840 PRINT "YOU FOUND YOUR WAY..."
850 PRINT " OUT OF THE DUNGEON OF DANGER"
860 PRINT "YOU HAVE ACQUIRED ...."
870 PRINT G;" GOLD PIECES."
880 GOSUB 900
890 GOTO 1780
900 GG=G+100
910 R=INT((GG*CA-7000+1)/M1)
920 PRINT "GAME RATING IS ";R;" = ";: GOSUB 5790
930 IF G<=0 THEN 3160
940 PRINT "YOU TOOK ";M1;" TURNS,"
950 PRINT "  TO FIND  THE WAY OUT,"
960 PRINT "AND KILLED ";CA;" MONSTERS."
970 RETURN
980 C=RND(8)
990 D=RND(8)
1000 A(C,D,2)=1
1010 L1=2: K4=RND(4)+1
1020 F$=" ": CLS
1030 A=A(C,D,L1)
1040 GOSUB 400
1050 ON A GOSUB 2060,4040,3560,3560,2150,2460,2510,2560,2820
1060 IF TE=1 THEN TE=0: GOTO 1020
1070 IF H1<=0 THEN 1660
1080 IF DY=1 THEN MD=MD-1
1090 IF DY=1 AND MD=0 THEN 1660
1100 IF F$="R" THEN 1020
1110 PRINT A$;","
1120 PRINT "WHAT IS YOUR ACTION OR MOVE?"
1130 PRINT "(N)ORTH,(E)AST,(S)OUTH,(W)EST"
1140 PRINT "(U)P,(M)AP,(G)OLD,(H)IT POINT"
1150 M1=M1+1: TL=0
1160 M1$=INKEY$: C1=C: D1=D
1170 IF M1$="N" THEN 1270
1180 IF M1$="E" THEN 1310
1190 IF M1$="S" THEN 1350
1200 IF M1$="W" THEN 1390
1210 IF M1$="U" THEN 1430
1220 IF M1$="M" THEN 1520
1230 IF M1$="G" THEN 1550
1240 IF M1$="H" THEN 3240
1250 IF M1$="" THEN 1160
1260 GOTO 1070
1270 IF A=7 THEN 1580
1280 IF (D-1)=0 THEN 1850
1290 D=D-1
1300 GOTO 1020
1310 IF A=6 THEN 1620
1320 IF (C+1)=9 THEN 1900
1330 C=C+1
1340 GOTO 1020
1350 IF A=7 THEN 1580
1360 IF (D+1)=9 THEN 1920
1370 D=D+1
1380 GOTO 1020
1390 IF A=6 THEN 1620
1400 IF (C-1)=0 THEN 1940
1410 C=C-1
1420 GOTO 1020
1430 CLS: IF A<>9 THEN 1490
1440 IF K=1 THEN 680
1450 PRINT
1460 PRINT "YOU CANNOT GO UP THE STAIRWAY"
1470 PRINT "YOU DON'T HAVE THE KEY"
1480 GOSUB 400: GOTO 1070
1490 PRINT "YOU ARE NOT AT A STAIRWAY"
1500 GOSUB 400: GOTO 1070
1510 GOTO 1070
1520 CLS: IF MA=1 THEN 1960
1530 PRINT "YOU DON'T HAVE THE MAP"
1540 GOSUB 400: GOTO 1070
1550 CLS: PRINT "YOU HAVE ";G
1560 PRINT " GOLD PIECES WITH YOU"
1570 GOTO 1070
1580 PRINT
1590 CLS: PRINT "YOU ARE IN AN EAST-WEST CORRIDOR"
1600 PRINT "YOU CAN ONLY GO EAST OR WEST"
1610 GOTO 1070
1620 PRINT
1630 CLS: PRINT "YOUR IN A NORTH-SOUTH CORRIDOR"
1640 PRINT "YOU CAN ONLY GO NORTH OR SOUTH"
1650 GOTO 1610
1660 BB=2: GOSUB 410: CLS: IF DY=1 THEN 5660
1670 PRINT "YOUR 'HIT-POINTS' HAVE BEEN"
1680 PRINT "......DEPLETED,"
1690 G=0: PRINT "AND UNFORTUNATELY YOU JUST DIED"
1700 BB=5: GOSUB 410
1710 W=RND(6): IF DY=0 AND DW>3 THEN 5510
1720 PRINT "YOU LOST ALL YOUR GOLD"
1730 PRINT " AND YOU WERE"
1740 PRINT "UNABLE TO MEET THE DEMANDS OF"
1750 PRINT "..... THE DUNGEON OF DANGER"
1760 PRINT "BETTER LUCK NEXT TIME"
1770 GOSUB 900
1780 PRINT "ANOTHER GAME?"
1790 PRINT "ENTER (Y)ES OR (N)O"
1800 F$=INKEY$
1810 IF F$="Y" THEN                                                                                                                                                                                                                                                                             ┼       ╟                                        ND     BAS
  ЕOS     BAS0IDWAY  BAS1ЛCEPTER BAS(iC      BINАAIPAN  BASфVOY-1A  BAS AVOY-1   BAS╚ITCH   BAS-├                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                5BASIC GAMES                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  1840
1820 IF F$="" THEN 1800
1830 END
1840 CLS: GOTO 140
1850 CLS: PRINT "YOU ARE AT THE NORTH WALL"
1860 PRINT "YOU CANNOT PASS THROUGH"
1870 PRINT
1880 PRINT "TRY ANOTHER DIRECTION?"
1890 GOTO 1070
1900 CLS: PRINT "YOU ARE AT THE EAST WALL"
1910 GOTO 1860
1920 CLS: PRINT "YOU ARE AT THE SOUTH WALL"
1930 GOTO 1860
1940 CLS: PRINT "YOU ARE AT THE WEST WALL"
1950 GOTO 1860
1960 CLS: PRINT "THE DUNG/DANG-MAP: LEV";L1
1970 PRINT "YOU ARE <P1> ON THE MAP..."
1980 FOR Q=1 TO 8
1990 FOR N=1 TO 8
2000 IF C=N AND D=Q THEN PRINT "P1  ";: GOTO 2030
2010 S1=A(N,Q,L1)
2020 ON S1 GOSUB 2860,2920,2880,2880,2900,2940,2960,2980,2990
2030 NEXT N
2040 NEXT Q
2050 GOTO 1070
2060 W=RND(2): IF W=2 THEN 2110
2070 PRINT
2080 PRINT "YOU ARE IN A COLD AND DARK"
2090 PRINT "...... EMPTY CHAMBER"
2100 RETURN
2110 PRINT
2120 PRINT "YOU ARE IN A DAMP AND MISTY"
2130 PRINT "....... EMPTY CHAMBER"
2140 RETURN
2150 CLS: PRINT "THERE IS A THIEF IN THIS CHAMBER"
2160 A(C,D,L1)=1
2170 GOSUB 400
2180 G4=RND(500/L1): IF (G-G4)<0 THEN G4=G
2190 Y=RND(8)
2200 IF Y<=3 THEN 2370
2210 PRINT
2220 PRINT "....... HE SURPRISES YOU"
2230 GOSUB 400
2240 PRINT "AS HE QUICKLY PASSES BY YOU HE"
2250 PRINT "SNATCHES ... ";G4
2260 PRINT " GOLD PIECES....."
2270 G=G-G4
2280 IF MA=1 THEN RETURN
2290 MA=RND(4): IF MA<=2 THEN MA=1
2300 IF MA=1 THEN 2330
2310 RETURN
2320 GOSUB 400
2330 PRINT "YOU SEARCH THE CHAMBER AND"
2340 GOSUB 400
2350 PRINT "YOU ..... FIND A MAP"
2360 RETURN
2370 PRINT "YOU SURPRISED THE THIEF ...."
2380 GOSUB 400
2390 PRINT "AS HE RUNS OUT HE DROPS ...."
2400 G4=RND(400/L1): PRINT " ... ";G4;" GOLD PIECES."
2410 PRINT "YOU PICK UP THE GOLD PIECES": G=G+G4
2420 IF MA=1 THEN RETURN
2430 MA=RND(4): IF MA<=2 THEN MA=1
2440 IF MA=1 THEN 2330
2450 RETURN
2460 CLS
2470 PRINT "YOU ENTER A NORTH-SOUTH CORRIDOR"
2480 PRINT "THRU A ....... SECRET DOOR"
2490 GOSUB 3190
2500 RETURN
2510 CLS
2520 PRINT "YOU ENTER AN EAST-WEST CORRIDOR"
2530 PRINT "THRU A ....... SECRET DOOR"
2540 GOSUB 3190
2550 RETURN
2560 PRINT "YOU ACTIVATED A ... TRAP DOOR"
2570 GOSUB 400
2580 TD=RND(4)*PL: IF TD>4 THEN PRINT "YOU FELL THRU ...": GOSUB 400: GOTO 1690
2590 IF TD=4 THEN 2640
2600 PRINT
2610 PRINT "BUT ... YOU CAUGHT YOURSELF"
2620 PRINT "FROM FALLING"
2630 RETURN
2640 IF L1=2 THEN 2750
2650 L1=L1+1: K=1
2660 PRINT "YOU FELL THRU TO LEVEL 2, AND"
2670 G=0
2680 GOSUB 400
2690 PRINT
2700 PRINT "YOU ........ LOST"
2710 PRINT "ALL OF YOUR GOLD PIECES"
2720 PRINT: IF PT=1 THEN PT=0: RETURN
2730 PRINT "BUT .. YOU STILL HAVE YOUR KEY"
2740 RETURN
2750 PRINT "YOU FELL INTO A DEEP ... PIT": PT=1
2760 GOSUB 400
2770 PRINT "LUCKILY .. YOU DIDN'T GET HURT"
2780 PRINT
2790 GOSUB 400
2800 PRINT "BUT IN CLIMBING OUT ..."
2810 GOTO 2670
2820 PRINT "YOU ARE AT A STAIRWAY"
2830 PRINT "...... GOING UP"
2840 PRINT
2850 RETURN
2860 PRINT "0   ";
2870 RETURN
2880 PRINT "M   ";
2890 RETURN
2900 PRINT "?   ";
2910 RETURN
2920 PRINT "C   ";
2930 RETURN
2940 PRINT "NS  ";
2950 RETURN
2960 PRINT "EW  ";
2970 RETURN
2980 GOTO 2900
2990 PRINT "UP  ";
3000 RETURN
3010 H=1: O=9: W=8
3020 B=0: E=5: R=14
3030 C=0: PR=0
3040 GOTO 980
3050 RETURN
3060 GOSUB 400
3070 K=1
3080 PRINT "YOU LOOK TO THE GROUND ......"
3090 PRINT "AND FIND THE ENCHANTED KEY"
3100 GOSUB 400
3110 RETURN
3120 GOSUB 3070
3130 GOTO 1170
3140 IF CA=CB THEN 3060
3150 RETURN
3160 PRINT "YOU KILLED ";CA;" MONSTERS "
3170 PRINT "..... IN ";M1;" TURNS."
3180 RETURN
3190 PRINT "THE DOOR CLOSES ......"
3200 PRINT "AND LOCKS BEHIND YOU": GOSUB 400
3210 W=RND(8): IF W>=7 THEN 3270
3220 W=RND(8): IF W=8 THEN 3360
3230 RETURN
3240 CLS: PRINT "YOU HAVE ";H1
3250 PRINT " 'HIT-POINT(S)' LEFT."
3260 GOTO 1070
3270 W=RND(4)+30
3280 FOR AA=1 TO W
3290 READ MS$,HP,HM
3300 NEXT AA
3310 RESTORE
3320 PRINT
3330 PRINT "THERE IS SOMETHING LURKING"
3340 PRINT "IN THIS CORRIDOR ...": GOSUB 400
3350 GOTO 3660
3360 TE=1: TL=1
3370 IF K=1 THEN 3430
3380 K=1: PRINT "YOU NOTICE A SHINY OBJECT ...."
3390 PRINT ".... AT YOUR FEET": GOSUB 400
3400 PRINT "YOU PICK IT UP AND FIND THAT ..."
3410 PRINT "IT IS THE ENCHANTED KEY ......": GOSUB 400
3420 PRINT "BUT YOU WEREN'T CAREFUL ....": GOSUB 400
3430 PRINT "YOU ACTIVATED SOME SORT OF TRAP": GOSUB 400
3440 C=RND(8): D=RND(8): BB=5: GOSUB 410: CLS
3450 PRINT "SUDDENLY YOU FEEL DIZZY, ...."
3460 PRINT "... AND PASS OUT"
3470 PRINT: BB=2: GOSUB 410: GOSUB 3520
3480 PRINT "WHEN YOU WAKE UP ... YOU FIND"
3490 PRINT "THAT YOU WERE .... TELEPORTED"
3500 PRINT "TO AN UNKNOWN LOCATION ...."
3510 BB=5: GOSUB 410: RETURN
3520 FOR AA=1 TO 300
3530 PRINT "*        %";
3540 NEXT AA
3550 GOSUB 400: CLS: RETURN
3560 IF A=4 THEN 3580
3570 W=RND(15): GOTO 3590
3580 W=RND(15)+15
3590 FOR AA=1 TO W
3600 READ MS$,HP,HM
3610 NEXT AA
3620 RESTORE
3630 PRINT
3640 PRINT "THERE IS SOMETHING LURKING ...."
3650 PRINT ".... IN THIS CHAMBER ....": GOSUB 400
3660 PRINT "........... BEWARE": GOSUB 400
3670 PRINT
3680 PRINT "IT IS A ...";MS$: GOSUB 400
3690 GOTO 4550
3700 DATA"LARGE DRAGON",6,12
3710 DATA"HIDIOUS GHOUL",5,10
3720 DATA"LIZARD MAN",4,8
3730 DATA"MANTICORE",6,12
3740 DATA"PURPLE WORM",6,12
3750 DATA"DEADLY COBRA",5,10
3760 DATA"MAD ELF",5,10
3770 DATA"CLAY MAN",4,8
3780 DATA"HAIRY BEAST",5,10
3790 DATA"MADE DWARF",4,8
3800 DATA"ZOMBIE",4,8
3810 DATA"BERSERKER",5,10
3820 DATA"GIANT SCORPION",6,12
3830 DATA"GIANT COCKROACH",4,8
3840 DATA"DOPPLEGANGER",5,10
3850 DATA"GIANT FIRE BEETLE",1,2
3860 DATA"GIANT ANT",1,2
3870 DATA"GIANT TICK",2,4
3880 DATA"MUMMY",3,6
3890 DATA"NASTY ORC",2,4
3900 DATA"SKELETON",1,2
3910 DATA"TROLL",3,6
3920 DATA"GOBLIN",3,6
3930 DATA"VAMPIRE BAT",3,6
3940 DATA"CREEPING BLOB",3,6
3950 DATA"MAD DOG",2,4
3960 DATA"LARGE SPIDER",3,6
3970 DATA"BLACK CAT",2,4
3980 DATA"MAN EATING PLANT",1,2
3990 DATA"HYDRA",3,6
4000 DATA"GELATINOUS CUBE",2,4
4010 DATA"GIANT CENTIPEDE",1,2
4020 DATA"GIANT RAT",2,4
4030 DATA"SHADOW",2,4
4040 PRINT "YOU STUMBLED ONTO ....."
4050 PRINT "A HIDDEN CAVERN": GOSUB 400
4060 GOSUB 4210: IF H1<=0 THEN RETURN
4070 W=RND(9)
4080 GOSUB 400: IF W>3 THEN PRINT "THE CAVERN SEEMS EMPTY ...": RETURN
4090 BB=2: GOSUB 410: GOSUB 4540
4100 GOSUB 400: PRINT "BUT WAIT .. BEFORE YOU PROCEED": GOSUB 400
4110 PRINT "YOU HEAR A NOISE"
4120 PRINT "OFF IN THE DISTANCE"
4130 BB=2: GOSUB 410
4140 PRINT "CAUTIOUSLY YOU WALK"
4150 PRINT "TOWARDS THE SOUND"
4160 BB=3: GOSUB 410: W=RND(4): IF HI<H1 THEN 4180
4170 IF W=1 THEN 5170
4180 IF W=2 THEN 5300
4190 IF W=4 AND L1=2 THEN 5890
4200 GOTO 5360
4210 PRINT "YOU LOOK AROUND ... ": GOSUB 400
4220 V=RND(7)
4230 IF V>=5 THEN 4250
4240 RETURN
4250 PRINT "ON THE GROUND, AT YOUR FEET,"
4260 PRINT ".....IS A VIAL"
4270 PRINT: BB=2: GOSUB 410
4280 PRINT "YOU PICK UP THE VIAL ......"
4290 PRINT "... AND SEE THAT"
4300 PRINT "IT CONTAINS ... A MILKY LIQUID"
4310 PRINT "WOULD YOU LIKE A DRINK?"
4320 PRINT "ENTER (Y)ES OR (N)O": DL=RND(6)
4330 D$=INKEY$
4340 IF D$="Y" THEN 4370
4350 IF D$="" THEN 4330
4360 RETURN
4370 PRINT "YOU TAKE A DRINK ...": BB=2: GOSUB 410: CLS
4380 IF DL>=3 THEN 4470
4390 IF DL=2 THEN 4520
4400 H3=RND(6)*PL: H1=H1-H3
4410 PRINT "YOU FEEL A LITTLE FUNNY ...": GOSUB 400: GOSUB 400
4420 IF H1<=0 THEN RETURN
4430 PRINT "IT WAS A BLACK MAGIC POTION .."
4440 PRINT "WHICH DECREASED YOUR"
4450 PRINT " 'HIT-POINTS' BY ";H3
4460 RETURN
4470 H3=RND(10/PL)+(6/PL): H1=H1+H3
4480 PRINT "IT WAS A WHITE MAGIC POTION ..."
4490 PRINT "WHICH INCREASED YOUR"
4500 PRINT " 'HIT-POINTS' BY ";H3
4510 RETURN
4520 PRINT "THE LIQUID HAD NO EFFECT ON YOU"
4530 RETURN
4540 GOSUB 400: RETURN
4550 W=RND(4)
4560 IF W<=2 THEN 4580
4570 GOSUB 400: GOSUB 4880
4580 IF H1<=0 THEN RETURN
4590 PRINT "WILL YOU (F)IGHT OR (R)UN ?"
4600 F$=INKEY$
4610 IF F$="F" THEN CLS: GOTO 4650
4620 IF F$="R" THEN CLS: GOTO 4780
4630 IF F$="" THEN 4600
4640 GOTO 4580
4650 CLS: GOSUB 400
4660 PRINT "YOU ATTACK THE ... "
4670 PRINT "....";MS$: GOSUB 400
4680 PRINT "WITH A SWING OF YOUR SWORD"
4690 N=RND(5)+RND(INT(CA/2+1)): HM=HM-N
4700 IF HM<=0 THEN 5010
4710 PRINT "YOU DO ";N
4720 PRINT " 'HIT-POINT(S) OF DAMAGE."
4730 GOSUB 400
4740 PRINT "IT HAS .. ";HM
4750 PRINT " 'HIT-POINT(S)' LEFT"
4760 GOSUB 400
4770 GOTO 4570
4780 W=RND(4): C=C1: D=D1
4790 PRINT "YOU QUICKLY RUN OUT ...": IF TL=1 THEN 5720
4800 N=RND(2): BB=2: GOSUB 410: IF W>=3 THEN 5470
4810 H1=H1-N
4820 PRINT "AS YOU LEAVE ..."
4830 PRINT MS$;" ATTACKS": GOSUB 400
4840 IF H1<=0 THEN RETURN
4850 PRINT "AND IT DOES ";N
4860 PRINT " 'HIT-POINT(S)' OF DAMAGE"
4870 BB=3: GOSUB 410: RETURN
4880 W=RND(7)
4890 PRINT "....... IT ATTACKS YOU": IF W<=2 THEN 5490
4900 W=RND(6): IF W>=3 THEN 4930
4910 N=RND(INT(HP/L1+1))+RND(INT(HP/L1+1))
4920 GOTO 4940
4930 N=RND(HP*PL)
4940 IF HM<=2 THEN N=1
4950 H1=H1-N: GOSUB 400: IF H1<=0 THEN RETURN
4960 PRINT "AND IT DOES ";N
4970 PRINT " 'HIT-POINT(S)' OF DAMAGE"
4980 PRINT "YOU HAVE ... ";H1
4990 PRINT " 'HIT-POINT(S)' LEFT"
5000 RETURN
5010 GOSUB 400
5020 PRINT " YOU HAVE KILLED THE,"
5030 PRINT "...";MS$
5040 PRINT
5050 IF A(C,D,L1)>=6 THEN 5080
5060 IF A(C,D,L1)=2 THEN 5080
5070 A(C,D,L1)=1
5080 G8=500: IF A(C,D,L1)>=6 THEN G8=250
5090 G4=RND(G8/L1)+75: IF A=2 THEN G4=G4*2
5100 G=G+G4: GOSUB 400
5110 PRINT "YOU SEARCH THE AREA ...."
5120 GOSUB 400: PRINT "AND FIND ... ";G4;" GOLD PIECES"
5130 CA=CA+1: IF K=1 THEN RETURN
5140 IF L1=1 THEN 3140
5150 IF CA=K4 THEN 3060
5160 RETURN
5170 GOSUB 400: GOSUB 400
5180 GOSUB 5430
5190 PRINT "HALT .. I AM THE ANCIENT WIZARD"
5200 PRINT "I WILL NOT HARM YOU ......": GOSUB 400: GOSUB 400
5210 G4=RND(300)+100: G=G+G4
5220 PRINT "I GIVE YOU ... ";G4
5230 PRINT " GOLD PIECES....."
5240 PRINT "OUT OF GOOD WILL AND FRIENDSHIP"
5250 H4=RND(10/PL)+(6/PL): H1=H1+H4
5260 PRINT "ALSO, I WILL INCREASE ..."
5270 PRINT "YOUR 'HIT-POINTS' BY ...";H4
5280 GOSUB 400
5290 RETURN
5300 GOSUB 5430
5310 MS$="GIANT SPIDER": HP=6: HM=12
5320 PRINT "IT'S A HUGE MAN-SIZE CRAWLING"
5330 PRINT "....... SPIDER ...": GOSUB 400
5340 PRINT "..... AND ....."
5350 GOTO 4570
5360 GOSUB 5430
5370 MS$="DARK WIZARD": HP=8: HM=14: CLS
5380 PRINT "DO NOT PASS ......"
5390 PRINT "I AM THE ";MS$: GOSUB 400
5400 PRINT "AND I WILL HACK YOU TO PIECES."
5410 BB=2: GOSUB 410
5420 GOTO 4570
5430 CLS: PRINT "SUDDENLY .. SOMETHING JUMPS .."
5440 PRINT "IN FRONT OF YOU ........"
5450 BB=3: GOSUB 410: CLS
5460 RETURN
5470 GOSUB 400: PRINT "AS YOU LEAVE ...";
5480 PRINT "THE ";MS$;" ATTACKS ..": GOSUB 400
5490 GOSUB 400: PRINT "BUT ........ IT MISSES": BB=2: GOSUB 410
5500 RETURN
5510 BB=2: GOSUB 410: GOSUB 3520: DY=1: H1=HI
5520 PRINT "YOU HAVE ENTERED .. A ZONE"
5530 PRINT "BETWEEN .. LIFE AND DEATH"
5540 PRINT: BB=3: GOSUB 410
5550 PRINT "I .... THE ANCIENT WIZARD"
5560 PRINT "WILL RESTORE YOUR 'HIT-POINTS'"
5570 PRINT "....TO ";HI
5580 PRINT "AND .... YOU HAVE ONE MORE"
5590 PRINT "CHANCE IN THE DUNGEON"
5600 PRINT: MD=RND(15)*CA+10: H1=HI
5610 PRINT "YOU SHALL HAVE ";MD;" MOVES"
5620 PRINT "LEFT TO FIND YOUR WAY OUT"
5630 PRINT "OF THE DUNGEON OF DANGER"
5640 BB=9: GOSUB 410
5650 GOSUB 3510: GOTO 1060
5660 PRINT A$;","
5670 PRINT "YOU HAVE DEPLETED YOUR MOVES."
5680 GOTO 1690
5690 PRINT "ENTER DUFFICULTY LEVEL?"
5700 PRINT "1=MODERATE 2=DIFFICULT"
5710 INPUT PL: RETURN
5720 TL=0: BB=2: GOSUB 410
5730 PRINT "YOU REACTIVATED THE"
5740 PRINT "TELEPORTATTION TRAP"
5750 BB=2: GOSUB 410: GOSUB 3520
5760 PRINT "YOU END UP BACK IN THE AREA,"
5770 PRINT "WHERE YOU LAST TELEPORTED FROM": GOSUB 400
5780 BB=2: GOSUB 410: RETURN
5790 IF R<-400 THEN PRINT "INCOMPETENT SERF": RETURN
5800 IF R<-100 THEN PRINT "WEAKLING": RETURN
5810 IF R<0 THEN PRINT "APPRENTICE": RETURN
5820 IF R<100 THEN PRINT "HALFLING": RETURN
5830 IF R<200 THEN PRINT "FOOT SOLDIER": RETURN
5840 IF R<600 THEN PRINT "WARRIOR": RETURN
5850 IF R<900 THEN PRINT "GREAT WARRIOR": RETURN
5860 IF R<1500 THEN PRINT "SWORDSMAN": RETURN
5870 IF R<2500 THEN PRINT "MAGIC SWORDSMAN": RETURN
5880 IF R>=2500 THEN PRINT "DUNGEON MASTER": RETURN
5890 CLS: PRINT "YOU FALL INTO A DEEP .. DARK": GOSUB 400
5900 PRINT "... POOL .. OF MURKY WATER": BB=4: GOSUB 410
5910 W=RND(6): IF W>=5 THEN 5950
5920 IF W>=3 THEN 6030
5930 PRINT "IT IS WARM AND SOOTHING .. AND": BB=2: GOSUB 410
5940 PRINT "YOU CLIMB OUT, FEELING RELAXED": RETURN
5950 MS$="GILL MONSTER": HP=8: HM=14: CLS
5960 PRINT "THE WATER IS ... ICY COLD": BB=5: GOSUB 410
5970 PRINT "SUDDENLY YOU FEEL SOMETHING WARM"
5980 PRINT "... RUB AGAINST YOUR LEGS ....": BB=4: GOSUB 410
5990 PRINT "IT THEN SURFACES NEXT TO YOU..."
6000 PRINT "AND YOU SEE THAT IT IS A SLIMY."
6010 PRINT MS$;" .. READY TO ATTACK": BB=2: GOSUB 410
6020 PRINT "AS YOU CLIMB OUT ...": GOSUB 400: GOTO 4570
6030 PRINT "THE WATER IS STEAMING .... HOT": BB=3: GOSUB 410
6040 PRINT: PRINT "AS YOU QUICKLY JUMP OUT ...."
6050 G4=RND(500)+100: IF (G-G4)<0 THEN G4=G
6060 G=G-G4: PRINT "YOU DROP .. ";G4;" GOLD PIECES"
6070 PRINT "WHICH FALL INTO THE POOL .. LOST": BB=5: GOSUB 410: RETURN
6080 EN

.. HOT": BB=3: GOSUB 410
6040 PRINT: PRINT "AS YOU QUICKLY JUMP OUT ...."
6050 G4=RND(500)+100: IF (G-G4)<0 THEN G4=G
60                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &f
:ГSCEPTER OF KZIRGLA8:ГWRITTEN BY PAUL PENROSEg:Г(C) 1982 RAINBOW CONNECTION     SOFTWAREr(Бж1080¤2Х400:МDT$(20),AT$(10),IT(9),F(3),D(3):S│1024:IT(9)│1:IT(4)│1:IT(5)│1:TP$│"WARRIOR":P$│"V15O4T4L8F#":P1$│"V15O3L8CBC":P2$│"V15O4T3L8AB"Е<Ю:З@40,"WELCOME MORTAL","  TO THE WORLD OF KZIRGLA !!":З:З"BE THEE (W)ARRIOR OR (M)AGICIAN?":а200,1:Бж830:ЕA│77зTP│1:TP$│"MAGICIAN"·FHP│ Д(29):ST│30мHP:Ю:З:З"PLAY WITH THESE QUANTITIES(Y/N)? HIT POWER ...";HP," STRENGTH ....";ST:Бж830:ЕA$│"N"з70cPЗ:З"SKILL LEVEL 1-9 (1=EASY 9=HARD)?";:Бж830:SL│11м(Aм47):ЕSL┤1▒SL▓9зЗ"TRY AGAIN.":╔"XP1$;P2":Ю:Бе80ЖZST│STм Б((SLн.75)л.5):HP│HPм10ЬdАX│0е20:НDT$(X):Л;nЖ ZUBU,ILDOR,GREMLIN,DWARF,CRAWLER,LIZARD-MAN,BERSERKER,SKELETON,ZOMBIE,KCAHS-OIDAR,2CLUB,2DAGGER,2MACE,0AXE,0SWORD,1PENDANT,WALL,GOLD,SILVER,JEWEL,CARPETКxE$│"":АX│1е60:E$│E$л" ":Л:АX│0е10:AT$(X)│"":Л:АX│0е3:НD(X):Л:E1$│ О(E$,25)ЬВЖ 1,32,-1,-32╚МЮ(0):Бж760: Я│0:X│ Д(4)м1:IT(X)│IT(X)л1kЦБж620:З@0,"HIT POWER:";HP,"STRENGTH:";ST:TR│IT(6)лIT(7)н5лIT(8)н10:З@32,"SUB LEVEL:";DL,"TREASURE:";TR:З@64,E$:З@66,"COMMAND: ";:Бж850:ЕA│255зAK│1:Бе150:ДAK│0аЕA│9зNL│PLл1:ED│0:З"GO EAST":Бе180:ДЕA│8зNL│PLм1:ED│2:З"GO WEST":Бе180:ДЕA│10зNL│PLл32:ED│1:З"GO SOUTH":Бе180:ДЕA│94зNL│PLм32:ED│3:З"GO NORTH":Бе180:ДЕA│73з610dкЕA│65зЗ"ATTACK":Бе320:ДЕA│88з730:ДЕA│66зЗ"BRIBE":Бе950:ДЕA│70зЗ"FLY":Бе1000:Д150ы┤X│ Ж(SлNL):ЕX┤▓252 з190 :ДЗ"GOING DOWN TO LEVEL";DLл1:ТSлPL,128:╔"O2V15T3L230":АX│1е7:╔"CP8CP4V-V-":ЛX:Бж760:TC│ Ял598л60нSL:Бе150?╛ЕX│128▒X│239з╔"V15L255T255O3CT1O1":ТSлPL,128:OL│PL:PL│NL:╔"P8C":ТSлPL,174 :Д300Й╚ЕX┤▓239з270:ДЗ@96,"YOU HAVE FOUND ";:X│ Д(3):╔"T4P4":ИX Бе210,220,240╥З"A trap door";:ТPLлS,128:╔"V17L4O3T4":АX│1е4:╔"ECP8V-V-V-V-":ЛX:HP│HPм(20л Д(10)):ЕHP┤│0з730:ДT│PL:Бж760:ТSлPL,128:PL│T:ТSлPL,174:Бе150К▄З"POISONOUS GAS!":ST│STм(5л Д(5)):╔"V19T255L255O1":АX│0е50:╔"N"л И( Д(12))л"P"л И( Д(200)л2):Е Б(Xо5)│Xо5з╔"V-"бцЛX:ЕST┤│0з730:Д150ЎЁЗ"A TREASURE CHEST!":╔"L4T4P2":З@96,E$;:З@96,"IN THE CHEST YOU FIND:":АX│1е Д(5)s·X1│ Д(11)м1:ЕX1│6з250:ДЗ@128,E1$;:З@128,"A ";:ЕX1┤6зЗ Р(DT$(X1л10),2);:IT(X1)│IT(X1)л1:ДЗDT$(X1л10);:IT(X1м1)│IT(X1м1)л1Х
╔"XP$;P4":ЛX:З@128,E1$;:Бе150
АX│0е3:EV│ Ж(SлOLлD(X)):ЕEV┤182▒EV▓238 з290 :ДNL│OLлD(X)лD(ED):Е Ж(SлNL)│128 зТSлOLлD(X),128:╔"V15T4O1L40BAGFEDC":ТSлNL,EV :Д290m
АX1│1е10:Е Й(AT$(X1))│OLлD(X)зAT$(X1)│ И(NL)л Р(AT$(X1), Ю(AT$(X1),"@")) :ДЛX1z
"ЛX:Бе150о
,З"UGG, I RAN INTO A ";:ЕX│159▒X│143▒X┤128зX│198.
6ЗDT$(Xм182);:З"!!":╔"V15T3L4O1FL2C":З"WANT TO ATTACK IT (Y/N)?":A$│ Т:Бж830:З@96,E$:ЕA│89 зЗ@96,"";:AL│NL:Бж350:Бе370 :Д150N
@ER│0:Бж330:ЕER│1зБе150:Д360╙
JЗ"WHICH DIRECTION ?";:Бж830:ЕA│9зAL│PLл1:ED│0:З"EAST":Бе350:ДЕA│8зAL│PLм1:ED│2:З"WEST":Бе350:ДЕA│10зAL│PLл32:ED│1:З"SOUTH":Бе350&
TЕA│94зAL│PLм32:ED│3:З"NORTH" :Д З:З"WHAT?":╔"V15O2L8T4BAGFEDC":З@96,E$;:ER│1:Р8
^EV│ Ж(SлAL):РБ
hЕEV│128▒ EV│239зЗ@128,"NOTHING TO ATTACK!";:╔"XP$;P2":З@96,E$;:Бе150╡
rЗ"WITH WHAT? ";:Бж830:ЕA│72з M│1:З"HANDS":Бе4109
|АX│10е15:ЕA$│ Р(DT$(X),2,1) з ЕIT(Xм10)│0 зЗ@128,"YOU DON'T HAVE ONE!":╔"V15O1L2C":АX│0е250:ЛX:З@96,E$;:З@96,"";:Бе370 :Д :Д400╥
ЖX1│ Й( О(DT$(X),1)):ЕX1│TP ▒X1│2зM│1л(.25н(Xм9)):З Р(DT$(X),2);:Бе410 :ДЗ@128,"YOU CANT'T USE THAT!";:АX│0е5:╔"O4L8T3P8":Л:АX│0е250:Л:З@96,E$;:Бе150ч
РЛX:M│1:З"HANDS";7
ЪW│X:АX│0е250:Л:ЕW┤15▒M│1з465:ДЗ@128,"WHICH SPELL, 1 OR 2?":Бж830:ЕA│49 з450Э
дАX│AL е900н А(D(ED)) йD(ED):Е Ж(SлX)┤128▒ Ж(SлX)│143▒ Ж(SлX)▓239 з430 :ДТSлX,239:╔"L50T4O4V15B":Л╨
оЕX┤▓AL зX1│XмD(ED):АX│AL еX1 йD(ED):ТSлX,128:Л B
╕Е Д(100)┤50лSL з580 :ДЗ@128,"THE PENDANT BURNED OUT!":╔"V15L255O3":АX│1е15:╔"CCDEFCBV-":Л:IT(5)│IT(5)м1:Бе580 Я
┬АX2│0е3:EV│ Ж(SлPLлD(X2)):ЕEV┤129▒EV│252▒EV│143▒EV│239 з :ДAL│PLлD(X2):Бж520:АX1│0е250:Л л
╠Л:Бе440 ╗
╤ЕM│2.25зM│3!X
╓З@128,"I ATTACK AND I ";:╔"O4V15L255":АX1│1е15:╔"CV-":Л:╔"V15":ES│ Б(((EVм181)нDLлDLп2)о2)л Д(10):EP│SLн(4м39о9)л39о9:ЕEV│159▒EV│143▒EV┤128зEP│150:ES│50!Ь
рАX│0е10:Е Й(AT$(X))│AL зEP│ Й( Р(AT$(X), Ю(AT$(X),"@")л1)) :ДЛX!є
ъЕ Д(100)┤100н(STоES) зЗ"HIT!":Бж930:EP│EPмSTнM:ЕM│1з510 :Д :Д З"MISS!":Бж940:Бе580"r
ЇЕ Д(10лSL)│1 зЗ@128,"OOPS, MY "; Р(DT$(W),2);" JUST BROKE!":╔"V15O3L255":АX│1е15:╔"EDCV-":Л:IT(Wм10)│IT(Wм10)м1:АX│0е500:Л"Ы
■ЕEP▓0▒EV│143▒EV┤129з590:ДБж520:Бе580"▄З@96,E$;:З@96,"ANOTHER ";:ЕEV│159 зЗ"WALL"; :Д ЗDT$(EVм182);#ЛЗ" BITES THE","DUST!!":╔"V30O3T255L255":АX│1е15:ТSлAL,128л16н( Д(8)м1)л6:X$│"N"л И( Д(12))л"V-":╔X$:ТSлAL,128л16н( Д(8)м1)л9:X$│"N"л И( Д(12))л"V-":╔X$:Л:ТSлAL,128:Бж1030$-ЕEV│159 зР:ДHP│HPл Д((EVм181)н2)лEVм181лSL:З@96,"ON THE BODY I FOUND:":Е Д(EVм181)м1│0 зЗ"NOTHING.":╔"V15O1T3L4C":Р :Д З"A ";:TG│ Д(EVм181):ЕTG▓6 зTG│7м Д(3)$й&З Р(DT$(TGл9),2):IT(TGм1)│IT(TGм1)л1:╔P$:АX│1е3:Е Д(EVм181)┤Xн2 зР :Д AM│ Д(EVм(181лX)):АX1│0е500:Л:З@128,AM;DT$(Xл16);$╠0З"  "; Л(8); Л(8);:ЕAM▓1 зЗ"S"$ы:╔P$:IT(Xл5)│IT(Xл5)лAM:Л:Р%	DАX│0е250:Л:З@96,E$;:Бе150%`NЕEV│143▒EV┤128з580 :ДАX│0е10:Е Й(AT$(X))│AL з600:ДЛX:АX│0е10:ЕAT$(X)│"" з :ДЛX:X│0%ГXAT$(X)│ И(AL)л"@"л И(EP):Бе580&&bЗ@0,E$;E$;:З@0,"";:АX│10е15:A$│ Р(DT$(X),2):ЗA$;":"; б(7м З(A$),32);IT(Xм10),:Л:АX│17е20:ЗDT$(X);":"; б(7м З(DT$(X)),32);IT(Xм11),:Л:Бж830:З@0,E$;E$;E$;:Бе150&7lNM│300лSLн30&hvЕ Д(NM)▓DLн3зЕAK│1з680 :ДР :ДАX│0е3:F(X)│0:Л&УАDR│ Д(4)м1:ЕF(0)лF(1)лF(2)лF(3)│4 з680&╟КЕ Ж(SлPLлD(DR))┤▓128зF(DR)│1:Бе640:ДEL│PLлD(DR)&ёФEV│ Д( Б(DLо1.2л1.8)):ЕEV▓10 зEV│EVм3'ЮТSлEL,EVл181:AK│1:NM│ Б(NMн.666):Бе 630'JиAF│0:АX│0е3:EV│ Ж(SлPLлD(X)):ЕEV┤182з720'j▓ЕEV│252▒EV│239з720:ДAF│AFл1("╝З@96,"A ";DT$(EVм182);" IS ATTACKING!":╔"V15O3L255T1":АX1│1е15:╔"CV-":Л:╔"T3P2":З@96,"AND IT ";:ES│ Б(((EVм181)нDLл Д(DLн2))о3)л1:Е Д(100)┤100н(ESоST)л10з :ДЗ"MISSED!":Бж940:Бе720(X╞З"HITS!":Бж930:HP│HPмES:Е HP┤1 з730 :ДАX1│0е250:Л(~╨Л:З@96,E$;:AK│0:TC│ Ял598л60нSL:Р(▄┌Ю:З:З"WE MOURN THE PASSING OF YET ONE","MORE BRAVE ";:Е TP│0з З"WARRIOR." :Д З"MAGICIAN.")ф╔ "V15O2T3L4GL8.GL16GL4GL8.B-L16AL8.AL16GL8.GL16F#L2G":Бж900)[юЗ:З"DO YOU DARE TRY AGAIN (Y/N)? ";:Бж830:ЕA$│"Y"зО50 :ДК)ж°АX3│0е10:A$(X)│"":Л:DL│DLл1:ЕDL│13з860:ДHP│HPл10:ST│STл Б((SLн.75)л.5))№Ю0:АX│480е511:ТSлX,143:Л:АX│192е448й32:ТSлX,143:ТXлSл31,143:Л:АX│0е191:ТSлX,143:Л*
АX│1е50лDLн5*?X1│ Д(325)л193:Е Ж(SлX1)│128зТSлX1,159:Л:Д790*w АX│1е5л Д(5):X1│ Д(325)л193:Е Ж(SлX1)│128зТSлX1,239*╬*Л:X│ Д(9)н32л191:ТSлX,252:ТSлXм1,128:ТSлXм2,128:З@484,TP$;"    SKILL LEVEL";10мSL;+4PL│ Д(9)н32л160:ЕPL│Xл1з820:ДТSлPL,174:ТSлPLл1,128:ТSлPLл2,128:Р+A>A$│ Т:R│ Д(99):ЕA$│""з830:ДA│ К(A$):╔P$:Р+╪HA$│ Т:ЕA$┤▓""зA│ К(A$):Р:ДA│ Ж(339):ЕA│253зA│73:Р:ДЕA│254зA│65:Р:ДЕ Ж(341)│247зA│94:Р:ДЕ Ж(342)│247зA│10:Р:ДЕ Ж(343)│247зA│8:Р:ДЕ Ж(344)│247зA│9:Р,#RЕ Я▓TC зTC│ Ял598л60нSL:A│255:Р :ДЕ Я▓60000 зTM│TMл Я: Я│0:Бе840 :Д840,║\Ю:З"   **  Y O U   D I D   I T  **":╚2:┴0,5:╝5:╔"V15O3L16T4":АX1│1е8:┐0,0:╝5:A$│"BM128,96S"л И(X1)л"BM+0,+"л И( Б((X1о4)н45)):╝5:╞A$:B$│"N"л И(X1)-Lf╞"L2H2U2R8D2G2L2BR2BU4NU60L4U60BF2H14E14F14G14U8H6NL8E6NU8F6NR8G6BU4U2NU2NL2NR2BD16BL2":АX│1е7:╞"F4G4":Л:АL│0е150:ЛL:┐1,1:╔B$:АL│0е200:ЛL:ЛX1-Нp╔"O5L50":АX│1е10:┐1,1:╔"C":АL│0е50:ЛL:┐1,0:╔"F":АL│0е50:ЛL,X.zЗ:З"YOU HAVE RECOVERED THE POWERFUL SCEPTER AND TAKEN THE KINGDOM","BACK FROM THE EVIL MAGICIAN!!":З:З" all HAIL THE KING!":Бж900:Бе750.FДЗ:З:З"PRESS ANY KEY TO CONTINUE":Бж830:Ю.їОЗ@71,"FINAL INVENTORY":АX│10е15:A$│ Р(DT$(X),2):ЗA$;":"; б(7м З(A$),32);IT(Xм10),:Л:АX│17е20:ЗDT$(X);":"; б(7м З(DT$(X)),32);IT(Xм11),:Л:З:З"HIT POWER:"HP,"STRENGTH:"ST:З/╡ШTM│TMл Я:З"YOUR GAME LASTED:":A│ Б(TMо5168168):TM│TMм5168168нA:ЗA;"DAYS,";:A│ Б(TMо215340):TM│TMмAн215340:ЗA;"HOURS,":A│ Б(TMо3589):TM│TMмAн3589:ЗA;"MINUTES,";:A│ Б(TMо59.8):ЗA"SECONDS":Р/╒вАX1│1е5:╔"V15L16O3T4CF":Л:Р/■м╔"V15T4L16O4":АX1│1е3:╔"O-EDCP8":Л:Р0ж╢ER│0:Бж330:ЕER│1з150:ДЕEV│128▒EV│159▒EV│143▒EV▓200зЗ"NOTHING TO BRIBE!":╔"XP2$;P2":З@96,E$;:Бе150:ДEV│EVм181:Е Д(120)┤EVн10зЗ"NO WAY, SUCKER!":Бж940:З@96,E$;:Бе1501Q└АX1│0е250:Л:З@96,E$;:З@96,"";:Й"HOW MUCH DO YOU OFFER";OF:З@96,E$;:З@96,"THE ";DT$(EVм1);" SAYS:":ЕOF┤ Д(EVн10)л5зЗ"FORGET IT!":╔"XP1$;P2":Бе150:ДЗ"I'LL TAKE IT!":╔P$1у╩ЕIT(8)н10лIT(7)н5лIT(6)┤OF зЗ@96,E$;:З@96,"BUT I DON'T HAVE THAT MUCH!":╔"XP1$;P2":Бе960:ДАX1│2е1йм1:X2│ Б(OFоX1н5):ЕIT(X1л6)┤X2 зX2│IT(X1л6)2╘IT(X1л6)│IT(X1л6)мX2:OF│OFмX2нX1н5:Л:IT(6)│IT(6)мOF2K▐АX1│0е250:Л:З@96,E$;:ТALлS,128:Бж1030:Бе1502ЩшOV│128:ЕIT(9)│0зЗ@96,"HOW? I DON'T HAVE WINGS!":╔"XP1$;P2":З@96,E$;:Бе1502°ЄЕTP│1зER│0:З@96,E$;:З@96,"";:Бж330:ЕER│1зIT(9)│IT(9)м1:Бе150:Д :ДЕ Д(99)┤50зED│0:ДED│ Д(3)3┤№A$│ Т:ЕA$┤▓""зТPLлS,174:ЕTP│1з1010:ДЗ@96,E$;:IT(9)│IT(9)м1:Бе150:ДТPLлS,175:NL│PLлD(ED):X│ Ж(NLлS):ЕX│159▒X│143▒X▓239▒X┤128зТPLлS,174:Бе1010:Д╔"O1T16L255EC":ТPLлS,OV:OV│X:PL│NL:Бе10203хАX3│0е10:Е Й(AT$(X3))│AL зAT$(X3)│"":Р :ДЛ:Р4#Е Т┤▓""зР:ДA1$│"T1O1V12L4BBF#BB":A$│"T8L8O2EF#GB-GB-F#B-"4ИB$│"EB-EB-GAB-O3C#O2B-O3C#O2AO3C#O2GO3C#O2GO3C#O2A#BV+O3CECV+EO2BO3EO2A#V+O3EO2A#O3EO2A#V+O3EO2"4╬$C$│"BO3EO2BV+O3EO2BO3EO2BO3D#O2V+BO3D#O2BO3D#":D$│"O1V+L4T1EECEE"4ў.╔A1$:АX│1е3:╔"XA$;XB$;XC$;":ЛX:╔D$:Р5ж8╚2:┴0,5:╝5:┐1,1:B$│"BR6BU7":АX│1е2:A$│"BM"л И(Xн2л8)л","л И(Xл9)л"S8":A1$│"BD1D1F1R3F1D2G1L3H1BU5E1R3F1BD6":A2$│"BD1D5F1R3E1U1BU3U1H1L3G1BD6BR5":╞"XA$;XA1$;XB$;XA2$;XB$;"6]B╞"NR5D3NR4D4R5XB$;ND7R4F1D2G1L4BD3BR5XB$;R4L2D7BR3XB$;":A3$│"BD1D5F1R3E1U5H1L3G1BD6BR5":A4$│"ND7R4F1D1G1NL4F1D3":╞"NR5D3NR4D4R5XB$;XA4$;XB$;":Л:╞"S5BM90,34XA3$;XB$;NR5D3NR3D4BR5"7LАX│1е2:A$│"S8BM"л И(58лXн2)л","л И(49лX):╞"XA$;D7U4R3E2NU1G2F2D2XB$;R5D1G5D1R5XB$;R4L2D7L2R4BR1XB$;XA4$;XB$;BD1D5F1R3E1U2NL2BU2U1H1L3G1BD6BR5XB$;D7R5XB$;BD1D6U4NR5U2E1R3F1D6":Л7┌VB$│"BR4BU7":╞"S4BM0,180NR3D7R3BR2XB$;XA2$;XB$;BR2R3D7NL3BR5XB$;BR6R2D7NL2R2BR1XB$;BD3BR1H1U1E1R3D3NL3D2G2L1BR4XB$;R5D3L5NU3D4R5NU4BR1XB$;BD1U1R5D3L5D4R5XB$;BR6BD3R3BR11BU3XA4$;XB$;XA2$;XB$;XA1$;"8e`АX│6е1йм1:┬(128,170),38лXн12,,.8,.5,0:Л:╗(18,170)м(80,170),╜:╗(178,170)м(238,170),╜:├(128,84),0,0:├(128,105),0,0:├(128,126),0,0:Бе1040;BD3BR1H1U1E1R3D3NL3D2G2L1BR4XB$;R5D3L5NU3D4R5NU4BR1XB$;BD1U1R5D3L5D4R5XB$;BR6BD3R3BR11BU3XA4$;XB$;XA2$;XB$;XA1$;"8e`АX│6е1йм1:┬(128,170),38лXн12,,.8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 └ 
В "WITCH" PUZZLE ADVENTURE&В,В2
Ю:L│2EБе 560K(Зc2З "I AM ON": ЗL$(L)З<З "AND AM CARRYING:";:X│0:Бж510дFЗ "ICAN SEE:";:X│L:Бж510╗PЗ:Й "WHAT NEXT";A$╦ZЕ A$│""з 40╒dV$│""ьnJ│ З(A$):А I│1 е J
xЕ  О(A$,1)│"" з Бж500:Бе 150ВБж490МЛ I4ЦЕ V$│"GET" з 200JаЕ V$│"DROP" з 300`кЕ V$│"CHOP" з 370t┤Е V$│"GO" з 400Ч╛З "I DO NOT UNDERSTAND.":Бе 40Я╚X│0н╥А B│1 е 9╙▄Е BL(B)│L ░ A$│B$(B) зX│B:BL(B)│0█цЛ BЁЕ X│0 з З "IT IS NOT HERE.":Бе40<·Е X│5 ░ BL(6)│4 з BL(5)│4:З "THE WITCH STOPS ME.":Бе 40l
Е (X│1) ▒ (X│9) з З"DON'T BE SILLY":BL(X)│Lл
Е X│4 ░ L│2 ░ BL(3)┤0 TTHEN BL(3)│2:З "$$$ I SEE GOLD $$$"╗
Е X┤▓5 з 40ь
"З "CONGRATULATIONS. YOU WON THE PRINCESS!":КЇ
,X│0
6А B│1е9&
@Е BL(B)│0 ░ A$│B$(B) зX│B:BL(B)│L.
JЛ BQ
TЕ X│2 ░ L│2 з BL(2)│м1:BL(8)│2r
^Е X│0 з З "I DO NOT HAVE IT"|
hБе 40═
rЕ A$│"TREE" ░ L│1 ░ BL(7)│0 ░ BL(1)│1 з З "TIMBERRRR!":BL(1)│м1:BL(2)│1:Бе40Ї
|Е A$│"TREE" з З "WITH WHAT?":Бе 40 
ЖБе 190
РЕ A$│"NORTH" з X│0:Бе 470;
ЪЕ A$│"SOUTH" з X│1:Бе 470Y
дЕ A$│"EAST" з X│2: Бе 470v
оЕ A$│"WEST" з X│3:Бе 470б
╕Е L│2 ░ A$│"LOG" ░ BL(8)│2 з L│3:Бе 40╚
┬Е L│3 ░ A$│"SHORE" з L│4:LL(L,X)│4"
╠Е L│4░ BL(3)│0 з BL(3)│м1:BL(6)│м1:З "THE WITCH TOOK THE GOLD AND RAN!":Бе 40        H
╓Е LL(L,X)┤0 з ЗN$(мLL(L,X)):Бе 40\
рL│LL(L,X):Бе 40o
ъV$│V$л О(A$,1)Й
ЇA$│ П(A$, З(A$)м1): РЧ
■А B│1 е 9▒Е BL(B)│X з З"";B$(B)╣Л B┐З┼&Ръ0МL$(4),LL(4,3),B$(9),BL(9),N$(2):Ж THE EDGE OF A FOREST,THE NORTH EDGE OF A LAKEJDЖ A LOG WHICH I PADDLED ACROSS THE LAKEiNЖ THE SOUTH SIDE OF A LAKEЬXЖ-2,2,-2,-2,1,-1,-2,-2,-1,-1,-1,-1,-1,-2,-2,-2╟bЖ TREE,LOG,GOLD,ROCK,PRINCESS,WITCH,AXфlЖ LOG IN THE WATER,SHORE vЖ 1,-1,-1,2,4,4,0,-1,3-АЖ I CANNOT SWIM,THERE IS NOTHING THAT WAYEКА I│1 е 4:НL$(I):ЛIiФА I│1е4:А J│0е3:Н LL(I,J):Л J,IВЮА I│1 е 9:Н B$(I):ЛIЫиА I│1 е 9:Н BL(I):ЛI▓▓А I│1е2:НN$(I):Л I╝╝Бе 40WITCH,AX,фlЖ LOG IN THE WATER,SHORE, vЖ 1,-1,-1,2,4,4,0,-1,3                                                                                                                                                                                                                                                                 ╠&Ю&Q
Й "TYPE(1)FOR INTEREST  (2)FOR PRINCIPLE  (3)FOR RATE  (4)FOR TIME";A&pИ A Бж 1000,2000,3000,4000&ЖЕ A ▓4 ▒ A┤1 з 30&М#Ю&п(З "YOUR INTEREST WILL BE" I"$"&╡)З&╟*З "THANK YOU"&═+К&ё-З "YOUR PRINCIPLE WILL BE";P"$"&ў.З'	/З "THANK YOU"'0К'22З "YOUR RATE OF INTEREST IS";R'93З 'K4З "THANK YOU"'Q7К'~<З "YOUR NUMBER OF PAYMENTS WILL BE";Tн12'Е=З 'Ч>З "THANK YOU"'ЭAК'╟шЙ "PRINCIPLE";P:Й "RATE";R:Й "TIME";T'╙ЄI│PнRнT'┘№Ю'тБе40(╨Й"INTEREST";I:Й"RATE";R:Й"TIME";T(┌X│RнT(фP│IоX("юЮ(,°Бе 45(X╕Й"INTEREST";I:Й"PRINCIPLE";P:Й "TIME";T(b┬X│PнT(l╠R│IоX(r╓Ю(|рБе 50(заЙ"INTEREST";I:Й"PRINCIPLE";P:Й"RATE";R(▒кX│PнR(╗┤T│IоX(┴╛Ю(╦╚Бе 60PнRнT'┘№Ю'тБе40(╨Й"INTEREST";I:Й"RATE";R:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                NOW                                     IS                                      THE                                     TIME                                    FOR                                     ALL                                     GOOD                                    MEN                                     TOI                                     TIMMY'S DILEMMA                         PAM HANSHAW                             TIM'S LOVE FOR GIRLS                    THEIR                                   COUNTRY                                 O.K                                                                                                                                             FOR GIRLS                    THEIR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            &	
└ 1&О"MIDWAY"r■■■■■■■■     ∙xP`x(hh°y9y99yh°ЗЗЗЗП¤=╜=}m=№№ь¤х№|№№ЛГГГГГ








    ¤  ▀▀     ¤ 







;o               °80°°Ё°°°°x°°°°°ОЗ╟ЗЖЖЖЗ╟Ж╞GG¤№||Ї№№||№№№№ь|№SВВ┬В┬RГГГГ├CCCА■■■■■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \И&
:ГMIDWAY CC VERSION 32 (1/31/83)/X│ У┼Е X┤2000зЮ:а50,2:З@96,"INSUFFICIENT MEMORY TO RUN!!!":З:З"USE THE COMMAND:":З"  PCLEAR 1":З"TO RECOVER MORE MEMORY!":З:З"THEN ENTER RUN AGAIN!":К╧Х1000я	Ю0:МN$(7),P$(5),T$(6),S$(4)
М F(6,7),C(7,9),S(9,9),W(5),LL(3)!Бж250002Ю4:Бж26000:ЗXЗ д5);"** MIDWAY CAMPAIGN **":З:ЗvЗ д7);"COPYRIGHT 1983 BY"лЗ д10);"AVALON HILL":З д6);"MICROCOMPUTER GAMES"│З:З┘З " COLOR COMPUTER ADAPTATION BY"ёЗ д9);"CHUCK BRITE"∙З:З3"З"  -- ENTER YOUR LAST NAME --":╗Й"       NAME: ";AA$Э#Ю:Бж26000:З@34,"ENTER LEVEL OF DIFFICULTY:":З@102,"1. BASIC.":З@134,"2. ADVANCED.":З@166,"3. EXPERT."╗$З:З"  ENTER 1, 2 OR 3: ";%З@290,"BASIC-----JAPANESE VISIBLE.":З"  ADVANCED--JAPANESE SPOTTED ON":З@364,"RANDOM BASIS.":З"  EXPERT----RANDOM SPOTTING +":З@428,"INCREASED JAPANESE":З@460,"SEARCH ABILITY.":З@243, Л(191);У&A$│ Т:ЕA$│""з38┤'DF│ Й(A$):ЕDF┤▓2░DF┤▓3 зDF│1°(Ю0:Бж26000:З@258," RUNNING DIFFICULTY LEVEL";DF;:J9│0:V0│0:V1│02P1│.0175088:T│720:D│3M<N$(0)│"AKAGI":N$(1)│"KAGA":N$(2)│"SORYU":N$(3)│"HIRYU"У=N$(4)│"ENTERPRISE":N$(5)│"HORNET":N$(6)│"YORKTOWN":N$(7)│"MIDWAY"п>M$│"JC67":M$│M$л Л(207)ф?T$(0)│"CV'S":T$(1)│"TRANSPORTS":T$(2)│"CRUISERS"1@T$(3)│"TF-16":T$(4)│"TF-17":T$(5)│"MIDWAY":T$(6)│"CARRIER GROUP ESCORTS"_AP$(0)│"F4F'S":P$(1)│"ZEKES":P$(2)│"SBD'S"МBP$(3)│"VALS":P$(4)│"TBD'S":P$(5)│"KATES"╘CS$(0)│"NONE":S$(1)│"LGT":S$(2)│"HVY":S$(3)│"sunk":S$(4)│"destroyed"єPАI│0е5:АJ│2е7:Н F(I,J):Л:ЛZАI│0е5:Н J,K,L:Бж 10000:Л=dАI│0е7:АJ│0е3:НC(I,J):Л:АJ│4е8:C(I,J)│0EeЛ:ЛYiАI│0е5:Н W(I):ЛokАI│1е3:LL(I)│м1:ЛдnЖ0,1,0,25,.1,.02,0,1,0,18,.2,.01,0,1,0,25,.1,.01┘xЖ0,3,0,25,.1,.06,0,4,0,25,.1,.04,2,5,0,0,.25,.04ВЖ270,90,525,230,60,560,230,60,560,25,20,380,25,20,380ГЖ0,0,0OМЖ0,21,21,21,0,30,23,30,0,21,21,21,0,21,21,21АНЖ3,27,38,14,3,27,35,15,4,25,37,13,5,14,14,10ЫЦЖ1.5,1.4,1.3,1.3,1.2,1┬аАI│0е9:S(I,9)│м1:Л:S6│.041:S7│.043╤╚Ю1:Бж26000▐╔Бж 12100ю╩А I│11е0йм1═O$│ б(24, Л(175))7╥АJ│0е5:Е( Б(F(J,1)о100)┤▓I)▒(F(J,2)│0░J┤3)з250N╫K│ Б(F(J,0)о100)л1c▄ЕK┤1 ▒ K▓12 з250П▌K│2нKм1:Е Р(O$,K,1)│ Л(175)з240:Д K│Kл1▓цЕ Р(O$,K,1)│ Л(175)з240:ДK│Kм2рЁO$│ О(O$,Kм1)л Р(M$,F(J,3),1)л П(O$,24мK)ц·Л
Е I│11 зЗO$;"   "; Р(A$,3,2); Р(A$,7,2);:Бе290J
	ЕI│10 зЗO$;" 6/";:З ═ "#";D;:З "/42";:Бе 290i
ЕI│8зЗO$;"  TF-16";:Бе 290а
ЕI│7зЗO$;" CRS";:З ═ "###"; Б(F(3,4)оP1л.5);:Бе290┐
ЕI│5зЗO$;"  TF-17";:Бе 290Ў
ЕI│4зЗO$;" CRS";:З ═ "###"; Б(F(4,4)оP1л.5);:Бе290
ЕI│2зЗO$;"   0";:Бе290/
ЕI│1зЗO$;"270*090";:Бе290K
 ЕI│0зЗO$;"  180";:Бе290T
!ЗO$;m
"Бж27400:З:Л:Бж 10100y
'MM$│"Y"╗
,CC│0:Бж26000:З"FLEET COMMAND? (T,S,A,R,M,0,#)"; Л(191);:A$│ Т╨
-A$│ Т:ЕA$│""з301ю
.ЕCC│1░(A$┤▓"M"▒A$┤▓"S")зЮ√
/X│ Й(A$)]
0Е X│6▒X│7▒X▓9 за200,2:Ю:З"INPUT OF 6 OR 7 FOR FLEET":З"COMMANDS NOT ALLOWED!":З:MM$│"N":Бе300}
6X│ К(A$):ЕX▓│48░X┤│57з 1210Н
8A$│ О(A$,1)Ю
9ЕA$│"T" з400к
:MM$│"N"║
;ЕA$│"C"з340╠
=ЕA$│"R"з14000▐
AЕA$│"S" з 500ю
JЕA$│"M"з200 
MЕA$│"A"з Ю8:Бе600 
NЕA$│"Q"з7000:Да150,1 l
TMM$│"N":Ю0:Бж26030:З@70,"LEGAL FLEET COMMANDS";:З@128," C-REVIEW COMMANDS" З
UЗ" T-CHANGE TF COURSE" г
VЗ" S-GET STATUS REPORT" ╖
WЗ" M-PRINT MAP" є
XЗ" A-AIRCRAFT COMMANDS":З" R-CALCULATE RANGE TO TARGET"!
YЗ" Q-ABORT GAME, GET SCORE"!7
ZЗ" 0-EXECUTE ONE TACTICAL TURN"![
[З" 1-9 PROCEED THAT MANY HOURS"!М
\З @456,"FLEET COMMAND? "; Л(191);:CC│1:Бе301!Ш
РБж26010!▒
СЕMM$│"Y" зБж450 :ДЮ6!▀
ТЗ"WHICH TASK FORCE? (6,7 OR F) "; Л(191);!Ў
УII$│ Т:ЕII$│""з403"
ФЕII$│"6"з I│3:Бе409"&
ХЕII$│"7"з I│4:Бе409"9
ЦЕII$┤▓"F" з408"]
ЧЕMM$│"Y" зБж450:Бе300:ДЮ6:Бе300"Ч
Ша50,5:З:З"ENTER 6,7 OR F TO EXIT!";:X│3:Бж13100:Бе400"╕
ЩЕMM$│"Y"зЗ@413,II$:ДЗ@29,II$#
ЪБж26200:З"NEW COURSE FOR ";T$(I);:ЙJ:ЕJ┤0▒J▓360за50,5:З"BAD COURSE!":X│2:Бж13100:Бе401##
ЫF(I,4)│JнP1#T
ЯJ$│ И(J):ЕJ┤100зJ$│"0"л Р(J$,2):ДJ$│ Р(J$,2)#h
аЕJ┤10зJ$│"0"лJ$#{
бЕJ│0 зJ$│"000"#м
дБж26020:ЗT$(I);" TURNING TO COURSE ";J$;".";#╔
оЕI│3 ░MM$│"Y" зЗ@156,J$;#ч
│ЕI│4 ░ MM$│"Y" зЗ@252,J$;#¤
╕X│2:Бж13100:Бе400$1
┬АZZ│1е4:З@352лZZн32, б(31," ");:ЛZZ:З@384,"";:Р$I
ЇБж26000:Ю6:Бж 12100$g
їЗ "STATUS REPORT AS OF ";$Д
ЎЗ  Р(A$,3,2); Р(A$,7,2);$г
∙З " 6/";:З ═"#";D;:З "/42"$╦
■З "    CAP    ARMED    BELOW DECKS"$єЗ "--- --- ----------- -----------"%З "CV  F4F F4F SBD TBD F4F SBD TBD"%8А I│4е7:З ═ "% %";N$(I);%aЗ ═"####";C(I,7);:З ═ "####";C(I,4);%нЗ ═ "####";C(I,5)л1000н(C(I,5)▓│1000);C(I,6);:З ═ "####";C(I,1);C(I,2);%─&З ═ "####";C(I,3);%═:З :Л%с<АI│4е7:З N$(I);%·=X│I:Бж 12800:З д11);&>Е S1│0зЗ"NO DAMAGE";:Бе 577&=?ЕS1┤3зЗS$(S1);" DAMAGE";:Бе577&W@ЕI┤7зЗS$(3);:ДЗS$(4);&НAЕ F(C(I,0),2)│2 ░ I┤▓7 ░ S1┤3 з З д23);"spotted";&ЩBЗ " ":Л&║CБж10100:ЕL│0зЗ"NO CONTACTS."&┼DБе 300&ўXЮ2:CC│0:Бж26000:З"       AIRCRAFT OPERATIONS"'-YA$│"":З "CARRIER? (OR F TO EXIT) "; Л(191);:A$│ Т'HZA$│"":A$│ Т:ЕA$│""з602'b\ЕA$│"F"зЮ:A$│ Т:Бе300'r_ЕA$│"C"з650'В`ЕA$│"S"з500'└bI│ К(A$):I│м4н(I│69)м5н(I│72)м6н(I│89)м7н(I│77):ЕI┤▓0з614'╠cЕCC│1зЮ'№dЮ0:а50,2:З@66,"LEGAL RESPONSES TO CARRIER";(ЪeЗ@160," E - ENTERPRISE":З" H - HORNET":З " Y - YORKTOWN":З" M - MIDWAY ISLAND":З" S - GET STATUS REPORT":З" F - RETURN TO FLEET COMMANDS":З@419,"";:Бе601(╜fX│I:Бж12800:ЕS1┤2з618:ДЗN$(I);)gЕS1│2зЗ" HEAVILY DAMAGED--":З"  AIR OPERATIONS IMPOSSIBLE!":Бе1140)3hЕI│7зЗ" AIRFIELD DESTROYED!":ДЗ" IS SUNK!")>iБе1140)ljЕI┤7 зX$│"USS "лN$(I):ДX$│N$(7)л" ISLAND")ХkZZ│ З(X$):Ю8:Бж26010:Зд(32мZZ)о2);X$)╚lA$│"":Й"AIRCRAFT COMMAND (OR F)";A$:ЕA$│""з600)▄mЕA$│"F"зЮ:Бе300)¤nЕCC│1зЮ8:ЗN$(I):Бж26000:CC│0*
oЕA$│"C"з650*pЕA$│"S"з500*.qЕA$│"AA"з700*<tA$│A$л" "*YvA$│ О(A$,2):ЕA$│"CA"з900*jwЕA$│"CL"з800*{АЕA$│"A "з700*НВЕA$│"L "з1000*ШЙа 50,2*┐КЮ0:З@37,"LEGAL AIRCRAFT COMMANDS";*▐МЗ@96," CA -- ALLOCATE CAP"+НЗ" A  -- ARM INDIVIDUAL AIRCRAFT"+#ОЗ" AA -- ARM ALL AIRCRAFT"+CПЗ" CL -- CLEAR DECK/RUNWAY"+_РЗ" L  -- LAUNCH STRIKE"+вСЗ" C  -- REVIEW AIRCRAFT COMMANDS":З" S  -- GET STATUS REPORT"+╔ТЗ" F  -- RETURN TO FLEET COMMANDS"+ УЗ "<ENTER> - SELECT CARRIER":З@419,"";:CC│1:Бе620,╝ЕC(I,4)лC(I,5)лC(I,6)│0з725,E╨З "STRIKE ALREADY ARMING.":Бе1140,Г╒ЕC(I,1)лC(I,2)лC(I,3)│0зЗ"NO AIRCRAFT AVAILABLE!!":Бе1140,Ф╓ЕA$│"AA"з782,╖┌З"NUMBER OF AIRCRAFT TO SPOT:",╚█Й " F4F'S";J,┘▌Й " SBD'S";K,ъ▐Й " TBD'S";L-▀J│мJн(J▓0):K│мKн(K▓0):L│мLн(L▓0)-&фЕJ▓C(I,1)зJ│C(I,1)-=хЕK▓C(I,2)зK│C(I,2)-TцЕL▓C(I,3)зL│C(I,3)-qюC(I,1)│C(I,1)мJ:C(I,4)│J-м°C(I,2)│C(I,2)мK:C(I,5)│Kл1000:C(I,3)│C(I,3)мL:C(I,6)│L-╙ЕA$┤▓"AA"зЗN$(I);" STRIKE ARMING."-цБж26040:Бе1150.-З"ARMING ALL ";N$(I);" AIRCRAFT.":J│C(I,1):K│C(I,2):L│C(I,3):Бе750.f ЕC(I,4)лC(I,5)лC(I,6)│0зЗ"NO AIRCRAFT ARMED!":Бе1140.о%ЕI┤7зЗ "AIRCRAFT BEING STRUCK BELOW";:ДЗ"AIRCRAFT BEING DISPERSED";.╜*А ZZ│1е250.ф+Е ZZ│60▒ZZ│120▒ZZ│180за240,1:З".";.ы/Л /<4Бж10200:Бж26200:З:ЗN$(I);:ЕI┤▓7зЗ" DECKS NOW CLEAR.":ДЗ" RUNWAYS NOW CLEAR."/G5Бе1150/iДC(I,1)│C(I,1)лC(I,7):C(I,7)│0/ЯЙЕC(I,1)лC(I,4)│0зЗ"NO AIRCRAFT AVAILABLE!":Бе1140/╦ОЙ"NUMBER OF 4F4'S FOR CAP";J:J│мJн(J▓0)/▌УЕJ▓C(I,1)з9300ШC(I,7)│J:C(I,1)│C(I,1)мJ:Бе9600&вC(I,7)│C(I,1):C(I,1)│0:J│JмC(I,7)0XмC(I,7)│C(I,7)мJн(J┤C(I,4))мC(I,4)н(J▓│C(I,4))0y╢C(I,4)│(JмC(I,4))н(C(I,4)▓J)0╜└Бж26000:ЕI┤6зБе965:ДЗ"NOW";C(I,7);N$(I);" F4F'S ON CAP.":Бе11501<┼З:З"TF-16 CAP NOW NUMBERS";C(4,7)лC(5,7);"F4F'S.":З" ";C(4,7);д5);"FROM ENTERPRISE.":З" ";C(5,7);д5);"FROM HORNET.":Бе11501bшЕC(I,5)лC(I,6)▓0░C(I,5)┤1000з10201УЄа100,1:ЗN$(I);" HAS NO STRIKE ARMED!":Бе11501┴№Бж 10100:ЕL▓0з1030:ДЗ"NO TARGETS.":Бе11401цЙ "CONTACT NUMBER (OR ENTER) ";J1°ЕJ│0 зЗ:Бе60120Е J▓L ▒ J┤1 зЗ"BAD CONTACT NUMBER!":Бе1140:ДJ│C1(J)2[X│J:Y│C(I,0):Бж12600:R│R1:ЕR┤│200з10502ЗЕRC│0зЗ Б(Rл.999999);"NM. "; :ДЗ "---";2дЗ "OUT OF RANGE.":Бе11402╥L│Rн.3:ЕI│7▒(TлLлL▓│240░TлLлL┤│1140)з10703$З"NIGHT CV OPERATIONS IMPOSSIBLE!":Бе11403.ЕTлL▓│240░TлL┤1140з10903F8З"NIGHT ATTACKS NOT POSSIBLE!":Бе11403NBK│03tCЕS(K,9)┤0 з1110:ДK│Kл1:ЕK┤10з10913ЫLЗ "TOO MANY STRIKES ALOFT!":Бе11403█VS(K,0)│C(I,4):S(K,2)│C(I,5):S(K,4)│C(I,6):C(I,4)│0:C(I,5)│04`C(I,6)│0:S(K,6)│J:S(K,9)│I:S(K,7)│TлL:S(K,8)│TлLлL4QjS(K,3)│1:S(K,5)│0:S(K,1)│м((S(K,2)о(S(K,2)лS(K,4)))▓ Д(0))4rБж26050:ЗN$(I);" STRIKE LAUNCHED!":Бе11504Йtа50,24б~X│2:Бж13100:З:Бе6014м░A$│"0"5║Ю0:Бж26020:Зд7);"-- PLOT RUNNING --":T0│Tл Б( Й(A$)н60):D0│Dм1н(T0▓1440):T0│T0л1440н(D0▓D)5:─АI│4е7:C(I,5)│C(I,5)л1000н(C(I,5)▓│1000):Л5fАK│1е2:X│K:Y│5:Бж12600:ЕR1┤15 зF(K,5)│05vЕJ9│0 з13205ЪF(K,5)│18м7н(K│2):F(K,4)│270нP15╫(Л:X│0:Бж12600:X│850мF(0,0):Y│450мF(0,1):ЕR1▓250 зБж125005щ2ЕR1▓100 з13506<F(0,4)│F(0,4)л180нP1л360нP1н(180нP1▓F(0,4))6GFАK│6е4йм1:ЕF(C(K,0),2)│0▒C(K,8)│100 з13606}KX│F(C(K,0),0)мF(0,0):Y│F(C(0,0),1)мF(0,1):Бж125006ГPЛ6ЫZЕJ9▓0зF(0,4)│270нP16┬xАI│0е3:X│I:Бж12800:ЕC(I,7)│5 з14406╥yЕS1▓1 з14406Ї}C(I,7)│C(I,7)лC(I,1):C(I,1)│07ВЕC(I,7)┤5з14207+ГC(I,1)│C(I,7)м5:C(I,7)│5:Бе14407^МC(I,7)│C(I,7)лC(I,4):C(I,4)│0:ЕC(I,7)┤│5 з14407{ЦC(I,4)│C(I,7)м5:C(I,7)│57БаЛ7д▄S9│0:A9│S9:A8│S9:ЕT▓1140 з17007м▌I│07╬цЕC(I,4)лC(I,5)лC(I,6)▓0 з15207ЁчI│Iл1:ЕI┤4 з1510:ДS9│0:Бе15907°ЁI│48ёX│I:Бж12800:ЕS1▓1з152584ЄX│C(I,0):Бж13000:ЕE1│1 з15308NїI│Iл1:ЕI┤8 з1521:ДI│08b·ЕI▓0 з1550:ДI│48~√X│I:Бж12800:ЕS1▓2 з15408Ю X│C(I,0):Бж13000:ЕE1│1з15428╕I│Iл1:ЕI┤8 з1531:ДI│08╞ЕI▓0з15508тX│5:Бж13000:I│м7н(E1│1)8√S9│C(I,0):ЕS9┤5з15909I│09*ЕS(I,6)┤5▒S(I,9)│м1▒S(I,1)│м1з15809:"S9│0:Бе15909O,I│Iл1:ЕI┤10з15619l6ЕF(3,2)▓0▒F(4,2)▓0 зA9│19О@X│0:Y│5:Бж12600:ЕR1▓235 з16209ЮAL│60нR1о2359┴JЕTлL┤240▒TлLлL▓1140▒L▓60 з16209┌OA8│1:ЕC(3,2)┤12зA9│19ъTЕA9н1 зA8│09·дЕS9┤3 з1770:╕АJ│0е9:ЕS(J,9)│м1 з1730:#╣Л:Бе1770:b┬S(J,6)│S9:S(J,9)│0:X│0:Y│S9:Бж12600:L│60нR1о235:S(J,7)│TлL:s╠S(J,8)│TлLлL:Т╓S(J,0)│0:S(J,2)│0:S(J,4)│0:о╫АI│0е3:ЕC(I,8)▓60 з1767:юрS(J,0)│S(J,0)лC(I,4):S(J,2)│S(J,2)лC(I,5):C(I,4)│0:C(I,5)│0;хS(J,4)│S(J,4)лC(I,6):C(I,6)│0;9чЛ:ЕS(J,0)лS(J,2)лS(J,4)│0 зS(J,9)│м1;TшЕS(J,2)лS(J,4)│0 з1770;УщS(J,3)│1:S(J,5)│0:S(J,1)│м(((S(J,2)оS(J,2)лS(J,4)))▓ Д(0));╜ъАI│0е3:Бж10200:X│I:Бж12800:ЕS1▓1з1820;╠яЕA9│0з1790;·ЁC(I,4)│C(I,1):C(I,5)│C(I,2):C(I,6)│C(I,3)< ЇC(I,1)│0:C(I,2)│0:C(I,3)│0:Бе1820</■ЕA8│0з1820<[ C(I,4)│ Б(C(I,1)о2):C(I,5)│ Б(C(I,2)о2)<ИC(I,6)│ Б(C(I,3)о2):C(I,1)│C(I,1)мC(I,4)<╢C(I,2)│C(I,2)мC(I,5):C(I,3)│C(I,3)мC(I,6)<╝Л<ЇlF9│0:T1│30л Б(30н Д(0)):T│TлT1:Е T▓│T0 ░ D│D0 зF9│1=+vD│Dм(T▓1440):T│Tл1440н(T▓1440):ЕT│T0ANDD▓│D0 зF9│1=\╨АI│0е4:F(I,0)│F(I,0)лT1нF(I,5)н Е(F(I,4))о60=И┌F(I,1)│F(I,1)лT1нF(I,5)н Х(F(I,4))о60:Л=а4ЕT▓1140▒T┤240 з2220=└5P│1м2н(T┤300▒(T▓720░T┤780))=█>АI│0е2:ЕF(I,2)│2 з2160=Є?ЕF(I,5)│0зF(I,2)│2>CЕF(I,2)│1 ░ Д(0)▓3нS7 з2160>=GЕDF│1 зF(I,2)│F(I,2)м(F(I,2)┤2):Бе2140>xMЕ Д(0)▓PнS7 ░F(I,2)│0 з2160 :ДF(I,2)│F(I,2)м(F(I,2)┤2)>йRЕ Д(0)▓3нS7 з2140 :ДF(I,2)│F(I,2)м(F(I,2)┤2)>└\Бж26800:ЕI┤2 з2144?^Е Д(2)│2 ▒ DF│1 з2144 :ДЗ"US SUBMARINE REPORTS PRESENCE":З"   OF JAPANESE ";:Бе2150?4`З"PBY SPOTS JAPANESE ";?]fF9│1:ЕF(I,2)│1зЗ"SHIPS.":ДЗT$(I);"."?ГpЛ:X│5:Бж13100:ЕF(0,2)│2 зF(0,3)│2?зzP│1м(T▓720 ░T┤780):ЕDF│3 зP│Pл1?┬{АI│3е4:ЕF(I,2)│2 з2210?▐ДЕ Д(0)┤(PнS6) зF(I,2)│1?¤ЕЕF(I,2)│0▒ Д(0)▓3нS6 з2210@ОБж26850:Бж14600:X│3:Бж13100@/ШF(I,2)│2:F9│1@<вЛ:Бе2300@[мАI│0е4:F(I,2)│0:Л:F(0,3)│1@Х№FU│1:АI│0е9:Е(S(I,9)│м1)▒(S(I,7)▓T)▒(S(I,1)│м1) з4000@н	ЕS(I,6)┤3 зJ│1:ДJ│2@║	АK│0е4й2@╒	ЕS(I,K)│0 зS(I,Kл1)│м1@щ	Е Д(0)▓.2 з2330A		ЕS(I,1)│S(I,Kл1) зS(I,1)│м1A	S(I,Kл1)│м1A)	Л:ЕJ│2з2360A7	Ю:а125,10AD	АK│0е4й2Ad	ЕS(I,K)│0▒S(I,Kл1)▓м1 з2350A|	$Бж14700:X│4:Бж13100AВ	.ЛAо	8ЕS(I,3)лS(I,5)│м2▒S(I,2)лS(I,4)│0 з4000A┬	:ЕJ│2 зЮ:а125,10Aч	=F(C(S(I,9),0),2)│2:F(S(I,6),2)│2A■	BЕF(0,2)│2зF(0,3)│2B"	LЕJ│1зЗN$(S(I,9));:ДЗ"JAPANESE";B;	VЗ" STRIKE ATTACKS ";Bb	WЕ  Ъ(0)л З(T$(S(I,6)))▓31зЗ:З"  ";Bv	XЗT$(S(I,6));"!"BЛ	[X│1:Бж13100:F9│1Bз	`ЕS(I,6)│1▒S(I,6)│2з2420B╡	aK│4н(Jм1)B┌	jЕS(I,6)│C(K,0) ░C(K,8)┤100 з2600BЇ	kK│Kл1:ЕK┤│4нJм1 з2410C	tЗ"ON THE WAY IN,":Бж10300:АK│2е4й2C;	~ЕS(I,K)│0▒S(I,Kл1)│м1 з2520C]	ИЗS(I,K);P$(JлKм1);" ATTACK ";Cw	ЙSS│S(I,6):ЕSS│0 зSS│6CТ	КXX│ Ъ(0):YY│ З(T$(SS))Cк	НЕXXлYY▓31зЗ:З"   ";C╞	РЗT$(SS);"!":X│2:Бж13100Cє	ТE│F(S(I,6),6)н(м.75н(K│4)м(K│2)):H│0:N│0D(	ЬАL│1еS(I,K):Бж26400:R│ Д(0):ЕR┤E зБж15000:Бе2475D\	жЕ(K│2▒S(I,6)│5) ░ (R┤2нE ░R▓│E) зБж15100:Бе2475Dh	зБж26500Dz	лЛ:Е Ъ(0)▓0 зЗDЫ	░ЗP$(JлKм1);" MAKE";H;"HITS";D╡	║ЕK│2 ▒ S(I,6)│5 з2495D╤	╗З".":X│2:Бж13100:Бе2500D¤	┐З:З"  AND";N;"NEAR MISSES.":X│2:Бж13100E<	─V│5нHл2нN:Бж27200:ЗV;"VICTORY POINTS AWARDED.":X│3:Бж13100EY	╬ЕJ│1 з V0│V0лV :ДV1│V1лVEz	╪Л:З"ON THE WAY OUT,":Бж10300EС	тX│3:Бж13100:Бе3950E┬
(C│0:АK│4н(Jм1)е(4нJ)м1:ЕC(K,0)┤▓S(I,6) з2620E┌
2C│CлC(K,7):C(K,7)│0Eъ
<Л:ЕC│0з2790E 
=K│2м2н( Д(0)▓.5)F&
FЕS(I,Kл1)│м1▒S(I,K)│0 зK│2м2н(K│2)F:
KЕFU│0 ░J│1 зK│4FH
LЕK│4зFU│0Fg
PЕS(I,Kл1)│м1▒S(I,K)│0з2781FЦ
ZЗ "CAP ATTACKS ";P$(JлKм1);".":X│2:Бж13100F╗
dЕS(I,1)│S(I,Kл1)зL1│S(I,0):ДL1│0Fє
nЕL1▓0зЗP$(Jм1);" DEFEND ";P$(JлKм1);".":X│2:Бж13100G%
xE│(CнW(Jм1))о(L1нW(м(J│1))лS(I,K)нW(Kм(J│1)))G7
ВЕE▓.85 зE│.85G[
ГH│0:АL│1еS(I,K):Е Д(0)┤E зH│Hл1GШ
МЛ:Бж26100:З"CAP SHOOTS DOWN";H;P$(JлKм1);".":X│2:Бж13100G╕
ЦS(I,K)│S(I,K)мH:ЕL1│0 з2781Gр
ЫЗP$(Jм1);" ATTACK CAP.":X│1:Бж13100H
аE│(L1нW(м(J│1)))о(CнW(Jм1)):ЕE▓.85 зE│.85H
бH│0H1
кАL│1еC:Е Д(0)┤E зH│Hл1H?
лЛ:Бж26100Ht
┤ЗP$(Jм1);" SHOOT DOWN";H;P$(2мJ);".":X│2:Бж13100HЙ
╛C│CмH:ЕC│0 з2790H║
┐E│.5н(CнW(Jм1))о(L1нW(м(J│1))):ЕE▓.85 зE│.85H┌
╚H│0:АL│1еL1:Е Д(0)┤E зH│Hл1Hш
╔Л:Бж26100I
╥З"CAP SHOOTS DOWN ";H;P$(Jм1);".":X│2:Бж13100I.
▄S(I,0)│S(I,0)мHIJ
▌ЕC│0 з2790:ДL│м1:АK│1еCI~
▐L│м(Lл1)н(L┤7):ЕS(I,6)┤▓C(L,0)▒C(L,8)▓│60 з2782IФ
▀C(L,7)│C(L,7)л1:ЛI╚
рЕ(S(I,3)┤0▒S(I,2)│0) ░(S(I,5)┤0▒S(I,4)│0) з3950Iц
цЗ"ON THE WAY IN,":Бж10300J
ЁАK│4е2йм2:ЕS(I,K)│0▒S(I,Kл1)│м1 з2940J(
·M│0:АL│0е7:C(L,9)│0JNЕC(L,8)┤100 ░C(L,0)│S(I,6) зM│Mл1J^Л:ЕM│0з2940Jn	O│м1:АN│1еMJвO│м(Oл1)н(O┤7):ЕC(O,0)┤▓S(I,6)▒C(O,8)│100 з2827J┬C(O,9)│ Б((S(I,K)лMмN)оM):ЛJ▌АL│0е7:ЕC(L,9)│0 з2930K"ЗC(L,9);P$(JлKм1);" ATTACK ";N$(L);".":X│2:Бж13100K5,N│0:H│0:E│.2м(K│4)н.06н(J│1)K>.E│.2KV1АM│1еC(L,9):R│ Д(0)Kn6Бж26400:ЕR▓│E з2880KБ8Бж15000:Бе2890K▒@Е R▓│EлE ▒(K│4 ░ S(I,6)┤▓5) зБж26500:Бе2890K╜CБж15100K╠JЛ:Е Ъ(0)зЗKЄOБж26220:ЗN$(L);" TAKES";H;"HITS";L TЕN▓0 зЗ:З"   AND";N;"NEAR MISSES.":Д З"."L0XX│1:Бж13100LеZЕHлN▓0░C(L,4)лC(L,5)лC(L,6)▓0 зБж27100:З"ARMED AIRCRAFT ARE EXPLODING ":З"   ON THE ";:ЕL│7зЗ"RUNWAY!":ДЗ"DECK!"L╚^ЕH▓0 зАM│1еH:Бж10400:Бж10400:ЛLуhЕN▓0 зАM│1еN:Бж10400:ЛLщrЛM
|Л:З"ON THE WAY OUT,":Бж10300MБX│3:Бж13100M5nАK│0е4й2:S(I,Kл1)│м1:ЛM;аЛMbАL│0е7:ЕC(L,8)│100▒C(L,8)┤10 з4150MАЕ Д(0)▓.05н(1м(L┤4))з4130MЪЕL┤4зЗ"PBY REPORTS ";M╒Бж26750:З"EXPLOSION ON ";N$(L);".":X│3:Бж13100:Бж10400M■"ЕC(L,8)│100▒ Д(0)▓.2н(1м(L▓3)) з4150N2,C(L,8)│C(L,8)м5н Д(0):C(L,8)│мC(L,8)н(C(L,8)▓0)N86ЛN_ИV2│0:АJ│0е9:ЕS(J,9)│м1 з5220:ДV2│1NЕНЕT┤S(J,8) з5220 :ДЕS(J,9)┤4 з5120NиТF9│1:I│S(J,9):ЕC(I,8)▓60 з5050NшЬБж26650:З"STRIKE LANDING ON ";N$(I);".":X│2:Бж13100:Бж10200OжC(I,1)│C(I,1)лS(J,0):C(I,2)│C(I,2)лS(J,2)O6░C(I,3)│C(I,3)лS(J,4):Бе5210On║ЕI▓5▒(C(4,8)▓60 ░C(5,8)▓60) з5060:ДK│4м(I│4):Бе5110Ov─K│4OК┼ЕC(K,8)▓60з5070O╢╔X│C(I,0):Y│C(K,0):Бж12600:ЕR1┤100 з5100O╩╬K│Kл1:ЕK┤8з5061P"╪З N$(I);" STRIKE TRYING TO DI-":З"  VERT, DITCHES OUT OF FUEL.":Бж26610:X│3:Бж13100P-тБе5210P@ьЕ Д(0)▓.8з5080P`ЎЗN$(I);" STRIKE AIRCRAFT ";PФўЕ Ъ(0)┤27 зЗ"DIVERT":З"   "; :ДЗ:З"   DIVERT ";P▓∙З"TO ";N$(K);" ";:Бж26700P┴·I│K:Бе5020PфL│0:АI│0е3:Бж12800:ЕS1┤2зL│Lл1PЇ
Л:ЕL│0з5210Q
АI│0е3:Бж10200:Л:АK│0е4й2:M│м1:АI│1еLQHM│м(Mл1)н(M┤3):X│M:Бж12800:ЕS1▓1з5140QuC(M,1лKо2)│C(M,1лKо2)л Б((LлS(J,K)мI)оL)QД2Л:Л:АI│0е3Q├<ЕC(I,1)лC(I,2)лC(I,3)┤96 з5200 :Д C(I,1)│C(I,1)л(C(I,1)▓0)Q№FC(I,2)│C(I,2)лC(I,2)▓0:C(I,3)│C(I,3)лC(I,3)▓0:Бе5180RPЛRZS(J,9)│м1RdЛRpI│0R3qЕC(I,8)┤│60з6010RNrI│Iл1:ЕI┤4 з6001:ДJ9│1R]zЕV2│1з6050Rw{ЕJ9│1 ░F(0,0)┤0 з7000RДI│0RФЕЕC(I,8)┤100з6030RоЖI│Iл1:ЕI┤4з6021:Д7000R╨ОЕF(3,0)▓1200▒F(4,0)▓1200з7000R╪ПI│4RэШЕC(I,8)┤100з6050SЩI│Iл1:ЕI┤8з6040:Д7000SвЕF9│0з6053:Д6055SDеA$│ Т:ЕA$│"P"зЮ:З"PAUSING...":Бе300SжБж12100:Бж26030:З"TIME: "; Р(A$,3,2); Р(A$,7,2):Бе1300SЩзЕ Д(0)┤.8 зRC│0:ДRC│1S╢йАZZ│1е2000:Л:J$│ Т:Бе200SсXЮ:а100,10:З"      THE GAME IS OVER!!!"T7bЗ"CARRIER";д18);"DAMAGE STATUS":V2│0:V3│0:P1│0:З"----------";д18);"-------------"TvlАX│0е7:Бж27400:Бж12800:ЕX┤7зЗN$(X);д22);S$(S1):ДSS$│S$(S1)T║vS1│(S1│1)л3н(S1│2)л10н(S1▓2):S1│S1н100:ЕX┤4зV2│V2мS1 :ДV3│V3мS1TхААJ│1е7:ЕX┤4зP0│P0лC(X,J):ДP1│P1лC(X,J)U
КЛ:Л:P1│269мP1:P0│272мP0UПЗN$(7);" (";U8ФA$│"":ЕJ9▓0зA$│"NOT ":ДV3│V3л1000UTЮЗA$;"INVADED)";д22);SS$UЪ╝Бж27400:З"AIRCRAFT LOST:     US:";:З═"###";P1;:З" J:";:З═"###";P0Uр╜Бж27400:З"OTHER VICTORY PTS: US:";:З═"###";V0;:З" J:";:З═"###";V1V	┬V0│V0лV2л5нP0:V1│V1лV3л5нP1:VV│V0мV1V1┼Бж27400:З "TOTALS: US:";V0;" J:";V1VT╞ЕVV┤.01зB$│"JAPANESE":ДB$│"US"VЙ╨VV│ В(VV):ЗB$;" ";:ЕVV▓2000зA$│"STATEGIC":Бе7140V│┌ЕVV┤1000зA$│"MARGINAL":ДA$│"TACTICAL"V╟фЗA$;" VICTORY."VєщЕB$│"JAPANESE" зЗ"TOUGH LUCK. ";:Бе7220WъЕVV┤1000зЗ"GOOD TRY. ";:Бе7220WWьЕVV┤2000зЗ"EXCELLENT! ";:ДЗ"MEDAL OF HONOR-";:Бж25500:Бе7230Wc4З"GO ";WЛ>Й"AGAIN? (Y/N)";A$:ЕA$│"Y"зЮ:П:Бе35W╞CЮ0:З@168,"SEE YOU NEXT TIME!";:X│4:Бж13100:З@448,"";:КW∙'L│Lл175н Д(0)м200н Д(0)н(I┤3):J│(JлKн Д(0))нP1X'F(I,0)│850мLн Е(J)н(I┤▓5)X5'F(I,1)│450мLн Х(J)н(I┤▓5)XF'ЕI┤3 з 10020Xc'ЕF(I,0)▓1199зF(I,0)│1199XА'ЕF(I,1)▓1199зF(I,1)│1199Xб'$J│Jл180нP1л360нP1н(J▓180нP1)X╦'.ЕI┤3зF(I,4)│J :ДF(I,4)│м205нP1н(I┤▓5)X╤'8РX°'tL│0:АK│0е2:ЕF(K,2)│0з 10140:ДL│Lл1Y'~Бж26250:З"CONTACT ";Y'З═"#";L;Y+'АЗ" AT ";YB'БLL(L)│K::ГSEE14050Ye'ГЗ═"##"; Б(F(K,0)о100)л1;:З",";Y}'ДZZ│ Б(F(K,1)о100)л1Yе'ЕЕZZ▓9зЗ═"##";ZZ;:Бе10120:ДЗ═"#";ZZ;Y┴'ИЕF(K,2)│▓2зЗд19);T$(K);Y╧'ТЗ:C1(L)│KY╫'ЬЛ:РY¤'╪C(I,5)│C(I,5)л1000н(C(I,5)▓│1000)Z4'тC(I,1)│C(I,1)лC(I,4):C(I,4)│0:C(I,2)│C(I,2)лC(I,5)Za'ьC(I,5)│0:C(I,3)│C(I,3)лC(I,6):C(I,6)│0:РZК(<АK│0е4й2:ЕS(I,K)│0▒S(I,Kл1)│м1з10340Z╗(FE│мF(S(I,6),7)н(.4н(K│0)л.7н(K│2)л(K│4)):H│0Z█(PАL│1еS(I,K):Е Д(0)┤E зH│Hл1Zс(QЛZэ(RБж26100[(UЕS(I,6)│1зЗ"TRANP'S";: Бе10330[5(WЕS(I,6)│2зЗ"CA'S";:ДЗT$(S(I,6));[M(ZЗ" AA SHOOTS DOWN";[r(_ЗH;P$(JлKм1);".":S(I,K)│S(I,K)мH[z(dЛ:Р[Н(аЕC(L,8)▓│100зР[╣(кD9│ Д(0)н8н(1м(C(L,4)лC(L,5)лC(L,6)▓0))[╩(лЕL│7зD9│D9о2[╓(пАL1│1е6[ы(│ЕC(L,L1)│0з10430\(┤АL2│1еC(L,L1):Е Д(0)┤D9о100зC(L,L1)│C(L,L1)м1\#(╡Л\G(╛Л:C(L,8)│C(L,8)лD9:ЕC(L,8)┤60зР\(└L1│I:I│L:Бж10200:I│L1:C(L,1)│C(L,1)лC(L,7):C(L,7)│0\Т(┴ЕC(L,8)┤100 зР\й(├C(L,8)│100:Бж14500\р(┼ЕL│7зЗ@256,"   MIDWAY AIRFIELD DESTROYED!":Бе10442](╞A$│N$(L)л" BLOWS UP AND SINKS!":XX│ З(A$):XX│(32мXX)о2]M(╚З@256, б(XX," ");N$(L);" BLOWS UP AND SINKS!"]e(╩Бж27000:X│3:Бж13100]{(ЁАL1│1е6:C(L,L1)│0]Ж(·Л:Ю0:Р]┤/DA$│ И(100л Б(Tо60))л И(100лTм60н Б(Tо60))]║/XР]▐0╘R2│(90м180н(X┤0))нP1:ЕY│0з12530] 0╒R2│ Ф(XоY):ЕY┤0зR2│R2л180нP1^0ЄF(0,4)│R2:Р^@18R1│ Ы((F(X,0)мF(Y,0))п2л(F(X,1)мF(Y,1))п2):Р^w2S1│C(X,8):S1│м(S1▓0)м(S1▓60)м(S1▓│100)н(1м(X│7)):Р^Я2╚Y│0:Бж12600:E1│0:ЕF(X,2)│0▒R1▓235зР^┼2╥L│R1н60о235:ЕTлL┤240▒TлLлL▓1140зР^╨2▄E1│1:Р^у3,АY│1еXн500:Л:Р_6░ЕRC│0з14010:ДЮ:Бж26600:З:З:З"SORRY ADMIRAL ";AA$;",":З_n6▒ЕRC│2зЗ"RANGE COMPUTER STILL OUT.":ДЗ"RANGE COMPUTER IS OUT OF ORDER.":RC│2_╛6▓З:З"WE'LL HAVE IT FIXED AS SOON AS":З"   WE CAN.":З:X│2:Бж13100:A$│ Т:Бе300_ь6║Ю:Бж26000:З:З"   RANGE COMPUTER READY:":З`q6─З "   1. CONTACT # 1":З"   2. CONTACT # 2":З"   3. CONTACT # 3":З"   4. ENTERPRISE/HORNET":З"   5. YORKTOWN":З"   6. MIDWAY":З:З`~6╩Бе 14030`л6╦Бж27150:АZZ│320е448й32:З@ZZ, б(31," "):Л`ї6╬З@320,"RANGE---":З@352,"FROM WHICH NUMBER (F TO END) "; Л(191);:A$│ Тa6╧JJ$│ Т:ЕJJ$│""з14031a/6╨ЕJJ$│"F"зЮ:Бе300:ДЗ@381,JJ$;a`6╥Е К(JJ$)▓48 ░  К(JJ$)┤55 зRX│ Й(JJ$):Бе14040aЩ6╓а50,2:З@384,"BAD #/RE-ENTER    ":X│3:Бж13100:Бе14027aр6╪З@384,"TO WHICH NUMBER "; Л(191);:JJ$│ Т:ЕJJ$│""з14040:ДЗ@400,JJ$;b6█Е К(JJ$)┤49 ▒  К(JJ$)▓54 з а50,1:Бе14038 :ДRY │ Й(JJ$)b66▄ЕRX▓3 зX│RXм1:Бе14047LbW6▌ЕLL(RX)│м1 з14058 :ДX│LL(RX)bl6▐ЕF(X,2)│0 з14058bЖ6▀ЕRY▓3 зY│RYм1:Бе14059bз6рЕLL(RY)│м1 з14058 :ДY│LL(RY)b╝6тЕF(Y,2)▓0 з14059bЇ6ъа50,2:З@448,"NO ENEMY CONTACT!":X│3:Бж13100:Бе14027c6ыЕX┤Y зXX│X:X│Y:Y│XXc6ьБж12600:З@448,"                 ":а240,1:З@448,"RANGE ";:З═"#";RX;:З"/";:З═"#";RY;:З" IS"; Б(R1л.999999);"NM."cЧ6ёX│3:Бж13100:Бе14027cк6Ўа100,2:Бе14030c№8дАY│1е3:╔"T40O2;5;1;5;1":АX│0е8:ЮX:АXX│1е20:Л:╔"T255O4;1;5;10;1;5;10":Л:Л:Ю4:Рd8■:ГJ. SCOUT PLANE MESSAGESd89И Д(3)Бе14620,14640,14660ds9З"JAPANESE FLOAT PLANE SIGHTED":З"  OVER ";T$(I);"!":Рd└90З"DESTROYER REPORTS UNIDENTIFED":З"  AIRCRAFT SIGHTED NEAR ";T$(I);"!":Рd╓9DЕC(I,7)│0зБе14620e9NЗ"CAP REPORTS JAPANESE FLOAT":З"  PLANE SHOT DOWN NEAR ";T$(I);"!":Рe:9b:ГMISS TARGET MESSAGESea9lБж26900:ЗN$(S(I,9));" ";P$(JлKм1);e9vИ Д(3)Бе14720,14740,14760e╡9АЗ" MISS TARGET":З"  DUE TO NAVIGATIONAL ERROR!":Рeь9ФЗ" TURN THE WRONG":З"  WAY AND MISS THE TARGET!":Рf9иЗ" BECOME LOST":З"  AND MISS THE TARGET!":Рf-:ШЕ Ъ(0)▓28 зЗfV:ЭБж26300:З"hit ";:X│1:Бж13100:H│Hл1:Рfg:№Е Ъ(0)▓23 зЗfЦ;Бж26200:З"near miss ";:X│1:Бж13100:N│Nл1:Рfкaи:ГOPENING TITLEf▓a▓Y│8f┬a╝Ю0:АV│10е16f╬a┴Бж25460fхa╞Ь(5,V,Y):Ь(13,V,Y)f¤a╨Ь(17,V,Y):Ь(21,V,Y)ga┌Ь(31,V,Y):Ь(39,V,Y)g'aюЕV┤▓10 з25120g?a°Ь(22,V,Y):Ь(23,V,Y)gWbЬ(24,V,Y):Ь(25,V,Y)gebЬ(46,V,Y)g}bЬ(52,V,Y):Ь(58,V,Y)gПb ЕV┤▓11 з25170gжb*Ь(6,V,Y):Ь(12,V,Y)g╛b4Ь(26,V,Y):Ь(45,V,Y)g╓b>Ь(47,V,Y):Ь(53,V,Y)gфbHЬ(57,V,Y)gЎbRЕV┤▓12 з25220h
b\Ь(7,V,Y):Ь(11,V,Y)h%bfЬ(27,V,Y):Ь(44,V,Y)h=bpЬ(48,V,Y):Ь(54,V,Y)hKbzЬ(56,V,Y)h]bДЕV┤▓13 з25270htbОЬ(8,V,Y):Ь(10,V,Y)hМbШЬ(27,V,Y):Ь(35,V,Y)hдbвЬ(43,V,Y):Ь(49,V,Y)h▓bмЬ(55,V,Y)h─b╢ЕV┤▓14 з25320h█b└Ь(9,V,Y):Ь(34,V,Y)hєb╩Ь(27,V,Y):Ь(36,V,Y)i
b╘Ь(55,V,Y)ib▐АH│43е49:Ь(H,V,Y):ЛHi,bшЕV┤▓15 з25360iDbЄЬ(26,V,Y):Ь(33,V,Y)i\b№Ь(37,V,Y):Ь(43,V,Y)itcЬ(49,V,Y):Ь(55,V,Y)iИcЕ V┤▓16 з 25410iбcАH│22е25:Ь(H,V,Y):ЛHi╣c$Ь(32,V,Y):Ь(38,V,Y)i╤c.Ь(43,V,Y):Ь(49,V,Y)i▀c8Ь(55,V,Y)iчcBЛ Vj
cLЗ @326,"TURNING POINT IN THE";j+cVЗ @359,"WAR IN THE PACIFIC";j7c`Бе25495jYct╔"L8T100O1;V30;11;2;5;9;12":РjhcЧАX│1е200:ЛkacЬ╔"V15;L8T71O3;6;7;12;11;8;9;6;7;12;11;8;9;6;7;12;11;8;9;T225O2;2;5;6;12;2;12;1;11;4;T196O3;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;1;2;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;"kscлX│2:Бж13100:Рkyc░РkЧeР╔"L255T143O5;9;3;7;6;4":Рk╖eЪ╔"L10T35O3;7;5;6;9;3;7;9":Рk█eд╔"L100T35O5;3;5;7;9;3;5;7;9;":РkЎeо╔"L255O5;9;7;5;3;1;":Рle╕╔"L150O3;9;7;9;7;9;7":Рl>e┬╔"L100O5;9;3;9;1;4;5;1;9;3;9;1;4;5;1":РlМeЇ╔"L8T100O1;12;4;11;7;6;12;4;11;7;6;12;4;11;7;6;12;4;11;7;6;12;4;11;7;6":РlжfX╔"T255O5;1;10;1;10":Рl╛fl╔"T30O5;1;5;1;5;":Рl╓fК╔"T255O3;5;1;5;1":Рl√f╝A$│"T255O2;1;5;1;5;1;5;1;":╔A$:Рm)g ╔"T65O3;9;7;5;3;1;O1;12;10;8;6;2;1;P10":РmKgД╔"T50O1;12;10":X│.1:Бж13100:Рmggш╔"T55O3;1;4;1;4;1;4;":РmФgЄ╔"L30O1;12;11;10;9;8;7;6;5;4;3;2;L3;1":Рm╢g№╔"L40O2;12;10;8;6;4;2;L6;1":Рm╨h╔"T255O3;1;10;1;10":Рm№hLАZZ│1е6:Бж26200:З".";:X│1:Бж13100:Л:З:Рnh~╔"T255O4;5;10;5;10":Рn9h░╔"T19O2;12;1;12;1;12;1;12;1":Рn\hт╔"T19O2;12;1;12;1;12;1;12;1":Рnsi╔"L30O2;5;1;5;1":РoTix╔"L8T170O2;1;1;1;1;1;1;1;T58O4;6;3;10;7;2;9;5;2;4;3;6;3;10;7;2;2;9;5;2;4;3;6;3;10;7;2;9;5;2;4;3;6;3;10;7;2;9;5;2;4;3;T185O5;5;1;7;T35O3;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;P1"osi}АX│225е3йм3:аX,1:Л:а3,10:Рo╦i▄╔"L8T170O3;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5":Рoщj╔"L8T170O4;5;1;5;1;5;1":Рpj@╔"L20T170O4;8;6;8;6;8;6;8;6;8;6;8;6":РprjдАX│1е4:╔"L20T170;04;4;6;4;6;4;6;4;6;4;6;8;6;8;6;8;6;10;12;10;12;10;12;10;12;":Л:а200,10:РpЗk╔"T255O5;10;2":Р;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5":Рoщj╔"L8T170O4;5;1;5;1;5;1":Рpj@╔"L20T170O4;8;6;8