- - - STAR TREKM - - - CREDIT TO MANY, BUT UPDATED 29 NOV 86 RO - - - INSTALL ML. SUBROUTINE IN FREE ZERO & TAPE BUFFER("":1,1400,150,1,,,3,20482%<D:D2 80F250J,D:JJ1:60P - - - WRITE NEW CHAR DATA Z 250,54,18d 250,16,191n D: D1 140@x 250,D,31J 110S""}J72341:"";(14);J);" ":"";(14);34);(15);" TAR REK""V1O4T7Q#CI#FHBQR#A#F#D#GIR#GQO5H#CIR#CWF" - - - DATA FOR ML. SUB ROUTINE1 142,0,214,44,0,214,16,251,141,1,214,96,-2_ - - - CHARACTER DATA FOR USS ENTERPRISE 14,63,127,127,127,127,63,14,0,0,0,0,0,0,0,0 7,129,194,255,255,194,129,7,0,0,0,0,0,0,0,0 254,0,0,248,248,0,0,254,0,0,0,0,0,0,0,0 - - - CHARACTER DATA FOR KLINGONF 0,0,112,127,127,112,0,0,0,0,0,0,0,0,0,0p 0,0,2,255,255,2,0,0,0,0,0,0,0,0,0,0 62,124,240,240,240,240,124,62,0,0,0,0,0,0,0,0 - - - CHARACTER DATA FOR BASE" 0,15,15,3,0,0,0,0,0,0,0,0,0,0,0,0$ , 60,255,255,255,255,126,60,24,0,0,0,0,0,0,0,0S 6 0,240,240,192,0,0,0,0,0,0,0,0,0,0,0,0,-1d @ - - - MAIN JZ$" " T G(8,8),C(9,2),K(3,3),N(6),Z(8,8),D(8),X$(3) ^T((1)2020)100:T0T:T925((1)10):D00:E3000:E0E+!hP10:P0P:S9200:S0:B90:K90:X$"":X0$" IS "V!r D(D)((K(I,1)S1)2(K(I,2)S2)2)t!| R(R)((R)7.981.01)z!!Q1R(1):Q2R(1):S1R(1):S2R(1)! I1 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)1I"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)1^"I16:D(I)0:I"A1$"NAVSRSLRSPHATORSHEDAMCOMXXX"" SETUP WHAT EXISTS IN GALAXY . . 815 REM K3= # KLINGONS B3= # STARBASES S"I18:J18:K30:Z(I,J)0:R1(1)#R1.98K33:K9K93:5107#R1.95K32:K9K92:510P#R1.80K31:K9K91p#B30:(1).96B31:B9B91#G(I,J)K3100B310R(1):J:I:K9T9T9K91#B90560#G(Q1,Q2)200G(Q1,Q2)G(Q1,Q2)100:K9K91$&B91:G(Q1,Q2)G(Q1,Q2)10:Q1R(1):Q2R(1)9$0K7K9: B91 X$"S":X0$" ARE "]$: "OUR ORDERS ARE AS FOLLOWS:"$D "ESTROY THE";K9;"LINGON ARSHIPS (SHOWN AS ) WHICH HAVE INVADED OUR GALAXY"$N "BEFORE THEY CAN ATTACK EDERATION EADQUARTERS ON TARDATE";T0T9F%X "HIS GIVE YOU";T9;"TARDATES TO COMPLETE YOUR MISSION AND SAVE"p%b "THE NITED EDERATION OF LANETS."%l "TAR LEET OMMAND IS MAINTAINING";B9;"EDERATION TARBASE";X$;" IN THIS GALAXY."!&v "HE TARBASE";X$;X0$;"PROVIDED FOR RESUPPLYING TARSHIPS AND FOR REPAIRING ANY"W& "DAMAGE THAT CANNOT BE REPAIRED DURING PATROL."& "RESS ANY KEY TO ACCEPT COMMAND OF THE TARSHIP ''"&A$:A$""660& ""&'Z4Q1:Z5Q2:T30:B30:S30:G50:D4.5(1):Z(Q1,Q2)G(Q1,Q2)#' Q11Q18 Q21Q28 800>' 4550:: T0T 740o' "OUR MISSION BEGINS WITH YOUR STARSHIP"'"LOCATED IN THE GALACTIC QUADRANT, '";G2$;"'.": 750' "OW ENTERING '";G2$;" UADRANT'"(:K3(G(Q1,Q2).01):B3(G(Q1,Q2).1)10K3/(S3G(Q1,Q2)100K310B3: K30 790`("OMBAT AREA CONDITION ě": S200 790(  (15);"Ӡ٠!"( I1 3:K(I,1)0:K(I,2)0 : I( I13:K(I,3)0:I:Q$Z$Z$Z$Z$Z$Z$Z$(Z$,17)(*(4)>A$"":Z1S1:Z2S2:4340:K31860B)HI1K3:4310:A$"":Z1R1:Z2R2x)R4340:K(I,1)R1:K(I,2)R2:K(I,3)S9(0.5(1)):I)\B31880)f4310:A$"":Z1R1:B4R1:Z2R2:B5R2:4340)pI1S3:4310:A$" * ":Z1R1:Z2R2:4340:I)z3350*SE10E10D(7)0950X*:"** ** OU'VE JUST STRANDED HE NTERPRISE IN SPACE."*:"OU HAVE INSUFFICIENT MANEUVERING ENERGY,";*"AND SHIELD CONTROL":"IS PRESEITLY INCAPABLE OF CROSS";*"-CIRCUITING TO ENGINE ROOM!!":3210+ " ";A$:""7+I19:(A$,3)(A1$,3I2,3)980j+I1090,890,1800,2320,2520,2840,2930,3650,3230+I:"NTER ONE OF THE FOLLOWING:"+" (TO SET COURSE)"+" (FOR SHORT RANGE SENSOR SCAN)"+" (FOR LONG RANGE SENSOR SCAN)"," (TO FIRE PHASERS)"D," (TO FIRE PHOTON TORPEDOES)"m, " (TO RAISE OR LOWER SHIELDS)", " (FOR DAMAGE CONTROL REPORTS)",$ " (TO CALL ON LIBRARY-COMPUTER)",. " (TO RESIGN YOUR COMMAND)"::900,87-B"4 3 2":"5 * 1":"6 7 8":"NTER COURSE (1-8) ";C1L-LC11C191130-V" T. ULU REPORTS, NCORRECT COURSE DATA, SIR!"-` 900-jX$"8":D(1)0X$"0.2"-t"ARP FACTOR (0-";X$;")";:W1:D(1)0W1.21190-~W10W181200.W10900B." HIEF NGINEER COTT REPORTS THE ENGINES WON'T TAKE";]." WARP ";W1;"!": 900." ARP ENGINES ARE DAMAGED. AXIUM = ARP 0.2":900.N(W18.5):EN01280."NGINEERING REPORTS, INSUFFICIENT ENERGY AVAILABLE"/"FOR MANEUVERING AT WARP";W1;"!"*/SNED(7)0900h/"EFLECTOR CONTROL ROOM ACKNOWLEGES";S;"UNITS OF ENERGY"/"PRESENTLY DEPLOYED TO SHIELDS."/900//I1K3:K(I,3)01310/ A$" ":Z1K(I,1):Z2K(I,2):4340:4310 0K(I,1)Z1:K(I,2)Z2:A$"":434000I:3090:D10:D6W1:W11D61I0(I18:D(I)01370z02D(I)D(I)D6:D(I).1D(I)0D(I).1:13700<D(I)013700FD11D11:"AMAGE ONTROL EPORT: ";0P8);:R1I:4400:G2$;" REPAIR COMPLETED."0ZI:(1).214401dR1R(1):(1).61410M1nD(R1)D(R1)((1)51):"AMAGE ONTROL EPORT: ";o1x4400:G2$;" DAMAGED"::14401D(R1)D(R1)(1)31:"AMAGE ONTROL EPORT: ";14400:G2$;" STATE OF REPAIR IMPROVED":11A$" ":Z1(S1):Z2(S2):434042X1C(C1,1)(C(C11,1)C(C1,1))(C1(C1)):XS2:YS2n2X2C(C1,2)(C(C11,2)C(C1,2))(C1(C1)):Q4Q1:Q5Q22I1N:S1S1X1:S2S2X2:S11S19S21S2915802S8(S1)24(S2)326:(Q$,S8,2)" "15103S1(S1X1):S2(S2X2):"ARP ENGINES SHUT DOWN AT ";J3"SECTOR";S1;",";S2;"DUE TO BAD NAVAGATION.":1520c3I:S1(S1):S2(S2)3A$"":Z1(S1):Z2(S2):4340:1750:T813W11T8.1(10W1)3TTT8:TT0T93210338903"4,X8Q1XNX1:Y8Q2YNX2:Q1(X8):Q2(Y8):S1(XQ18)?46S2(YQ28):S10Q1Q11:S18V4@S20Q2Q21:S28t4JX50:Q11X51:Q11:S114TQ18X51:Q18:S184^Q21X51:Q21:S214hQ28X51:Q28:S284rX5017205|"T. HURA REPORTS MESSAGE FROM TARFLEET OMMAND:"C5"ERMISSION TO ATTEMPT CROSSING OF GALACTIC PERIMETER"w5 "IS HEREBY **. SHUT DOWN YOUR ENGINES."5 "HIEF NGINER COTT REPORTS WARP ENGINES SHUT DOWN"5 "AT SECTOR";S1;",";S2;"OF QUADRANT";Q1;",";Q2;"."5 TT0T9 32106 8Q1Q28Q4Q5 152036TT1: 1750: 69096Q6EEN10: E0 6 "HIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANEUVER."6SSE:E0: S0 S0666 D(3)0"ONG RANGE SENSORES ARE INOPERABLE.":90017(13);20);"ONG RANGE SCAN FOR QUADRANT";Q1;",";Q2;(13)J7N(4).:N(5).:N(6).Y7& J1 1i70 J11 175 Q1J1 Q1J8 189078 Q2J11 Q2J18 18907:IG(Q1J,Q2J1)7DN(4)N(4)(I100):(I100)0II(I100)1008NN(5)N(5)(I10): (I10) 0II(I10)10/8XN(6)N(6)I>8b J1:: J|8l J1 1: (J2)124);:Q2J0 Q2J9 "##";Q2J;8v J8(13);" ";8 J1 358 J12(J12) "";:19608"";8 J:"":J118J21:I1:J1119 J21 X$"LINGON"*9 J22 X$"ASE"A9 J23 X$"TAR"Z9 J31 3:X$(J3)""9 Q1I1 Q1I8 X$(1)" ":X$(2)X$(1):X$(3)X$(1):21409 Q2J328 X$(3)" ":21409 Q2J321 X$(1)" ":2130: N(J3)G(Q1I,Q2(J32))<:Z(Q1I,Q2J32)G(Q1I,Q2J32): N(J3) J21 X$(J3)(15)""((N(J3)1000),J22,1)" "X$:N(J3)((X$(J3),3,1)):2100:  N(J3) X$(J3)((N(J3)1000),J22,1)" "X$:*N(J3)((X$(J3),1));4 N(J3)0 X$(J3)" "2;> N(J3)1 X$(J3)X$(J3)"S"X;H J21 X$(J3)X$(J3)(143)""`;RJ3;\J4(J4) " ";:J21:II1:2190;f J2(J2) Q1J10 Q1J19 "# ";Q1J1;:J1J11:2180$ "CIENCE OFFICER POCK REPORTS SENSORS SHOW NO ENEMY SHIPS IN THIS QUADRANT.":900d>. "IN THIS QUADRANT": 900>8 D(8)0 (2);"OMPUTER FAILURE MAY HAMPER ACCURACY.">B "HASER LOCKED ON TARGET; ";>L "NERGY AVAILABLE =";E;"UNITS"?V "UMBER OF UNITS TO FIRE";X: X0 900,?` EX0 2380J?j EEX: D(7)0 XX(1)v?t H1(XK3): I1 3: K(I,3)0 2500?~ H((H1D(0))((1)2)):H.15K(I,3)2450? "ENSORS SHOW NO DAMAGE TO ENEMY AT ";K(I,1);",";K(I,2):25002@ K(I,3)K(I,3)H:H;"UNIT HIT ON KLINGON AT SECTOR";K(I,1);",";K(I,2)l@ K(I,3)0(15);"*** ***":2480@ " (SENSORS SHOW";K(I,3);"UNITS REMAINING)":2500@ K3K31:K9K91:Z1K(I,1):Z2K(I,2):A$" ":4340A K(I,3)0:G(Q1,Q2)G(Q1,Q2)100:Z(Q1,Q2)G(Q1,Q2):K903300-A I:3090:9003A dA P0"LL PHOTON TORPEDOES EXPENDED!":900A D(5)0"HOTON TUBES ARE NOT OPERATIONAL!":900A "4 3 2":"5 * 1":"6 7 8"A "HOTON TORPEDO COURSE (1-9)";C1:"":C19C11 B C11C192590HB "NSIGN HEKOV REPORTS, INCORRECT COURSE DATA, SIR!"RB 900B X1C(C1,1)(C(C11,1)C(C1,1))(C1(C1)):EE2:PP1B( X2C(C1,2)(C(C11,2)C(C1,2))(C1(C1)):XS1:YS2B2 "ORPEDO TRACK:"C< XXX1:YYX2:X3(X.5):Y3(Y.5) CF X31X38Y31Y382820WCP " ";X3;",";Y3:A$" ":Z1X:Z2Y:4500gCZ Z302620Cd A$"":Z1X:Z2Y:4500:Z302710Cn (15);"*** Π ***":K3K31:K9K91:K903300Cx I13:X3K(I,1)Y3K(I,2)2700D I:I3D K(I,3)0:2800?D A$" * ":Z1X:Z2Y:4500:Z302730~D "TAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":3090:900D A$">!<":Z1X:Z2Y:4500:Z302540D (15);(2)"*** ***":B3B31:B9B91D B9TT0T927909E "HAT DOES IT, APTAIN! OU ARE HEREBY RELIEVED OF COMMAND"{E "AND SENTENCED TO 99 TARDATES OF HARD LABOR ON YGNUS 12!!"E 3230E "TARFLEET OMMAND IS REVIEWING YOUR RECORD TO CONSIDER COURT MARTIAL.":D00E Z1X:Z2Y:A$" ":43400F G(Q1,Q2)K3100B310S3:Z(Q1,Q2)G(Q1,Q2):3090:900QF "ORPEDO MISSED":3090:900WF F D(7)0"HIELD CONTROL INOPERABLE!":900F" "NERGY AVAILABLE =";ES;:"NUMBER OF UNITS TO SHIELDS";XF, X0SX"":900F6 XES2900DG@ "HIELD CONTROL REPORTS THIS IS NOT THE FEDERATION TREASURY."dGJ "":900GT EESX:SX: "EFLECTOR ROOM REPORT:"G^ "HIELDS NOW AT";(S);"UNITS PER YOUR COMMAND.":900Gh Gr D(6)03040H| "AMAGE CONTROL REPORT NOT AVAILABLE":D00 900;H D30:I18:D(I)0D3D3.1LH I:D30900hH :D3D3D4:D31D3.9H "ECHNICIANS ARE STANDING BY TO EFFECT REPAIRS TO YOUR SHIP;"H "ESTIMATED TIME TO REPAIR:";.01(100D3);"TARDATES."I "ILL YOU AUTHORIZE THE REPAIR ORDER (Y/N)";A$,I A$"Y"900FI I18:D(I)0D(I)0WI I:TTD3.1I :(2);"EVICE TATE OF REPAIR":R118I 4400:G2$;(Z$,25(G2$));(D(R1)100).01I R1::D002950I 900I I K30+J D00"TARBASE SHIELDS PROTECT THE NTERPRISE.":FJ& I13:K(I,3)03190J0 H((K(I,3)D(1))(2(1))):SSH:K(I,3)K(I,3)(3(0))J: H;"NIT HIT ON ENTERPRISE FROM SECTOR";K(I,1);",";K(I,2)JD S03220KN " ":H203190KX (1).6HS.023190FKb R1R(1):D(R1)D(R1)HS.5(1):4400Kl "AMAGE CONTROL REPORTS ";G2$;" DAMAGED BY THE HIT"Kv I:K K "T IS TARDATE";T;:3230L :"HE NTERPRISE HAS BEEN DESTROYED. HE EDERATION WILL BE CONQUERED.":3210XL "--THERE WERE";K9;"LINGON ATTLE RUISERS LEFT AT THE":"END OF YOUR MISSION."kL ::B903290L "HE EDERATION IS IN NEED OF A TARSHIP OMMANDER"L "FOR A SIMILAR MISSION -- IF THERE IS A VOLUNTEER,"M "LET HIM STEP FORWARD AND ENTER AYE";A$:A$"AYE" M QM "V1O4T7Q#CI#FHBQR#A#F#D#GIR#GQO5H#CIR#CWF"M "ONGRATULATION, APTIAN! THE LAST LINGON ATTLE RUISER"M "MENACING THE EDERATION HAS BEEN DESTROYED.":N "YOUR EFFICIENCY RATING IS";1000(K7(TT0))2:3250N &N IS11S11:JS21S21NN (I.5)1(I.5)8(J.5)83380vN* A$"":Z1I:Z2J:4500:Z313390N4 J:I:D00:3410N> D01:C$"ě":EE0:PP0NH "HIELDS DROPPED FOR DOCKING PURPOSES":S0:3430NR K30C$"ě":3430%O\ C$"Λ":EE0.1C$"כ"7Of D(2)03450hOp :"*** ԠŠӠŠ ***"::Oz " 1 2 3 4 5 6 7 8"O O1$" ":O1$:I186P J(I1)241(I1)24223:J(I1)241"#";I;:" ";]P (Q$,J,3)""" ";:3510P (Q$,J,3)""" ";:3510P " ";(Q$,J,3);P JP I3530,3540,3550,3560,3570,3580,3590,3600Q " TARDATE : ";(T10).1;75);"":3610OQ " ONDITION : ";C$;75);"":3610Q " UADRANT : ";Q1;",";Q2;75);"":3610Q " ECTOR : ";S1;",";S2;75);"":3610R " HOTON TORPEDOES : ";(P);75);"":3610OR " OTAL ENERGY : ";(ES);75);"":3610R" HIELDS : ";(S);75);"":3610R" LINGONS REMAINING : ";(K9);75);""RI#S$O1$" ".S.O1$:4S8[SBD(8)0"OMPUTER DISABLED.":900fSL 3690SV"OMPUTER ACTIVE AND AWAITING COMMAND";A:A0900S`"":H81:A13790,3920,4010,4270,4070,3770Tj"UNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:"*Tt" 0 = UMULATIVE ALACTIC ECORD"DT~" 1 = TATUS EPORT"dT" 2 = HOTON ORPEDO ATA"T" 3 = TARBASE AVAGATIONAL ATA"T" 4 = IRECTION/ISTANCE ALCULATIONS"T" 5 = ALAXY 'EGION AME' AP"::3670T UH80:G51:"HE ALAXY":3820U'U:" ";_U"OMPUTER RECORD OF GALAXY FOR QUADRANT";Q1;",";Q2eUU" 1 2 3 4 5 6 7 8 "UO1$" "UO1$:I18:I;:H803880)V J18:" ";:Z(I,J)0"***";:3870CV((Z(I,J)1000),3);PVJ:3900V(Z4I:Z5I:4550:J0(15.5(G2$)):J0);G2$;V2Z55:4550:J0(39.5(G2$)):J0);G2$;V<:O1$:I::900VFVP"TATUS EPORT:":X$"":K91X$"S"WZ"LINGON";X$;" LEFT: ";K9UWd"ISSION MUST BE COMPLETED IN";.1((T0T9T)10);"TARDATES"wWnX$"S":B92X$"":B913980Wx"TAR LEET OMMAND IS MAINTAINING";B9;"TARBASE";X$;" IN THE GALAXY"W2930W"OUR STUPIDITY HAS LEFT YOU ON YOUR OWN IN"5X"THE GALAXY -- YOU HAVE NO STARBASES LEFT!":2930;XKXK302340bXX$"":K31X$"S"X"ROM NTERPRISE TO LINGON ATTLE RUISER";X$XH80:I13:K(I,3)04260XW1K(I,1):XK(I,2)XC1S1:AS2:4110Y"IRECTION/ISTANCE ALCULATOR:"BY"OU ARE AT QUADRANT ";Q1;",";Q2" SECTOR ";S1;",";S2zY "LEASE ENTER":" INITIAL COORDINATES (,)";C1,AY"FINAL COORDINATES (,)";W1,XYXXA:AC1W1:X04190YA04210Y"X04150Y,A0C15:4160Y6C11Z@(A)(X)4180=ZJ"IRECTION=";C1((((A)(X))(A))(A)):4250dZT"IRECTION=";C1((A)(X)):4250xZ^A0C13:4220ZhX0C15:4160ZrC17Z|(A)(X)4240Z"IRECTION=";C1((((X)(A))(X))(X)):4250["IRECTION=;"C1((X)(A))'["ISTANCE=";(X2A2):H819003[I:900n[B30"ROM NTERPRISE TO TARBASE:"W1B4:XB5:4060[ "R. POCK REPORTS, SENSORS SHOW NO TARBASES IN THIS";[ "QUADRANT.": 900[\R1R(1):R2R(1):A$" ":Z1R1:Z2R2:4500:Z304310 \\2\S8(Z2.5)3(Z1.5)241S\ (A$) 3 "RROR.":o\S81Q$A$(Q$,189):\S8190Q$(Q$,189)A$:\Q$(Q$,S81)A$(Q$,190S8):\&\0R14410,4420,4430,4440,4450,4460,4470,4480]:G2$"ARP NGINES": ]DG2$"HORT ANGE ENSORS":?]NG2$"ONG ANGE ENSORS":Z]XG2$"HASER ONTROL":s]bG2$"HOTON UBES":]lG2$"AMAGE ONTROL":]vG2$"HIELD ONTROL":]G2$"IBRARY-OMPUTER":]^Z1(Z1.5):Z2(Z2.5):S8(Z21)3(Z11)241:Z30^(Q$,(S8),3)A$)^Z31:/^5^l^Z54Z44570,4580,4590,4600,4610,4620,4630,4640v^4650^G2$"NTARES":4740^G2$"IGEL":4740^G2$"ROCYON":4740^G2$"EGA":4740^G2$"ANOPUS":4740_ G2$"LTAIR":4740_G2$"AGITTARIUS":47403_ G2$"OLLUX":4740f_* Z4 4660,4670,4680,4690,4700,4710,4720,4730}_4G2$"IRUS": 4740_>G2$"ENEB":4740_HG2$"APELLA":4740_RG2$"ETELGEUSE":4740_\G2$"LDEBARAN":4740_fG2$"EGULUS":4740`pG2$"RCTURUS":4740!`zG2$"PICA"^` G51 Z5 4760,4770,4780,4790,4760,4770,4780,4790d`w`G2$G2$" ":`G2$G2$" ":`G2$G2$" ":`G2$G2$" ":