ЕS8│1зQ$│A$л П(Q$,189):Р\9(ЕS8│190зQ$│ О(Q$,189)лA$:Р\_2Q$│ О(Q$,S8м1)лA$л П(Q$,190мS8):Р\f<:Г\ЪFИ R1 Бе 5200,5210,5220,5230,5240,5250,5260,5270\│PG2$│"WARP ENGINES":Р\╙ZG2$│"SHORT RANGE SENSORS":Р\ЄdG2$│"LONG RANGE SENSORS":Р]
nG2$│"PHASER CONTROL":Р]&xG2$│"PHOTON TUBES":Р]AВG2$│"DAMAGE CONTROL":Р]\МG2$│"SHIELD CONTROL":Р]yЦG2$│"LIBRARY-COMPUTER":Р]гаВ STRING COMPARISON IN QUADRANT ARRAY]▐кZ1│ Б(Z1л.5):Z2│ Б(Z2л.5):S8│(Z2м1)н3л(Z1м1)н24л1:Z3│0]ї┤Е Р(Q$,S8,3)┤▓A$зР^╛Z3│1:Р^╚:Г^╥:Г^T▄Е Z5┤│4 ░ Z4┤│8 з И Z4 Бе 5360,5370,5380,5390,5400,5410,5420,5430^_цБе5440^xЁG2$│"ANTARES":Бе5530^П·G2$│"RIGEL":Бе5530^иG2$│"PROCYON":Бе5530^╛G2$│"VEGA":Бе5530^╫G2$│"CANOPUS":Бе5530^я"G2$│"ALTAIR":Бе5530_,G2$│"SAGITTARIUS":Бе5530_$6G2$│"POLLUX":Бе5530_j@Е Z5▓│5 ░ Z4┤│8 з И Z4 Бе 5450,5460,5470,5480,5490,5500,5510,5520_БJG2$│"SIRUS":Бе5530_ШTG2$│"DENEB":Бе5530_▒^G2$│"CAPELLA":Бе5530_═hG2$│"BETELGEUSE":Бе5530_шrG2$│"ALDEBARAN":Бе5530`
|G2$│"REGULUS":Бе5530`ЖG2$│"ARCTURUS":Бе5530`2РG2$│"SPICA":Бе5530`yЪЕ G5┤▓1 ░ Z5┤│8 з И  Z5 Бе 5550,5560,5570,5580,5550,5560,5570,5580`дР`ТоG2$│G2$л" I":Р`ж╕G2$│G2$л" II":Р`╗┬G2$│G2$л" III":Р`╧╠G2$│G2$л" IV":Р`ї╓З:З"    PRESS <ENTER> WHEN READY"a0ра100,2:а100,1:АU│1е80:U$│ Т:ЕU$│ Л(13)з5610:ДЛU:Бе5600a6ъРa]ЇЗ:З"  ***************************"aВ■З"  *  SUPPLEMENTARY STATUS   *"aзЗ"  *         REPORT          *"a╠З"  ***************************"a╥Рaх&Е U$│"1"зU│1:Рa°0Е U$│"2"зU│2:Рb:Е U$│"3"зU│3:РbDЕ U$│"4"зU│4:Рb1NЕ U$│"5"зU│5:РbDXЕ U$│"6"зU│6:РbWbЕ U$│"7"зU│7:РbjlЕ U$│"8"зU│8:РbtvU│0:РbВАЕ K3┤│0зРbЭКАI│1еK3:ЕK(I,3)│0з5800b╠ФA$│"   ":Z1│K(I,1):Z2│K(I,2):Бж5130:Бж5100bЇЮK(I,1)│Z1:K(I,2)│Z2:A$│"+K+":Бж5130b¤иЛI:Рc%▓Ю:З:З"   #########################"cI╝З"   #                       #"cm╞З"   #   SUPER STARTREK II   #"cС╨З"   #     INSTRUCTIONS      #"c╡┌З"   #                       #"c┘фЗ"   #########################"c юЗ@323,"PRESS <ENTER> TO CONTINUE"d°S$│ Т:ЕS$│""з5880dЮd#З:ЗdHЗ"1) WHEN YOU SEE ''COMMAND ?''"dl З"   PRINTED, ENTER ONE OF THE"dТ*З"   LEGAL COMMANDS NAV,SRS,LRS,"d┐4З"   PHA,TOR,SHE,DAM,COM, OR XXX.":З:З:Зdт>З"2) IF YOU SHOULD TYPE IN AN"eHЗ"   ILLEGAL COMMAND, YOU'LL GET"e,RЗ"   A SHORT LIST OF THE LEGAL"eL\З"   COMMANDS PRINTED OUT."ebfS$│ Т:ЕS$│""з5990eppЮ:З:З:З:ЗeЧzЗ"3) SOME COMMANDS REQUIRE YOU TO"e╛ДЗ"   ENTER DATA (FOR EXAMPLE, THE"eтОЗ"   'NAV' COMMAND COMES BACK "fШЗ"   WITH 'COURSE (0-9) ?'.) IF"f*вЗ"   YOU TYPE IN ILLEGAL DATA"fMмЗ"   (LIKE NEGATIVE NUMBERS),"ft╢З"   THAT COMMAND WILL BE ABORTED"fК└S$│ Т:ЕS$│""з6080fР╩Юf╣╘З@32,"THE GALAXY IS DIVIDED INTO AN"f▐▐З"8 X 8 QUADRANT GRID, AND EACH"g
шЗ"QUADRANT IS FURTHER DIVIDED"g%ЄЗ"INTO AN 8 X 8 SECTOR GRID.":ЗgL№З"YOU WILL BE ASSIGNED A STARTING"gqЗ"POINT SOMEWHERE IN THE GALAXY"gУЗ"TO BEGIN A TOUR OF DUTY AS"g┤З"COMMANDER OF THE STARSHIP"g╫$З"'ENTERPRISE'; YOUR MISSION:"g№.З"TO SEEK AND DESTROY THE FLEET"h!8З"OF KLINGON WARSHIPS WHICH ARE"hGBЗ"MENACING THE UNITED FEDERATION"hYLЗ"OF PLANETS"hoVS$│ Т:ЕS$│""з6230hu`ЮhбjЗ@192,"YOU HAVE THE FOLLOWING COMMANDS"h╟tЗ"AVAILABLE TO YOU AS CAPTIAN OF"hъ~З"THE STARSHIP ENTERPRISE":З:ЗiИS$│ Т:ЕS$│""з6280iТЮi&ЬЗ"NAV: WARP ENGINE CONTROL"iJжЗ"     COURSE IS IN A CIRCULAR"ig░З"     NUMERICAL VECTOR"iЙ║З"     ARRANGEMENT AS SHOWN."iг─З"           4  3  2"i╝╬З"            . . ."i╘╪З"             ..."iятЗ"          5---*---1"jьЗ"             ..."j ЎЗ"            . . ."j:З"           6  7  8"jP
S$│ Т:ЕS$│""з6410jVЮj{З"     INTERGER AND REAL VALUES"jб(З"     MAY BE USED. (THUS COURSE"j─2З"     1.5 IS HALFWAY BETWEEN"jэ<З"     1 AND 2) VALUES MAY APPROCH";kFЗ"     9.0 WHICH ITSELF = 1.0";k?PЗ"          ONE WARP FACTOR IS THE SIZE";kfZЗ"     OF ONE QUADRANT. THEREFORE"kНdЗ"     TO GET FROM QUADRANT 6 , 5"k░nЗ"     TO QUADRANT 5 , 5, YOU"kхxЗ"     WOULD USE COURSE 3, WARP        FACTOR 1.k√ВS$│ Т:ЕS$│""з6530l
МЮl%ЦЗ"SRS: SHORT RANGE SENSOR SCAN"lJаЗ"     SHOWS YOU A SCAN OF YOUR"ljкЗ"     PRESENT QUADRANT.":ЗlН┤З"   SYMBOLOGY ON YOUR SENSOR"lн╛З"   SCREEN IS AS FOLLOWS:"l╦╚З"   <*> = YOUR STARSHIP"lЄ╥З"   +K+ = KLINGON BATTLE CRUISER"m▄З"   >!< = FEDERATION STARBASE"m=цЗ"         (REFUEL/REPAIR/RE-ARM)"mQЁЗ"    *  = STARmg·S$│ Т:ЕS$│""з6650mmЮmРЗ"LRS: LONG RANGE SENSOR SCAN"m╢З"     SHOWS CONDITIONS IN SPACE"m█"З"     FOR ONE QUADRANT ON EACH"m ,З"     SIDE OF THE ENTERPRISE." (SENSORS SHOW";K(I,3);"UNITS REMAINING)":Бж5590:Бе26708n
ZK3│K3м1:K9│K9м1:Z1│K(I,1):Z2│K(I,2):A$│"   ":Бж51308п
dK(I,3)│0:G(Q1,Q2)│G(Q1,Q2)м100:Z(Q1,Q2)│G(Q1,Q2):ЕK9┤│0з38108╦
nЛI:Бж5760:Бж3520:Бе11608╥
x:Г8р
ВЕP▓0з27109
МЮ:Бж5620:З" ALL PHOTON TORPEDOES EXPENDED":Бж5590:Бе11609/
ЦЕD(5)▓│0з27309Г
аЮ:Бж5620:З"    PHOTON TORPEDOES ARE NOT":З"          OPERATIONAL":Бж5590:Бе11609▄
кЗ"   PHOTON TORPEDO COURSE MAP":Бж 1430:Й"PHOTON TORPEDO COURSE (1-9)";C1:ЕC1│9зC1│19ё
┤ЕC1▓│1░C1┤9з2770:F
╛Ю:Бж5620:З"     ENSIGN CHEKOV REPORTS:":З"  'INCORRECT COURSE DATA, SIR'":Бж5590:Q
╚Бе1160:М
╥X1│C(C1,1)л(C(C1л1,1)мC(C1,1))н(C1м Б(C1)):E│Eм2:P│Pм1:┼
▄X2│C(C1,2)л(C(C1л1,2)мC(C1,2))н(C1м Б(C1)):X│S1:Y│S2:ц
цЮ:Бж5620:З"  TORPEDO TRACK:";
ЁX│XлX1:Y│YлX2:X3│ Б(Xл.5):Y3│ Б(Yл.5);.
·ЕX3┤1▒X3▓8▒Y3┤1▒Y3▓8з3020;iЗ"               ";X3;",";Y3:A$│"   ":Z1│X:Z2│Y:Бж5290;yЕZ3┤▓0з2800;вA$│"+K+":Z1│X:Z2│Y:Бж5290:ЕZ3│0з2890;ш"З"    ***KLINGON DESTROYED***":Бж5590:K3│K3м1:K9│K9м1:ЕK9┤│0з3810<
,АI│1е3:ЕX3│K(I,1)░Y3│K(I,2)з2880<6ЛI:I│3<,@K(I,3)│0:Бе3000<UJA$│" * ":Z1│X:Z2│Y:Бж5290:ЕZ3│0з2910<╖TЗ"     STAR AT";X3;",";Y3;"ABSORBED":З "         TORPEDO ENERGY.":Бж5590:Бж5760:Бж3520:Бе1160<р^A$│">!<":Z1│X:Z2│Y:Бж5290:ЕZ3│0з2730=rhЗ"    ***STARBASE DESTROYED***":B3│B3м1:B9│B9м1:ЕB9┤1зЗ:З"YOUR STUPIDITY HAS LEFT YOU ON  YOUR OWN IN THE GALAXY. YOU HAVENO STARBASES LEFT!"=}rБж5590=Ь|Е B9▓0 ▒ K9▓(TмT0мT9)з2980>ЖЮ:Бж5620:З"THAT DOES IT, CAPTAIN!!":З "YOU ARE HEREBY RELIEVED OF YOUR":З"COMMAND AND SENTENCED TO 99">BРЗ"STAR DATES AT HARD LABOUR ON":З"CYGNUS 12 !!":Бж5590>VЪЮ:Бж3640:Бе3720>едЮ:Бж5620:З"   STARFLEET COMMAND REVIEWING":З"     YOUR RECORD TO CONSIDER">╨оЗ"         COURT MARTIAL!":Бж5590:D0│0>ю╕Z1│X:Z2│Y:A$│"   ":Бж5130?2┬G(Q1,Q2)│K3н100лB3н10лS3:Z(Q1,Q2)│G(Q1,Q2):Бж5760:Бж3520:Бе1160?o╠З"           TORPEDO MISSED":Бж5590:Бж5760:Бж3520:Бе1160?Д╓В SHIELD CONTROL?ШрЕD(7)▓│0зБе3060?╙ъЮ:Бж5620:З"   SHIELD CONTROL INOPERABLE":Бж5590:Бе1160?√ЇЮ:З:З"   #########################"@■З"   #                       #"@CЗ"   #     SHIELD-CONTROL    #"@gЗ"   #                       #"@НЗ"   #########################":З@░&З"     ENERGY AVAILABLE =";EлS@╥0Й"     UNITS TO SHIELDS = ";XA:Е X┤0 ▒ S│X зЮ:Бж5620: З:З"      <SHIELDS UNCHANGED>":Бж5590:Бе1160A-DЕ X┤│EлS з3190A[NЮ:Бж5620:З:З"     SHIELD CONTROL REPORT:"AВXЗ:З"  'THIS IS NOT THE FEDERATION"AаbЗ"          TREASURY!!!'"A╓lЗ:З     "      <SHIELDS UNCHANGED>":Бж5590:Бе1160BvE│EлSмX:S│X:Ю:Бж5620:З"DEFLECTOR CONTROL ROOM REPORT:"B:АЗ"'SHIELDS NOW AT"; Б(S);"UNITS PER"BeКЗ"YOUR COMMAND CAPT'N.'":Бж5590:Бе1160BlФ:ГB~ЮЕD(6)▓│0з3430B╦иЮ:Бж5620:З"DAMAGE CONTROL REPORT NOT        AVAILABLE":Бж5590:ЕD0│0з1160Bь▓D3│0:АI│1е8:ЕD(I)┤0зD3│D3л.1B■╝ЛI:ЕD3│0з1170C╞З:D3│D3лD4:ЕD3▓│1зD3│.9C.╨Ю:Бж3290:Бе3350CN┌З"      ##################"CnфЗ"      #                #"CОюЗ"      # DAMAGE CONTROL #"Cо°З"      #                #"C╬
З"      ##################"C╓
З:РC°
З"TECHNICIANS STANDING BY TO"D
 З"EFFECT REPAIRS TO YOUR SHIP."D<
*З"ESTIMATED TIME TO REPAIR"D^
4З(.01н Б(100нD3));"STARDATES"DШ
>З:З"WILL YOU AUTHORIZE THE REPAIR   ORDER (Y/N)";:ЙA$Dк
HЕA$┤▓"Y"з1160D─
RАI│1е8:ЕD(I)┤0зD(I)│0D╒
\ЛI:T│TлD3л.1D 
fЮ:З:З"DEVICE         STATE OF REPAIR"E%
pЗ"------------------------------"E2
zА R1│1е8En
ДБж5190:ЗG2$;         О(Z$,25м З(G2$)); Б(D(R1)н100)н.01Ev
ОЛR1EЬ
ШЗ"------------------------------"E╖
вЗ:ЕD0┤▓0зБж5590:Бе3250E╔
мБж5590:Бе1160E╨
╢:ГE▌
└ЕK3┤│0зРF5
╩ЕD0┤▓0зЮ:Бж5620:З"  STARBASE SHIELDS PROTECT THE":З"           ENTERPRISE":Бж5590:РFR
╘А I│1е3:Е K(I,3)┤│0з3620FУ
▐H│ Б((K(I,3)о╠D(1))н(2л Д(0))):S│SмH:K(I,3)│K(I,3)о(3л Д(0))F▌
шЮ:Бж5620:ЗH;"UNIT HIT ON ENTERPRISE":З"FROM SECTOR";K(I,1);",";K(I,2)Fь
ЄЕS┤│0з3690G$
№З  " <SHIELDS DOWN TO";S;"UNITS>":Бж5590:ЕH┤20з3620G@Е Д(0)▓.6▒HоS┤│.02з3620GmR1│╠R(1):D(R1)│D(R1)мHоSм.5н Д(0):Бж5190G└Ю:Бж5620:З"DAMAGE CONTROL REPORTS:":З"'";G2$;" DAMAGED":З" BY THE HIT'":Бж5590G╔$ЛI:РG╨.:ГGў8Ю:З"  ###########################"HBЗ"  #     END   OF   GAME     #"HALЗ"  ###########################"HIVЗ:РHh`З"IT IS STARDATE";T:Бе3720HЯjБж 5590:Бж3640::З"THE ENTERPRISE HAS BEEN TOTALLY"H┼tЗ"DESTROYED. THE FEDERATION WILL"Hр~З"BE CONQUERED":Бе3680IИЗ"THERE WERE";K9;"KLINGON BATTLE"I/ТЗ"CRUISERS LEFT AT THE END OF YOUR";I>ЬЗ"MISSION"IPжЕ B9│0 з 3800Iv░З"THE FEDERATION IS IN NEED OF A"IЪ║З"NEW STARSHIP COMMANDER FOR A"I├─З"SIMILAR MISSION -- IF THERE IS A";J╬Й"VOLUNTEER, LET HIM STEP FORWARD AND ENTER 'AYE'";A$:Е eM
:Г SUPER STARTREK II (C)1:Г NOV 21 1981R:Г REQUIRES TRS 80 COLOR 32Kr(:Г BY BACKYARD SOFTWARE (R)Й2:Г TORONTO,ONTARIOЩ<:Г   CANADAжwТ65495,0╡xХ15,&H7C00╬yА X│ &H7C00 е &H7C0E╫zН DAт{Т X,DAъ|Л X;}Ж &H8E,&H04,&H80,&HA6,&H00,&H88,&H40,&HA7,&H80,&H8C,&H05,&H80,&H25,&HF5,&H39MВЮ:Бж140:Бе210vМЗ@3,"* * SUPER STARTREK II * *(C)"  ТЦЗ@78,",-------*------,"╗аЗ@096," ,---------,   '---  ------'"▀кЗ@128,"  '----  --'      / /"  ┤З@161,"  ,---' '-------/ /--,"$╛З@192,"    '---------------'"P╚З@257,"THE USS ENTERPRISE---NCC-1701":Р{╥З@449,"DO YOU NEED INSTRUCTIONS (Y/N)"Й▄Т1110,109ЧцТ1126,109еЁА D│1е100н·Л D╗
Т1126,106╩
Т 1110,106┌
А D│1 е 100т
"Л Dў
,Z$│ Т:ЕZ$│""з220
6Е Z$│"Y" з 5810
@Е Z$┤▓"N"з 220I
JЗ@449,"STANDBY FOR ORDERS CAPT'N KIRK"S
TХ 600u
^Z$│"                        "а
hМG(8,8),C(9,2),K(3,3),N(3),Z(8,8),D(8)у
rT│ Б( Д(0)н20л20)н100:T0│T:T9│25л Б( Д(0)н10):D0│0:E│3000:E0│E
|P│10:P0│P:S9│200:S│0:B9│0:K9│0:X$│"":X0$│" IS "C
Ж╣ ╠D(D)│ Ы((K(1,1)мS1)п2л(K(1,2)мS2)п2)c
Р╣ ╠R(R)│ Б( Д(0)н7.98л1.01)j
Ъ:ГТ
дQ1│╠R(1):Q2│╠R(1):S1│╠R(1):S2│╠R(1)│
оАI│1е9:C(I,1)│0:C(I,2)│0:Л Iє
╕C(3,1)│м1:C(2,1)│м1:C(4,1)│м1:C(4,2)│м1:C(5,2)│м1:C(6,2)│м16
┬C(1,2)│1:C(2,2)│1:C(6,1)│1:C(7,1)│1:C(8,1)│1:C(8,2)│1:C(9,2)│1K
╠АI│1е8:D(I)│0:ЛIq
╓A1$│"NAVSRSLRSPHATORSHEDAMCOMXXX"x
р:Г
ъ:Ги
ЇАI│1е8:АJ│1е8:K3│0:Z(I,J)│0:R1│ Д(0)╟
■ЕR1▓.98зK3│3:K9│K9л3:Бе540цЕR1▓.95зK3│2:K9│K9л2:Бе540 ЕR1▓.80зK3│1:K9│K9л1 B3│0:Е Д(0)▓.96зB3│1:B9│B9л1V&G(I,J)│K3н100лB3н10л╠R(1):ЛJ:ЛI:Е K9▓T9 з T9│K9л1e0ЕB9┤▓0з590Х:ЕG(Q1,Q2)┤200зG(Q1,Q2)│G(Q1,Q2)л100:K9│K9л1┼DB9│1:G(Q1,Q2)│G(Q1,Q2)л10:Q1│╠R(1):Q2│╠R(1)щNK7│K9:ЕB9┤▓1зX$│"S":X0$│" ARE "яXЮbЗ@33,"**YOUR ORDERS ARE AS FOLLOWS**"HlЗ @96,"DESTROY THE";K9;"KLINGONS WARSHIPS"rvЗ@128,"WHICH HAVE INVADED THE GALAXY"ЬАЗ@160,"BEFORE THEY ATTACK FEDERATION"╦КЗ@192,"HEADQUARTERS ON STARDATE";T0лT9;"."ЁФЗ@224,"THIS GIVE YOU";T9;"DAYS."ЮЗ"THERE";X0$;B9;"STARBASE";X$;" IN THE"EиЗ"GALAXY FOR RESUPPLYING YOUR SHIP";n▓В HERE ANY TIME NEW QUADRANT ENTERED░╝Z4│Q1:Z5│Q2:K3│0:B3│0:S3│0:G5│0:D4│.5н Д(0):Z(Q1,Q2)│G(Q1,Q2)╬╞ЕQ1┤1▒Q1▓8▒Q2┤1▒Q2▓8з1080ч╨Бж5340:Е T0┤▓T з 840┌З"YOUR MISSION BEGINS WITH YOUR"3фЗ"STARSHIP LOCATED IN THE GALATIC"OюЗ"QUADRANT, '";G2$;".'"u°З:З"    PRESS <ENTER> WHEN READY"МU$│ Т:Е U$│""з 770╛Ю:З:З:З:З:З:З" ############################"фЗ" #                           #"
 З" #      STANDBY TO BBEAM      #"0*З" #       ABOARD CAPT'N       #"V4З" #                           #"В>З" #############################":Бе940ИHЮмRЗ"    ++++++++++++++++++++++++"╨\З"    +                      +"ЇfЗ"    +      NOW ENTERING    +"pU│ З(G2$):UU│12м(Uо2)2zЗ"    +                      +"VДЗ"    ++++++++++++++++++++++++"^ОЗ:ЗwШЗдUU)G2$;" QUADRANT"ЗвАU│1е200:ЛU╕мK3│ Б(G(Q1,Q2)н.01):B3│ Б(G(Q1,Q2)н.1)м10нK3р╢S3│G(Q1,Q2)м100нK3м10нB3:ЕK3│0з1070Ё└АU│1е600:ЛU■╩Ю:З:З:З:З $╘З"  ############################" J▐З"  #                          #" pшЗ"  #        COMBAT AREA       #" ЦЄЗ"  #       CONDITION RED      #" ж№ЕS▓200з1040 ╠З"  #  SHIELDS DANGEROUSLY LOW #" ЄЗ"  #                          #"!З"  ############################"!;$АU│1е25:АUU│1е45:ЛUU:а240,1:ЛU![.АI│1е3:K(I,1)│0:K(I,2)│0:ЛI!Х8А I│1е3:K(I,3)│0:ЛI:Q$│Z$лZ$лZ$лZ$лZ$лZ$лZ$л О(Z$,17)!ЬB:Г!╚LA$│"<*>":Z1│S1:Z2│S2:Бж5130:Е K3┤1з1130!єVА I│1 е K3:Бж5100:A$│"+K+":Z1│R1:Z2│R2"+`Бж5130:K(I,1)│R1:K(I,2)│R2:K(I,3)│S9н(0.5л Д(0)):ЛI"=jЕ B3┤1 з 1150"ptБж5100:A$│">!<":Z1│R1:B4│R1:Z2│R2:B5│R2:Бж5130"г~АI│1е S3:Бж5100:A$│" * ":Z1│R1:Z2│R2:Бж5130:ЛI"оИБж3850"╙ТЕ SлE▓10з Е E▓10 ▒ D(7)│0 з 1260"єЬЗ дUU)G2$;" QUADRANT . . ."#жЮ:З"  * * * * FATAL ERROR * * * * "#@░З"YOU'VE JUST STRANDED YOU SHIP"#Q║З"IN SPACE."#z─З"YOU HAVE INSUFFICIENT ENERGY FOR";#б╬З"MANEUVERING, AND SHIELD CONTROL"#┬╪З"IS PRESENTLY INCAPABLE OF"#ЄтЗ"CROSS-CIRCUITING TO ENGINE ROOM!";:Бе3680$ьЙ"COMMAND";A$:Ю$3ЎА I│1е9:Е  О(A$,3)┤▓ Р(A1$,3нIм2,3)з1290$jИ I Бе1420,1160,2310,2440,2690,3040,3230,4140,3720$Ш
ЛI:З:З" * ENTER ONE OF THE FOLLOWING * ";$├З:З"--------------------------------";$▐З "NAV --- SET COURSE"$ (З "SRS --- SHORT RANGE SCAN"%2З "LRS --- LONG RANGE SCAN"%<<З "PHA --- FIRE PHASERS"%aFЗ "TOR --- FIRE PHOTON TORPEDOS"%ЖPЗ "SHE --- ADJUST SHIELD ENERGY"%оZЗ "DAM --- FOR DAMAGE CNTRL REPORT"%╥dЗ "COM --- TO CALL ON COMPUTER"%ЇnЗ "XXX --- TO RESIGN COMMAND"&'xЗ"----                                                                                                                                                                                                                                                                                            &$!"#%'├                            STREK IIBAS P                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ----------------------------";:З::Бе1170&.В:Г&cМЮ:З"     NAVIGATIONAL COURSE MAP":Бж 1430:Бе1530&МЦЗ@47,"3":З@ 70,"4        .        2"&каЗ@102,"  .      .      ."&╞кЗ@134,"    .    .    ."&р┤З@166,"      .  .  ."'╛З@196,  "5  .  .  . * .  .  .  1"' ╚З@230,"      .  .  ."'<╥З@262,"    .    .    ."'[▄З@294,"  .      .       ."'|цЗ@358,"6        .         8"'МЁЗ@399,"7":Р'▒·Й"COURSE (0-9)";C1:Е C1│9 з C1│1'╦Е C1▓│1 ░ C1┤9 з 1560(Ю:Бж5620:З"   LT. SULU REPORTS:":З:З"'INCORRECT COURSE DATA SIR'":Бж5590:Бе1160(=X$│"8":Е D(1)┤0з X$│"0.2"(x"З"WARP FACTOR (0-";X$;")";:Й W1:Е D(1)┤0░ W1▓.2 з 1630(П,Е W1▓0░ W1┤│8з1650(Я6Е W1│0з1170(╬@Ю:Бж5620:З" CHIEF ENGINEER SCOTT REPORTS:"(ЇJЗ:З"'THE ENGINES WON'T TAKE WARP")TЗ W1;" CAPT'N !'":Бж5590:Бе1160)B^Ю:Бж5620:З"WARP ENGINES ARE DAMAGED.")ohЗ"MAXIUM SPEED = WARP 0.2":Бж5590:Бе1160)ПrN│ Б(W1н8л.5):Е EмN▓│0з1760)┤|Ю:Бж5620:З"ENGINEERING REPORTS:")┌ЖЗ"'INSUFFICIENT ENERGY AVAILABLE"*РЗ"FOR MANEUVERING AT WARP";W1;"!'":Бж5590*"ЪЕ S┤NмE ▒ D(7)┤0з1160*QдЮ:Бж5620:З"DEFLECTOR CONTROL ROOM REPORT:"*vоЗ"DEFLECTOR CONTROL ACKNOWLEGES"*Ъ╕З S;"UNITS OF ENERGY PRESENTLY"*╜┬З"DEPLOYED TO SHIELDS.":Бж5590*╚╠Бе1160*╧╓:Г*ярА I│1 е K3:Е K(I,3)│0 з1790+ъA$│"   ":Z1│K(I,1):Z2│K(I,2):Бж5130:Бж5100+FЇK(I,1)│Z1:K(I,2)│Z2:A$│"+K+":Бж5130+n■ЛI:Бж3520:D1│0:D6│W1:Е W1▓│1 з D6│1+ИАI│1е8:Е D(I)▓│0з1850+╛D(I)│D(I)лD6:Е D(I)▓м.1 ░ D(I)┤0з D(I)│м.1:Бе1850+╨Е D(I)┤0з1850,&Е D1┤▓1з D1│1:Ю:Бж5620:З"DAMAGE CONTROL REPORT:",80R1│I:Бж5190:З:З G2$:З"REPAIR COMPLETED":Бж5590,P:Л I:Е  Д(0)▓.2з1920,nDR1│╠R(1):Е  Д(0)▓│.6з1890,нND(R1)│D(R1)м( Д(0)н5л1):Ю:Бж5620:З"DAMAGE CONTROL REPORT:",╪XБж5190:З:ЗG2$;" DAMAGED":Бж5590:Бе1920-bD(R1)│D(R1)л Д(0)н3л1:Ю:Бж5620:З"DAMAGE CONTROL REPORT:"-JlБж5190:З:ЗG2$:З"STATE OF REPAIR IMPROVED":Бж5590-Qv:Г-yАA$│"   ":Z1│ Б(S1):Z2│ Б(S2):Бж5130-▓КX1│C(C1,1)л(C(C1л1,1)мC(C1,1))н(C1м Б(C1)):X│S1:Y│S2-эФX2│C(C1,2)л(C(C1л1,2)мC(C1,2))н(C1м Б(C1)):Q4│Q1:Q5│Q2.0ЮА I│1е N:S1│S1лX1:S2│S2лX2:Е S1┤1 ▒ S1▓│9 ▒ S2┤1 ▒ S2▓│9 з2060.fиS8│ Б(S1)н24л Б(S2)н3м26:Е  Р(Q$,S8,2)│"  "з 1990.к▓S1│ Б(S1мX1):S2│ Б(S2мX2):Ю:Бж5620:З"WARP ENGINES SHUT DOWN AT".¤╝З"QUADRANT";Q1;",";Q2;"SECTOR";S1;",";S2;"DUE TO BAD NAVAGATION":Бж5590:Бе2000/╞ЛI:S1│ Б(S1):S2│ Б(S2)/L╨A$│"<*>":Z1│ Б(S1):Z2│ Б(S2):Бж5130:Бж2260:T8│1/h┌Е W1┤1з T8│.1н Б(10нW1)/ГфT│TлT8:Е T▓T0лT9 з3680/Кю:Г/Х°Бе1160/Ь:Г/рX│8нQ1лXлNнX1:Y│8нQ2лYлNнX2:Q1│ Б(Xо8):Q2│ Б(Yо8):S1│ Б(XмQ1н8)0S2│ Б(YмQ2н8):ЕS1│0зQ1│Q1м1:S1│80 ЕS2│0зQ2│Q2м1:S2│80:*X5│0:ЕQ1┤1зX5│1:Q1│1:S1│10S4ЕQ1▓8зX5│1:Q1│8:S1│80l>ЕQ2┤1зX5│1:Q2│1:S2│10ЕHЕQ2▓8зX5│1:Q2│8:S2│80ФRЕX5│0з22300├\Ю:Бж5620:З"LT. UHURA REPORTS MESSAGE FROM"0▌fЗ"STARFLEET COMMAND:"1&p      З"'PERMISSION TO ATTEMPT CROSSING":З"OF GALACTIC PERIMETER IS"1MzЗ"HEREBY *DENIED*. SHUT DOWN YOUR"1eДЗ"ENGINES.'":Бж55901УОЮ:Бж5620:З"CHIEF ENGINEER SCOTT REPORTS:"1╡ШЗ"'WARP ENGINES SHUT DOWN AT"1явЗ"SECTOR";S1;",";S2;"OF QUADRANT";Q1;","Q2;"'":Бж55902мЕ T▓T0лT9 з 36802%╢Е (8нQ1лQ2)│(8нQ4лQ5) з 20002<└T│Tл1:Бж2260:Бе7002C╩:Г2X╘E│EмNм10:ЕE▓│0зР2л▐Ю:Бж5620:З"SHIELD CONTROL SUPPLIED ENERGY":З"TO COMPLETE THE MANEUVER.":Бж55902├шS│SлE:E│0:ЕS┤│0зS│02╔ЄР2╨№:Г2ц	ЕD(3)┤0зЮ:ДБе23502ё	Бж56203
	З"MR SPOCK REPORTS:"3T	$З:З"'LONG RANGE SENSORS AT PRESENT":З"ARE INOPERABLE.'":Бж5590:Бе11603}	.Ю:З"     LONG  RANGE  SCAN  FOR    "3й	8З"         QUADRANT";Q1;",";Q2;"    ":З3╒	BO1$│"   -------------------------":ЗO1$4	LА I│(Q1м1) е (Q1л1):N(1)│м1:N(2)│м2:N(3)│м3:А J│(Q2м1) е (Q2л1)4I	VЕI▓0░I┤9░J┤9зN(JмQ2л2)│G(I,J):Z(I,J)│G(I,J)4Г	`ЛJ:З"  ";:АL│1е3:З  " :  " ;:ЕN(L)┤│0зЗ"*** ";:Бе24204в	jЗ  П( И(N(L)л1000),3);" ";4├	tЛL:З " :":ЗO1$:ЛI:З:З:Бе11704╩	~:Г4▐	ИЕD(4)┤0зЮ:Д24605	ТБж5620:З"       PHASERS INOPERATIVE":Бж5590:Бе11605$	ЬЕK3▓0з25005S	жЮ:Бж5620:З"SCIENCE OFFICER SPOCK REPORTS:"5w	░З"'SENSORS SHOW NO ENEMY SHIPS"5Я	║З"IN THIS QUADRANT.'":Бж5590:Бе11605│	─ЕD(8)┤0зЮ:Д25205 	╬Бж5620:З"  * * * COMPUTER FAILURE * * *":З"ACCURACY IS HAMPERED":Бж55906	╪Ю6%	тЗ"PHASERS LOCKED ON TARGET"6I	ьЗ"ENERGY AVAILABLE =";E;"UNITS"6u	ЎЙ"NUMBER OF UNITS TO FIRE";X:ЕX┤│0з11606Е
ЕEмX┤0з25406б

E│EмX:ЕD(7)┤0зX│XRND(0)6╚
H1│ Б(XоK3):АI│1е3:ЕK(I,3)┤│0з26706·
H│ Б((H1о╠D(0))н( Д(0)л2)):ЕH▓.15нK(I,3)з26107N
(Ю:Бж5620:З"SENSORS SHOW NO DAMAGE TO ENEMY AT ";K(I,1);",";K(I,2):Бж5590:Бе26707д
2K(I,3)│K(I,3)мH:Ю:Бж5620:ЗH;"UNIT HIT ON KLINGON AT":З" SECTOR";K(I,1);",";K(I,2)7╪
<ЕK(I,3)┤│0зЗ"    ***KLINGON DESTROYED***":Д26407ъ
FБж5590:Бе265086
P              З" A$│"AYE" з 130J╪КJ]тБж3640:З"CONGRADULATIONS, CAPTAIN !":З"THE LAST KNOW KLINGON BATTLE"JЫьЗ"CRUISER MENACING THE FEDERATION":З"HAS BEEN DESTROYED."J╒ЎЗ"YOUR EFFICIENCY RATING IS";100н(K7о(TмT0))п2:Бе3750J▄:ГJч
Бе3890KЮ:З"* * SHORT RANGE SENSOR SCAN * *"K>З"  QUADRANT";Q1;",";Q2" SECTOR";S1;","S2Kq(G5│0:Бж5340:U│ З(G2$):UU│16м(Uо2):З дUU) G2$:РKП2АI│S1м1еS1л1:АJ│S2м1еS2л1K┼<Е Б(Iл.5)┤1▒ Б(Iл.5)▓8▒ Б(Jл.5)┤1▒ Б(Jл.5)▓8з3920KюFA$│">!<":Z1│I:Z2│J:Бж5290:ЕZ3│1з3930LPЛJ:ЛI:D0│0:Бе4030L&Z║ D0│1:C$│"DOCKED" :E│E0:P│P0L2dЮ:З:З:ЗLUnЗ"     ######################"LxxЗ"     #                    #"LЫВЗ"     #   SHIELDS DROPPED  #"L╛МЗ"     #     FOR DOCKING    #"LсЦЗ"     #      PURPOSES      #"MаЗ"     #                    #"M'кЗ"     ######################"MF┤S│0:АU│1е10:а9,5:ЛU:Бе4050Mb╛ЕK3▓0зC$│"*RED*":Бе4050MЗ╚C$│"GREEN":ЕE┤E0н.1зC$│"YELLOW" MЩ╥ЕD(2)▓│0з4070M╟▄З:З "**SHORT RANGE SENSORS ARE OUT**":З:РNцБж3860:║ O1$│ "--------------------------------":З O1$;:А I│1е8NIЁА J│((Iм1)н24л1) е ((Iм1)н24л22) й 3:З" "; Р(Q$,J,3);:Л JNW·ЛI:З O1$;NuЗ"STARDATE :"; Б(Tн10)н.1NЛЗ"CONDITION: ";C$NЪв &H7C00:РNб":ГNт,ЕD(8)┤0зЮ:Бж5620:З:З"       COMPUTER DISABLED":Бж5590:Бе1160NЇ6Бж4160:Бе4200O<@Ю:З"   ++++++++++++++++++++++++++":З"   +                        +"OaJЗ"   +    LIBRARY-COMPUTER    +"OЖTЗ"   +                        +"Oп^З"   ++++++++++++++++++++++++++":З:РOщhЗ" COMPUTER ACTIVE AND AWAITING":З" YOUR COMMAND";:ЙAPrЗ:H8│1:ИAл1Бе4320,4450,4630,5060,4690,4300PJ|З"FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:"PqЖЗ" 0 = CUMULATIVE GALACTIC RECORD"PЛРЗ" 1 = STATUS REPORT"PлЪЗ" 2 = PHOTON TORPEDO DATA"P╔дЗ" 3 = STARBASE NAV DATA"PєоЗ" 4 = DIRECTION/DISTANCE CALCULATOR"Q(╕З" 5 = GALAXY 'REGION NAME' MAP":З:Бж5590:Бе4150Q/┬:ГQ`╠Ю:H8│0:G5│1:З "           THE GALAXY":Бе4350Qg╓:ГQПрЮ:З" COMPUTER RECORD OF GALAXY FOR"Q└ъG5│0:Бж5340:U│ З(G2$):UU │16м(Uо2):З дUU)G2$QЁЇЗ" QUADRANT";Q1;","Q2;"  SECTOR";S1;","S2:ЗR■З "  1   2   3   4   5   6   7   8 ";RDЗ" --- --- --- --- --- --- --- ---"; RbАI│1е8:        ЕH8│0з4410RПАJ│1е8:З" ";   :ЕZ(I,J)│0зЗ"***";:Бе4400Rл&З П( И(Z(I,J)л1000),3);R╣0ЛJ:Бе4440Rю:Z4│I:Z5│1:Бж5340:J0│ Б(09м.5н З(G2$)):ЗдJ0);G2$;SDZ5│5:Бж5340:J0│ Б(25м.5н З(G2$)):ЗдJ0);G2$SXNЛ I:З" --- --- --- --- --- --- --- ---";:Бж5590:Бе1160SЛXЛI:З" --- --- --- --- --- --- --- ---";:Бе1170SТb:ГSШlЮS╛vЗ"   * * * STATUS REPORT * * *":ЗSцАЗ"  STARDATE          "; Б(Tн10)н.1TКЗ"  CONDITION          ";C$T+ФЗ"  QUADRANT          ";Q1;","Q2TPЮЗ"  SECTOR            ";S1;","S2TrиЗ"  PHOTON TORPEDOES  "; Б(P)TЦ▓З"  TOTAL ENERGY      "; Б(EлS)T╓╝З"  NAV ENERGY        "; Б(E):З"  SHIELDS           "; Б(S)U╞З"  STARDATES LEFT    ";.1н Б((T0лT9мT)н10)U)╨З"  KLINGONS LEFT     "; Б(K9)UH┌З"  STARBASE'S LEFT   ";B9UmфЗ:З"   PRESS <ENTER> WHEN READY"UЕюU$│ Т:Е U$│""з 4590Uў°ЕB9┤1зЮ:Бж5620:З:З"YOUR STUPIDITY HAS LEFT YOU ON  YOUR OWN IN THE GALAXY. YOU HAVENO STARBASES LEFT!":Бж5590VБе3230V	:ГVЕK3┤│0з2470V0 X$│"":ЕK3▓1зX$│"S"Vq*Ю:Бж4160:З"FROM ENTERPRISE TO KLINGON":З "BATTLE CRUISER";X$VС4H8│0:АI│1е3:ЕK(I,3)┤│0з5050Vи>W1│K(I,1):X│K(I,2)V╛HC1│S1:A│S2:Бе4900VЁRЮ:Бж4160:З:З" DIRECTION/DISTANCE CALCULATOR:"W\З" YOU ARE NOW AT;"W4fЗ"                QUADRANT:";Q1;",";Q2;W`pЗ"                SECTOR:  ";S1;",";S2;WЖzЗ"ENTER INITAL COORDINATES (X,Y)"WЬДU$│ Т:ЕU$│""з4740W▒ОБж5670:ЕU│0з4740W┬ШЗU;",";:C1│UW╪вU$│ Т:ЕU$│""з4770WэмБж5670:ЕU│0з4770W°╢ЗU:A│UX└З"ENTER FINAL COORDINATES (X,Y)"X3╩U$│ Т:ЕU$│""з4810XH╘Бж5670:ЕU│0з4810XY▐ЗU;",";:W1│UXoшU$│ Т:ЕU$│""з4840XДЄБж5670:ЕU│0з4840XП№ЗU:X│UXЬЮ:Бж4160X╝З"FROM:  QUADRANT";C1;",";AX▐З"TO  :  QUADRANT";W1;",";X:ЗX·$X│XмA:A│C1мW1:ЕX┤0з4980Y.ЕA┤0з5000Y8ЕX▓0з4940Y+BЕA│0зC1│5:Бе4950Y4LC1│1YKVЕ В(A)┤│ В(X)з4970YМ`З"       DIRECTION=";C1л((( В(A)м В(X))л В(A))о В(A)):Бе5040Y╜jЗ"       DIRECTION=";C1л( В(A)о В(X)):Бе5040Y╥tЕA▓0зC1│3:Бе5010Yш~ЕX┤▓0зC1│5:Бе4950YёИC1│7ZТЕ В(A)▓│ В(X)з5030ZIЬЗ"       DIRECTION=";C1л((( В(X)м В(A))л В(X))о В(X)):Бе5040ZsжЗ"       DIRECTION=";C1л( В(X)о В(A))Zл░З"       DISTANCE="; Ы(Xп2лAп2):ЕH8│1зБж5590:Бе1160Z└║ЛI:Бж5590:Бе1160[─ЕB3┤▓0зЮ:Бж4160:З"FROM ENTERPRISE TO STARBASE:":W1│B4:X│B5:Бе4680[P╬Ю:Бж4160:З:З"MR SPOCK REPORTS,  'SENSORS SHOW NO STARBASES IN THIS ";[p╪З"QUADRANT.'":Бж5590:Бе1160[wт:Г[┤ьR1│╠R(1):R2│╠R(1):A$│"   ":Z1│R1:Z2│R2:Бж5290:ЕZ3│0з5100[║ЎР[┴:Г[у
S8│ Б(Z2м.5)н3л Б(Z1м.5)н24л1[¤Е З(A$)┤▓3зЗ"ERROR":С\n&6З"     (WHICH IS IN THE MIDDLE OF"nO@З"     THE SCAN) THE SCAN IS CODED";nvJЗ"     IN THE FORM ###, WHERE THE"nЬTЗ"     UNITS DIGIT IS THE NUMBER"n┴^З"     OF STARS, THE TENS DIGIT"nъhЗ"     IS THE NUMBER OF STARBASES,";orЗ"     AND THE HUNDREDS DIGIT IS"o3|З"     THE NUMBER OF KLINGONS"oIЖS$│ Т:ЕS$│""з6790oOРЮojЪЗ"PHA: PHASER CONTROL"oРдЗ"     ALLOWS YOU TO DESTROY THE"o╖оЗ"     KLINGON BATTLE CRUISERS BY"o▐╕З"     ZAPPING THEM WITH SUITABLY"p┬З"     LARGE UNITS OF ENERGY TO"p,╠З"     DEPLETE THIER SHIELD POWER.";pQ╓З"     (REMEMBER, KLINGONS HAVE"pkрЗ"     PHASERS TOO!)"pБъS$│ Т:ЕS$│""з6890pЗЇЮpк■З"TOR: PHOTON TORPEDO CONTROL"p╤З"     TORPEDO COURSE IS THE SAME"pЇЗ"     AS USED IN WARP ENGINE"qЗ"     CONTROL.IF YOU HIT THE"q>&З"     KLINGON BATTLE CRUISER, HE"qb0З"     IS DESTROYED AND CANNOT"qЗ:З"     FIRE BACK AT YOU. IF YOU"qмDЗ"     MISS, YOU ARE SUBJECT TO"q╙NЗ"     HIS PHASER FIRE. IN EITHER"q·XЗ"     CASE, YOU ARE ALSO SUBJECT"r bЗ"     TO THE PHASER FIRE OF ALL"rBlЗ"     OTHER KLINGONS IN THE"rXvЗ"     QUADRANT."rnАS$│ Т:ЕS$│""з7040rtКЮrПФЗ"SHE: SHIELD CONTROL"r▒ЮЗ"     DEFINES THE NUMBER OF"r┌иЗ"     ENERGY UNITS TO BE ASSIGNED";s▓З"     TO THE SHIELDS. ENERGY IS"s$╝З"     TAKEN FROM TOTAL SHIP'S"s8╞З"     ENERGY."sN╨S$│ Т:ЕS$│""з7120sT┌ЮsvфЗ"DAM: DAMAGE CONTROL REPORT"sЬюЗ"     GIVES THE STATE OF REPAIR"s└°З"     OF ALL DEVICES. WHERE A"sчЗ"     NEGATIVE 'STATE OF REPAIR'"tЗ"     SHOWS THAT THE DEVICE IS"t-З"     TEMPORARILY DAMAGED."tC S$│ Т:ЕS$│""з7200tI*Юth4З"COM: LIBRARY COMPUTER":Зtа>З"OPTION 0: CUMULATIVE GALACTIC             RECORD"uHЗ"   SHOWS COMPUTER MEMORY OF THE    RESULTS OF ALL PREVIOUS         SHORT AND LONG RANGE SENSOR     SCANS.":Зu2RЗ"OPTION 1: STATUS REPORT"uТ\З"   SHOWS THE NUMBER OF KLINGONS    STARDATES, AND STARBASES        REMAINING IN THE GAME"uиfS$│ Т:ЕS$│""з7270u░pЮ:Зu╒zЗ"OPTION 2: PHOTON TORPEDO DATA"v;ДЗ"   GIVES DIRECTIONS AND DISTANCE   FROM THE ENTERPRISE TO ALL      KLINGONS IN YOUR QUADRANT":Зv^ОЗ"OPTION 3: STARBASE NAV DATA"v▓ШЗ"   GIVES DIRECTION AND DISTANCE    TO ANY STARBASES WITHIN YOUR    QUADRANT."v╚вS$│ Т:ЕS$│""з7330v╨мЮ:Зw╢З"OPTION 4: DIRECTION/DISTANCE              CALCULATOR"wn└З"   ALLOWS YOU TO ENTER             COORDINATES FOR DIRECTION       DISTANCE CALCULATIONS":Зwг╩З"OPTION 5: GALACTIC/REGION NAME            MAP"x╘З"   PRINTS THE NAMES OF THE         SIXTEEN MAJOR GALACTIC          REGIONS REFERRED TO IN THE      GAME."x)▐S$│ Т:ЕS$│""з7390x1шЮ:ЗxOЄЗ"NOTE: KLINGONS ARE NOT"y,№З"      STATIONARY. IF YOU USE          YOUR TOR, PHA, OR NAV           COMMANDS THE KLINGONS WILL      MOVE AROUND WITHIN THE          SECTOR. THIS REQUIRES           GREATER SKILLS OF THE           STARSHIP CAPT'N"yBS$│ Т:ЕS$│""з7430yLБе120