w@ WINJ4:5240J*>"IT IS STARDATE"T:JQH"THE LAST KLINGON BATTLE CRUISER"JoR"IN THE GALAXY HAS BEEN"J\"DESTROYED!"Jf"THE FEDERATION HAS BEEN SAVED."Jp"YOU'VE BEEN PROMOTED TO ADMIRAL"Jz K0;"KLINGONS IN"TT0;"YEARS."K"RATING ="(K0(TT0)1000)K  5160K, 5200KC Q(I,J)0 4790KM".";Kd Q(I,J)1 4810Kn"E";Kʅ Q(I,J)2 4830Kԇ"K";Kޅ Q(I,J)3 4850K"B";K Q(I,J)4 4870K"*";KK RANDOM NUMBER GENERATORL R1((0)81)L$R2((0)81)L8. Q(R1,R2)0 4890L>8L]B:"ORDERS: STARDATE = "TLcLLV" AS COMMANDER OF THE UNITED"L`"SPACESHIP ENTERPRISE, YOUR"Lj"MISSON IS TO RID THE GALAXY OF"Lt"THE DEADLY KLINGON MENACE.TO DO"M~"THIS, YOU MUST DESTROY THE"M="KLINGON INVASION FORCE OF "K9M`"BATTLE CRUISERS. YOU HAVE"T9M"SOLAR YEARS TO COMPLETE YOUR"M"MISSON.(UNTIL STARDATE"T0T9;")"M 5160M" YOU HAVE AT LEAST ONE"Mć"SUPPORTING STARBASE. WHEN THE"N·"ENTERPRISE DOCKS AT ONE (IS"ND؇"POSITIONED NEXT TO ONE) IT IS"Nf"RESUPPLIED WITH ENERGY AND"N"PHOTON TORPEDOES."N"THE ENTERPRISE IS CURRENTLY IN"N"QUADRANT"Q1"-"Q2N "SECTOR" S1"-"S2N 5160N 620O (:"HIT ANY KEY TO CONTINUE"O#2C$: C$"" 5170O-<::O3FOHP"ANOTHER GAME?"O_ZC$: C$""5210Osd C$"Y" 6070On:100Ox I1 3:: I:OO"DESTINATION QUADRANT";O R1,R2O Q1R1 5300O R2Q2 5360O Q1R1 5320P R2Q2 5440P&ȅ Q1R1 5340P:҅ R2Q2 5470PM܅ Q1R1 5360P` R2Q2 5530PR5(((Q1R1)2)((R2Q2)2))P R2Q2 5400PR60P 5410PR690(57.32(((Q1R1)(R2Q2))))P""COURSE SETTING:";(R6);"DEGREES"Q,"AT WARP";R5Q6 1790Q=@R5(((R1Q1)2)((R2Q2)2))QeJR690(57.32(((R1Q1)(R2Q2))))QqT 5410Q^R5(((R1Q1)2)((Q2R2)2))Qh R2Q2 5510QrR6180Q| 5410QR6270(57.32(((R1Q1)(Q2R2))))Q 5410RR5(((Q1R1)2)((Q2R2)2))R@R6270(57.32(((Q1R1)(Q2R2))))RL 5410RRRm‡"DESTINATION SECTOR";Rỷ R3,R4Rօ S1R3 5610R R4S2 5670R S1R3 5630R R4S2 5750R S1R3 5650R R4S2 5780S S1R3 5670S R4S2 5840SA&R7(((((S1R3)2)((R4S2)2)))1)10SU0 R4S2 5710S^:R80SjD 5720SNR890(57.32(((S1R3)(R4S2))))SX"COURSE SETTING:";(R8);"DEGREES"Sb"AT WARP";R7Sl 1790TvR7(((((R3S1)2)((R4S2)2)))1)10T,R890(57.32(((R3S1)(R4S2))))T8 5720TdR7(((((R3S1)2)((S2R4)2)))1)10Tx S2R4 5820TR8180T 5720TR8270(57.32(((R3S1)(S2R4))))TƁ 5720TR7(((((S1R3)2)((S2R4)2)))1)10UR8270(57.32(((S1R3)(S2R4))))U%䁥 5720U: SHIELD CONTROLUO D(7)0 5910Up"SHIELD CONTROL IS DAMAGED"U| 1790U S50 S50U "ENERGY TO SHIELDS (0 LOWERS)"U* S6U4 S6E 5950 : S60 5990U>"ENERGY AVAILIABLE";(E)VH"SHIELDS ARE LOWERED."V#RS50V/\ 1790VAf S60 6030Vrp"SHIELDS ARE RAISED.": S6"UNITS DIVERTED."VzEES6:S5S5S6V 1790V S50 S50: 6050VEES5:S50V"SHIELDS ARE LOWERED."V 1790V~L~+JORY^~5fg)<hwwJJJJJJJJJJ999999999~s~999999999~~999999999999999~F999~~~~999999~999 STARTREK9 6400SSTOP!QHRETURNUPSRETURNSSTOPPMODENFORyDRAWCOLORAUDIOPMODERR!TOP!QHRETURNUPSRETURNSSTOPPMODENFORyDRAWCOLORAUDIOPMODERR! 255000000vtpu`IF`SuRPMODEiON`````````````````````````````````````````````DIM`````````````````````````````ONaHaPMODETREADalPMODEiON```````MFORRDATACOLORAUDIOHSTOPSSTOPaQHRETURNUPSRETURNSSTOPPMODENFORDRAWCOLORAUDIOPMODERRa```````````sttyw`AUDIOHSTOPSSTOPaQHRETURNUPSRETURNSSTOPPMODENFORDRAWCOLORAUDIOPMODERRa````````````````````ruu`AUDIOHSTOPSSTOPaQHRETURNUPSRETURNSSTOPPMODENFORDRAWCOLORAUDIOPMODERRa``````````````````````OK``````````````````````````````DEL`vtppm```````````````````````````````````````````````````````M& :MAIN PORTION OF PROGRAM&<:IS TAKEN FROM MEGATREK&Q:(SMALLVER.)0.0&o(:WRITTEN BY TODD GLASSEY&2:FOR THE PDP11&<:CONVERSION TO THE COLOR&F:COMPUTER BY BILL BARBE'&P:NOVEMBER 1983&Z:"LIVE LONG AND PROSPER."'d 1:X()'.n:::" *** STARSHIP CONTROL ***"'Jx@234,"REVISED FOR THE"'h@266,"COLOR COMPUTER BY"'@298,"BILL BARBE' 1983"'@488,"ONE MOMENT PLEASE"' G(8,8),Q(8,8),D(7),K(9,3),N(3),C(20),M(8,8)'T0((0)2020)100('TT0:T940:E03000:E2500:P010:P10:S5500:S9200(5 I1 8(CȀ J1 8(PM(I,J)0(X܋ J(` I( D(D)((K(I,1)S1)2(K(I,2)S2)2)(Q1((0)81)(Q2((0)81)( I1 7(D(I)0(" I(,S1((0)81))6S2((0)81))@ SET UP GALAXY)#JB90:K90)1T I1 8)?^ J1 8)NhR(0)64)WrK30)w| R.0001 390 : K3K31) R.01 400 : K3K31) R.03 410 : K3K31) R.08 420 : K3K31) R.28 430 : K3K31*  R1.28 440 : K3K31*, R3.28 450 : K3K31*K… R6.28 460 : K3K31*k̅ R13.28 470 : K3K31*}K9K9K3:B30* (0).96 490 : B31*B9B9B3*S3((0)81)*G(I,J)K3100B310S3* J* I*K0K9+& B90 600+0I(0)8.5+&:J(0)8.5+;DG(I,J)G(I,J)10+DNB91+QX:4930+gb SET UP QUADRANT+zlK30:B30:S30+v Q11 Q18 Q21 Q28 730+XG(Q1,Q2)100+K3(X)+B3((XK3)10)+S3G(Q1,Q2)(G(Q1,Q2).1)10, I1 9, J1 3,!K(I,J)0,)Ƌ J,1Ћ I,?ڀ I1 8,M J1 8,ZQ(I,J)0,b J,j I,y Q(S1,S2)1, I1 K3, K30 870,* 4890,4Q(R1,R2)2,>K(I,1)R1,HK(I,2)R2,RK(I,3)S9,\ I,f I1 B3-p B30 920-z 4890-!Q(R1,R2)3-) I-8 I1 S3-I S30 970-U 4890-dQ(R1,R2)4-l I-tA1-Ԃ SHORT RANGE SENSOR SCAN-Z9S11- Z98 1020-Z98-Z8S11- Z81 1050-Z81-Z7S21-$ Z78 1080..Z78.8Z6S21.%B Z61 1110..LZ61.>V IZ8 Z9.N` JZ6 Z7.ej Q(I,J)3 1160.~tC0:E3000:P10:S50.~ 1250. J. I. K30 1220. EE0.1 1240.C1. 1250.C2:A1.΁ 1250.C3/ A0 1270/쁦 4250/& E0 4570/; D(2)0 1340/A /f"MR. SPOCK REPORTS SHORT RANGE"/"SENSORS ARE INOPERATIVE."/(/2 1790/<"---------------"/F I1 8/P J1 8/Z 4770/d" ";/n J/x"";0 I1 15300 I2 15500% I3 167006 I4 16900G I5 17100X I6 17300i I7 17500zȅ I8 17700҇0܋ I0"---------------"0M(Q1,Q2)G(Q1,Q2): 17900"STARDATE "T0 15000 C0 15801"STATUS DOCKED"1" 15001", C1 1610186"STATUS GREEN"1D@ 15001VJ C2 16401jT"STATUS RED"1v^ 15001h C3 16601r"STATUS YELLOW"1| 15001"QUADRANT"Q1;"-"Q21 15001"SECTOR "S1;"-"S21 15002 "ENERGY "(E)2 15002)‡"PHOTONS "P25́ 15002Jև"KLINGONS "K92V 15002m"SHIELDS "(S5)2y 15002 A0 20702"COMMAND:";2 A$2 A$"NA" 22102& A$"SR" 990 20 A$"LR" 30402: A$"PH" 32403 D A$"TO" 34803"N A$"DA" 401037X A$"GM" 19403Lb A$"CQ" 52503al A$"CS" 55603vv A$"SH" 58803"COMMAND LIST:": 20803 20703O1$"-------------------------------"3:10)"GALAXY MAP"34"FOR QUADRANT"Q1;"-"Q24 4Ƈ O1$4!Ѐ I1 84/ڀ J1 84P M(I,J)0 "***";: 20404m ((M(I,J)1000),3);4{" ";: J4 I4 O1$4 18004 "NA=SET COURSE"4*"SR=SHORT RANGE SENSOR SCAN"44"LR=LONG RANGE SENSOR SCAN"5 >"PH=FIRE PHASERS"5)H"TO=FIRE PHOTON TORPEDOES"5AR"DA=DAMAGE REPORT"5V\"GM=GALAXY MAP"5}f"CQ=COMPUTE INTERQUADRANT COURSE"5p"CS=COMPUTE INTERSECTOR COURSE"5z"SH=SHIELD CONTROL"55 18005 WARP DRIVE5"COURSE";5 C16 C10 2210 : C1360 22106=X0: 9C1457 2250 : X16RC19C1452SX6mԇ"WARP FACTOR(0-12):";6vމ W16 W10 22106 W112 22106 W1.2 23606  D(1)0 23606 "ENGINEER SCOTTY SAYS HE CAN"7 "ONLY GET .2 OUT OF THE WARP"7 $"ENGINES."7& . 221079 8 K30 23907E B 42507W L E0 45607e V I1 77u `D(I)D(I)17 j D(I)0 24307 tD(I)07 ~ I7 (0).25 26507 R1((0)71)7 (0).5 25107 D(R1)D(R1)((0)51)8 $!"#%STARSHIPBAS "SPOCK REPORTS WE ENTERED A"81 "SPACE STORM."8= ā 26508L ΀ IR1 78` ؅ D(I)0 25808h I8y I1 R118 D(I)0 25808 I8 26508 R1I8 D(I)D(I)(0)518 ( D(I)0 26308 2"***TRUCE***"8 < 26509 FD(I)09 P 26109 ZN(W18)9* dEENN59C n S50 EE(W130)9M xTT19\ Q(S1,S2)09e XS19n YS29 TT0T9 45609 39709 I1 N9 S1S1X19 S2S2X29 ҅ S1.5 2900 : S2.5 2900: ܅ S18.5 2900 : S28.5 2900:! Q(S1.5,S2.5)0 2850:E "ENTERPRISE BLOCKED BY OBJECT":f "AT SECTOR"(S1);"-"(S2):s S1S1X1: S2S2X2:  2860: " I: ,Q(S1.5,S2.5)1: 6S1(S1.5): @S2(S2.5): J 990: TQ1(Q1W1X1(X.5)8); ^ Q11 2930; hQ11;" r Q18 2950;+ |Q18;H Q2(Q2W1X2(Y.5)8);[ Q21 2980;d Q21;w Q28 3000; Q28; S1((0)81); S2((0)81); ́ 620; ւ LONG RANGE SENSOR SCAN; D(3)0 3080< "MR. CHECKOV SAYS LONG RANGE "<* "SENSORS ARE INOPERABLE."<6 17908 Ƈ"PHASERS LOCKED ON TARGET. ENERGYAVAILABLE = "(E)>Y Ї"NUMBER OF UNITS TO FIRE:";>a ډ X>s X0 1790> EX0 3270> EEX>  K30 3440> I1 9>  K(I,3)0 3430> HXD(0)(2(0))> *K(I,3)K(I,3)H? 4 (H);"UNIT HIT ON KLINGON"?L >"AT SECTOR"K(I,1);"-"K(I,2);" ("(K(I,3))"LEFT)"?b H K(I,3)0 3430?n R 4160? \ K90 4660? f I? p 4250? z E0 4570? 1790? PHOTON TORPEDOES? D(5)0 3510@ "PHOTON TUBES ARE NOT OPERATIONAL"@ 1790@$ P0 3540@I "ALL PHOTON TORPEDOES EXPENDED"@U ʁ 1790@k ԇ"TORPRDO COURSE"@t މ C1@ C10 C1360 3540@ X0: 9C1457 3580 : X1@ C19C14528X@ 3970@XS1@YS2@$PP1A."TORPEDO TRACK:";A8XXX1ABYYX2A5L X.5 Y.5 3930APV X8.5 Y8.5 3930Af` (X);"-"(Y);Aj Q(X.5,Y.5)0 3710At 3640A~ Q(X.5,Y.5)2 3810A"***KLINGON DESTROYED***"AK3K31:K9K91A K90 4660B I1 9B (X.5)K(I,1) 3780B; (Y.5)K(I,2) 3790BCċ IBPK(I,3)0B\؁ 3880By Q(X.5,Y.5)4 3850B"STAR DESTROYED"BS3S31B 3880B B"***STARBASE DESTROYED!***"BB3B31B(Q(X.5,Y.5)0C 2G(Q1,Q2)K3100B310S3C"< M(Q1,Q2)0 3920C8FM(Q1,Q2)G(Q1,Q2)CDP 3940CZZ"TORPEDO MISSED"Cfd 4250Cxn E0 4570Cx 1790CX2((C11).785398)CX1((C11).785398)CC DAMAGE REPORTC D(6)0 4040D "DAMAGE REPORT UNAVAILABLE"D 1790DȇDA҇"DEVICE STATE OF REPAIR"DZ܇"WARP ENGINES",D(1)Ds"S.R. SENSORS",D(2)D"L.R. SENSORS",D(3)D"PHASER CONTROL",D(4)D"PHOTON TORPEDO",D(5)D"DAMAGE CONTROL",D(6)D"SHIELD CONTROL",D(7)D"E , 1790E6 ERASE KLINGONEG@"KLINGON AT SECTOR"K(I,1);"-"K(I,2)EbJ" *** DESTROYED! ***"EvTK3K31:K9K91E^Q(K(I,1),K(I,2))0EhG(Q1,Q2)K3100B310S3Er M(Q1,Q2)0 4230E|M(Q1,Q2)G(Q1,Q2)EE KLINGON ATTACKF C0 4300F)"STARBASE SHIELDS PROTECT THE"F;"ENTERPRISE"FAFV‚ KLINGON ATTACKFd̀ I1 9F{օ K(I,3)0 4540FH(K(I,3)D(0))(2(99)100)F S50 S5S5HF (H);"UNIT HIT ON ENTERPRISE FROM"G "KLINGON AT SECTOR";K(I,1);"-";K(I,2)G S50 4540GB"MR. SULU SAYS SHIELDS ARE DOWN."GWR1((0)71)Gs&D(R1)D(R1)((0)51)G0 R11 4420G:"WARP ENGINES DAMAGED FROM HIT.": 4530GD R12 4440GN"S.R. SENSORS DAMAGED FROM HIT.": 4530HX R13 4460H6b"L.R. SENSORS DAMAGED FROM HIT.": 4530HIl R14 4480Hrv"PHASERS DAMAGED FROM HIT.": 4530H R15 4500H"PHOTON TORPEDO TUBES HIT.": 4530H R16 4520H"DAMAGE CONTROL DAMAGED.": 4530I"SHIELD CONTROL DAMAGED."IEE(H2)I II#ƐI.Ђ LOSEI<ڞ: 5240IT"IT'S STARDATE"T:I"THE ENTERPRISE HAS BEEN DESTROY-ED."I"THE FEDERATION WILL BE CONQUERED"I"THERE ARE STILL"K9;"KLINGON"I "BATTLE CRUISERS."I 5160I 5200J*?.pAfH%hog/6>2!@k%]