$│"AFTER FLYINGINTO A "лB$bMVЇЗ@128,"ON STARDATE"; И( Б(Tн10)о10);", ";B$л","bБWЗ"THE ENTERPRISE & CREW WERE LOST":З"TO SPACE."b╖WЗ:З:╔"T2O2L2;1;P50;1;L1;6;P30;L2;1;P50;6;L1;10":КbыW0Ю:B$│"AFTER USING UP ITS ENERGY SUPPLY":Бе22260c'WDЮ:B$│"WHILE DOING BATTLE AGAINST THE KLINGONS":Бе22260c-WlЮcoWАЗ@192,"DESTRUCTION OF A ";B$:З"IS GROUNDS FOR COURT-MARTIAL."cЩWФЗ:З"YOU ARE RELIEVED OF YOUR COMMAND"cгWиЗ:З:Кc╒ulЖSTATUS,0,DAMAGE CONTROL,1,SCIENCE COMPUTER,2duАЖSHIP'S COMPUTER,3,LR SENSORS,4,SR SENSORS,5d4uФЖIMPULSE ENGINES,6,WARP DRIVE,7,PHASERS,8d_uиЖPHOTON TORPEDOES,9,ALERT,10,REPAIR,11dЖu╝ЖKLINGON WARSHIPS,50,STAR BASES,51dзu╨ЖCLASS F STARS,52,PLANETS,53d└uфЖUNEXPLORED AREAS,54dыu°ЖGREEN,21,YELLOW ALERT,22,RED ALERT,23ev ЖBLACK HOLE,32,O STAR,33,PULSAR,34eCv ЖSPACE NOISE,35,STAR FLEET HQ,36,G PLANET,37etv4ЖUNEXPLORED M PLANET,38,EXPLORED M PLANET,39eгvHЖPROMOTED,425,DECORATED,350,REASSIGNED,290e╨v\ЖDEMOTED,190,RESIGNED,-1,EXECUTED,-32000fvДЖ "E",999,30111,31111,30101,20121,20201,20001f*vШЖ 10001,10111,10211,10321,10221,-99fEv└Ж 1110,110,110,110,110fdvшЖ 1111,1111,1211,1121,1121frwЖ 3,3,2,2fаw8Ж 121,121,211,211,311,311,321,321,221,221f╨wLЖ 121,121,211,211,311,311,321,321,221,221,0f√w─З@352,"STAR TREK III(TM) VERSION 4.00"g w╪З"(C)(P)1981-LANCE MICKLUS,INC."g-wтV│ Г0(0)gLxV│15:U│54:I│5:В GOSUB21180gdxdНB$,J:ЕJ┤▓999з30820gДxxP│ Д(191)м1:ЕA(P)┤▓0з 30840gаxМНJ:ЕJ▓0зA(P)│мJ:Бе30840g├x▄P│ Д(150):M│P:ЕA(P)┤▓0зБе30940g╙xЁБж200:Бж320hyАB│A(256)м1еA(256)л1:АC│A(257)м1еA(257)л1hyАD│A(258)м1еA(258)л1h$y,Бж120hEy@ЕP┤▓м1зA(P)│10н Ш(A(P)о10)м5hZyTЛD:ЛC:ЛB:A(M)│м4hyдP│ Д(191)м1:Е Б(A(P))┤▓0зБе31140hйy╕НA(P):Е Б(A(P))┤▓0зA(P)│мA(P):Бе31140h╞y╠АN│0е190:ЕA(N)│0зA(N)│м1hўyрЛN:A(256)│7:A(257)│7:A(258)│2:A(276)│3:P│191i z&C$│" "i8z0E│3999:T│2200:H│2470:Q│0:A(191)│1006:S│0iizDA(259)│3:A(260)│3:A(261)│1:F│1:Бж6080:Бе2060iТЬРЮ:З@160,"";:╗Й"ENTER FILESPEC-> ";A$iеЬЪЕ З(A$)│0з2060i╠Ьд╗Й"(L)OAD OR (S)AVE THE GAME? ";B$iэЬоЕ  З(B$)│0з2060:ДB$│ О(B$,1)jЬ╕ЕB$┤▓"L"░B$┤▓"S"з2060jЬ┬ЕB$│"L"з40200jXЬ╠З"TURN ON CASSETTE (FOR RECORDING)";:Й"THEN PRESS ENTER";NjoЬ╓а100,40:Щ"O",м1,A$jАЬрЗ#м1,E,T,H,SjЦЬъАN│0е279й10:З";";jуЬЇЗ#м1,A(N),A(Nл1),A(Nл2),A(Nл3),A(Nл4),A(Nл5),A(Nл6),A(Nл7),A(Nл8),A(Nл9)k5Ь■ЛN:Ъм1:а100,40:З:Й"TURN OFF CASSETTE AND PRESS ENTER WHEN READY";N:Бе2060kkЭЗ"TURN ON CASSETTE (PLAY).":Й"THEN PRESS ENTER";NkЗЭЩ"I",м1,A$:Й#м1,E,T,H,SkЭЭАN│0е279й10:З"+";kъЭ&Й#м1,A(N),A(Nл1),A(Nл2),A(Nл3),A(Nл4),A(Nл5),A(Nл6),A(Nл7),A(Nл8),A(Nл9)l<Э0ЛN:Ъм1:а100,40:З:Й"TURN OFF CASSETTE AND PRESS ENTER WHEN READY";N:Бе2060ON CASSETTE (PLAY).":Й"THEN PRESS ENTER";NkЗЭЩ"I",м1,A$:Й#м1,E,T,H,SkЭЭАN│0е279й10:З"+";kъЭ&Й#м1,A(N),A(Nл1),A(Nл2),A(Nл3),A(Nл4),A(Nл5),A(Nл6),A(Nл7),A(Nл8),A(Nл9)l<Э0ЛN:Ъм1:а100,40:З                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0,2:а70,2:а50,2:а100,2:а2,2P/#ЁT│Tл1:J│2:Бе3940PЗ$ЕA(271)│0з╞"BM"л И( Б(X)н32л16)л","л И( Б(Y)н24л12)л";C1NR4C"л И( Б(Iо2)л1):Бж21240PН$РP│$,В ** MAKE CLASS M PLANET FOUND **Pт$@ЕW│2зБж360:Бж120:A(P)│ Ш( В(A(P))о10)н10л9Pь$JW│Wм1Q$T╚1,1:╝( Б(Wо6)л2):┐1,0:╞"BM34,144C3":Бж 21240Qe$U┬(200,50),146,3,1.05:ЕW▓8з├(66,2),2,3:Бе9320:ДI│ Г4(0):├(66,2),3,3Q║$V┬(170,80), Д(12)л8,W:┬(200,20), Д(40),W:┬(140,40), Д(12)л8,W:┬(180,130), Д(25),WQў$X├(170,80),W,W:├(140,40),W,W:├(180,130),W,W:├(200,20),W,WR'$hа50,2:а70,2:а120,2:а160,2:а110,2:а2,2:а90,2R-$rРR3$|ВRI$РВ STATUS REPORTR`$дВ ---------------Rf$╕ЮRР$╠З@101,"STATUS REPORT:":Зд5) б(14,"-")R░$рЗд5)"STARDATE:"; Б(Tн10)о10R╚$ЇЗд5)"ENERGY:"; Б(E)Rэ%B$│"GREEN":ЕA(261)│2зB$│"YELLOW"S%ЕA(261)│3зB$│"RED"S%0Зд5)"CONDITION: ";B$SF%DЗд5)"QUADRANT:";A(256);A(257);A(258)Sf%XЗд5)"SECTOR:";A(259);A(260)SЙ%lЗд5)"PHOTON TORPEDOES:";A(276)SЦ%АБе 20100S░:ОВ ** DRAW NUMBERS **S┐:ШЕZ┤0з15070S╨:вЕZ▓9.5з15040T:мИZл1Бе15080,15090,15100,15110,15120,15130,15140,15150,15160,15170T:╢РT7:└Бж15090:Z│Zм10:Бе15020T^:▐╞"BM-4,+2R2BU4BR4":Z│ В(Z):Бе15020T:ш╞"BR2R2F2D4G2L2H2U4BR6BU2":РTТ:Є╞"BR2ND8BR4":РTн:№╞"R4F2G2L2G2D2R6BU8":РT╠;╞"R4F2G2NR2F2G2L4BU8BR6":РT▀;╞"D4R6ND4U4":РT№;╞"NR6D4R4F2G2L4BU8BR6":РU ;$╞"BR2NR4G2D4F2R2E2H2L2BU4BR4":РU8;.╞"R8D2G4D2BU8BR4":РU`;8╞"BR2NG2R2F2G2L2G2F2R2E2H2BU4BR6":РUЕ;B╞"BR2NG2R2F2D2NL4D2G2L2BU8BR4":РUЛN ВUгN4В :::::::::::::::::U╗NHВ : SUBROUTINES :U╙N\В :::::::::::::::::UюNpВ ** ENTER KEY WAIT **UЇNДЗVNОЗ"(ENTER) TO CONTINUE. =>";CM$;V'NШЕQ│1зQ│0:РV1N╢A$│ ТVJN└A$│ Т:ЕA$│""зБе20160VeN╘ЕA$│ Л(13)зР:ДCM$│A$:РVNшВ ** STATUS REPORT **VеN№Ю:З@96," ";"COORDINATES:";B;C;D:ЗV╤OЗ"KLINGONS:";A(262),"STARBASES:";A(263)V°O$З"STARS:";A(264),"PLANETS:";A(265)W#O8П:ЕA(266)▓6▒A(266)┤2зB$│"NONE":Бе20320WAOLНB$,J:ЕJм30┤▓A(266)з20360WeO`З:З"ASTRONOMICAL FEATURE:";B$:ПWЕOtЕA(266)┤7зB$│"NONE":Бе20380WгOИНB$,J:ЕJм30┤▓A(266)з20360W╦OЬЗ:З"SCIENTIFIC INTEREST:",д5)B$:З:ЗW╫O░Бе20120WєO─В * LONG RANGE S. SCAN*W O╪З@32,""X$OьАC│Vм1еVл1:АD│Wм1еWл1:АB│Uм1еUл1X.PБж120XNPЕP│м1зЗ" UNKNOWN ";:Бе20760XdP(A$│ П( И(A(P)),1)XЬP<ЕR│0░ В(A(P))м( Б( В(A(P))о10)н10)┤▓5зA(P)│ В(A(P))X┬PPЕR│1░A(P)┤0зЗ" NO DATA ";:Бе20760XєPdЕ В(A(P))│1▒R│1░A(P)│5зЗ" VOID ";:Бе20760YPxЕA$│"2"зЗ" BLK HOLE";:I│ Г9(0):Бе20760YIPМЕA$│"3"зЗ" O STAR ";:I│ Г9(0):Бе20760YtPаЕA$│"4"зЗ" PULSAR ";:I│ Г9(0):Бе20760YЪP┤ЕR│0░A$│"5"зЗ" NOISE ";:Бе20760Y╝P╚ЕA$│"6"зЗ" HEADQTRS";:Бе20760Y╫P▄Бж240:ЕA(262)▓0за60,2:ZPЁЗ═" K#B#S#P#";A(262);A(263);A(264);A(265);Z#QЕA(262)▓0за80,2:I│ Г9(0)Z9QЛB:З" ";D:ЛD:З:ЛCZXQ,З@4,Uм1;:З@13,U;:З@22,Uл1;Z{Q@З@126,Vм1;:З@254,V;:З@382,Vл1;ZИQJI│ Г0(0)ZТQTI│191ZЯQhN│ Г1(0)Z╡QрЗ@482,"";:Бе20110Z╧QЇВ ** LOOK UP TABLE **ZфRI│0:B$│"TRIBBLE"[RЕA(P)│2зI│4:B$│"CLASS M PLANET"[,R0ЕA(P)│3зI│4:B$│"CLASS G PLANET"[LRDЕA(P)│18зI│5:B$│"STAR SHIP"[oRXЕA(P)│19зI│3:B$│"CLASS F STAR"[ПRlЕA(P)│20зI│2:B$│"STAR BASE"[╡RАЕA(P)▓24зI│1:B$│"KLINGON WARSHIP"[╗RФР[╟RиБж21000[їR╝ИIл1Бе21200,21340,21325,21327,21320,21240\ R╨╞"BM+2,0C2R1":Р\#RфВ ENTERPRISE GRAPHIC\oR°╞"BM-8,+6;NR14H2NR18E2NR14BR8H12L2NR12F2R8BR4BD2NR10G2NR14F2NR10F2R6":Р\ЖSGВ PLANET GRAPHICS\▒SH┬(A,B),8,A(P)л1:├(A,B),A(P)л1,A(P)л1:Р\╚SLВ STARBASE GRAPHIC];SM╞"C3BR4BU2U10L4D10BU4G4F2R8E2H4E2R2F6D2G4L16H4U2E6R4BD12D6R4U6":├(Aл2,Bм2),3,3:├(Aл2,Bл8),3,3:├(Aл2,Bл2),2,3:Р]WSNВ CLASS F STAR GRAPHIC]}SO╞"C2NR8NE8NU8NH8NL8NG8ND8NF8R2":Р]ФS[В KLINGON GRAPHIC]╠S\╞"C"л И(G)л"BU4R6F4D6G2BL16H2U6E4R4":┬(A,Bм4),4,G:Р]шS└B│ Д(8)м1:C│ Д(8)м1:D│3^S╘АU│Bм1еBл1:АV│Cм1еCл1^SшЕU┤0▒U▓7▒V┤0▒V▓7зБе21520^BS№P│╠X(U)лV:Е Б(A(P))┤▓0зБе21440^LTЛV:ЛU^_T$Бж140:A(P)│M:Р^ЖTLЮ(0):ЕA(271)┤▓0зI│5:Бж21930:Бе3860^нT`Бж360:Бж120:A(P)│ В(A(P)):З@32,"";^╜Tj╚1,1:╝:┐1,0^√TtАK│0е7:A│16:B│Kн24л12:╞"C3BM16,"л И(B):АP│192лK е 255 й 8_)TИЕA(P)│0з╞"C3R4":ДG│ Б(A(P)о600л2):Бж21160_ATТA│Aл32:ЕA▓252з21660_]TЧ╞"C3BM"л И(A)л","л И(B)_АTЬЛP:ЛK:┴ 3:╗(0,0)м(256,192),╜,B_ШT╪ЕQ│1зQ│0:Р:ДБж20150_иTьБж360:Бж140_хUЕ В(A(P))▓9999▒A(272)┤▓0▒ Й(CM$)┤▓6▒ Й(CM$)┤▓9зР:ДCM$│""`U И  Й(CM$)о3м1 Бе8480,7020`'U(З@0, б(31,"="):З@288, б(31,"=")`-U<Р`SUМA$│ Т:АN│0е30:а70,1:а40,1:Бе21960`sUаA$│ Т:АN│0е5:а150,2:Бе21960`дUкA$│ Т:╚1,1:╝:┐1,0:Т(65489),1:АN│1е20:Бе21960`╖U┤A$│ Т:АN│0е700`╠U╚Е Т┤▓ Л(13)зЛN:РaVX│Bн8лX:B│ Б(Xо8):X│XмBн8:Y│Cн8лY:C│ Б(Yо8):Y│YмCн8a VРa?V@Е В(J1)▓ В(K1)зK1│K1о В(J1):J1│J1о В(J1):Бе22120a]VTJ1│J1о В(K1):K1│K1о В(K1)aVhJ1│ Ш(J1н1000л.5н А(J1))о1000aгV|K1│ Ш(K1н1000л.5н А(K1))о1000:РaйVдЮa▀V╕B$│"LARGE BLACK HOLE":ЕA(266)│3зB$│"CLASS O STAR"a∙V╠ЕA(266)│4зB$│"PULSAR"bVрB│1еZ:╞"BR4R4":ЕI1о3│ Б(I1о3)з╞"BR6">1аЛI1:Бе7079>}гЗ@0,C$;C$;C$:З@0,"";:ЕZ│▓1зАI1│1еZ:З"*";:ЕI1о3│ Б(I1о3)зЗ" ";:ЛI1 :ДЛI1>ЩзЕU│253▒U│125з7095:Д7045>╕иЮ:З@6,"DIGITAL ENTRY MODE">╧кЗ@194,C$:З@194,"";>ўмЙ"DIRECTION (0-8) ";I:ЕI┤0▒I▓8з7082?оI│Iн.785398?╖KP│м1:Бж6500?5╝J1│ Х(I):K1│м Е(I):Бж360?[╞A(276)│A(276)м1:Q│1:L│8000:Бе4300?k╨╚1,1:╝:┐1,0?Ч╤ЕP▓0зЕA(P)┤5зG│A(P)л1:ДG│ Б(A(P)о600)л2?╨╥ЕP│м1зБж360:Бж120:I│1:Е В(A(P))┤10000зG│1:ДG│ Д(3)л1?я╙N│ Д(3)н А( Д(2)н2м3):Z│90@╘ЕF▓0зF│( Д(8)л26)н А( Д(2)н2м3)@,▄╞"C3BM20,90":Бж21240@L▀A│222:B│90мFл18нN:ЕB┤0зB│90@Гр╞"BM"л И(A)л","л И(B):ЕP┤192зP│м1:Бж21340:ДБж21160@РсI│ Г6(0)@атАI│1е180й10@─ф╞"C3BM"л И(40лI)л","л И(Z)л"R2"@шщ╞"C1BM"л И(40лI)л","л И(Z)л"R2"@ЄьZ│ZлNAюЛI:╔"P4":C1│0A+ёЕP│м1з4980:ДЕA(P)▓24зL│8000:Бе4980Aaє╝:┐1,1:F│ Г7(0):┐1,0:╞"C3BM20,90":Бж 21240:Бе4980A}°Ю:ЕA(274)┤▓0зI│8:Бе3860AШ З@128,"CHEKOV HERE..."A░ Й"ENERGY";O:ЕO┤│1зРA╥4З"PHASERS LOCKING ON TARGET."BHа160,2:а30,2:а120,2:а20,2:а70,2:а110,2:а40,2B\АR│0е250:ЛRB#pАRP│192е255B6ДЕA(RP)▓24з7340B@ШЛRP:РBQмKP│м1:Бж6500Bs└X│ Б((RPм192)о8):Y│RPм192мXн8BБ╘J2│X:K2│YBгшJ1│XмA(259):K1│YмA(260):Бж360B╠№Q│2:Бж4560:Q│0:J1│J2:K1│K2:L│O:Бж360B█ЕP│м1з7480Bэ$ЕA(P)┤25з7320C 8ЕEм100мO▓0зE│EмO:Бж4300CLБе7320C`ВC3tВ SHIP'S COMPUTERCMИВ -----------------CkЬЮ:П:ЕA(269)┤▓0зI│3:Бе3860CБ░НB$,J:ЕJ┤▓50з7600C░─З"SHIP'S COMPUTER":З"COMMAND FUNCTIONS:":ЗC╤╪З" DATA BASE SCAN TO LOCATE"CутЗJм50;" ";B$C√ьЕJ┤▓54зНB$,J:Бе7650DЗ" 5 LONG RANGE SENSOR SCAN"D5Зд5)"FROM DATA BASE"DYЗ" 6 QUADRANT DETAILED DISPLAY"Ds(З:Й"ENTER FUNCTION";ODП<ЕO┤0▒O▓6▒ Б(O)┤▓O з7580DЭPЕO┤5з7820D▒dИOм4Бе8180,8060D╣МЮ:ПD╥аНB$,J:ЕJм50┤▓O з7840E┤З"ENTERPRISE CURRENTLY LOCATED AT:";A(256);A(257);A(258)E4╚З"DATA BASE SCAN FOR ":ЗB$;":":ЗEA▄АP│0е191EVЁЕO│4░A(P)┤0з8000EkЕA(P)┤0▒O│4з8020EuБж240EК,ЕA(262лO)│0з8020EЬ@Бж 200:ЗB;C;DEнTЛP:З:Бе20100E╪|Й"ENTER QUADRANT (X,Y,Z)";B,C,D:Бж 120EчРЕP│м1з8060EёдБж240F╕ЕA(P)┤0зЗ"NO DATA AVAILABLE.":Бе21940F'╠Бе20220FMЇЙ"ENTER QUADRANT (X,Y,Z)";U,V,W:ЮFЖ З@448,"COMPUTER QUADRANT SCAN OF";:З═" # # #";U;V;W;FЦ R│1:Бе20440FЬ 0ВF╣ DВ LONG RANGE SENSOR SCANF╓ XВ ----------------------FЄ lЮ:ЕA(270)┤▓0зI│4:Бе3860G АU│A(256):V│A(257):W│A(258):R│0GV ФЗ@448,"LONG RANGE SCAN";:З@465,"QUADRANT"; И(U); И(V); И(W);Gb иБе20440Gh ╝ВG~ ╨В IMPULSE POWERGХ фВ ---------------G░ °ЕA(272)┤▓0зI│6:Бе 3860H!ЕA(271)┤▓0зI│5:Бж21930:Бж3860:┐0,0:Ю(0):З@134,"-- IMPULSE ENGINES --";:З@201,"MOVE CAREFULLY";:F│0:Бе8500H2! F│1:Q│1:Бж21580HA! ┐1,1:A$│ ТHQ!4G│ Ж(65280)Hs!>J│ Н(0):J│ Н(2)м31:V│31м Н(3)HК!CA$│ Т:ЕA$│"D"з8544Hк!HЕ J│0зI│1.5708н А(V):Бе8530H╕!MI│ Ф(VоJ)Hт!RЕJ┤0зI│Iл3.1415926:ДЕV┤0зI│Iл6.283185I!SJ│ Б( Ы((Jп2)л(Vп2))о5л.5):Z│Iн1.2732385If!TЕF│1з8537:ДЗ@0,C$;C$;C$:З@0,"";:ЕZ▓│1зАI1│1еZ:З"*";:ЕI1о3│ Б(I1о3)зЗ" ";:ЛI1 :ДЛI1Iж!VЕJ│▓1зЗ@20,"";:АI1│1еJ:З".";:ЕI1о3│ Б(I1о3)зЗ" ";:ЛI1 :ДЛI1I┬!XЕG│125▒G│253з8560:Д8500Iя!Y┴3:╗(0,0)м(254,0),╜:╞"BM4,0C2":ЕZ┤1з8540J!ZАI1│1еZ:╞"BR4R4":ЕI1о3│ Б(I1о3)з╞"BR6"J"![ЛI1J=!\╞"C4BM160,0":ЕJ│0з8536Jh!]АI1│1еJ:╞"BR4R4":ЕI1о3│ Б(I1о3)з╞"BR6"Jw!^ЛI1:Бе8536JЦ!`Ю:З@6,"DIGITAL ENTRY MODE"Jн!bЗ@194,C$:З@194,"";J╞!dЙ"HEADING (0-8) ";J1Jщ!fЕJ1┤0▒J1▓8з8546:ДJ1│J1н.785398K!hЗ@258,C$:З@258,"";K#!jЙ"SPEED (0-9)";J:ЕJ┤0▒J▓9з8552K.!lЕJ│0зРKH!nЕF│1зQ│1:Бж21580:┐1,1KQ!oI│J1Kp!pJ1│ Х(I):K1│м Е(I):Бж22080KН!zЕF│1з┴3:╗(0,0)м(250,0),╜KЫ!ШЕJ│0з9090K▓!└Бж360:A(╠X(X)лY)│0Kт!╘АI1│1еJ:I│0:Бж9220:ЕA(271)│0з╞"BM-8,0;C3R4"L!шX│XлJ1:Y│YлK1:Бж22020:Бж140L!№B$│"ENERGY BARRIER"La"ЕP│м1зE│ Д(E):X│XмJ1:Y│YмK1:Бж22020:Бж140:A(╠X(X)л Б(Y))│18:Бе8900L┴"$ЕB┤▓A(256)▒C┤▓A(257)зБж320:Q│1:Бж6080:Бж360:A(╠X(X)л Б(Y))│0:ЕF│1з┐1,1:Бе9020:ДБе9020Бе9020Lы"8Бж320:W│A(╠X(X)л Б(Y)):B$│"COLLISION"L√"LЕW│0зБе8980M%"`X│XмJ1:Y│YмK1:A(╠X(X)л Б(Y))│18:Бж320M5"tЕW┤▓20з8900MP"ИЕJмI1▓2зS│Sм100:Бе8900M|"ЬЕA(A(256)н8лA(257)лA(258)н64)│1006з2740MЧ"░A(276)│3:E│4000:Бе8940Mт"─ЕJмI1▓2з╚1,1:╝2:┐1,0:W│ Г7(0):A│0:Бж3160:Бж4100:Q│1:Бж21580:W│0:Бе8940NO"╪ЕW┤▓2░W┤▓3░W┤▓19з╚1,1:╝2:┐1,0:W│ Г7(0):A│0:Бж3160:Бж4100:Q│1:Бж21580:Бж360:Бж120:A(P)│ В(A(P)):ЕF│1з┐1,1Ny"ьБж22020:Бж360:ЕF│0зЮ:F│м1:ДI│5:Бж9220NР#АI1│1е1:ЛI1:Бе9060NЯ#I│5:Бж9220Nн#(З@362,"";N├#<а 30,2:а170,2:ЛI1N▀#PA(╠X(X)л Б(Y))│18:Бж320N°#dЕW│2▒W│3▒W│19зБе9280O #xЕE│4000зБе9160O0#ВЕF│1з┐1,0:ДЕF│0зЗ@268,"";OT#МЕ В(A(P))▓9999зБе20120:ДБж20120On#аЕ Й(CM$)┤▓6зР:ДCM$│""OЗ#кЕA(272)▓0зI│6:Бе3860O╛#┤T│Tл.3:E│EмA(261)п2н10:ЕE┤0з22320:ДЕF│1з8480:Д8450Oь#╚╚1,1:╝:┐1,0:I│ Г3(0):╞"C3BM60,85":Бж21240P#▄а50,2:а50,2:а5P,╕В --------------,,╠Ю:╝:P│ Б(Y)л╠X(X),@рБж21000:M│I:G│0,ЧЇЕI┤▓5зG│ Б(A(P)о600л2):Z│X:╞"C4BM220,0":Бж15000:╞"C2BM+4,4R2C4BM+4,-4":Z│Y:Бж15000,бXL│Lн4,пlЕQ│1з4560,╙АЕ Д(2)│1зJ1│J1мX:K1│K1мY:Бе4560-ФАZ│1е Ы(((XмJ1)п2)л((YмK1)п2)):L│Lн.6:ЛZ-иX│J1:Y│K1:Бе4640-!╨Бж22080-3фX│XлJ1:Y│YлK1-SюF│ Д(8)л4:Z│ Д(2):ЕZ│1зF│мF-v°ЕX┤0▒X▓7▒Y┤0▒Y▓7зP│м1:Ю:Бе4800-Б L│Lн.6-У P│ Б(Y)л╠X(X)-┬4ЕA(P)│0зЕJ1│0░K1│0зЗ"######",J1,K1:Р:Д4580-═HЕQ│2зР-эpF│ Д(8)л4:Z│ Д(2):ЕZ│1зF│мF.ДЕQ┤▓1░I│5░A(P)┤25зP│м1:Бе4840.2ШЕQ┤▓1░I│1░A(P)┤▓18зP│м1:Бе4840.:мF│0.E└ЕQ│2зР.W╩ЕQ│1░I│5з7120.╜шЕG│0зZ│X:╞"C4BM220,0":Бж15000:╞"C2BM+4,4R2C4BM+4,-4":Z│Y:Бж15000:ЕP▓0зG│ Б(A(P)о600л2):ДG│ Д(3)л1.ЇC1│1:ЕM│5зN│м1:U│125:V│1:Z│ Б(Oо188):Бж5400:Бе4920/!$N│1:U│1:V│125:F│Fн3:Z│ Б(Lо188)л3:Бж5400/18A│126:B│100/L`В ** COMPUTE DAMAGE **/htQ│0:L│ Б(L):ЕP│м1▒I│0зР/tИБж21000/ЩЬЕM│5░I┤▓1зБж5220:Бж21940:Бе22380/и░ЕI┤▓5з5140/║─Бж 5580:E│EмL/щ╪ЕLмA(261)н75▓0зБж4100:L│LмA(261)н75:Бе5080/ЇьЕE▓0зР0Бе223400@ЕI┤▓1з5220:Д╝:┐1,1:I│ Г7(0):┐1,0:ЕC1│0з╞"C3BM20,90":Бж212400П(A(P)│A(P)мL:ЕA(P)▓25з╞"S8BM128,96":A│128:B│92:Бж21340:┬(A,Bм4),6,G:╞"S4":Р0Ъ<Бе52200зPЕL┤100зР0╕dЕG┤0▒G▓4зG│20╘кВ ** FIRING ROUTINES **1┤АZ│1е20:а200,1:а210,1:╜(Aм16л Д(28),Bм10л Д(20),G):ЛZ1%╚A(P)│0:Бж360:Бж1201D▄A(P)│ В(A(P))м10000:S│Sл101JЁР1`╚1,1:┐1,( А(Nл1))1p+ЕP│м1зP│2621о,A│128:B│92:╞"S8BM128,96":┬(A,Bм4),6,G:Бж21340:ЕP│262зP│м11├JАI│U еV йNн(8лZ)1╪TЕA▓256▒A┤│0з55001■Y╔"T9L255O"л И(Nн(м1)л3)л П(S$,13)2^┬(A,96),I,32rA│AлF2|ЛI2)ЖA│1282>РАI│U еV йNн(8лZ)2SУЕA┤│0▒A▓256з55302iХ┬(A,96),I,1:A│AлF2бЪЛI:A│128:╞"S8BM128,96":Бж21340:┬(A,Bм4),6,G:╞"S4":Р2╝╕В ** SHAKE DISPLAY **3╠N│ Г7(0):╝:╞"C3BM112,76":Бж21240:╞"BM40,150":A│40:B│150:Бж213403рАW│1е Б(Lо5):I│ Г8(0):ЛW32Їа1,1:а2,2:а3,3:Р38В3rВ WARP DRIVE AND NEW QUADRANT SET UP3М0В -------------------3иDЮ:ЕA(273)┤▓0зI│7:Бе38603╖XБж 360:Z│03╥lЗ@256,"SULU HERE...":З3ЇАЙ"COURSE (X,Y,Z)";B,C,D:Бж1204ФЕP│м1з57604%иЙ"WARP FACTOR (0-8)";K:ЕK│0зР4A╝ЕK┤0▒K▓8▒ Б(K)┤▓K з58004x╨L│ Ы(((A(256)мB)п2)л((A(257)мC)п2)л((A(258)мD)п2))4Х╥Е Б(L)▓0з5860:ДЕZ│1з58504ы╒Ю:З@96,"SCOTT HERE ...":З"BUT CAPTAIN, ":З"WE ARE ALREADY IN";B;C;D"":Z│1:Бе57605 ┌З"O.K. IF YOU INSIST.":╔"P1"5"фЕEм100▓LнKп3з59805>°З@96,"SCOTT HERE....":З5o З"SORRY CAPTAIN,":З"BUT WE JUST DON'T HAVE "5Д З"ENOUGH ENERGY"5Р4Бе219405▒\E│EмLнKп3:T│Tл2нLнLоK:Бж 3205┴p╚1,1:╝:┐1,05┌z╞"C3BM26,16":Бж212405Є|АI│1е227й25:аI,1:ЛI6+АI│3584е3712й32:Т(I),255:Т(Iл160),85:Т(Iл320),170:ЛI6JМN│ Г2(0):N│ Г5(0):N│ Г7(0)6qОАI│3584е4032й32:Т(I),0:ЛI:N│ Г2(0)6ПмJ│ Б(LнLоK):╝:ЕJ▓0зБж39406│└Бж360:Бж120:Бж240:ЕA(271)│0зF│16ф╘ЕA(266)│0зA(266)│8:A(P)│ Ш( В(A(P))о10)н10л87;шЕA(265)▓0░A(266)│1зA(266)│7:A(P)│A(262)н1E4лA(263)н1E3лA(264)н1E2лA(265)н10лA(266)7Q№B│X:C│Y:D│3:Бж1407nЕA(266)▓1░A(266)┤5з221807М8ЕA(266)▓7зA(265)│A(265)м17нLАN│192е255:A(N)│0:ЛN:A(P)│187юVЕA(262)лA(263)лA(264)лA(265)│0зЕ Д(50)│1зM│10:Бж21440:Бе64207¤`АN│262е2658tЕ Б(A(N))│0з63808,ИЕN│262зM│ Д(1500)л2508<ЬЕN│263зM│208L░ЕN│264зM│198[─ЕN│265зM│38z╪Бж21440:A(N)│A(N)м1:Бе62608БьЛN8ЫЕA(266)▓7зM│2:Бж214408░R│0:ЕF│1зБе215808╢(В8╥<В KLINGON FIRING SETUP8яPВ ----------------------8■dАR│192е2559xЕA(R)▓24з65609МЛ:KP│0:Р9IаX│ Б((Rм192)о8):Y│Rм192м(Xн8):X1│X:Y1│Y9[┤Е Д(2)▓1з67209╚J1│ А(A(259)мX):K1│ А(A(260)мY)9ж▄ЕA(R)┤125▒(Eо3)▓A(R)зJ1│мJ1:K1│мK19цЁЕKP зJ1│2м Д(3):K1│2м Д(3):ДJ1│J1н( Д(2)м1):K1│K1н( Д(2)м1):ЕXлJ1▓│0░XлJ1┤│7зX1│XлJ1: ЕYлK1▓│0░YлK1┤│7зY1│YлK1:e,ЕA(╠X(X1)лY1)│0зG│A(╠X(X)лY):A(╠X(X)лY)│0:X│X1:Y│Y1:A(╠X(X)лY)│G:s@ЕKP з6540:ПTJ1│A(259)мX:K1│A(260)мY:йhX1│X:Y1│Y:J2│J1:K2│K1:╓|ЕA(261)┤3▒ Ы((J1п2)л(K1п2))┤5зQ│2:Бж4560:хРЕP│м1з6840:°дЕA(P)┤▓18з6540;,╕X│X1:Y│Y1:J1│A(259):K1│A(260):Q│0:L│ Д(A(R)н.7);R╠Е Б(L)▓100зA(R)│A(R)м Б(L):Бж4300;]рБе6540;cЇВ;~В FIRE SHIP'S WEAPONS;ЪВ ---------------------;┐DЮ:ЕA(275)┤▓0▒A(276)│0зI│9:Бе3860"ЯZ│Iн1.2732395:ЕA(271)┤▓0з7075:Д┴3:╗(0,0)м(252,0),╜:╞"C2BM4,0":ЕZ┤1з7079:ДАI1 R?ЕT▓1з2060 d╚0,1:Х100:└24nЕH┤▓0з2060:Д460HxЕD┤0▒D▓2зP│м1:РdМЕB┤0▒B▓7▒C┤0▒C▓7зP│м1:РwаP│8нBлCл64нD:Рж╚D│ Б(Pо64):B│ Б((PмDн64)о8):C│PмDн64мBн8:Р┌ЁA$│ И(A(P)):A$│ б(6м З(A$),"0")л П(A$, З(A$)м1) A(262)│ Й( Р(A$,1,1)):A(263)│ Й( Р(A$,2,1)):A(264)│ Й( Р(A$,3,1))RA(265)│ Й( Р(A$,4,1)):A(266)│ Й( Р(A$,5,1)):РЩ@A(256)│ Б(B):A(257)│ Б(C):A(258)│ Б(D):A(259)│ Б(X):A(260)│ Б(Y):Р╠hB│A(256):C│A(257):D│A(258):X│A(259):Y│A(260):Р▄╠МA(279):П:Ю■A$│"О ОжЕА&И@з01?&Ё9"$&Z│ Э(A$):╣ Г0│ Ж(Zл2)н256л Ж(Zл3)g0B$│"О ╞Жпз0 з0 з0 з0Z┴&ыО╞!зЙзЙБзЙзЙБ0Z┴&щ9"Н:Z│ Э(B$):╣ Г1│ Ж(Zл2)н256л Ж(Zл3)╖DS$│"╞О4жДз0И М #Ї50М  &щZ&у9"▌NI│ Э(S$):╣ Г2│ Ж(Iл2)н256л Ж(Iл3)XS$│";1;2;3;4;5;6;7;8;9;10;11;12"т]C$│"О Жк╞`4╞з0Z&∙50ИZ&эЖU╞ОKзДз зЙАзЙЙ0И Z&ю╞ОКзДз зЙ зЙ+0И Z&ю╞2ОщзДз 0И Z&Ў╞*ОhзДз0И Z&Ў╞&ОззДзИ0И Z&ї╞#ZОцО∙44зДзд0И 1и Z&є540И1и~1#└┴$с╞О О44зДзд0И 1и Z&є54Z0ИA1и?┴$фОJ╞зДз 0И Z&Ў9"^I│ Э(C$):╣ Г3│ Ж(Iл2)н256л Ж(Iл3)E`CM$│"Жк╞8О 4╞зД0Z&∙50И Z&э╞'0 4╞ зД0Z&∙50И Z&э9"laI│ Э(CM$):╣ Г4│ Ж(Iл2)н256л Ж(Iл3)ТlPL$│"╞ОЖU4╞з0Z&∙50И Z&э9"╣qI│ Э(PL$):╣ Г5│ Ж(Iл2)н256л Ж(Iл3)╫vE$│"Ж<╖ #Йў  ╩ \&ўL*Є9"¤{I│ Э(E$):╣ Г6│ Ж(Iл2)н256л Ж(Iл3),АF$│"О  ОЛцД0Ж<з#Z&¤Ж4з#цД0чдZ&¤МР%у9"RЕI│ Э(F$):╣ Г7│ Ж(Iл2)н256л Ж(Iл3)▓КD$│"ОО`Ж<╖ #╞ О44цджДзЖJзД1!ў  0И Ма#ш50Z&▀╞ О(4цджзДЖJз1!ў  0И Ма#ш50Z&▀9"╪ФI│ Э(D$):╣ Г8│ Ж(Iл2)н256л Ж(Iл3)°ЮJ$│"О0ИЗоД╞0жДА@зАZ&ў9" гI│ Э(J$):╣ Г9│ Ж(Iл2)н256л Ж(Iл3) 5и╣╠X(X)│ Б(X)н8л192 AшБе30660 G╨В `фВ MAINLINE ROUTINE z°В ------------------ В Ю:П ∙ЕE▓4000зA│8:B$│"ILLEGAL":Бж3165:АI│1е20:A(Iл Д(100))│ Д(2000):а200,2:З@168,"SOMEONE CHEATED!";:ЛI:З@200,"I QUIT":К! Е З(CM$)▓0зA$│CM$:CM$│"":Бе2160!X4З"ENTERPRISE & CREW":З"AWAITING YOUR ORDERS, CAPTAIN."!ОHАI│1е12:НB$,O:Зд5) Р("0123456789AR",I,1);д9)B$:ЛI!г\A$│ Т:З"ORDERS?"!╣aA$│ Т:ЕA$│""з2145!╘pJ│A(261):ЕA$│"="з40080!·ДO│ Ю("0123456789AR",A$):ЕO│0з2060"@ШИO Бж9400,3640,3340,7580,8300,21580,8440,5700,7160,6980,3000,3920"e№Бж360:Бж120:Е В(A(P))┤10000з2440"p Бж6500"Т $ЕA(261)│2зA(261)│3:A│4:Бж3100"╢ 8ЕA(268)│0░A(271)│0зO│3:Ю:Бж3400"╠ LЕA(271)│0зБж21580"╫ `Бе2500"ь ИB$│"SPACE STORM"# ЬЕ Д(100)│1зA│0:Бж3160:Бж4100#" ─ЕA(261)▓1зБж9400#= ╪T│Tл.3:E│EмA(261)п2н10#L ьЕE┤0з22320#[ J│1:Бж3940#m Е T┤H зБе2060#Ц (Ю:З@192,"STAR FLEET COMMAND REQUEST"#▒ <З"ENTERPRISE RETURN TO#▌ PЗ"STARBASE 7,7,2":H│Hл10:Бж20100:Бе2060#у xВ$ МВ GAME OVER-RATE PLAYER$ аВ ---------------------$< ┤Ю:П:N│2500мT:ЕN┤0зS│SлNн10$j ╚АP│0е191:ЕA(P)┤0з2800:ДS│Sл1:а150,1:а30,1$Э ▄ЕA(P)м( Ш( A(P) о10)н10)│9зS│Sл20:а60,1:а180,1$┐ ЁЗ@128,"RATING:"; Б(Sо4.91):ЛP% їЕS│▓491зАI│1е20:а220,1:а240,1:ЛI:З"CONGRATULATIONS, ADMIRAL":З"WORK WELL DONE":К%. ·Н B$,Z:ЕZ┤▓425зБе2810%H  Е S┤Z з Н B$,Z:Бе2815%o З:З"ADMIRAL FITZPATRICK HERE...":З%Ф ,З"CAPTAIN, AFTER REVIEWING YOUR"%║ @З"LOG AND DATA TAPES, I AM GOING"%▄ TЗ"TO RECOMMEND TO STAR FLEET"%ў hЗ"THAT YOU BE ";B$;"."%  |З:К& ЖВ& РВ ALERT STATUS&2 дВ --------------&8 ╕Ю&g ╠З@160,"1 - GREEN":З"2 - YELLOW":З"3 - RED"&З рЗ:Й"ENTER CONDITION CODE";A&Щ ЇЕA┤1▒A▓3з3000&н A(261)│A:ЕA│1зР&╗ A│2н(Aм1)&┴ П&▐ 0НB$,J:ЕJм20┤▓A(261)з3120&ё XA$│ Т:ЕA▓8зA│0&· ]Ю(A)'+ БАK│1е4:З@256л(30м З(B$))о2,B$;:╔"O3T2L48"лS$'8 ФЮ(0):╔S$'R иЕ Т┤▓ Л(13)зЮ(A):ЛK:Р'b ╝АK│0е0:ЛK:Р'h ╨В'Б фВ SCIENCE COMPUTER'Ы °В ------------------'║ Ю(1):ЕA(268)┤▓0зI│2:Бе3860'╘ ЕA(271)┤▓0зI│5:Бе3860'▄ 4O│0'ы HАP│192е255( \ЕO┤▓3░A(P)┤▓18░A(P)┤▓0▒O│3░A(P)▓24з3460(( pЛP:Бж21940:Р(; ДБж 21000:Бж200(j ШЗ:З"OBJECT AT"; И(B); И(C):З"IS A ";B$;"."(| мЕA(P)┤25з3440(к └З"READING"; Б(A(P)м25);"UNITS OF ENERGY."(╡ ╘Бе3440(╗ шР(┴ №В(╪В DAMAGE CONTROL(Ё$В ----------------(■8Ю:П:НB$,Z)LЕA(267)┤▓0зI│1:Бе3860)0`З"LT UHURA HERE...")StЗ" DAMAGE CONTROL REPORTS:":З)wИАZ│267е275:НB$,J:ЗB$;:Зд19);"";)бЬЕZ│275░A(276)│0зЗ"INOPERATIVE":Бе3820)╦░ЕA(Z)│0зЗ"OPERATIONAL":Бе3820::ДO│Oл1)ё─ЕA(Z)┤10зЗ Л(8);"BEING REPAIRED";*╪ЕA(Z)▓9зЗ Л(8);"** DAMAGED **"*#ьЛZ:Бе20100*+Ю:П*A(НB$,J:ЕI┤▓J з3880*e<З@160,B$;" INOPERATIVE":Бе21920*pFБе3940*КPАI│1е20:а Д(250),1:ЛI*аdАN│1еJ:АZ│267е275*▒xЕA(Z)│0з4060*╥МA(Z)│A(Z)м Д(5):ЕA(Z)▓0з4060*яаA(Z)│0:П:ЕA(267)┤▓0з4060+┤НB$,J:ЕJ┤▓Zм266з4020+.╚Ю:З@160,B$;" OPERATIONAL":Бж21900+:▄ЛZ:ЛN:Р+LАJ│1е4мA(261)+jZ│266л Д(9):ЕA(Z)┤▓0з4220+М,A(Z)│ Д(25)нJ:ЕA(267)┤▓0з4220+Ф@Ю:П+оTНB$,J:ЕJ┤▓Zм266з 4180+▄hЗ@160,"DAMAGE TO ";B$:Т(65314),15:Бж21920+х|ЛJ:Р+ыРВ,дВ BATTLE SETU$│"AFTER FLYINGINTO A "лB$bMVЇЗ@128,"ON STARDATE"; И( Б(Tн10)о10);", ";B$л","bБWЗ"THE ENTERPRISE & CREW WERE LOST":З"TO SPACE."b╖WЗ:З:╔"T2O2L2;1;P50;1;L1;6;P30;L2;1;P50;6;L1;10":КbыW0Ю:B$│"AFTER USING UP ITS ENERGY SUPPLY":Бе22260c'WDЮ:B$│"WHILE DOING BATTLE AGAINST THE KLINGONS":Бе22260c-WlЮcoWАЗ@192,"DESTRUCTION OF A ";B$:З"IS GROUNDS FOR COURT-MARTIAL."cЩWФЗ:З"YOU ARE RELIEVED OF YOUR COMMAND"cгWиЗ:З:Кc╒ulЖSTATUS,0,DAMAGE CONTROL,1,SCIENCE COMPUTER,2duАЖSHIP'S COMPUTER,3,LR SENSORS,4,SR SENSORS,5d4uФЖIMPULSE ENGINES,6,WARP DRIVE,7,PHASERS,8d_uиЖPHOTON TORPEDOES,9,ALERT,10,REPAIR,11dЖu╝ЖKLINGON WARSHIPS,50,STAR BASES,51dзu╨ЖCLASS F STARS,52,PLANETS,53d└uфЖUNEXPLORED AREAS,54dыu°ЖGREEN,21,YELLOW ALERT,22,RED ALERT,23ev ЖBLACK HOLE,32,O STAR,33,PULSAR,34eCv ЖSPACE NOISE,35,STAR FLEET HQ,36,G PLANET,37etv4ЖUNEXPLORED M PLANET,38,EXPLORED M PLANET,39eгvHЖPROMOTED,425,DECORATED,350,REASSIGNED,290e╨v\ЖDEMOTED,190,RESIGNED,-1,EXECUTED,-32000fvДЖ "E",999,30111,31111,30101,20121,20201,20001f*vШЖ 10001,10111,10211,10321,10221,-99fEv└Ж 1110,110,110,110,110fdvшЖ 1111,1111,1211,1121,1121frwЖ 3,3,2,2fаw8Ж 121,121,211,211,311,311,321,321,221,221f╨wLЖ 121,121,211,211,311,311,321,321,221,221,0f√w─З@352,"STAR TREK III(TM) VERSION 4.00"g w╪З"(C)(P)1981-LANCE MICKLUS,INC."g-wтV│ Г0(0)gLxV│15:U│54:I│5:В GOSUB21180gdxdНB$,J:ЕJ┤▓999з30820gДxxP│ Д(191)м1:ЕA(P)┤▓0з 30840gаxМНJ:ЕJ▓0зA(P)│мJ:Бе30840g├x▄P│ Д(150):M│P:ЕA(P)┤▓0зБе30940g╙xЁБж200:Бж320hyАB│A(256)м1еA(256)л1:АC│A(257)м1еA(257)л1hyАD│A(258)м1еA(258)л1h$y,Бж120hEy@ЕP┤▓м1зA(P)│10н Ш(A(P)о10)м5hZyTЛD:ЛC:ЛB:A(M)│м4hyдP│ Д(191)м1:Е Б(A(P))┤▓0зБе31140hйy╕НA(P):Е Б(A(P))┤▓0зA(P)│мA(P):Бе31140h╞y╠АN│0е190:ЕA(N)│0зA(N)│м1hўyрЛN:A(256)│7:A(257)│7:A(258)│2:A(276)│3:P│191i z&C$│" "i8z0E│3999:T│2200:H│2470:Q│0:A(191)│1006:S│0iizDA(259)│3:A(260)│3:A(261)│1:F│1:Бж6080:Бе2060iТЬРЮ:З@160,"";:╗Й"ENTER FILESPEC-> ";A$iеЬЪЕ З(A$)│0з2060i╠Ьд╗Й"(L)OAD OR (S)AVE THE GAME? ";B$iэЬоЕ  З(B$)│0з2060:ДB$│ О(B$,1)jЬ╕ЕB$┤▓"L"░B$┤▓"S"з2060jЬ┬ЕB$│"L"з40200jXЬ╠З"TURN ON CASSETTE (FOR RECORDING)";:Й"THEN PRESS ENTER";NjoЬ╓а100,40:Щ"O",м1,A$jАЬрЗ#м1,E,T,H,SjЦЬъАN│0е279й10:З";";jуЬЇЗ#м1,A(N),A(Nл1),A(Nл2),A(Nл3),A(Nл4),A(Nл5),A(Nл6),A(Nл7),A(Nл8),A(Nл9)k5Ь■ЛN:Ъм1:а100,40:З:Й"TURN OFF CASSETTE AND PRESS ENTER WHEN READY";N:Бе2060kkЭЗ"TURN ON CASSETTE (PLAY).":Й"THEN PRESS ENTER";NkЗЭЩ"I",м1,A$:Й#м1,E,T,H,SkЭЭАN│0е279й10:З"+";kъЭ&Й#м1,A(N),A(Nл1),A(Nл2),A(Nл3),A(Nл4),A(Nл5),A(Nл6),A(Nл7),A(Nл8),A(Nл9)l<Э0ЛN:Ъм1:а100,40:З:Й"TURN OFF CASSETTE AND PRESS ENTER WHEN READY";N:Бе2060                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              │1еZ:╞"BR4R4":ЕI1о3│ Б(I1о3)з╞"BR6">1аЛI1:Бе7079>}гЗ@0,C$;C$;C$:З@0,"";:ЕZ│▓1зАI1│1еZ:З"*";:ЕI1о3│ Б(I1о3)зЗ" ";:ЛI1 :ДЛI1>ЩзЕU│253▒U│125з7095:Д7045>╕иЮ:З@6,"DIGITAL ENTRY MODE">╧кЗ@194,C$:З@194,"";>ўмЙ"DIRECTION (0-8) ";I:ЕI┤0▒I▓8з7082?оI│Iн.785398?╖KP│м1:Бж6500?5╝J1│ Х(I):K1│м Е(I):Бж360?[╞A(276)│A(276)м1:Q│1:L│8000:Бе4300?k╨╚1,1:╝:┐1,0?Ч╤ЕP▓0зЕA(P)┤5зG│A(P)л1:ДG│ Б(A(P)о600)л2?╨╥ЕP│м1зБж360:Бж120:I│1:Е В(A(P))┤10000зG│1:ДG│ Д(3)л1?я╙N│ Д(3)н А( Д(2)н2м3):Z│90@╘ЕF▓0зF│( Д(8)л26)н А( Д(2)н2м3)@,▄╞"C3BM20,90":Бж21240@L▀A│222:B│90мFл18нN:ЕB┤0зB│90@Гр╞"BM"л И(A)л","л И(B):ЕP┤192зP│м1:Бж21340:ДБж21160@РсI│ Г6(0)@атАI│1е180й10@─ф╞"C3BM"л И(40лI)л","л И(Z)л"R2"@шщ╞"C1BM"л И(40лI)л","л И(Z)л"R2"@ЄьZ│ZлNAюЛI:╔"P4":C1│0A+ёЕP│м1з4980:ДЕA(P)▓24зL│8000:Бе4980Aaє╝:┐1,1:F│ Г7(0):┐1,0:╞"C3BM20,90":Бж 21240:Бе4980A}°Ю:ЕA(274)┤▓0зI│8:Бе3860AШ З@128,"CHEKOV HERE..."A░ Й"ENERGY";O:ЕO┤│1зРA╥4З"PHASERS LOCKING ON TARGET."BHа160,2:а30,2:а120,2:а20,2:а70,2:а110,2:а40,2B\АR│0е250:ЛRB#pАRP│192е255B6ДЕA(RP)▓24з7340B@ШЛRP:РBQмKP│м1:Бж6500Bs└X│ Б((RPм192)о8):Y│RPм192мXн8BБ╘J2│X:K2│YBгшJ1│XмA(259):K1│YмA(260):Бж360B╠№Q│2:Бж4560:Q│0:J1│J2:K1│K2:L│O:Бж360B█ЕP│м1з7480Bэ$ЕA(P)┤25з7320C 8ЕEм100мO▓0зE│EмO:Бж4300CLБе7320C`ВC3tВ SHIP'S COMPUTERCMИВ -----------------CkЬЮ:П:ЕA(269)┤▓0зI│3:Бе3860CБ░НB$,J:ЕJ┤▓50з7600C░─З"SHIP'S COMPUTER":З"COMMAND FUNCTIONS:":ЗC╤╪З" DATA BASE SCAN TO LOCATE"CутЗJм50;" ";B$C√ьЕJ┤▓54зНB$,J:Бе7650DЗ" 5 LONG RANGE SENSOR SCAN"D5Зд5)"FROM DATA BASE"DYЗ" 6 QUADRANT DETAILED DISPLAY"Ds(З:Й"ENTER FUNCTION";ODП<ЕO┤0▒O▓6▒ Б(O)┤▓O з7580DЭPЕO┤5з7820D▒dИOм4Бе8180,8060D╣МЮ:ПD╥аНB$,J:ЕJм50┤▓O з7840E┤З"ENTERPRISE CURRENTLY LOCATED AT:";A(256);A(257);A(258)E4╚З"DATA BASE SCAN FOR ":ЗB$;":":ЗEA▄АP│0е191EVЁЕO│4░A(P)┤0з8000EkЕA(P)┤0▒O│4з8020EuБж240EК,ЕA(262лO)│0з8020EЬ@Бж 200:ЗB;C;DEнTЛP:З:Бе20100E╪|Й"ENTER QUADRANT (X,Y,Z)";B,C,D:Бж 120EчРЕP│м1з8060EёдБж240F╕ЕA(P)┤0зЗ"NO DATA AVAILABLE.":Бе21940F'╠Бе20220FMЇЙ"ENTER QUADRANT (X,Y,Z)";U,V,W:ЮFЖ З@448,"COMPUTER QUADRANT SCAN OF";:З═" # # #";U;V;W;FЦ R│1:Бе20440FЬ 0ВF╣ DВ LONG RANGE SENSOR SCANF╓ XВ ----------------------FЄ lЮ:ЕA(270)┤▓0зI│4:Бе3860G АU│A(256):V│A(257):W│A(258):R│0GV ФЗ@448,"LONG RANGE SCAN";:З@465,"QUADRANT"; И(U); И(V); И(W);Gb иБе20440Gh ╝ВG~ ╨В IMPULSE POWERGХ фВ ---------------G░ °ЕA(272)┤▓0зI│6:Бе 3860H!ЕA(271)┤▓0зI│5:Бж21930:Бж3860:┐0,0:Ю(0):З@134,"-- IMPULSE ENGINES --";:З@201,"MOVE CAREFULLY";:F│0:Бе8500H2! F│1:Q│1:Бж21580HA! ┐1,1:A$│ ТHQ!4G│ Ж(65280)Hs!>J│ Н(0):J│ Н(2)м31:V│31м Н(3)HК!CA$│ Т:ЕA$│"D"з8544Hк!HЕ J│0зI│1.5708н А(V):Бе8530H╕!MI│ Ф(VоJ)Hт!RЕJ┤0зI│Iл3.1415926:ДЕV┤0зI│Iл6.283185I!SJ│ Б( Ы((Jп2)л(Vп2))о5л.5):Z│Iн1.2732385If!TЕF│1з8537:ДЗ@0,C$;C$;C$:З@0,"";:ЕZ▓│1зАI1│1еZ:З"*";:ЕI1о3│ Б(I1о3)зЗ" ";:ЛI1 :ДЛI1Iж!VЕJ│▓1зЗ@20,"";:АI1│1еJ:З".";:ЕI1о3│ Б(I1о3)зЗ" ";:ЛI1 :ДЛI1I┬!XЕG│125▒G│253з8560:Д8500Iя!Y┴3:╗(0,0)м(254,0),╜:╞"BM4,0C2":ЕZ┤1з8540J!ZАI1│1еZ:╞"BR4R4":ЕI1о3│ Б(I1о3)з╞"BR6"J"![ЛI1J=!\╞"C4BM160,0":ЕJ│0з8536Jh!]АI1│1еJ:╞"BR4R4":ЕI1о3│ Б(I1о3)з╞"BR6"Jw!^ЛI1:Бе8536JЦ!`Ю:З@6,"DIGITAL ENTRY MODE"Jн!bЗ@194,C$:З@194,"";J╞!dЙ"HEADING (0-8) ";J1Jщ!fЕJ1┤0▒J1▓8з8546:ДJ1│J1н.785398K!hЗ@258,C$:З@258,"";K#!jЙ"SPEED (0-9)";J:ЕJ┤0▒J▓9з8552K.!lЕJ│0зРKH!nЕF│1зQ│1:Бж21580:┐1,1KQ!oI│J1Kp!pJ1│ Х(I):K1│м Е(I):Бж22080KН!zЕF│1з┴3:╗(0,0)м(250,0),╜KЫ!ШЕJ│0з9090K▓!└Бж360:A(╠X(X)лY)│0Kт!╘АI1│1еJ:I│0:Бж9220:ЕA(271)│0з╞"BM-8,0;C3R4"L!шX│XлJ1:Y│YлK1:Бж22020:Бж140L!№B$│"ENERGY BARRIER"La"ЕP│м1зE│ Д(E):X│XмJ1:Y│YмK1:Бж22020:Бж140:A(╠X(X)л Б(Y))│18:Бе8900L┴"$ЕB┤▓A(256)▒C┤▓A(257)зБж320:Q│1:Бж6080:Бж360:A(╠X(X)л Б(Y))│0:ЕF│1з┐1,1:Бе9020:ДБе9020Бе9020Lы"8Бж320:W│A(╠X(X)л Б(Y)):B$│"COLLISION"L√"LЕW│0зБе8980M%"`X│XмJ1:Y│YмK1:A(╠X(X)л Б(Y))│18:Бж320M5"tЕW┤▓20з8900MP"ИЕJмI1▓2зS│Sм100:Бе8900M|"ЬЕA(A(256)н8лA(257)лA(258)н64)│1006з2740MЧ"░A(276)│3:E│4000:Бе8940Mт"─ЕJмI1▓2з╚1,1:╝2:┐1,0:W│ Г7(0):A│0:Бж3160:Бж4100:Q│1:Бж21580:W│0:Бе8940NO"╪ЕW┤▓2░W┤▓3░W┤▓19з╚1,1:╝2:┐1,0:W│ Г7(0):A│0:Бж3160:Бж4100:Q│1:Бж21580:Бж360:Бж120:A(P)│ В(A(P)):ЕF│1з┐1,1Ny"ьБж22020:Бж360:ЕF│0зЮ:F│м1:ДI│5:Бж9220NР#АI1│1е1:ЛI1:Бе9060NЯ#I│5:Бж9220Nн#(З@362,"";N├#<а 30,2:а170,2:ЛI1N▀#PA(╠X(X)л Б(Y))│18:Бж320N°#dЕW│2▒W│3▒W│19зБе9280O #xЕE│4000зБе9160O0#ВЕF│1з┐1,0:ДЕF│0зЗ@268,"";OT#МЕ В(A(P))▓9999зБе20120:ДБж20120On#аЕ Й(CM$)┤▓6зР:ДCM$│""OЗ#кЕA(272)▓0зI│6:Бе3860O╛#┤T│Tл.3:E│EмA(261)п2н10:ЕE┤0з22320:ДЕF│1з8480:Д8450Oь#╚╚1,1:╝:┐1,0:I│ Г3(0):╞"C3BM60,85":Бж21240P#▄а50,2:а50,2:а5 R?ЕT▓1з2060 d╚0,1:Х100:└24nЕH┤▓0з2060:Д460HxЕD┤0▒D▓2зP│м1:РdМЕB┤0▒B▓7▒C┤0▒C▓7зP│м1:РwаP│8нBлCл64нD:Рж╚D│ Б(Pо64):B│ Б((PмDн64)о8):C│PмDн64мBн8:Р┌ЁA$│ И(A(P)):A$│ б(6м З(A$),"0")л П(A$, З(A$)м1) A(262)│ Й( Р(A$,1,1)):A(263)│ Й( Р(A$,2,1)):A(264)│ Й( Р(A$,3,1))RA(265)│ Й( Р(A$,4,1)):A(266)│ Й( Р(A$,5,1)):РЩ@A(256)│ Б(B):A(257)│ Б(C):A(258)│ Б(D):A(259)│ Б(X):A(260)│ Б(Y):Р╠hB│A(256):C│A(257):D│A(258):X│A(259):Y│A(260):Р▄╠МA(279):П:Ю■A$│"О ОжЕА&И@з01?&Ё9"$&Z│ Э(A$):╣ Г0│ Ж(Zл2)н256л Ж(Zл3)g0B$│"О ╞Жпз0 з0 з0 з0Z┴&ыО╞!зЙзЙБзЙзЙБ0Z┴&щ9"Н:Z│ Э(B$):╣ Г1│ Ж(Zл2)н256л Ж(Zл3)╖DS$│"╞О4жДз0И М #Ї50М  &щZ&у9"▌NI│ Э(S$):╣ Г2│ Ж(Iл2)н256л Ж(Iл3)XS$│";1;2;3;4;5;6;7;8;9;10;11;12"т]C$│"О Жк╞`4╞з0Z&∙50ИZ&эЖU╞ОKзДз зЙАзЙЙ0И Z&ю╞ОКзДз зЙ зЙ+0И Z&ю╞2ОщзДз 0И Z&Ў╞*ОhзДз0И Z&Ў╞&ОззДзИ0И Z&ї╞#ZОцО∙44зДзд0И 1и Z&є540И1и~1#└┴$с╞О О44зДзд0И 1и Z&є54Z0ИA1и?┴$фОJ╞зДз 0И Z&Ў9"^I│ Э(C$):╣ Г3│ Ж(Iл2)н256л Ж(Iл3)E`CM$│"Жк╞8О 4╞зД0Z&∙50И Z&э╞'0 4╞ зД0Z&∙50И Z&э9"laI│ Э(CM$):╣ Г4│ Ж(Iл2)н256л Ж(Iл3)ТlPL$│"╞ОЖU4╞з0Z&∙50И Z&э9"╣qI│ Э(PL$):╣ Г5│ Ж(Iл2)н256л Ж(Iл3)╫vE$│"Ж<╖ #Йў  ╩ \&ўL*Є9"¤{I│ Э(E$):╣ Г6│ Ж(Iл2)н256л Ж(Iл3),АF$│"О  ОЛцД0Ж<з#Z&¤Ж4з#цД0чдZ&¤МР%у9"RЕI│ Э(F$):╣ Г7│ Ж(Iл2)н256л Ж(Iл3)▓КD$│"ОО`Ж<╖ #╞ О44цджДзЖJзД1!ў  0И Ма#ш50Z&▀╞ О(4цджзДЖJз1!ў  0И Ма#ш50Z&▀9"╪ФI│ Э(D$):╣ Г8│ Ж(Iл2)н256л Ж(Iл3)°ЮJ$│"О0ИЗоД╞0жДА@зАZ&ў9" гI│ Э(J$):╣ Г9│ Ж(Iл2)н256л Ж(Iл3) 5и╣╠X(X)│ Б(X)н8л192 AшБе30660 G╨В `фВ MAINLINE ROUTINE z°В ------------------ В Ю:П ∙ЕE▓4000зA│8:B$│"ILLEGAL":Бж3165:АI│1е20:A(Iл Д(100))│ Д(2000):а200,2:З@168,"SOMEONE CHEATED!";:ЛI:З@200,"I QUIT":К! Е З(CM$)▓0зA$│CM$:CM$│"":Бе2160!X4З"ENTERPRISE & CREW":З"AWAITING YOUR ORDERS, CAPTAIN."!ОHАI│1е12:НB$,O:Зд5) Р("0123456789AR",I,1);д9)B$:ЛI!г\A$│ Т:З"ORDERS?"!╣aA$│ Т:ЕA$│""з2145!╘pJ│A(261):ЕA$│"="з40080!·ДO│ Ю("0123456789AR",A$):ЕO│0з2060"@ШИO Бж9400,3640,3340,7580,8300,21580,8440,5700,7160,6980,3000,3920"e№Бж360:Бж120:Е В(A(P))┤10000з2440"p Бж6500"Т $ЕA(261)│2зA(261)│3:A│4:Бж3100"╢ 8ЕA(268)│0░A(271)│0зO│3:Ю:Бж3400"╠ LЕA(271)│0зБж21580"╫ `Бе2500"ь ИB$│"SPACE STORM"# ЬЕ Д(100)│1зA│0:Бж3160:Бж4100#" ─ЕA(261)▓1зБж9400#= ╪T│Tл.3:E│EмA(261)п2н10#L ьЕE┤0з22320#[ J│1:Бж3940#m Е T┤H зБе2060#Ц (Ю:З@192,"STAR FLEET COMMAND REQUEST"#▒ <З"ENTERPRISE RETURN TO#▌ PЗ"STARBASE 7,7,2":H│Hл10:Бж20100:Бе2060#у xВ$ МВ GAME OVER-RATE PLAYER$ аВ ---------------------$< ┤Ю:П:N│2500мT:ЕN┤0зS│SлNн10$j ╚АP│0е191:ЕA(P)┤0з2800:ДS│Sл1:а150,1:а30,1$Э ▄ЕA(P)м( Ш( A(P) о10)н10)│9зS│Sл20:а60,1:а180,1$┐ ЁЗ@128,"RATING:"; Б(Sо4.91):ЛP% їЕS│▓491зАI│1е20:а220,1:а240,1:ЛI:З"CONGRATULATIONS, ADMIRAL":З"WORK WELL DONE":К%. ·Н B$,Z:ЕZ┤▓425зБе2810%H  Е S┤Z з Н B$,Z:Бе2815%o З:З"ADMIRAL FITZPATRICK HERE...":З%Ф ,З"CAPTAIN, AFTER REVIEWING YOUR"%║ @З"LOG AND DATA TAPES, I AM GOING"%▄ TЗ"TO RECOMMEND TO STAR FLEET"%ў hЗ"THAT YOU BE ";B$;"."%  |З:К& ЖВ& РВ ALERT STATUS&2 дВ --------------&8 ╕Ю&g ╠З@160,"1 - GREEN":З"2 - YELLOW":З"3 - RED"&З рЗ:Й"ENTER CONDITION CODE";A&Щ ЇЕA┤1▒A▓3з3000&н A(261)│A:ЕA│1зР&╗ A│2н(Aм1)&┴ П&▐ 0НB$,J:ЕJм20┤▓A(261)з3120&ё XA$│ Т:ЕA▓8зA│0&· ]Ю(A)'+ БАK│1е4:З@256л(30м З(B$))о2,B$;:╔"O3T2L48"лS$'8 ФЮ(0):╔S$'R иЕ Т┤▓ Л(13)зЮ(A):ЛK:Р'b ╝АK│0е0:ЛK:Р'h ╨В'Б фВ SCIENCE COMPUTER'Ы °В ------------------'║ Ю(1):ЕA(268)┤▓0зI│2:Бе3860'╘ ЕA(271)┤▓0зI│5:Бе3860'▄ 4O│0'ы HАP│192е255( \ЕO┤▓3░A(P)┤▓18░A(P)┤▓0▒O│3░A(P)▓24з3460(( pЛP:Бж21940:Р(; ДБж 21000:Бж200(j ШЗ:З"OBJECT AT"; И(B); И(C):З"IS A ";B$;"."(| мЕA(P)┤25з3440(к └З"READING"; Б(A(P)м25);"UNITS OF ENERGY."(╡ ╘Бе3440(╗ шР(┴ №В(╪В DAMAGE CONTROL(Ё$В ----------------(■8Ю:П:НB$,Z)LЕA(267)┤▓0зI│1:Бе3860)0`З"LT UHURA HERE...")StЗ" DAMAGE CONTROL REPORTS:":З)wИАZ│267е275:НB$,J:ЗB$;:Зд19);"";)бЬЕZ│275░A(276)│0зЗ"INOPERATIVE":Бе3820)╦░ЕA(Z)│0зЗ"OPERATIONAL":Бе3820::ДO│Oл1)ё─ЕA(Z)┤10зЗ Л(8);"BEING REPAIRED";*╪ЕA(Z)▓9зЗ Л(8);"** DAMAGED **"*#ьЛZ:Бе20100*+Ю:П*A(НB$,J:ЕI┤▓J з3880*e<З@160,B$;" INOPERATIVE":Бе21920*pFБе3940*КPАI│1е20:а Д(250),1:ЛI*аdАN│1еJ:АZ│267е275*▒xЕA(Z)│0з4060*╥МA(Z)│A(Z)м Д(5):ЕA(Z)▓0з4060*яаA(Z)│0:П:ЕA(267)┤▓0з4060+┤НB$,J:ЕJ┤▓Zм266з4020+.╚Ю:З@160,B$;" OPERATIONAL":Бж21900+:▄ЛZ:ЛN:Р+LАJ│1е4мA(261)+jZ│266л Д(9):ЕA(Z)┤▓0з4220+М,A(Z)│ Д(25)нJ:ЕA(267)┤▓0з4220+Ф@Ю:П+оTНB$,J:ЕJ┤▓Zм266з 4180+▄hЗ@160,"DAMAGE TO ";B$:Т(65314),15:Бж21920+х|ЛJ:Р+ыРВ,дВ BATTLE SETU                                                                                                                                                                                                                                                                                  ┬                                        REKIII BAS BREK3-2 BAS&BTREKIIIDBASB                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                P,╕В --------------,,╠Ю:╝:P│ Б(Y)л╠X(X),@рБж21000:M│I:G│0,ЧЇЕI┤▓5зG│ Б(A(P)о600л2):Z│X:╞"C4BM220,0":Бж15000:╞"C2BM+4,4R2C4BM+4,-4":Z│Y:Бж15000,бXL│Lн4,пlЕQ│1з4560,╙АЕ Д(2)│1зJ1│J1мX:K1│K1мY:Бе4560-ФАZ│1е Ы(((XмJ1)п2)л((YмK1)п2)):L│Lн.6:ЛZ-иX│J1:Y│K1:Бе4640-!╨Бж22080-3фX│XлJ1:Y│YлK1-SюF│ Д(8)л4:Z│ Д(2):ЕZ│1зF│мF-v°ЕX┤0▒X▓7▒Y┤0▒Y▓7зP│м1:Ю:Бе4800-Б L│Lн.6-У P│ Б(Y)л╠X(X)-┬4ЕA(P)│0зЕJ1│0░K1│0зЗ"######",J1,K1:Р:Д4580-═HЕQ│2зР-эpF│ Д(8)л4:Z│ Д(2):ЕZ│1зF│мF.ДЕQ┤▓1░I│5░A(P)┤25зP│м1:Бе4840.2ШЕQ┤▓1░I│1░A(P)┤▓18зP│м1:Бе4840.:мF│0.E└ЕQ│2зР.W╩ЕQ│1░I│5з7120.╜шЕG│0зZ│X:╞"C4BM220,0":Бж15000:╞"C2BM+4,4R2C4BM+4,-4":Z│Y:Бж15000:ЕP▓0зG│ Б(A(P)о600л2):ДG│ Д(3)л1.ЇC1│1:ЕM│5зN│м1:U│125:V│1:Z│ Б(Oо188):Бж5400:Бе4920/!$N│1:U│1:V│125:F│Fн3:Z│ Б(Lо188)л3:Бж5400/18A│126:B│100/L`В ** COMPUTE DAMAGE **/htQ│0:L│ Б(L):ЕP│м1▒I│0зР/tИБж21000/ЩЬЕM│5░I┤▓1зБж5220:Бж21940:Бе22380/и░ЕI┤▓5з5140/║─Бж 5580:E│EмL/щ╪ЕLмA(261)н75▓0зБж4100:L│LмA(261)н75:Бе5080/ЇьЕE▓0зР0Бе223400@ЕI┤▓1з5220:Д╝:┐1,1:I│ Г7(0):┐1,0:ЕC1│0з╞"C3BM20,90":Бж212400П(A(P)│A(P)мL:ЕA(P)▓25з╞"S8BM128,96":A│128:B│92:Бж21340:┬(A,Bм4),6,G:╞"S4":Р0Ъ<Бе52200зPЕL┤100зР0╕dЕG┤0▒G▓4зG│20╘кВ ** FIRING ROUTINES **1┤АZ│1е20:а200,1:а210,1:╜(Aм16л Д(28),Bм10л Д(20),G):ЛZ1%╚A(P)│0:Бж360:Бж1201D▄A(P)│ В(A(P))м10000:S│Sл101JЁР1`╚1,1:┐1,( А(Nл1))1p+ЕP│м1зP│2621о,A│128:B│92:╞"S8BM128,96":┬(A,Bм4),6,G:Бж21340:ЕP│262зP│м11├JАI│U еV йNн(8лZ)1╪TЕA▓256▒A┤│0з55001■Y╔"T9L255O"л И(Nн(м1)л3)л П(S$,13)2^┬(A,96),I,32rA│AлF2|ЛI2)ЖA│1282>РАI│U еV йNн(8лZ)2SУЕA┤│0▒A▓256з55302iХ┬(A,96),I,1:A│AлF2бЪЛI:A│128:╞"S8BM128,96":Бж21340:┬(A,Bм4),6,G:╞"S4":Р2╝╕В ** SHAKE DISPLAY **3╠N│ Г7(0):╝:╞"C3BM112,76":Бж21240:╞"BM40,150":A│40:B│150:Бж213403рАW│1е Б(Lо5):I│ Г8(0):ЛW32Їа1,1:а2,2:а3,3:Р38В3rВ WARP DRIVE AND NEW QUADRANT SET UP3М0В -------------------3иDЮ:ЕA(273)┤▓0зI│7:Бе38603╖XБж 360:Z│03╥lЗ@256,"SULU HERE...":З3ЇАЙ"COURSE (X,Y,Z)";B,C,D:Бж1204ФЕP│м1з57604%иЙ"WARP FACTOR (0-8)";K:ЕK│0зР4A╝ЕK┤0▒K▓8▒ Б(K)┤▓K з58004x╨L│ Ы(((A(256)мB)п2)л((A(257)мC)п2)л((A(258)мD)п2))4Х╥Е Б(L)▓0з5860:ДЕZ│1з58504ы╒Ю:З@96,"SCOTT HERE ...":З"BUT CAPTAIN, ":З"WE ARE ALREADY IN";B;C;D"":Z│1:Бе57605 ┌З"O.K. IF YOU INSIST.":╔"P1"5"фЕEм100▓LнKп3з59805>°З@96,"SCOTT HERE....":З5o З"SORRY CAPTAIN,":З"BUT WE JUST DON'T HAVE "5Д З"ENOUGH ENERGY"5Р4Бе219405▒\E│EмLнKп3:T│Tл2нLнLоK:Бж 3205┴p╚1,1:╝:┐1,05┌z╞"C3BM26,16":Бж212405Є|АI│1е227й25:аI,1:ЛI6+АI│1536е1664й32:Т(I),255:Т(Iл160),85:Т(Iл320),170:ЛI6JМN│ Г2(0):N│ Г5(0):N│ Г7(0)6qОАI│1536е1984й32:Т(I),0:ЛI:N│ Г2(0)6ПмJ│ Б(LнLоK):╝:ЕJ▓0зБж39406│└Бж360:Бж120:Бж240:ЕA(271)│0зF│16ф╘ЕA(266)│0зA(266)│8:A(P)│ Ш( В(A(P))о10)н10л87;шЕA(265)▓0░A(266)│1зA(266)│7:A(P)│A(262)н1E4лA(263)н1E3лA(264)н1E2лA(265)н10лA(266)7Q№B│X:C│Y:D│3:Бж1407nЕA(266)▓1░A(266)┤5з221807М8ЕA(266)▓7зA(265)│A(265)м17нLАN│192е255:A(N)│0:ЛN:A(P)│187юVЕA(262)лA(263)лA(264)лA(265)│0зЕ Д(50)│1зM│10:Бж21440:Бе64207¤`АN│262е2658tЕ Б(A(N))│0з63808,ИЕN│262зM│ Д(1500)л2508<ЬЕN│263зM│208L░ЕN│264зM│198[─ЕN│265зM│38z╪Бж21440:A(N)│A(N)м1:Бе62608БьЛN8ЫЕA(266)▓7зM│2:Бж214408░R│0:ЕF│1зБе215808╢(В8╥<В KLINGON FIRING SETUP8яPВ ----------------------8■dАR│192е2559xЕA(R)▓24з65609МЛ:KP│0:Р9IаX│ Б((Rм192)о8):Y│Rм192м(Xн8):X1│X:Y1│Y9[┤Е Д(2)▓1з67209╚J1│ А(A(259)мX):K1│ А(A(260)мY)9ж▄ЕA(R)┤125▒(Eо3)▓A(R)зJ1│мJ1:K1│мK19цЁЕKP зJ1│2м Д(3):K1│2м Д(3):ДJ1│J1н( Д(2)м1):K1│K1н( Д(2)м1):ЕXлJ1▓│0░XлJ1┤│7зX1│XлJ1: ЕYлK1▓│0░YлK1┤│7зY1│YлK1:e,ЕA(╠X(X1)лY1)│0зG│A(╠X(X)лY):A(╠X(X)лY)│0:X│X1:Y│Y1:A(╠X(X)лY)│G:s@ЕKP з6540:ПTJ1│A(259)мX:K1│A(260)мY:йhX1│X:Y1│Y:J2│J1:K2│K1:╓|ЕA(261)┤3▒ Ы((J1п2)л(K1п2))┤5зQ│2:Бж4560:хРЕP│м1з6840:°дЕA(P)┤▓18з6540;,╕X│X1:Y│Y1:J1│A(259):K1│A(260):Q│0:L│ Д(A(R)н.7);R╠Е Б(L)▓100зA(R)│A(R)м Б(L):Бж4300;]рБе6540;cЇВ;~В FIRE SHIP'S WEAPONS;ЪВ ---------------------;┐DЮ:ЕA(275)┤▓0▒A(276)│0зI│9:Бе3860"ЯZ│Iн1.2732395:ЕA(271)┤▓0з7075:Д┴3:╗(0,0)м(252,0),╜:╞"C2BM4,0":ЕZ┤1з7079:ДАI10,2:а70,2:а50,2:а100,2:а2,2P/#ЁT│Tл1:J│2:Бе3940PЗ$ЕA(271)│0з╞"BM"л И( Б(X)н32л16)л","л И( Б(Y)н24л12)л";C1NR4C"л И( Б(Iо2)л1):Бж21240PН$РP│$,В ** MAKE CLASS M PLANET FOUND **Pт$@ЕW│2зБж360:Бж120:A(P)│ Ш( В(A(P))о10)н10л9Pь$JW│Wм1Q$T╚1,1:╝( Б(Wо6)л2):┐1,0:╞"BM34,144C3":Бж 21240Qe$U┬(200,50),146,3,1.05:ЕW▓8з├(66,2),2,3:Бе9320:ДI│ Г4(0):├(66,2),3,3Q║$V┬(170,80), Д(12)л8,W:┬(200,20), Д(40),W:┬(140,40), Д(12)л8,W:┬(180,130), Д(25),WQў$X├(170,80),W,W:├(140,40),W,W:├(180,130),W,W:├(200,20),W,WR'$hа50,2:а70,2:а120,2:а160,2:а110,2:а2,2:а90,2R-$rРR3$|ВRI$РВ STATUS REPORTR`$дВ ---------------Rf$╕ЮRР$╠З@101,"STATUS REPORT:":Зд5) б(14,"-")R░$рЗд5)"STARDATE:"; Б(Tн10)о10R╚$ЇЗд5)"ENERGY:"; Б(E)Rэ%B$│"GREEN":ЕA(261)│2зB$│"YELLOW"S%ЕA(261)│3зB$│"RED"S%0Зд5)"CONDITION: ";B$SF%DЗд5)"QUADRANT:";A(256);A(257);A(258)Sf%XЗд5)"SECTOR:";A(259);A(260)SЙ%lЗд5)"PHOTON TORPEDOES:";A(276)SЦ%АБе 20100S░:ОВ ** DRAW NUMBERS **S┐:ШЕZ┤0з15070S╨:вЕZ▓9.5з15040T:мИZл1Бе15080,15090,15100,15110,15120,15130,15140,15150,15160,15170T:╢РT7:└Бж15090:Z│Zм10:Бе15020T^:▐╞"BM-4,+2R2BU4BR4":Z│ В(Z):Бе15020T:ш╞"BR2R2F2D4G2L2H2U4BR6BU2":РTТ:Є╞"BR2ND8BR4":РTн:№╞"R4F2G2L2G2D2R6BU8":РT╠;╞"R4F2G2NR2F2G2L4BU8BR6":РT▀;╞"D4R6ND4U4":РT№;╞"NR6D4R4F2G2L4BU8BR6":РU ;$╞"BR2NR4G2D4F2R2E2H2L2BU4BR4":РU8;.╞"R8D2G4D2BU8BR4":РU`;8╞"BR2NG2R2F2G2L2G2F2R2E2H2BU4BR6":РUЕ;B╞"BR2NG2R2F2D2NL4D2G2L2BU8BR4":РUЛN ВUгN4В :::::::::::::::::U╗NHВ : SUBROUTINES :U╙N\В :::::::::::::::::UюNpВ ** ENTER KEY WAIT **UЇNДЗVNОЗ"(ENTER) TO CONTINUE. =>";CM$;V'NШЕQ│1зQ│0:РV1N╢A$│ ТVJN└A$│ Т:ЕA$│""зБе20160VeN╘ЕA$│ Л(13)зР:ДCM$│A$:РVNшВ ** STATUS REPORT **VеN№Ю:З@96," ";"COORDINATES:";B;C;D:ЗV╤OЗ"KLINGONS:";A(262),"STARBASES:";A(263)V°O$З"STARS:";A(264),"PLANETS:";A(265)W#O8П:ЕA(266)▓6▒A(266)┤2зB$│"NONE":Бе20320WAOLНB$,J:ЕJм30┤▓A(266)з20360WeO`З:З"ASTRONOMICAL FEATURE:";B$:ПWЕOtЕA(266)┤7зB$│"NONE":Бе20380WгOИНB$,J:ЕJм30┤▓A(266)з20360W╦OЬЗ:З"SCIENTIFIC INTEREST:",д5)B$:З:ЗW╫O░Бе20120WєO─В * LONG RANGE S. SCAN*W O╪З@32,""X$OьАC│Vм1еVл1:АD│Wм1еWл1:АB│Uм1еUл1X.PБж120XNPЕP│м1зЗ" UNKNOWN ";:Бе20760XdP(A$│ П( И(A(P)),1)XЬP<ЕR│0░ В(A(P))м( Б( В(A(P))о10)н10)┤▓5зA(P)│ В(A(P))X┬PPЕR│1░A(P)┤0зЗ" NO DATA ";:Бе20760XєPdЕ В(A(P))│1▒R│1░A(P)│5зЗ" VOID ";:Бе20760YPxЕA$│"2"зЗ" BLK HOLE";:I│ Г9(0):Бе20760YIPМЕA$│"3"зЗ" O STAR ";:I│ Г9(0):Бе20760YtPаЕA$│"4"зЗ" PULSAR ";:I│ Г9(0):Бе20760YЪP┤ЕR│0░A$│"5"зЗ" NOISE ";:Бе20760Y╝P╚ЕA$│"6"зЗ" HEADQTRS";:Бе20760Y╫P▄Бж240:ЕA(262)▓0за60,2:ZPЁЗ═" K#B#S#P#";A(262);A(263);A(264);A(265);Z#QЕA(262)▓0за80,2:I│ Г9(0)Z9QЛB:З" ";D:ЛD:З:ЛCZXQ,З@4,Uм1;:З@13,U;:З@22,Uл1;Z{Q@З@126,Vм1;:З@254,V;:З@382,Vл1;ZИQJI│ Г0(0)ZТQTI│191ZЯQhN│ Г1(0)Z╡QрЗ@482,"";:Бе20110Z╧QЇВ ** LOOK UP TABLE **ZфRI│0:B$│"TRIBBLE"[RЕA(P)│2зI│4:B$│"CLASS M PLANET"[,R0ЕA(P)│3зI│4:B$│"CLASS G PLANET"[LRDЕA(P)│18зI│5:B$│"STAR SHIP"[oRXЕA(P)│19зI│3:B$│"CLASS F STAR"[ПRlЕA(P)│20зI│2:B$│"STAR BASE"[╡RАЕA(P)▓24зI│1:B$│"KLINGON WARSHIP"[╗RФР[╟RиБж21000[їR╝ИIл1Бе21200,21340,21325,21327,21320,21240\ R╨╞"BM+2,0C2R1":Р\#RфВ ENTERPRISE GRAPHIC\oR°╞"BM-8,+6;NR14H2NR18E2NR14BR8H12L2NR12F2R8BR4BD2NR10G2NR14F2NR10F2R6":Р\ЖSGВ PLANET GRAPHICS\▒SH┬(A,B),8,A(P)л1:├(A,B),A(P)л1,A(P)л1:Р\╚SLВ STARBASE GRAPHIC];SM╞"C3BR4BU2U10L4D10BU4G4F2R8E2H4E2R2F6D2G4L16H4U2E6R4BD12D6R4U6":├(Aл2,Bм2),3,3:├(Aл2,Bл8),3,3:├(Aл2,Bл2),2,3:Р]WSNВ CLASS F STAR GRAPHIC]}SO╞"C2NR8NE8NU8NH8NL8NG8ND8NF8R2":Р]ФS[В KLINGON GRAPHIC]╠S\╞"C"л И(G)л"BU4R6F4D6G2BL16H2U6E4R4":┬(A,Bм4),4,G:Р]шS└B│ Д(8)м1:C│ Д(8)м1:D│3^S╘АU│Bм1еBл1:АV│Cм1еCл1^SшЕU┤0▒U▓7▒V┤0▒V▓7зБе21520^BS№P│╠X(U)лV:Е Б(A(P))┤▓0зБе21440^LTЛV:ЛU^_T$Бж140:A(P)│M:Р^ЖTLЮ(0):ЕA(271)┤▓0зI│5:Бж21930:Бе3860^нT`Бж360:Бж120:A(P)│ В(A(P)):З@32,"";^╜Tj╚1,1:╝:┐1,0^√TtАK│0е7:A│16:B│Kн24л12:╞"C3BM16,"л И(B):АP│192лK е 255 й 8_)TИЕA(P)│0з╞"C3R4":ДG│ Б(A(P)о600л2):Бж21160_ATТA│Aл32:ЕA▓252з21660_]TЧ╞"C3BM"л И(A)л","л И(B)_АTЬЛP:ЛK:┴ 3:╗(0,0)м(256,192),╜,B_ШT╪ЕQ│1зQ│0:Р:ДБж20150_иTьБж360:Бж140_хUЕ В(A(P))▓9999▒A(272)┤▓0▒ Й(CM$)┤▓6▒ Й(CM$)┤▓9зР:ДCM$│""`U И  Й(CM$)о3м1 Бе8480,7020`'U(З@0, б(31,"="):З@288, б(31,"=")`-U<Р`SUМA$│ Т:АN│0е30:а70,1:а40,1:Бе21960`sUаA$│ Т:АN│0е5:а150,2:Бе21960`дUкA$│ Т:╚1,1:╝:┐1,0:Т(65489),1:АN│1е20:Бе21960`╖U┤A$│ Т:АN│0е700`╠U╚Е Т┤▓ Л(13)зЛN:РaVX│Bн8лX:B│ Б(Xо8):X│XмBн8:Y│Cн8лY:C│ Б(Yо8):Y│YмCн8a VРa?V@Е В(J1)▓ В(K1)зK1│K1о В(J1):J1│J1о В(J1):Бе22120a]VTJ1│J1о В(K1):K1│K1о В(K1)aVhJ1│ Ш(J1н1000л.5н А(J1))о1000aгV|K1│ Ш(K1н1000л.5н А(K1))о1000:РaйVдЮa▀V╕B$│"LARGE BLACK HOLE":ЕA(266)│3зB$│"CLASS O STAR"a∙V╠ЕA(266)│4зB$│"PULSAR"bVрB R?&ЕT▓1з2060& d╚0,1:Х100:└2&4nЕH┤▓0з2060:Д460&HxЕD┤0▒D▓2зP│м1:Р&dМЕB┤0▒B▓7▒C┤0▒C▓7зP│м1:Р&wаP│8нBлCл64нD:Р&ж╚D│ Б(Pо64):B│ Б((PмDн64)о8):C│PмDн64мBн8:Р&┌ЁA$│ И(A(P)):A$│ б(6м З(A$),"0")л П(A$, З(A$)м1)' A(262)│ Й( Р(A$,1,1)):A(263)│ Й( Р(A$,2,1)):A(264)│ Й( Р(A$,3,1))'RA(265)│ Й( Р(A$,4,1)):A(266)│ Й( Р(A$,5,1)):Р'Щ@A(256)│ Б(B):A(257)│ Б(C):A(258)│ Б(D):A(259)│ Б(X):A(260)│ Б(Y):Р'╠hB│A(256):C│A(257):D│A(258):X│A(259):Y│A(260):Р'▄╠МA(279):П:Ю'■A$│"О ОжЕА&И@з01?&Ё9"($&Z│ Э(A$):╣ Г0│ Ж(Zл2)н256л Ж(Zл3)(g0B$│"О ╞Жпз0 з0 з0 з0Z┴&ыО╞!зЙзЙБзЙзЙБ0Z┴&щ9"(Н:Z│ Э(B$):╣ Г1│ Ж(Zл2)н256л Ж(Zл3)(╖DS$│"╞О4жДз0И М #Ї50М  &щZ&у9"(▌NI│ Э(S$):╣ Г2│ Ж(Iл2)н256л Ж(Iл3))XS$│";1;2;3;4;5;6;7;8;9;10;11;12")т]C$│"О Жк╞`4╞з0Z&∙50ИZ&эЖU╞ОKзДз зЙАзЙЙ0И Z&ю╞ОКзДз зЙ зЙ+0И Z&ю╞2ОщзДз 0И Z&Ў╞*ОhзДз0И Z&Ў╞&ОззДзИ0И Z&ї╞#ZОцО∙44зДзд0И 1и Z&є540И1и~1#└┴$с╞О О44зДзд0И 1и Z&є54Z0ИA1и?┴$фОJ╞зДз 0И Z&Ў9"*^I│ Э(C$):╣ Г3│ Ж(Iл2)н256л Ж(Iл3)*E`CM$│"Жк╞8О 4╞зД0Z&∙50И Z&э╞'0 4╞ зД0Z&∙50И Z&э9"*laI│ Э(CM$):╣ Г4│ Ж(Iл2)н256л Ж(Iл3)*ТlPL$│"╞ОЖU4╞з0Z&∙50И Z&э9"*╣qI│ Э(PL$):╣ Г5│ Ж(Iл2)н256л Ж(Iл3)*╫vE$│"Ж<╖ #Йў  ╩ \&ўL*Є9"*¤{I│ Э(E$):╣ Г6│ Ж(Iл2)н256л Ж(Iл3)+,АF$│"О  ОЛцД0Ж<з#Z&¤Ж4з#цД0чдZ&¤МР%у9"+RЕI│ Э(F$):╣ Г7│ Ж(Iл2)н256л Ж(Iл3)+▓КD$│"ОО`Ж<╖ #╞ О44цджДзЖJзД1!ў  0И Ма#ш50Z&▀╞ О(4цджзДЖJз1!ў  0И Ма#ш50Z&▀9"+╪ФI│ Э(D$):╣ Г8│ Ж(Iл2)н256л Ж(Iл3)+°ЮJ$│"О0ИЗоД╞0жДА@зАZ&ў9",гI│ Э(J$):╣ Г9│ Ж(Iл2)н256л Ж(Iл3),5и╣╠X(X)│ Б(X)н8л192,AшБе30660,G╨В,`фВ MAINLINE ROUTINE,z°В ------------------,В Ю:П,∙ЕE▓4000зA│8:B$│"ILLEGAL":Бж3165:АI│1е20:A(Iл Д(100))│ Д(2000):а200,2:З@168,"SOMEONE CHEATED!";:ЛI:З@200,"I QUIT":К- Е З(CM$)▓0зA$│CM$:CM$│"":Бе2160-X4З"ENTERPRISE & CREW":З"AWAITING YOUR ORDERS, CAPTAIN."-ОHАI│1е12:НB$,O:Зд5) Р("0123456789AR",I,1);д9)B$:ЛI-г\A$│ Т:З"ORDERS?"-╣aA$│ Т:ЕA$│""з2145-╘pJ│A(261):ЕA$│"="з40080-·ДO│ Ю("0123456789AR",A$):ЕO│0з2060.@ШИO Бж9400,3640,3340,7580,8300,21580,8440,5700,7160,6980,3000,3920.e№Бж360:Бж120:Е В(A(P))┤10000з2440.p Бж6500.Т $ЕA(261)│2зA(261)│3:A│4:Бж3100.╢ 8ЕA(268)│0░A(271)│0зO│3:Ю:Бж3400.╠ LЕA(271)│0зБж21580.╫ `Бе2500.ь ИB$│"SPACE STORM"/ ЬЕ Д(100)│1зA│0:Бж3160:Бж4100/" ─ЕA(261)▓1зБж9400/= ╪T│Tл.3:E│EмA(261)п2н10/L ьЕE┤0з22320/[ J│1:Бж3940/m Е T┤H зБе2060/Ц (Ю:З@192,"STAR FLEET COMMAND REQUEST"/▒ <З"ENTERPRISE RETURN TO/▌ PЗ"STARBASE 7,7,2":H│Hл10:Бж20100:Бе2060/у xВ0 МВ GAME OVER-RATE PLAYER0 аВ ---------------------0< ┤Ю:П:N│2500мT:ЕN┤0зS│SлNн100j ╚АP│0е191:ЕA(P)┤0з2800:ДS│Sл1:а150,1:а30,10Э ▄ЕA(P)м( Ш( A(P) о10)н10)│9зS│Sл20:а60,1:а180,10┐ ЁЗ@128,"RATING:"; Б(Sо4.91):ЛP1 їЕS│▓491зАI│1е20:а220,1:а240,1:ЛI:З"CONGRATULATIONS, ADMIRAL":З"WORK WELL DONE":К1. ·Н B$,Z:ЕZ┤▓425зБе28101H  Е S┤Z з Н B$,Z:Бе28151o З:З"ADMIRAL FITZPATRICK HERE...":З1Ф ,З"CAPTAIN, AFTER REVIEWING YOUR"1║ @З"LOG AND DATA TAPES, I AM GOING"1▄ TЗ"TO RECOMMEND TO STAR FLEET"1ў hЗ"THAT YOU BE ";B$;"."1  |З:К2 ЖВ2 РВ ALERT STATUS22 дВ --------------28 ╕Ю2g ╠З@160,"1 - GREEN":З"2 - YELLOW":З"3 - RED"2З рЗ:Й"ENTER CONDITION CODE";A2Щ ЇЕA┤1▒A▓3з30002н A(261)│A:ЕA│1зР2╗ A│2н(Aм1)2┴ П2▐ 0НB$,J:ЕJм20┤▓A(261)з31202ё XA$│ Т:ЕA▓8зA│02· ]Ю(A)3+ БАK│1е4:З@256л(30м З(B$))о2,B$;:╔"O3T2L48"лS$38 ФЮ(0):╔S$3R иЕ Т┤▓ Л(13)зЮ(A):ЛK:Р3b ╝АK│0е0:ЛK:Р3h ╨В3Б фВ SCIENCE COMPUTER3Ы °В ------------------3║ Ю(1):ЕA(268)┤▓0зI│2:Бе38603╘ ЕA(271)┤▓0зI│5:Бе38603▄ 4O│03ы HАP│192е2554 \ЕO┤▓3░A(P)┤▓18░A(P)┤▓0▒O│3░A(P)▓24з34604( pЛP:Бж21940:Р4; ДБж 21000:Бж2004j ШЗ:З"OBJECT AT"; И(B); И(C):З"IS A ";B$;"."4| мЕA(P)┤25з34404к └З"READING"; Б(A(P)м25);"UNITS OF ENERGY."4╡ ╘Бе34404╗ шР4┴ №В4╪В DAMAGE CONTROL4Ё$В ----------------4■8Ю:П:НB$,Z5LЕA(267)┤▓0зI│1:Бе386050`З"LT UHURA HERE..."5StЗ" DAMAGE CONTROL REPORTS:":З5wИАZ│267е275:НB$,J:ЗB$;:Зд19);"";5бЬЕZ│275░A(276)│0зЗ"INOPERATIVE":Бе38205╦░ЕA(Z)│0зЗ"OPERATIONAL":Бе3820::ДO│Oл15ё─ЕA(Z)┤10зЗ Л(8);"BEING REPAIRED";6╪ЕA(Z)▓9зЗ Л(8);"** DAMAGED **"6#ьЛZ:Бе201006+Ю:П6A(НB$,J:ЕI┤▓J з38806e<З@160,B$;" INOPERATIVE":Бе219206pFБе39406КPАI│1е20:а Д(250),1:ЛI6аdАN│1еJ:АZ│267е2756▒xЕA(Z)│0з40606╥МA(Z)│A(Z)м Д(5):ЕA(Z)▓0з40606яаA(Z)│0:П:ЕA(267)┤▓0з40607┤НB$,J:ЕJ┤▓Zм266з40207.╚Ю:З@160,B$;" OPERATIONAL":Бж219007:▄ЛZ:ЛN:Р7LАJ│1е4мA(261)7jZ│266л Д(9):ЕA(Z)┤▓0з42207М,A(Z)│ Д(25)нJ:ЕA(267)┤▓0з42207Ф@Ю:П7оTНB$,J:ЕJ┤▓Zм266з 41807▄hЗ@160,"DAMAGE TO ";B$:Т(65314),15:Бж219207х|ЛJ:Р7ыРВ8дВ BATTLE SETUP8╕В --------------8,╠Ю:╝:P│ Б(Y)л╠X(X)8@рБж21000:M│I:G│08ЧЇЕI┤▓5зG│ Б(A(P)о600л2):Z│X:╞"C4BM220,0":Бж15000:╞"C2BM+4,4R2C4BM+4,-4":Z│Y:Бж150008бXL│Lн48пlЕQ│1з45608╙АЕ Д(2)│1зJ1│J1мX:K1│K1мY:Бе45609ФАZ│1е Ы(((XмJ1)п2)л((YмK1)п2)):L│Lн.6:ЛZ9иX│J1:Y│K1:Бе46409!╨Бж2208093фX│XлJ1:Y│YлK19SюF│ Д(8)л4:Z│ Д(2):ЕZ│1зF│мF9v°ЕX┤0▒X▓7▒Y┤0▒Y▓7зP│м1:Ю:Бе48009Б L│Lн.69У P│ Б(Y)л╠X(X)9┬4ЕA(P)│0зЕJ1│0░K1│0зЗ"######",J1,K1:Р:Д45809═HЕQ│2зР9эpF│ Д(8)л4:Z│ Д(2):ЕZ│1зF│мF:ДЕQ┤▓1░I│5░A(P)┤25зP│м1:Бе4840:2ШЕQ┤▓1░I│1░A(P)┤▓18зP│м1:Бе4840::мF│0:E└ЕQ│2зР:W╩ЕQ│1░I│5з7120:╜шЕG│0зZ│X:╞"C4BM220,0":Бж15000:╞"C2BM+4,4R2C4BM+4,-4":Z│Y:Бж15000:ЕP▓0зG│ Б(A(P)о600л2):ДG│ Д(3)л1:ЇC1│1:ЕM│5зN│м1:U│125:V│1:Z│ Б(Oо188):Бж5400:Бе4920;!$N│1:U│1:V│125:F│Fн3:Z│ Б(Lо188)л3:Бж5400;18A│126:B│100;L`В ** COMPUTE DAMAGE **;htQ│0:L│ Б(L):ЕP│м1▒I│0зР;tИБж21000;ЩЬЕM│5░I┤▓1зБж5220:Бж21940:Бе22380;и░ЕI┤▓5з5140;║─Бж 5580:E│EмL;щ╪ЕLмA(261)н75▓0зБж4100:L│LмA(261)н75:Бе5080;ЇьЕE▓0зР<Бе22340<@ЕI┤▓1з5220:Д╝:┐1,1:I│ Г7(0):┐1,0:ЕC1│0з╞"C3BM20,90":Бж21240<П(A(P)│A(P)мL:ЕA(P)▓25з╞"S8BM128,96":A│128:B│92:Бж21340:┬(A,Bм4),6,G:╞"S4":Р<Ъ<Бе5220<зPЕL┤100зР<╕dЕG┤0▒G▓4зG│2<╘кВ ** FIRING ROUTINES **=┤АZ│1е20:а200,1:а210,1:╜(Aм16л Д(28),Bм10л Д(20),G):ЛZ=%╚A(P)│0:Бж360:Бж120=D▄A(P)│ В(A(P))м10000:S│Sл10=JЁР=`╚1,1:┐1,( А(Nл1))=p+ЕP│м1зP│262=о,A│128:B│92:╞"S8BM128,96":┬(A,Bм4),6,G:Бж21340:ЕP│262зP│м1=├JАI│U еV йNн(8лZ)=╪TЕA▓256▒A┤│0з5500=■Y╔"T9L255O"л И(Nн(м1)л3)л П(S$,13)>^┬(A,96),I,3>rA│AлF>|ЛI>)ЖA│128>>РАI│U еV йNн(8лZ)>SУЕA┤│0▒A▓256з5530>iХ┬(A,96),I,1:A│AлF>бЪЛI:A│128:╞"S8BM128,96":Бж21340:┬(A,Bм4),6,G:╞"S4":Р>╝╕В ** SHAKE DISPLAY **?╠N│ Г7(0):╝:╞"C3BM112,76":Бж21240:╞"BM40,150":A│40:B│150:Бж21340?рАW│1е Б(Lо5):I│ Г8(0):ЛW?2Їа1,1:а2,2:а3,3:Р?8В?rВ WARP DRIVE AND NEW QUADRANT SET UP?М0В -------------------?иDЮ:ЕA(273)┤▓0зI│7:Бе3860?╖XБж 360:Z│0?╥lЗ@256,"SULU HERE...":З?ЇАЙ"COURSE (X,Y,Z)";B,C,D:Бж120@ФЕP│м1з5760@%иЙ"WARP FACTOR (0-8)";K:ЕK│0зР@A╝ЕK┤0▒K▓8▒ Б(K)┤▓K з5800@x╨L│ Ы(((A(256)мB)п2)л((A(257)мC)п2)л((A(258)мD)п2))@Х╥Е Б(L)▓0з5860:ДЕZ│1з5850@ы╒Ю:З@96,"SCOTT HERE ...":З"BUT CAPTAIN, ":З"WE ARE ALREADY IN";B;C;D"":Z│1:Бе5760A ┌З"O.K. IF YOU INSIST.":╔"P1"A"фЕEм100▓LнKп3з5980A>°З@96,"SCOTT HERE....":ЗAo З"SORRY CAPTAIN,":З"BUT WE JUST DON'T HAVE "AД З"ENOUGH ENERGY"AР4Бе21940A▒\E│EмLнKп3:T│Tл2нLнLоK:Бж 320A┴p╚1,1:╝:┐1,0A┌z╞"C3BM26,16":Бж21240AЄ|АI│1е227й25:аI,1:ЛIB+АI│3584е3712й32:Т(I),255:Т(Iл160),85:Т(Iл320),170:ЛIBJМN│ Г2(0):N│ Г5(0):N│ Г7(0)BqОАI│1536е1984й32:Т(I),0:ЛI:N│ Г2(0)BПмJ│ Б(LнLоK):╝:ЕJ▓0зБж3940B│└Бж360:Бж120:Бж240:ЕA(271)│0зF│1Bф╘ЕA(266)│0зA(266)│8:A(P)│ Ш( В(A(P))о10)н10л8C;шЕA(265)▓0░A(266)│1зA(266)│7:A(P)│A(262)н1E4лA(263)н1E3лA(264)н1E2лA(265)н10лA(266)CQ№B│X:C│Y:D│3:Бж140CnЕA(266)▓1░A(266)┤5з22180CМ8ЕA(266)▓7зA(265)│A(265)м1CнLАN│192е255:A(N)│0:ЛN:A(P)│18CюVЕA(262)лA(263)лA(264)лA(265)│0зЕ Д(50)│1зM│10:Бж21440:Бе6420C¤`АN│262е265DtЕ Б(A(N))│0з6380D,ИЕN│262зM│ Д(1500)л250D<ЬЕN│263зM│20DL░ЕN│264зM│19D[─ЕN│265зM│3Dz╪Бж21440:A(N)│A(N)м1:Бе6260DБьЛNDЫЕA(266)▓7зM│2:Бж21440D░R│0:ЕF│1зБе21580D╢(ВD╥<В KLINGON FIRING SETUPDяPВ ----------------------D■dАR│192е255ExЕA(R)▓24з6560EМЛ:KP│0:РEIаX│ Б((Rм192)о8):Y│Rм192м(Xн8):X1│X:Y1│YE[┤Е Д(2)▓1з6720E╚J1│ А(A(259)мX):K1│ А(A(260)мY)Eж▄ЕA(R)┤125▒(Eо3)▓A(R)зJ1│мJ1:K1│мK1EцЁЕKP зJ1│2м Д(3):K1│2м Д(3):ДJ1│J1н( Д(2)м1):K1│K1н( Д(2)м1)FЕXлJ1▓│0░XлJ1┤│7зX1│XлJ1F ЕYлK1▓│0░YлK1┤│7зY1│YлK1Fe,ЕA(╠X(X1)лY1)│0зG│A(╠X(X)лY):A(╠X(X)лY)│0:X│X1:Y│Y1:A(╠X(X)лY)│GFs@ЕKP з6540FПTJ1│A(259)мX:K1│A(260)мYFйhX1│X:Y1│Y:J2│J1:K2│K1F╓|ЕA(261)┤3▒ Ы((J1п2)л(K1п2))┤5зQ│2:Бж4560FхРЕP│м1з6840F°дЕA(P)┤▓18з6540G,╕X│X1:Y│Y1:J1│A(259):K1│A(260):Q│0:L│ Д(A(R)н.7)GR╠Е Б(L)▓100зA(R)│A(R)м Б(L):Бж4300G]рБе6540GcЇВG~В FIRE SHIP'S WEAPONSGЪВ ---------------------G┐DЮ:ЕA(275)┤▓0▒A(276)│0зI│9:Бе3860HAXQ│1:ЕA(271)┤▓0зI│5:Бж 21930:Бж3860:┐0,0:Ю:З@133,"* PHOTON TORPEDOES *":З@193,"AIM AND FIRE AT YOUR OWN RISK":Т65314,15:Бе7040HИb╚1,1:╝:┐1,0:АK│0е7:A│16:B│Kн24л12:╞"C3BM16,"л И(B):АP│192лK е255й8HоdЕA(P)┤▓0зG│ Б(A(P)о600л2):Бж21160H┼fA│Aл32:ЕA▓252з7018Hсh╞"C3BM"л И(A)л","л И(B)IjЛP:ЛK:┴ 3:╗(0,0)м(256,192),╜,BIАа50,2IЕU│ Ж(65280)I@КN│ Н(0):N│ Н(2)м31:V│31м Н(3)IWМA$│ Т:ЕA$│"D"з7080IvПЕN│0зI│1.5708н А(V):Бе7070IДФI│ Ф(VоN)IоЮЕN┤0зI│Iл3.1415926:ДЕV┤0зI│Iл6.283185J"ЯZ│Iн1.2732395:ЕA(271)┤▓0з7075:Д┴3:╗(0,0)м(252,0),╜:╞"C2BM4,0":ЕZ┤1з7079:ДАI1│1еZ:╞"BR4R4":ЕI1о3│ Б(I1о3)з╞"BR6"J1аЛI1:Бе7079J}гЗ@0,C$;C$;C$:З@0,"";:ЕZ│▓1зАI1│1еZ:З"*";:ЕI1о3│ Б(I1о3)зЗ" ";:ЛI1 :ДЛI1JЩзЕU│253▒U│125з7095:Д7045J╕иЮ:З@6,"DIGITAL ENTRY MODE"J╧кЗ@194,C$:З@194,"";JўмЙ"DIRECTION (0-8) ";I:ЕI┤0▒I▓8з7082KоI│Iн.785398K╖KP│м1:Бж6500K5╝J1│ Х(I):K1│м Е(I):Бж360K[╞A(276)│A(276)м1:Q│1:L│8000:Бе4300Kk╨╚1,1:╝:┐1,0KЧ╤ЕP▓0зЕA(P)┤5зG│A(P)л1:ДG│ Б(A(P)о600)л2K╨╥ЕP│м1зБж360:Бж120:I│1:Е В(A(P))┤10000зG│1:ДG│ Д(3)л1Kя╙N│ Д(3)н А( Д(2)н2м3):Z│90L╘ЕF▓0зF│( Д(8)л26)н А( Д(2)н2м3)L,▄╞"C3BM20,90":Бж21240LL▀A│222:B│90мFл18нN:ЕB┤0зB│90LГр╞"BM"л И(A)л","л И(B):ЕP┤192зP│м1:Бж21340:ДБж21160LРсI│ Г6(0)LатАI│1е180й10L─ф╞"C3BM"л И(40лI)л","л И(Z)л"R2"Lшщ╞"C1BM"л И(40лI)л","л И(Z)л"R2"LЄьZ│ZлNMюЛI:╔"P4":C1│0M+ёЕP│м1з4980:ДЕA(P)▓24зL│8000:Бе4980Maє╝:┐1,1:F│ Г7(0):┐1,0:╞"C3BM20,90":Бж 21240:Бе4980M}°Ю:ЕA(274)┤▓0зI│8:Бе3860MШ З@128,"CHEKOV HERE..."M░ Й"ENERGY";O:ЕO┤│1зРM╥4З"PHASERS LOCKING ON TARGET."NHа160,2:а30,2:а120,2:а20,2:а70,2:а110,2:а40,2N\АR│0е250:ЛRN#pАRP│192е255N6ДЕA(RP)▓24з7340N@ШЛRP:РNQмKP│м1:Бж6500Ns└X│ Б((RPм192)о8):Y│RPм192мXн8NБ╘J2│X:K2│YNгшJ1│XмA(259):K1│YмA(260):Бж360N╠№Q│2:Бж4560:Q│0:J1│J2:K1│K2:L│O:Бж360N█ЕP│м1з7480Nэ$ЕA(P)┤25з7320O 8ЕEм100мO▓0зE│EмO:Бж4300OLБе7320O`ВO3tВ SHIP'S COMPUTEROMИВ -----------------OkЬЮ:П:ЕA(269)┤▓0зI│3:Бе3860OБ░НB$,J:ЕJ┤▓50з7600O░─З"SHIP'S COMPUTER":З"COMMAND FUNCTIONS:":ЗO╤╪З" DATA BASE SCAN TO LOCATE"OутЗJм50;" ";B$O√ьЕJ┤▓54зНB$,J:Бе7650PЗ" 5 LONG RANGE SENSOR SCAN"P5Зд5)"FROM DATA BASE"PYЗ" 6 QUADRANT DETAILED DISPLAY"Ps(З:Й"ENTER FUNCTION";OPП<ЕO┤0▒O▓6▒ Б(O)┤▓O з7580PЭPЕO┤5з7820P▒dИOм4Бе8180,8060P╣МЮ:ПP╥аНB$,J:ЕJм50┤▓O з7840Q┤З"ENTERPRISE CURRENTLY LOCATED AT:";A(256);A(257);A(258)Q4╚З"DATA BASE SCAN FOR ":ЗB$;":":ЗQA▄АP│0е191QVЁЕO│4░A(P)┤0з8000QkЕA(P)┤0▒O│4з8020QuБж240QК,ЕA(262лO)│0з8020QЬ@Бж 200:ЗB;C;DQнTЛP:З:Бе20100Q╪|Й"ENTER QUADRANT (X,Y,Z)";B,C,D:Бж 120QчРЕP│м1з8060QёдБж240R╕ЕA(P)┤0зЗ"NO DATA AVAILABLE.":Бе21940R'╠Бе20220RMЇЙ"ENTER QUADRANT (X,Y,Z)";U,V,W:ЮRЖ З@448,"COMPUTER QUADRANT SCAN OF";:З═" # # #";U;V;W;RЦ R│1:Бе20440RЬ 0ВR╣ DВ LONG RANGE SENSOR SCANR╓ XВ ----------------------RЄ lЮ:ЕA(270)┤▓0зI│4:Бе3860S АU│A(256):V│A(257):W│A(258):R│0SV ФЗ@448,"LONG RANGE SCAN";:З@465,"QUADRANT"; И(U); И(V); И(W);Sb иБе20440Sh ╝ВS~ ╨В IMPULSE POWERSХ фВ ---------------S░ °ЕA(272)┤▓0зI│6:Бе 3860T!ЕA(271)┤▓0зI│5:Бж21930:Бж3860:┐0,0:Ю(0):З@134,"-- IMPULSE ENGINES --";:З@201,"MOVE CAREFULLY";:F│0:Бе8500T2! F│1:Q│1:Бж21580TA! ┐1,1:A$│ ТTQ!4G│ Ж(65280)Ts!>J│ Н(0):J│ Н(2)м31:V│31м Н(3)TК!CA$│ Т:ЕA$│"D"з8544Tк!HЕ J│0зI│1.5708н А(V):Бе8530T╕!MI│ Ф(VоJ)Tт!RЕJ┤0зI│Iл3.1415926:ДЕV┤0зI│Iл6.283185U!SJ│ Б( Ы((Jп2)л(Vп2))о5л.5):Z│Iн1.2732385Uf!TЕF│1з8537:ДЗ@0,C$;C$;C$:З@0,"";:ЕZ▓│1зАI1│1еZ:З"*";:ЕI1о3│ Б(I1о3)зЗ" ";:ЛI1 :ДЛI1Uж!VЕJ│▓1зЗ@20,"";:АI1│1еJ:З".";:ЕI1о3│ Б(I1о3)зЗ" ";:ЛI1 :ДЛI1U┬!XЕG│125▒G│253з8560:Д8500Uя!Y┴3:╗(0,0)м(254,0),╜:╞"BM4,0C2":ЕZ┤1з8540V!ZАI1│1еZ:╞"BR4R4":ЕI1о3│ Б(I1о3)з╞"BR6"V"![ЛI1V=!\╞"C4BM160,0":ЕJ│0з8536Vh!]АI1│1еJ:╞"BR4R4":ЕI1о3│ Б(I1о3)з╞"BR6"Vw!^ЛI1:Бе8536VЦ!`Ю:З@6,"DIGITAL ENTRY MODE"Vн!bЗ@194,C$:З@194,"";V╞!dЙ"HEADING (0-8) ";J1Vщ!fЕJ1┤0▒J1▓8з8546:ДJ1│J1н.785398W!hЗ@258,C$:З@258,"";W#!jЙ"SPEED (0-9)";J:ЕJ┤0▒J▓9з8552W.!lЕJ│0зРWH!nЕF│1зQ│1:Бж21580:┐1,1WQ!oI│J1Wp!pJ1│ Х(I):K1│м Е(I):Бж22080WН!zЕF│1з┴3:╗(0,0)м(250,0),╜WЫ!ШЕJ│0з9090W▓!└Бж360:A(╠X(X)лY)│0Wт!╘АI1│1еJ:I│0:Бж9220:ЕA(271)│0з╞"BM-8,0;C3R4"X!шX│XлJ1:Y│YлK1:Бж22020:Бж140X!№B$│"ENERGY BARRIER"Xa"ЕP│м1зE│ Д(E):X│XмJ1:Y│YмK1:Бж22020:Бж140:A(╠X(X)л Б(Y))│18:Бе8900X┴"$ЕB┤▓A(256)▒C┤▓A(257)зБж320:Q│1:Бж6080:Бж360:A(╠X(X)л Б(Y))│0:ЕF│1з┐1,1:Бе9020:ДБе9020Бе9020Xы"8Бж320:W│A(╠X(X)л Б(Y)):B$│"COLLISION"X√"LЕW│0зБе8980Y%"`X│XмJ1:Y│YмK1:A(╠X(X)л Б(Y))│18:Бж320Y5"tЕW┤▓20з8900YP"ИЕJмI1▓2зS│Sм100:Бе8900Y|"ЬЕA(A(256)н8лA(257)лA(258)н64)│1006з2740YЧ"░A(276)│3:E│4000:Бе8940Yт"─ЕJмI1▓2з╚1,1:╝2:┐1,0:W│ Г7(0):A│0:Бж3160:Бж4100:Q│1:Бж21580:W│0:Бе8940ZO"╪ЕW┤▓2░W┤▓3░W┤▓19з╚1,1:╝2:┐1,0:W│ Г7(0):A│0:Бж3160:Бж4100:Q│1:Бж21580:Бж360:Бж120:A(P)│ В(A(P)):ЕF│1з┐1,1Zy"ьБж22020:Бж360:ЕF│0зЮ:F│м1:ДI│5:Бж9220ZР#АI1│1е1:ЛI1:Бе9060ZЯ#I│5:Бж9220Zн#(З@362,"";Z├#<а 30,2:а170,2:ЛI1Z▀#PA(╠X(X)л Б(Y))│18:Бж320Z°#dЕW│2▒W│3▒W│19зБе9280[ #xЕE│4000зБе9160[0#ВЕF│1з┐1,0:ДЕF│0зЗ@268,"";[T#МЕ В(A(P))▓9999зБе20120:ДБж20120[n#аЕ Й(CM$)┤▓6зР:ДCM$│""[З#кЕA(272)▓0зI│6:Бе3860[╛#┤T│Tл.3:E│EмA(261)п2н10:ЕE┤0з22320:ДЕF│1з8480:Д8450[ь#╚╚1,1:╝:┐1,0:I│ Г3(0):╞"C3BM60,85":Бж21240\#▄а50,2:а50,2:а50,2:а70,2:а50,2:а100,2:а2,2\/#ЁT│Tл1:J│2:Бе3940\З$ЕA(271)│0з╞"BM"л И( Б(X)н32л16)л","л И( Б(Y)н24л12)л";C1NR4C"л И( Б(Iо2)л1):Бж21240\Н$Р\│$,В ** MAKE CLASS M PLANET FOUND **\т$@ЕW│2зБж360:Бж120:A(P)│ Ш( В(A(P))о10)н10л9\ь$JW│Wм1]$T╚1,1:╝( Б(Wо6)л2):┐1,0:╞"BM34,144C3":Бж 21240]e$U┬(200,50),146,3,1.05:ЕW▓8з├(66,2),2,3:Бе9320:ДI│ Г4(0):├(66,2),3,3]║$V┬(170,80), Д(12)л8,W:┬(200,20), Д(40),W:┬(140,40), Д(12)л8,W:┬(180,130), Д(25),W]ў$X├(170,80),W,W:├(140,40),W,W:├(180,130),W,W:├(200,20),W,W^'$hа50,2:а70,2:а120,2:а160,2:а110,2:а2,2:а90,2^-$rР^3$|В^I$РВ STATUS REPORT^`$дВ ---------------^f$╕Ю^Р$╠З@101,"STATUS REPORT:":Зд5) б(14,"-")^░$рЗд5)"STARDATE:"; Б(Tн10)о10^╚$ЇЗд5)"ENERGY:"; Б(E)^э%B$│"GREEN":ЕA(261)│2зB$│"YELLOW"_%ЕA(261)│3зB$│"RED"_%0Зд5)"CONDITION: ";B$_F%DЗд5)"QUADRANT:";A(256);A(257);A(258)_f%XЗд5)"SECTOR:";A(259);A(260)_Й%lЗд5)"PHOTON TORPEDOES:";A(276)_Ц%АБе 20100_░:ОВ ** DRAW NUMBERS **_┐:ШЕZ┤0з15070_╨:вЕZ▓9.5з15040`:мИZл1Бе15080,15090,15100,15110,15120,15130,15140,15150,15160,15170`:╢Р`7:└Бж15090:Z│Zм10:Бе15020`^:▐╞"BM-4,+2R2BU4BR4":Z│ В(Z):Бе15020`:ш╞"BR2R2F2D4G2L2H2U4BR6BU2":Р`Т:Є╞"BR2ND8BR4":Р`н:№╞"R4F2G2L2G2D2R6BU8":Р`╠;╞"R4F2G2NR2F2G2L4BU8BR6":Р`▀;╞"D4R6ND4U4":Р`№;╞"NR6D4R4F2G2L4BU8BR6":Рa ;$╞"BR2NR4G2D4F2R2E2H2L2BU4BR4":Рa8;.╞"R8D2G4D2BU8BR4":Рa`;8╞"BR2NG2R2F2G2L2G2F2R2E2H2BU4BR6":РaЕ;B╞"BR2NG2R2F2D2NL4D2G2L2BU8BR4":РaЛN ВaгN4В :::::::::::::::::a╗NHВ : SUBROUTINES :a╙N\В :::::::::::::::::aюNpВ ** ENTER KEY WAIT **aЇNДЗbNОЗ"(ENTER) TO CONTINUE. =>";CM$;b'NШЕQ│1зQ│0:Рb1N╢A$│ ТbJN└A$│ Т:ЕA$│""зБе20160beN╘ЕA$│ Л(13)зР:ДCM$│A$:РbNшВ ** STATUS REPORT **bеN№Ю:З@96," ";"COORDINATES:";B;C;D:Зb╤OЗ"KLINGONS:";A(262),"STARBASES:";A(263)b°O$З"STARS:";A(264),"PLANETS:";A(265)c#O8П:ЕA(266)▓6▒A(266)┤2зB$│"NONE":Бе20320cAOLНB$,J:ЕJм30┤▓A(266)з20360ceO`З:З"ASTRONOMICAL FEATURE:";B$:ПcЕOtЕA(266)┤7зB$│"NONE":Бе20380cгOИНB$,J:ЕJм30┤▓A(266)з20360c╦OЬЗ:З"SCIENTIFIC INTEREST:",д5)B$:З:Зc╫O░Бе20120cєO─В * LONG RANGE S. SCAN*c O╪З@32,""d$OьАC│Vм1еVл1:АD│Wм1еWл1:АB│Uм1еUл1d.PБж120dNPЕP│м1зЗ" UNKNOWN ";:Бе20760ddP(A$│ П( И(A(P)),1)dЬP<ЕR│0░ В(A(P))м( Б( В(A(P))о10)н10)┤▓5зA(P)│ В(A(P))d┬PPЕR│1░A(P)┤0зЗ" NO DATA ";:Бе20760dєPdЕ В(A(P))│1▒R│1░A(P)│5зЗ" VOID ";:Бе20760ePxЕA$│"2"зЗ" BLK HOLE";:I│ Г9(0):Бе20760eIPМЕA$│"3"зЗ" O STAR ";:I│ Г9(0):Бе20760etPаЕA$│"4"зЗ" PULSAR ";:I│ Г9(0):Бе20760eЪP┤ЕR│0░A$│"5"зЗ" NOISE ";:Бе20760e╝P╚ЕA$│"6"зЗ" HEADQTRS";:Бе20760e╫P▄Бж240:ЕA(262)▓0за60,2:fPЁЗ═" K#B#S#P#";A(262);A(263);A(264);A(265);f#QЕA(262)▓0за80,2:I│ Г9(0)f9QЛB:З" ";D:ЛD:З:ЛCfXQ,З@4,Uм1;:З@13,U;:З@22,Uл1;f{Q@З@126,Vм1;:З@254,V;:З@382,Vл1;fИQJI│ Г0(0)fТQTI│191fЯQhN│ Г1(0)f╡QрЗ@482,"";:Бе20110f╧QЇВ ** LOOK UP TABLE **fфRI│0:B$│"TRIBBLE"gRЕA(P)│2зI│4:B$│"CLASS M PLANET"g,R0ЕA(P)│3зI│4:B$│"CLASS G PLANET"gLRDЕA(P)│18зI│5:B$│"STAR SHIP"goRXЕA(P)│19зI│3:B$│"CLASS F STAR"gПRlЕA(P)│20зI│2:B$│"STAR BASE"g╡RАЕA(P)▓24зI│1:B$│"KLINGON WARSHIP"g╗RФРg╟RиБж21000gїR╝ИIл1Бе21200,21340,21325,21327,21320,21240h R╨╞"BM+2,0C2R1":Рh#RфВ ENTERPRISE GRAPHIChoR°╞"BM-8,+6;NR14H2NR18E2NR14BR8H12L2NR12F2R8BR4BD2NR10G2NR14F2NR10F2R6":РhЖSGВ PLANET GRAPHICSh▒SH┬(A,B),8,A(P)л1:├(A,B),A(P)л1,A(P)л1:Рh╚SLВ STARBASE GRAPHICi;SM╞"C3BR4BU2U10L4D10BU4G4F2R8E2H4E2R2F6D2G4L16H4U2E6R4BD12D6R4U6":├(Aл2,Bм2),3,3:├(Aл2,Bл8),3,3:├(Aл2,Bл2),2,3:РiWSNВ CLASS F STAR GRAPHICi}SO╞"C2NR8NE8NU8NH8NL8NG8ND8NF8R2":РiФS[В KLINGON GRAPHICi╠S\╞"C"л И(G)л"BU4R6F4D6G2BL16H2U6E4R4":┬(A,Bм4),4,G:РiшS└B│ Д(8)м1:C│ Д(8)м1:D│3jS╘АU│Bм1еBл1:АV│Cм1еCл1jSшЕU┤0▒U▓7▒V┤0▒V▓7зБе21520jBS№P│╠X(U)лV:Е Б(A(P))┤▓0зБе21440jLTЛV:ЛUj_T$Бж140:A(P)│M:РjЖTLЮ(0):ЕA(271)┤▓0зI│5:Бж21930:Бе3860jнT`Бж360:Бж120:A(P)│ В(A(P)):З@32,"";j╜Tj╚1,1:╝:┐1,0j√TtАK│0е7:A│16:B│Kн24л12:╞"C3BM16,"л И(B):АP│192лK е 255 й 8k)TИЕA(P)│0з╞"C3R4":ДG│ Б(A(P)о600л2):Бж21160kATТA│Aл32:ЕA▓252з21660k]TЧ╞"C3BM"л И(A)л","л И(B)kАTЬЛP:ЛK:┴ 3:╗(0,0)м(256,192),╜,BkШT╪ЕQ│1зQ│0:Р:ДБж20150kиTьБж360:Бж140kхUЕ В(A(P))▓9999▒A(272)┤▓0▒ Й(CM$)┤▓6▒ Й(CM$)┤▓9зР:ДCM$│""lU И  Й(CM$)о3м1 Бе8480,7020l'U(З@0, б(31,"="):З@288, б(31,"=")l-U<РlSUМA$│ Т:АN│0е30:а70,1:а40,1:Бе21960lsUаA$│ Т:АN│0е5:а150,2:Бе21960lдUкA$│ Т:╚1,1:╝:┐1,0:Т(65489),1:АN│1е20:Бе21960l╖U┤A$│ Т:АN│0е700l╠U╚Е Т┤▓ Л(13)зЛN:РmVX│Bн8лX:B│ Б(Xо8):X│XмBн8:Y│Cн8лY:C│ Б(Yо8):Y│YмCн8m VРm?V@Е В(J1)▓ В(K1)зK1│K1о В(J1):J1│J1о В(J1):Бе22120m]VTJ1│J1о В(K1):K1│K1о В(K1)mVhJ1│ Ш(J1н1000л.5н А(J1))о1000mгV|K1│ Ш(K1н1000л.5н А(K1))о1000:РmйVдЮm▀V╕B$│"LARGE BLACK HOLE":ЕA(266)│3зB$│"CLASS O STAR"m∙V╠ЕA(266)│4зB$│"PULSAR"nVрB$│"AFTER FLYINGINTO A "лB$nMVЇЗ@128,"ON STARDATE"; И( Б(Tн10)о10);", ";B$л","nБWЗ"THE ENTERPRISE & CREW WERE LOST":З"TO SPACE."n╖WЗ:З:╔"T2O2L2;1;P50;1;L1;6;P30;L2;1;P50;6;L1;10":КnыW0Ю:B$│"AFTER USING UP ITS ENERGY SUPPLY":Бе22260o'WDЮ:B$│"WHILE DOING BATTLE AGAINST THE KLINGONS":Бе22260o-WlЮooWАЗ@192,"DESTRUCTION OF A ";B$:З"IS GROUNDS FOR COURT-MARTIAL."oЩWФЗ:З"YOU ARE RELIEVED OF YOUR COMMAND"oгWиЗ:З:Кo╒ulЖSTATUS,0,DAMAGE CONTROL,1,SCIENCE COMPUTER,2puАЖSHIP'S COMPUTER,3,LR SENSORS,4,SR SENSORS,5p4uФЖIMPULSE ENGINES,6,WARP DRIVE,7,PHASERS,8p_uиЖPHOTON TORPEDOES,9,ALERT,10,REPAIR,11pЖu╝ЖKLINGON WARSHIPS,50,STAR BASES,51pзu╨ЖCLASS F STARS,52,PLANETS,53p└uфЖUNEXPLORED AREAS,54pыu°ЖGREEN,21,YELLOW ALERT,22,RED ALERT,23qv ЖBLACK HOLE,32,O STAR,33,PULSAR,34qCv ЖSPACE NOISE,35,STAR FLEET HQ,36,G PLANET,37qtv4ЖUNEXPLORED M PLANET,38,EXPLORED M PLANET,39qгvHЖPROMOTED,425,DECORATED,350,REASSIGNED,290q╨v\ЖDEMOTED,190,RESIGNED,-1,EXECUTED,-32000rvДЖ "E",999,30111,31111,30101,20121,20201,20001r*vШЖ 10001,10111,10211,10321,10221,-99rEv└Ж 1110,110,110,110,110rdvшЖ 1111,1111,1211,1121,1121rrwЖ 3,3,2,2rаw8Ж 121,121,211,211,311,311,321,321,221,221r╨wLЖ 121,121,211,211,311,311,321,321,221,221,0r√w─З@352,"STAR TREK III(TM) VERSION 4.00"s w╪З"(C)(P)1981-LANCE MICKLUS,INC."s-wтV│ Г0(0)sLxV│15:U│54:I│5:В GOSUB21180sdxdНB$,J:ЕJ┤▓999з30820sДxxP│ Д(191)м1:ЕA(P)┤▓0з 30840sаxМНJ:ЕJ▓0зA(P)│мJ:Бе30840s├x▄P│ Д(150):M│P:ЕA(P)┤▓0зБе30940s╙xЁБж200:Бж320tyАB│A(256)м1еA(256)л1:АC│A(257)м1еA(257)л1tyАD│A(258)м1еA(258)л1t$y,Бж120tEy@ЕP┤▓м1зA(P)│10н Ш(A(P)о10)м5tZyTЛD:ЛC:ЛB:A(M)│м4tyдP│ Д(191)м1:Е Б(A(P))┤▓0зБе31140tйy╕НA(P):Е Б(A(P))┤▓0зA(P)│мA(P):Бе31140t╞y╠АN│0е190:ЕA(N)│0зA(N)│м1tўyрЛN:A(256)│7:A(257)│7:A(258)│2:A(276)│3:P│191u z&C$│" "u8z0E│3999:T│2200:H│2470:Q│0:A(191)│1006:S│0uizDA(259)│3:A(260)│3:A(261)│1:F│1:Бж6080:Бе2060uТЬРЮ:З@160,"";:╗Й"ENTER FILESPEC-> ";A$uеЬЪЕ З(A$)│0з2060u╠Ьд╗Й"(L)OAD OR (S)AVE THE GAME? ";B$uэЬоЕ  З(B$)│0з2060:ДB$│ О(B$,1)vЬ╕ЕB$┤▓"L"░B$┤▓"S"з2060vЬ┬ЕB$│"L"з40200vXЬ╠З"TURN ON CASSETTE (FOR RECORDING)";:Й"THEN PRESS ENTER";NvoЬ╓а100,40:Щ"O",м1,A$vАЬрЗ#м1,E,T,H,SvЦЬъАN│0е279й10:З";";vуЬЇЗ#м1,A(N),A(Nл1),A(Nл2),A(Nл3),A(Nл4),A(Nл5),A(Nл6),A(Nл7),A(Nл8),A(Nл9)w5Ь■ЛN:Ъм1:а100,40:З:Й"TURN OFF CASSETTE AND PRESS ENTER WHEN READY";N:Бе2060wkЭЗ"TURN ON CASSETTE (PLAY).":Й"THEN PRESS ENTER";NwЗЭЩ"I",м1,A$:Й#м1,E,T,H,SwЭЭАN│0е279й10:З"+";wъЭ&Й#м1,A(N),A(Nл1),A(Nл2),A(Nл3),A(Nл4),A(Nл5),A(Nл6),A(Nл7),A(Nл8),A(Nл9)x<Э0ЛN:Ъм1:а100,40:З:Й"TURN OFF CASSETTE AND PRESS ENTER WHEN READY";N:Бе2060ON CASSETTE (PLAY).":Й"THEN PRESS ENTER";NwЗЭЩ"I",м1,A$:Й#м1,E,T,H,SwЭЭАN│0е279й10:З"+";wъЭ&Й#м1,A(N),A(Nл1),A(Nл2),A(Nл3),A(Nл4),A(Nл5),A(Nл6),A(Nл7),A(Nл8),A(Nл9)x<Э0ЛN:Ъм1:а100,40:З