Pd INSTRUCTIONS (STEP 20000-) BY DAVE AHL 3/5/78'BASIC COMP GAMESn MODIFIED AND EXPANDED BY L.C.BROWN 10/15/80 FOR CRTx MAIN PROGRAM BY MIKE MAYFIELD MODIFIED BY D.AHL IN DEC'S "1014 BASIC GAMES". MODIFICATION OF THE LATTER (PLUS DEBUGGING) BY~ BOB LEEDOM-APR&DEC 1974, WITH A LITTLE HELP FROM FRIENDS... -SEND COMMENTS ETC TO LEEDOM BOX 746, M. S. 338 BALT MD. 21203 CONVERTED TO MICROSOFT 8K BASIC BY JOHN BORDERS-3/16/78._ LINE NUMBERS PRESERVED FROM 'STREK7' OF 1/12/75 AS MUCH AS POSSIBLE WHILE USING MULTIPLE LINE STATEMENTS (SOME LONGER THAN 72 CHARACTERS BY USING ? INSTEAD OF PRINT.5 MODIFIED FOR 40 CHARACTER LINES ON PET BY L.C.BROWN 10/24/80x MODIFIED FOR COMMODORE 64 BY D. M. CONLEY 4/10/83 MODIFIED FOR COMMODORE +4 BY COMPUTERCLUB RUHRGEBIET 19870,154,16 (142)""G(8,8),C(9,2),K(3,3),N(3),Z(8,8),D(8)!5110:240P" ***SUPERTREK***":"y" -------------"" ------------ ---- -------" -------- - / /" --- --------/ /--"" -------------------6,"  THE USS ENTERPRISE --- NCC-1701 "D6::::V@ CLEAR 600??xJZ$" "T DIM STATEMENT TRANSF TO STEP2^T((TI)2020)100:T0T:T925 ((TI)10):D00:E3000:E0EhX$"":P10:P0P:S9200:S0:B90: K90:X0$" IS "MrD(D)((K(I,1)S1)2(K(I,2) S2)2)j|R(R)((R)7.981.01) INITIALIZE ENTERPRISE POSITIONQ1R(1):Q2R(1):S1R(1): S2R(1)I19: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)1rC(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)1I18:D(I)0:IA1$"NAVSRSLRSPHATORSHEDAMCOMXXX" SET UP WHAT EXITS IN THE GALAXY  K3= #KLINGONS B3= #STARBASES S3= #STARS;I18:J18:K30:Z(I,J)0: R1(TI)\ R1.98 K33:K9K93:520} R1.95 K32:K9K92:520 R1.80 K31:K9K91B30: (TI).96 B31:B9B9 1G(I,J)K3100B310R(1):J: I:K9T9T9K91 B90570D& G(Q1,Q2)200 G(Q1,Q2)G(Q1 ,Q2)100:K9K910B91:G(Q1,Q2)G(Q1,Q2)10: Q1R(1):Q2R(1):K7K9:B91X$"S": X0$" ARE "D"YOUR ORDERS ARE AS FOLLOWS:"N" DESTROY THE";K9; "KLINGON WARSHIPS"DX" WHICH HAVE INVADED THE GALAXY, BEFORE"qb" THEY CAN ATTACK THE FEDERATION HEAD-"l" QUARTERS ON STARDATE"; T0T9;". THIS GIVES"v" YOU";T9;"DAYS. THERE";X0$; B9;"STARBASE";X$;" IN"" THE GALAXY FOR RESUPPLYING YOUR SHIP."J:"  HIT ANY KEY WHEN YOU ARE READY TO "q"  ACCEPT COMMAND. "K$:K$""670I=RND(1):IF INP(1)=13THEN1300: HERE ANY TIME NEW QUADRANT IS ENTERED(Z4Q1:Z5Q2:K30:B30:S30:G50: D4.5(TI):Z(Q1,Q2)G(Q1,Q2)EQ11Q18Q21Q28820\4720::T0T760" YOUR MISSION BEGINS WITH YOUR STAR-"" SHIP LOCATED IN THE GALACTIC QUADRANT, ";" '";G2$;"'.":770"NOW ENTERING ";G2$;" QUADRANT..."I:K3(G(Q1,Q2).01): B3(G(Q1,Q2).1)10K3 S3G(Q1,Q2)100K310B3: K30810"COMBAT AREA....CONDITION RED!":S200810 "  SHIELDS ARE DANGEROUSLY LOW "*I13:K(I,1)0:K(I,2)0:I@4I13:K(I,3)0:I:Q$Z$Z$ Z$Z$Z$Z$Z$Z$Z$(Z$,17)a> PUT ENTERPRISE IN QUADRANTH THEN PLACE 'K3' KLINGONS ANDR 'B3' STARBASES & 'S3' STARS\ ELSEWHERE.fA$"":Z1S1:Z2S2:4510: K31900pI1K3:4480:A$"ײ": Z1R1:Z2R2_z4510:K(I,1)R1:K(I,2)R2: K(I,3)S9(0.5(TI)):ImB319204480:A$"<>":Z1R1:B4R1: Z2R2:B5R2:4510I1S3:4480:A$" * ": Z1R1:Z2R2:4510:I3420 SE10(E10 D(7)0) 1020) D011020` :11) "** FATAL ERROR ** " "YOU'VE JUST STRANDED YOUR SHIP IN SPACE!"; "INSUFFICIENT MANEUVERING ENERGY EXITS," !"AND SHIELD CONTROL PRESENTLY CANNOT CROSS CIRCUIT TO ENGINE ROOM!"!X110000::)!3230S!"COMMAND";A$:"":A$""1020|!A$"INSTR"6710: 1020!I19:(A$,3) (A1$,3I2,3)1060! I 1190,930,2060,2150,2400, 2770,2900,3680,3270/"$I: " ENTER ONE OF THE FOLLOWING:"Q"." NAV (TO SET COURSE)""8" SRS (FOR SHORT RANGE SENSOR SCAN)""B" LRS (FOR LONG RANGE SENSOR SCAN)""L" PHA (TO FIRE PHASERS)"#V" TOR (TO FIRE PHOTON TORPEDOES)"/#`" SHE (TO RAISE OR LOWER SHIELDS)"_#j" DAM (FOR DAMMAGE CONTROL REPORTS)"#t" COM (TO CALL ON LIBRARY-COMPUTER)"#~" XXX (TO RESIGN YOUR COMMAND)"#: " TYPE 'INSTR' FOR MORE "*$" COMPLETE INSTRUCTIONS."::940K$ COURSE CONTROL BEGINS HEREo$"COURSE(1-9) ";C1$$C1$"""": 1190$C1$"INSTR"6710: FL11190: USE LATER?$C1(C1$):C19C11$C11C191250 %" LT. SULU REPORTS, 'INCORRECT COURSE";%" DATA, SIR!'":940W%X$"8":D(1)0X$"0.2"%"WARP FACTOR (0-";X$;")";:" 9";W1:D(1)0W1.21310%W19"": 1260%W10W181330%W10940% " CHIEF ENGINEER SCOTT REPORTS 'THE"2&" ENGINES WON'T TAKE WARP"; W1;"!'":940[&"WARP ENGINES ARE DAMAGED. MAXIMUM"y&("SPEED = WARP 0.2":940&2N(W18.5): EN01430&<"ENGINEER REPORTS 'INSUFFICIENT ENERGY"&F" AVAILABLE FOR MANEUVERING AT"'P" WARP";W1;"!"('ZSNE D(7)0940S'd"DEFLECTOR CONTROL ROOM ACKNOWLEGES"'n S;"UNITS OF ENERGY PRESENTLY DEPLOYED":S999"";'x"TO SHIELDS."'940' KLINGONS MOVE/FIRE ON MOVING STARSHIP'I1K3:K(I,3)014606(A$" ":Z1K(I,1):Z2K(I,2): 4510:4480j(K(I,1)Z1:K(I,2)Z2:A$"ײ": 4510(I:3080:D10:D6W1: W11D61(I18:D(I)01520(D(I)D(I)D6:D(I).1 D(I)0 D(I).1:1520(D(I)01520D)D11D11: "DAMAGE CONTROL REPORT: ")3);:R1I:4570: G2$;" REPAIR COMPLETED.")I:(TI).21660: IS THERE DAMAGE OR REPAIR?)R1R(1): PICK SYSTEM)(TI).61590*** DAMAGE WITHOUT ENEMY ACTIONO*D(R1)D(R1)((TI)51): "DAMAGE CONTROL REPORT: "*"4570:1);G2$; " DAMAGED"::1660*, REPAIRS*6SE5SHS:SE5:SF1*@RVES: REPAIR VARIABLE*JRV6RV6 +TD(R1)D(R1)(TI)(RV)1: "DAMAGE CONTROL REPORT: "4+^SF1SSH:SF0j+h4570:1);G2$; " STATUS IMPROVED":+r BEGIN MOVING STARSHIP+|A$" ":Z1(S1):Z2(S2): 4510+X1C(C1,1)(C(C11,1)C(C1,1))(C1 (C1)):XS1:YS24,X2C(C1,2)(C(C11,2)C(C1,2))(C1 (C1)):Q4Q1:Q5Q2x,I1N:S1S1X1:S2S2X2:S11 S19 S21 S291800,S8(S1)24(S2)326: (Q$,S8,2)" "1730,S1(S1X1):S2(S2X2):"WARP ENGINES SHUT DOWN AT SECTOR">-S1;",";S2; "DUE TO BAD NAVIGATION":1740W-I:S1(S1):S2(S2)-A$"":Z1(S1):Z2(S2): 4510:2010:T81-W11T8.1(10W1)-TTT8:TT0T93230- SEE IF DOCKED THEN GET COMMAND-930. EXCEEDED QUADRANT LIMITSZ.X8Q1XNX1:Y8Q2YNX2:Q1 (X8):Q2(Y8):S1(XQ18).S2(YQ28):S10Q1Q11: S18.S20Q2Q21:S28.&X50:Q11X51:Q11:S11.0Q18X51:Q18:S18.:Q21X51:Q21:S21/DQ28X51:Q28:S28/NX501980H/X:"LT.UHURA REPORTS MESSAGE FROM STARFLEET ";z/b"COMMAND: 'PERMISSION TO ATTEMPT CROSSING";/l"OF GALACTIC PERIMETER IS HEREBY DENIED."/v"SHUT DOWN YOUR ENGINES.'"/"CHIEF ENGINEER SCOTT REPORTS 'WARP"'0"ENGINES SHUT DOWN AT SECTOR" ;S1;",";S2I0"OF QUADRANT";Q1;",";Q2;".'"v0:"READ THE ABOVE, THEN PUSH A KEY"0U$:U$""19600TT0T9323008Q1Q28Q4Q517400TT1:2010:7000 MANEUVER ENERGY S/R**0EEN:E0 =1"SHIELD CONTROL SUPPLIES ENERGY TO"3934"COMPLETE MANEUVER."U1SSE:E0:S0S0[1}1 LONG RANGE SENSOR SCAN CODE1 D(3)0"LONG RANGE SENSORS ARE INOPERABLE":9401"LONG RANGE SCAN FOR QUADRANT";Q1;",";Q22 O1$"--------------------": O1$T2*IQ11Q11:N(1)1:N(2)2: N(3)3:JQ21Q2124I0 I9 J0 J9 N(JQ22)G(I,J):Z(I,J)G(I,J)2>J:L13:": ";: N(L)0"*** ";:21302H((N(L)1000),3); " ";3RL:":":O1$:I: 94073\ PHASER CONTROL BEGINS HEREx3fD(4)0 "PHASERS INOPERATIVE":9403p K3021903z"SCIENCE OFFICER SPOCK REPORTS 'SENSORS"3"SHOW NO ENEMY SHIPS IN THIS QUADRANT'":9404D(8)0 "COMPUTER FAILURE HAMPERS ACCURACY"A4"PHASERS LOCKED ON TARGET---"d4"ENERGY AVAILABLE=";E;"UNITS"4"NUMBER OF UNITS TO FIRE";K$:K$"" "":22204K$"INSTR"6710: 22204X(K$):X09404EX022105EEX:D(8)0XX(TI)65H1(XK3):I13:K(I,3)02380g5H((H1D(0))((TI)2)):H.15K(I,3)23105"SENSORS SHOW NO DAMAGE TO "5" ENEMY AT ";K(I,1);",";K(I,2):23805 K(I,3)K(I,3)(H)5 H(H):H$((H),((H))1)$6 H$"UNIT HIT ON KLINGON AT SECTOR"K(I,1)","K(I,2);c6$ K(I,3)0" *** KLINGON DESTROYED ***"::23606. " (SENSORS SHOW";(K(I,3)10.5)10;"UNITS REMAINING)":238068 K3K31:K9K91:Z1K(I,1): Z2K(I,2):A$" ":451087B K(I,3)0:G(Q1,Q2)G(Q1,Q2)100: Z(Q1,Q2)G(Q1,Q2):K903370J7L I:3080:940k7V PHOTON TORPEDO CODE BEGINS7` P0"ALL PHOTON TORPEDOS EXPENDED":9407j D(5)0"PHOTON TUBES ARE NOT OPERATIONAL":9408t "PHOTON TORPEDO COURSE (1-9)";XI$:XI$""242078~ XI$"INSTR"6710: 2420P8 C1(XI$):C19C11h8 C11 C19 24908 "ENSIGN CHEKOV REPORTS, "8 " 'INCORRECT DATA, SIR!"8 9408 X1C(C1,1)(C(C11,1)C(C1,1)) (C1(C1)):EE2:PP169 X2C(C1,2)(C(C11,2)C(C1,2)) (C1(C1)):XS1:YS2L9 "TORPEDO TRACK:"9 XXX1:YYX2:X3(X.5): Y3(Y.5)9 X31 X38 Y31 Y38 27509 " ";X3;",";Y3: A$" ":Z1X:Z2Y:4670: Z3025206: A$"ײ":Z1X:Z2Y:4670: Z302610u: "*** KLINGON DESTROYED ***":K3K31:K9K91:K903370: I13:X3K(I,1) Y3K(I,2) 2600: I:I3:( K(I,3)0::2730:2 A$" * ":Z1X:Z2Y:4670: Z3026308;< "STAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":3080:940m;F A$"<>":Z1X:Z2Y:4670: Z302420;P " *** STARBASE DESTROYED ***":B3B31:B9B91;Z B90 K9TT0T92710;d " THAT DOES IT, CAPTAIN!! YOU ARE" XI$"INSTR"6710: 2780M> X(XI$):X0 SX "":940^> XES2860|> "SHIELD CONTROL REPORTS"> "'THIS IS NOT THE FEDERATION TREASURY'">" " ": 940?, EESX:SX: "DEFLECTOR CONTROL ROOM REPORT:"K?6 " 'SHIELDS NOW AT";(S); "UNITS"w?@ " ACCORDING TO YOUR COMMAND.'":940?J DAMAGE CONTROL?T D(6)03030?^ "DAMAGE CONTROL REPORT NOT AVAILABLE":D00940@h D30:I18:D(I)0D3 D3.1@r I:D30940-@| :D3D3D4:D31D3.9W@ "TECHNICIANS STANDING BY TO EFFECT"@ "REPAIRS TO YOUR SHIP; ESTIMATED TIME"@ "TO REPAIR:";.01(100D3); "STARDATES."@ "DO YOU AGREE TO REPAIR ORDER (Y/N) Y";A$@ A$(A$,1) A A$"Y"940%A I18:D(I)0D(I)06A I:TTD3.1jA :"DEVICE STATE OF REPAIR":R118A 4570:G2$;(Z$,25 (G2$));(D(R1)100).01A R1::D002920A 940A KLINGONS SHOOTINGA K30B D00"STARBASE SHIELDS PROTECT THE ENTERPRISE.":BB PRINT"THE ENTERPRISE":RETURN]B& I13:K(I,3)03210B0 H((K(I,3)D(1))(2(TI))): SSH:K(I,3)K(I,3)(3(TI))B: "":H;"UNIT HIT ON ENTERPRISE "BD "FROM SECTOR";K(I,1);",";K(I,2)""CN S032501CX "":H203210PCb (TI).6 HS.02 3210Cl R1R(1):D(R1)D(R1)HS.5 (TI):4570:D9D91Cv D9;""G2$"";C " DAMAGED BY HIT!"C I: D90:C END OF GAMED 53281,10:"":I05000:)D " IT IS STARDATE";(T)AD :I02000::3270qD :"THE ENTERPRISE HAS BEEN DESTROYED. THE"D "FEDERATION WILL BE CONQUERED.":I05000:I: 3230D K91"THERE WERE";K9;"KLINGON BATTLE CRUISERS":3290E "THERE WAS ONE KLINGON BATTLE CRUISER"9E "LEFT AT THE END OF YOUR MISSION."LE ::B903360rE "THE FEDERATION IS IN NEED OF A"E "STARSHIP COMMANDER FOR A SIMILAR"E "MISSION---IF THERE IS A VOLUNTEER,"F "PLEASE STEP UP AND ENTER 'AYE' AYE";A$:A$"AYE" /F A$"9U"K$A$:3730: 33105F nF* ::I02000::"CONGRATULATIONS,CAPTAIN! THE LAST"F4 "KLINGON BATTLE CRUISER MENACING THE"F> "FEDERATION HAS BEEN DESTROYED.":GH "YOUR EFFICIENCY RATING IS";(100000(K7(TT0)2).5)100:33006GR SHORT RANGE SESOR SCAN & STARTUP ROUTINETG\ IS11S11:JS21S21Gf (I.5)1 (I.5)8 (J.5)1 (J.5)83450Gp A$"<>":Z1I:Z2J:4670: Z313460Gz J:I:D00:3480G D01:C$"DOCKED":EE0:PP05H "SHIELDS DROPPED FOR DOCKING PURPOSES":S0:3500RH K30C$"*RED*":3500H C$"GREEN": EE0.1C$"YELLOW"H D(2)03520H :"*** SHORT RANGE SENSORS ARE OUT***"::I O1$"----------------": O1$:I183I J(I1)241(I1)24223FI (Q$,J,3);:JI I3560,3562,3580,3590,3600, 3610,3620,3630I 3650:" STARDATE ";(T10).1:3660:3640I C$"*RED*" 53280,2I C$"DOCKED" 53280,14J C$"GREEN" 53280,13>J C$"YELLOW" 53280,7qJ 3650:" CONDITION ";C$:3660:3640J 3650:" QUADRANT ";Q1;",";Q2:3660:3640J3650:" SECTOR ";S1;",";S2:3660:3640K3650:" PHOTON TORPEDOS ";(P):3660:3640MK3650:" TOTAL ENERGY ";(ES):3660:3640K$3650:" SHIELDS ";(S):3660:3640K.3650:" KLINGONS REMAINING";(K9)K8I:"";O1$: I18::I:KB:"";:LL"":"LV COMPUTER LIBRARY CODEJL`D(8)0"COMPUTER DISABLED":940Lj"COMPUTER READY AND AWAITING COMMAND";K$:"":K$""3690LtK$"INSTR"6710:3690L~A(K$):A0940L:H81:A1 3870,4030, 4150,4440,4210,3850MK$"9U" 4980#MA$"9U"A$"":7MU$:U$""3750@M940pM"FUNCTIONS AVAILABLE IN LIBRARY-COMPUTER:"M" 0 = CUMMULATIVE GALACTIC RECORD"M" 1 = STATUS REPORT"M" 2 = PHOTON TORPEDO DATA"M" 3 = STARBASE NAV DATA"$N" 4 = DIRECTION/DISTANCE CALCULATOR"SN" 5 = GALAXY 'REGION NAME' MAP"::3690N SETUP TO GHANGE CUM GAL RECORD TO GALAXY MAPN H80:G51:" THE GALAXY" :3930N CUM GALAXY RECORDNN(N2:" ";:??O<"PRESENT RECORD OF GALAXY"OOF" (NOW AT QUADRANT"; Q1;",";Q2;")"UOPOZ" 1 2 3 4 5 6 7 8"OdO1$" --- --- --- --- --- --- --- ---"OnO1$:I18:I;: " ";:H803990PxJ18:" ";:Z(I,J)0 "***";:3980.P((Z(I,J)1000),3);;PJ:4010tPZ4I:Z51:4720:J0(13.5 (G2$)):J0);G2$;PZ55:4720:J0(29.5 (G2$)):J0);G2$;P:O1$:I:P940P" STATUS REPORT:":X$"": K91X$"S"Q"KLINGON";X$;" LEFT: ";K9=Q"MISSION MUST BE COMPLETED "tQ" IN";.1((T0T9T) 10);"STARDATES"QX$"S":B92X$"": B914110Q"THE FEDERATION IS MAINTAINING";B9Q"STARBASE";X$;" IN THE GALAXY."Q2900*R"YOUR STUPIDITY HAS LEFT YOU ON YOUR"PR"OWN IN THE GALAXY--YOU HAVE NO"nR""STARBASES LEFT!":2900R, TORP, BASE NAV, D/D CALCULATORR6K302170R@X$"":K31X$"S"RJ"FROM THE ENTERPRISE TO KLINGON CRUISER";X$ STH80:I13:K(I,3)04430"S^W1K(I,1):XK(I,2)7ShC1S1:AS2:4270]Sr"DIRECTION/DISTANCE CALCULATOR:"S|"YOU ARE AT QUADRANT";Q1;","; Q2;" SECTOR";S1;",";S2S"PLEASE ENTER":" INITIAL COORDINATES(X,Y)";C1$,A$SC1$"INSTR"6710: 4230TC1(C1$):A(A$)CT" FINAL COORDINATES(X,Y)";: W1,X_TXXA:AC1W1:X04350mTA04370{TX04310TA0C15:4320TC11T(A)(X)4340T"DIRECTION =";C1((((A) (X))(A))(A)):4410U"DIRECTION =";C1((A) (X)):44101UA0C13:4380FUX0C15:4320OUC17dU(A)(X)4400U&"DIRECTION =";C1((((X) (A))(X))(X)):4410U0"DIRECTION =";C1((X) (A)) V:F90"DISTANCE ="; (X2A2)10:F90:H81940EVD F90 "DISTANCE ="; (X2A2):H81940QVNI:940VXB30"FROM ENTERPRISE TO STARBASE:":W1B4:XB5:F91:4200Vb"MR. SPOCK REPORTS, 'SENSORS SHOW NO"Vl"STARBASES IN THIS QUADRANT." :940 Wv FIND EMPTY SPACE IN QUADRANT FOR THINGSdWR1R(1):R2R(1):A$" ":Z1R1 :Z2R2:4670:Z304480jWW INSERT IN STRING ARRAY FOR QUADRANTWS8(Z2.5)3(Z1.5)241W(A$)5"ERROR":WS81Q$A$(Q$,189): %XS8190Q$(Q$,189)A$: VXQ$(Q$,S81)A$ (Q$,190S8):oX PRINTS DEVICE NAMEXR14580,4590,4600,4610,4620, 4630,4640,4650XG2$"WARP ENGINES":XG2$"SHORT RANGE SENSORS":YG2$"LONG RANGE SENSORS":!YG2$"PHASER CONTROL"::Y G2$"PHOTON TUBES":UYG2$"DAMAGE CONTROL":pY G2$"SHIELD CONTROL":Y*G2$"LIBRARY-COMPUTER":Y4 STRING COMPARISON IN QUADRANT ARRAYZ>Z1(Z1.5):Z2(Z2.5): S8(Z21)3(Z11)241:Z30ZH (Q$,S8,5)A$(ZRZ31:eZ\ QUADRANT NAME IN G2$ FROM Z4,Z5,(=Q1,Q2)Zf CALL WITH Z5=1 TO GET REGION NAME ONLYZpZ54Z44740,4750,4760, 4770,4780,4790,4800,4810Zz4820[G2$"ANTARES":4920[G2$"RIGEL":49203[G2$"PROCYON":4920K[G2$"VEGA ":4920c[G2$"CANOPUS":4920{[G2$"ALTAIR ":4920[G2$"SAGITTARIUS":4920[G2$"POLLUX":4920[ Z44830,4840,4850,4860, 4870,4880,4890,4900 \G2$"SIRIUS":4920 \G2$"DENEB":49208\G2$"CAPELLA":4920S\G2$"BETELGEUSE":4920m\G2$"ALDEBARAN":4920\G2$"REGULUS":4920\G2$"ARCTURUS":4920\$G2$"SPICA":4920\. ??CHECK ON G5 OR Z5 IN NEXT STEP,]8G51 Z5 4940,4950, 4960,4970,4940,4950,4960,49702]BE]LG2$G2$" I":Y]VG2$G2$" II":n]`G2$G2$" III":]jG2$G2$" IV":]t:" ";]~"PRESENT RECORD OF GALAXY"]" (NOW AT QUADRANT";Q1;",";Q2;")"]^" 1 2 3 4 5 6 7 8"C^O1$" --- --- --- --- --- --- --- ---"j^O1$:I18:I;: " ";{^J18:" ";^G6$((G(I,J)1000),3): G6$;^J:5080^:O1$:I:^^^ INSTRUCTION SECTION^""_  I18::"_9)"*********************"B_9)"* *"b_(9)"* *"_29)"* SUPER STAR TREK *"_<9)"* *"_F9)"* *"_P9)"*********************"_ZI18::`d" DO YOU WANT INSTRUCTIONS? (Y/N)"6`e K$: K$"N" 240J`f K$"Y" 5230T`g5221`n:5260:5400: 5540:5730:5850`x5980:6070:6280: 6340`6580:6600:6880`"":" INSTRUCTIONS FOR 'SUPER STAR TREK'"`*a"1.WHEN YOU SEE 'COMMAND?' PRINTED, ENTER";Ma" ONE OF THE LEGAL COMMANDS"~a" (NAV,SRS,LRS,PHA,TOR,SHE,DAM,COM,XXX)"a" OR A REQUEST FOR INSTRUCTIONS.":a"2.IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND,YOU'LL GET A SHORT";(b" LIST OF THE LEGAL COMMANDS PRINTED OUT.":Ub"3.SOME COMMANDS REQUIRE ENTRY OF DATA"b" (FOR EXAMPLE, THE 'NAV' COMMAND COMES"b" BACK WITH 'COURSE (1-9) ?'). IF YOU"b" TYPE IN ILLEGAL DATA (LIKE NEGATIVE"c" NUMBERS),THAT COMMAND WILL BE ABORTED.": c6890:Mc" THE GALAXY IS DIVIDED INTO AN 8 X 8"uc""QUADRANT GRID, AND EACH QUADRANT"c,"IS FURTHER DIVIDED INTO AN 8 X 8 SECTOR"c6"GRID.":c@" YOU WILL BE ASSIGNED A STARTING POINT"dJ"SOMEWHERE IN THE GALAXY TO BEGIN A TOUR"BdT"OF DUTY AS THE COMMANDER OF THE STARSHIP";sd^"'ENTERPRISE'. YOUR MISSION: TO SEEK AND"dh"DESTROY THE FLEET OF KLINGON WARSHIPS"dr"WHICH ARE MENACING THE UNITED FEDERATION";d|"OF PLANETS.":F65530!e::" AS CAPTAIN OF THE 'ENTERPRISE', YOU "Se"HAVE THE FOLLOWING 9 COMMANDS AVAILABLE:":_e6890:e"'NAV'COMMAND=WARP ENGINE CONTROL--":e" 4 3 2 "e" e" f" 5 ---*--- 1'f" Df" bf" 6 7 8hff" COURSE IS IN A CIRCULAR NUMERICAL"f" VECTOR ARRANGEMENT AS SHOWN ABOVE."f" INTEGER AND REAL VALUES MAY BE USED."; g" (THUS COURSE 1.5 IS IS HALF WAY"Qg&" BETWEEN 1 AND 2. VALUES MAY APPROACH";g0" 9.0, WHICH ITSELF IS 1.0. ONE WARP"g:" FACTOR IS THE SIZE OF ONE QUADRANT."gD" THEREFORE TO GET FROM QUADRANT 6,5"hN" TO 5,5, YOU WOULD USE COURSE 3, WARP FACTOR 1."+hX6890:]hb:"'SRS'COMMAND=SHORT RANGE SENSOR SCAN"hl" SHOWS YOU A SCAN OF YOUR PRESENT"hv" QUADRANT WITH SYMBOLS ON YOUR SCREEN";h" AS FOLLOWS:":i"  = YOUR STARSHIP'S POSITION":/i" ײ = KLINGON BATTLE CRUISER":Wi" <> = FEDERATION STARBASE"i" (REFUEL/REPAIR/RE-ARM HERE!)":i" * = STAR":i" A CONDENSED STATUS REPORT WILL ALSO"i" BE PRESENTED."i6890: j"'LRS' COMMAND=LONG RANGE SCAN"Mj" SHOWS CONDITIONS IN SPACE FOR ONE"uj" QUADRANT ON EACH SIDE OF THE"j" ENTERPRISE (WHICH IS IN THE MIDDLE"j" OF THE SCAN). THE SCAN IS CODED IN"j " THE FORM '# # #', WHERE THE UNITS"+k" DIGIT IS THE NUMBER OF STARS, THE"Rk " TENS DIGIT IS THE NUMBER OF"k*" STARBASES, AND THE HUNDREDS DIGIT"k4" IS THE NUMBER OF KLINGONS.":k>" EXAMPLE: 207 =2 KLINGONS,NO STARBASES,"kH" AND 7 STARS."kR6890:$l\"'PHA'COMMAND = PHASER CONTROL."Qlf" ALLOWS YOU TO DESTROY THE KLINGON"zlp" CRUISERS BY ZAPPING THEM WITH"lz" SUITABLY LARGE UNITS OF ENERGY TO"l" DEPLETE THEIR SHIELD POWER.":m" PHASERS LET YOU SHOOT MORE THAN ONE KLINGON WITH ONE SHOT."Jm:" (REMEMBER:KLINGONS HAVE PHASERS"\m" TOO!)"hm6890:m"'TOR'COMMAND=PHOTON TORPEDO CONTROL."m" TORPEDO COURSE IS THE SAME AS USED"m" IN WARP ENGINE CONTROL. IF YOU HIT"#n" THE KLINGON VESSEL, HE IS DESTROYED"Rn" AND CANNOT FIRE BACK AT YOU. IF YOU"n" MISS, YOU ARE SUBJECT TO HIS PHASER"n" FIRE. IN EITHER CASE, YOU ARE ALSO"n" SUBJECT TO THE PHASER FIRE OF ALL" o" OTHER KLINGONS IN THE QUADRANT.":>o" THE LIBRARY COMPUTER ('COM' COMMAND)";ko" HAS AN OPTION TO COMPUTE TORPEDO "o$" TRAJECTORY FOR YOU (OPTION #2)"o.:F66270o8"'SHE'COMMAND = SHIELD ENERGY CONTROL"pB" DEFINES THE NUMBER OF ENERGY UNITS"-pL" ASSIGNED TO THE SHIELDS. ENERGY"XpV" IS TAKEN FROM THE TOTAL SHIP'S "p`" ENERGY. NOTE THAT THE STATUS DISPLAY";pj" OF TOTAL ENERGY INCLUDES THE SHIELD ";pt" ENERGY.p~6890:q"'DAM'COMMAND = DAMAGE CONTROL REPORT"4q" GIVES THE STATE OF REPAIR OF ALL"cq" DEVICES, WHERE A NEGATIVE 'STATE OF"q" REPAIR' SHOWS THAT A DEVICE IS"q" TEMPORARILY DAMAGED, AND UNUSEABLE."q6890:q"'COM'COMMAND = LIBRARY-COMPUTER"%r" THE LIBRARY COMPUTER GIVES 6 OPTIONS";Zr" OPTION 0=CUMMULATIVE GALACTIC RECORD";r" SHOWS COMPUTER MEMORY OF ALL"r" PREVIOUS SHORT AND LONG RANGE"r" SENSOR SCANS."r" OPTION 1= STATUS REPORT.s " SHOWS NUMBER OF KLINGONS,STARDATES,";Ks" AND STARBASES REMAINING IN GAME."ws" OPTION 2= PHOTON TORPEDO DATA"s(" GIVES DIRECTIONS AND DISTANCE FROM"s2" THE ENTERPRISE TO ALL KLINGONS"s<" IN YOUR QUADRANT."tF" OPTION 3 =STARBASE NAV DATA."ItP" GIVE DIRECTION AND DISTANCE TO ANY"ttZ" STARBASE WITHIN YOUR QUADRANT."td" OPTION 4 = DIRECTION/DISTANCE"tn" ALLOWS YOU TO ENTER COORDINATES FOR";tx" DIRECTION/DISTANCE CALCULATIONS."0u" OPTION 5 =GALACTIC/REGION NAME/MAP.]u" GIVES THE NAMES OF SIXTEEN MAJOR"u" GALACTIC REGIONS REFERRED TO IN"u" THE GAME."u6900:u"'XXX'COMMAND='I RESIGN!'"uF63:6890:v" IF YOU AT ANY TIME WANT INSTRUCTIONS,"