sLj^j200:D,S,G:j"ENTER YOUR NAME";V$::(23):@462,"STAR TREK"jE$"E":K$"K":B$"B":S$"*":T$(143):KK$"#"Uk S(8,8),R(6),D(8,8),J(10),G(8,8),CN$(4):SS$"."S$K$B$E$:CL$(30):CF$(31):PP512:SR$" . . . . . . . .":A04:CN$(A):A:QPPkGREEN,YELLOW,***RED***,DOCKED," "kDV6:A1DV:DV$(A):Ak(WARP ENGINES,S.R. SENSORS,L.R. SENSORS,PHASER CNTRL,PHOTON TUBES,DAMAGE CNTRLl2CC$"CSLPTDGI":CC(CC$)lnK1(10)10:S1(149)150:B1(9):C91:I18:J18:G(I,J)1:J,I:D1(((1999)2000)10)10:D340:D2D3D1:@578,"(THE COMPUTER GAME)":I1S1lxI100ʲ@974,"STARRING"::@974,V$::@966,"AS CAPTAIN KIRK":%m"A1(8):A2(8):S(A1,A2)8ʍ290:S(A1,A2)S(A1,A2)1:m,I1K1:A1(8):A2(8):S(A1,A2)S(A1,A2)100::I1B1:A1(8):A2(8):S(A1,A2)S(A1,A2)10:mE1(8):E2(8):E7(8):E8(8):P3000:C10:T110:2920n:"ORDERS: STARDATE =";D1::" AS COMMANDER OF THE UNITED STARSHIP ENTERPRISE, YOUR MISSION IS TO RID THE GALAXY OF THE DEADLY KLINGON MENACE. TO DO THIS, YOU MUST DESTROY THE KLINGON INVASION FORCE OF";K1;"BATTLE"o0"CRUISERS. YOU HAVE";D3;"SOLAR DAYS TO COMPLETE YOUR MISSION.":"(I.E. UNTIL STARDATE";D2;")."ol"THE ENTERPRISE IS CURRENTLY IN QUADRANT";E1;"-";E2:"SECTOR"E7;"-";E8::"DO YOU NEED FURTHER INSTRUCTIONS? (Y/N)"ovU$:U$""ʍ630:U$"N"ʍ1600:U$"Y"ʍ630wp:" THE GALAXY IS DIVIDED INTO 64 QUADRANTS WITH THE FOLLOWING COORDINATES: 1 2 3 4 5 6 7 8":6070:@230,"EACH QUADRANT IS SIMILARLY";:@294,"DIVIDED INTO 64 SECTORS.";Fq@768,"QUADRANT AND SECTOR COORDINATES ARE SPECIFIED AS 'ROW - COLUMN'.E.G. '2 - 4 MEANS 2 DOWN AND 4 ACROSS. A QUADRANT COORDINATE LESS THAN 1 OR GREATER THAN 8 MEANS YOU ARE OUTSIDE THE GALAXY.":6140q "COURSE = A REAL NUMBER IN DEGREES NUMBERS INDICATE DIRECTION STARTING AT THE TOP AND GOING CLOCKWISE THUS: ":A192:6360Ar@640,"NOTE: DUE TO THE VAGARIES OF THE WARP DRIVE, THE ENTERPRISE CAN ONLY TRAVEL IN THE EIGHT DIRECTIONS SHOWN":6140 s"WARP FACTOR = A REAL NUMBER FROM 0 TO 8. DISTANCE TRAVELLED = INTEGER (WARP FACTOR) QUADRANTS. WARP .2 = THE ENTERPRISE TRAVELS 1 SECTOR. ";7)".5 =";35)"4 SECTORS. "8)"1 =";35)"1 QUADRANT."s8)"2 =";35)"2 QUADRANTS.":6140:"FOR EXAMPLE, IF YOU TRAVEL FROM QUADRANT 1-1, SECTOR 1-1, IN THE DIRECTION OF 90 DEGREES AT WARP 2, YOU WOULD STOP AT QUADRANT 1-3, SECTOR 1-1 IN THE NEXT STARDATE."t$" NOTE 1: EVERY USE OF THE WARP ENGINES TAKES ONE STARDATE. IF THE ENTERPRISE IS BLOCKED BY SOMETHING DURING INTRA-QUADRANT TRAVEL IT WILL STOP IN FRONT OF IT. (AND WASTE A STARDATE)";u." NOTE 2: TRAVELLING OUTSIDE THE GALAXY IN ORDER TO AVOID OBSTACLES IS PERMISSIBLE, BUT THE POSSIBILITY OF RUNNING INTO A SPACE STORM IS INCREASED.":6140uj"SHORT RANGE SENSORS: THE SHORT RANGE SENSORS OF THE ENTERPRISE DISPLAY A DETAILED VIEW OF THE QUADRANT YOU ARE CURRENTLY IN. THE ENTERPRISE LOOKS LIKE '";E$;"' ON THE SCREEN."wv"KLINGON BATTLE CRUISERS LOOK LIKE '";K$;"' ON THE SCREEN. STARBASES LOOK LIKE '";B$;"' AND STARS LOOK LIKE '";S$;"'.":61400w"LONG RANGE SENSORS: THE LONG RANGE SENSORS OF THE ENTERPRISE DISPLAY THE NUMBER OF OBJECTS IN THE 9 CLOSEST QUADRANTS. EACH DIGIT OF THE NUMBER IN EACH BOX MEANS SOMETHING:"w" THE ONES DIGIT REPRESENTS THE NUMBER OF STARS. ";7)"TENS";43)"STARBASES. ";7)"HUNDREDS";43)"KLINGONS. FOR EXAMPLE: 319 MEANS 3 KLINGONS, 1 STARBASE AND 9 STARS.":6140zx"GALAXY MAP: EACH TIME THE SENSORS ARE USED THE INFORMATION DISPLAYED IS SAVED BY THE SHIP'S COMPUTER FOR RETRIEVAL AT ANY FUTURE TIME.":y(" PHASERS: ANY PORTION OF THE ENERGY AVAILABLE CAN BE FIRED. THE BATTLE COMPUTER DIVIDES THIS AMOUNT AMONG THE KLINGON CRUISERS IN THE QUADRANT AND DETERMINES THE VARIOUS DIRECTIONS"zZ"OF FIRE. THE EFFECTIVENESS OF A HIT DEPENDS MOSTLY ON THE DISTANCE TO THE TARGET. A KLINGON BATTLE CRUISER STARTS WITH 300UNITS OF ENERGY. IT CAN FIRE AN AMOUNT EQUAL TO WHATEVER ENERGY IT HAS LEFT.":6140z"PHOTON TORPEDOES: INITIALLY THE ENTERPRISE HAS 10 PHOTON TORPEDOES. ONE TORPEDO NORMALLY DESTROYS WHATEVER IT HITS. HOWEVER, PHOTON TORPEDOES ARE SUSCEPTIBLE TO ROUGH HANDLING AND MAY OCCASIONALLY";{"FAIL TO DETONATE. THE KLINGON'S SHIELDS WILL SOMETIMES HOLD AND PROTECT THE KLINGON CRUISER. IF A TORPEDO HITS A STAR IT WILL USUALLY SIMPLY BURN UP. SOMETIMES, HOWEVER, IT MAY CAUSE THE STAR TO GO NOVA. IF THIS"5|"OCCURS, THE CHANCES OF SURVIVAL ARE 50/50. IF THE STAR GOES SUPERNOVA, THOUGH, THE ENTERPRISE WILL BE DESTROYED!" }" THE RANGE OF PHOTON TORPEDOES (LIKE PHASERS) IS LIMITED TO THE CURRENT QUADRANT. THE COURSE OF A PHOTON TORPEDO IS SET THE SAME WAY AS THAT OF THE ENTERPRISE, BUT MAY BE SET TO ANY DIRECTION DESIRED.":6140}"DAMAGE CONTROL REPORT: THE DAMAGE CONTROL REPORT LISTS THE MAIN DEVICES AND THEIR STATEOF REPAIR. A NEGATIVE STATE OF REPAIR INDICATES A DISABLED DEVICE. DEVICES CAN BE DISABLED BY A SPACE STORM OR BY A KLINGON";~"BATTLE CRUISER. REPAIRS ARE NORMALLY MADE AT THE RATE OF ONE UNIT EACH STARDATE, BUT CAN BE FASTER DURING A STATE OF TRUCE. ALSO, ALL DAMAGE CAN BE REPAIRED BY DOCKING AT A STARBASE.":6140u""STARBASES: THERE IS AT LEAST ONE SUPPORTING STARBASE IN THE GALAXY. WHEN THE ENTERPRISE IS DOCKED AT A STARBASE (I.E. IS POSITIONED NEXT TO ONE) IT IS RESUPPLIED WITH ENERGY AND TORPEDOES.","ALSO, ALL DAMAGE IS REPAIRED AT THAT TIME.":614062200@:7000T4020@960,"COMMAND? ";:V$:Y2,A110:V$:V$""ʇA:C12CA0ʲ@113,CN$(2Y);:Y(Y2)gV$""ʍ1700:CA1ʄ:7000::C12CA0ʲ@113,CN$(2);t@PP,CF$A1CC:V$(CC$,A,1)C2A1:2000::2200€@PP,;:C26ʍ2180P:CA1:CB0:" ";:I18:I;" ";:::" ";:C249:2860:I18:I;" ";:J18:G(I,J)0ʲ": - ";:2020::": ### ";G(I,J);J:":":I:" ";:2860::"ENTERPRISE CURRENTLY AT";E1;"-";E2:1680́C213560,2400,3260,5180,5620,2300,2200,710:CA1:CB0:" YOUR CHOICES OF COMMAND ARE:":"C = COURSE DIRECTIVE (SET COURSE AND DISTANCE)":"S = SHORT RANGE SENSOR SCAN":"L = LONG RANGE SENSOR SCAN":"P = FIRE PHASERS":"T = FIRE PHOTON TORPEDOES""D = DAMAGE CONTROL REPORT":"G = GALAXY MAP":"I = INSTRUCTIONS":1680J@PP,CF$;:R(6)0ʍ2380:"DEVICE STATE OF REPAIR":C216:DV$(C2),R(C2)::1620uL "DAMAGE CONTROL NOT AVAILABLE.":1620` 2450:1620Ճ @PP,CF$;:R(2)0CB0:A07:@A64,SR$,;:A:@PP,"S.R. SENSORS ARE OUT": PQ1G(E1,E2)S(E1,E2) CB1:2920:A07:@A64,SR$,;:A\ I18:J18:D(I,J)0ʲ@(I1)64(J1)31,(SS$,D(I,J)1,1);x J,I:@240,E7;"-";E8;:, I11C2:"-";:::h L1E1L2E2ʒG L1E1:L2E2:I18:J18:D(I,J)0:J,I:D(E7,E8)4:PQ1:E11E18E21E28PQ0:3250::S(E1,E2)(S(E1,E2)10)100ʍ3100:I1S(E1,E2)(S(E1,E2)10)10| E3(8):E4(8):D(E3,E4)0ʍ3050:D(E3,E4)1:Ӆ (S(E1,E2)10)(S(E1,E2)100)100ʍ3170:I1(S(E1,E2)10)(S(E1,E2)100)100 E3(8):E4(8):D(E3,E4)0ʍ3120:D(E3,E4)3:Db (S(E1,E2)100)0ʍ3250:I1(S(E1,E2)100):J(I)300y E3(8):E4(8):D(E3,E4)0ʍ3200:D(E3,E4)2: CB1ʑ2450:::Ć @PP,CF$;:R(3)0ʲ"L.R. SENSORS ARE OUT":1620 "LONG RANGE SENSOR SCAN QUADRANT";E1;"-";E20 :C219:2860:IE11E11:JE21E21:I1I8ʍ3540C4 J1J8ʍ3520hH G(I,J)S(I,J):": ### ";S(I,J);t J:":" I:2860:1620 ": - ";:3470 ": - : - : - :":3490ׇ @PP,CF$;:A544:6360 @PP,"COURSE";:7200:C2N:DD1ʍ1620C P18:R(1)0ʍ3590:P1.2:R(1)3ʍ3590:P1((4R(1))2)10@PP64,"WARP FACTOR (0 - #.#)";P1;:7200:DD1ʍ1620:C3N:C30C38ʍ3590:C3P1ʍ3680:@PP128,"WARP ENGINES ARE DAMAGED";:@PP192,"MAXIMUM WARP = #.#";P1;:3590L`PP16C35:@304,CL$;P;:N1(8C3):N10ʍ3927:N2(C2.0174533):(N2).01N20sN3(C2.0174533):(N3).01N30A11N1:E3E7:E4E8:P1(E3N2.4):P2(E4N3.4):E7P1:E8P2:P11P18ʍ4490:P21P28ʍ4590:D(P1,P2)0ʍ4680(D(E3,E4)0:D(P1,P2)4-FCB1ʲ@(E31)64(E41)31,".";cPCB1ʲ@240,E7;"-";E8;:@(E71)64(E81)31,E$;{UV$:V$(31)ʇA1W@PP,CF$;:QPPҊZD1D11:@48,D1;:@496,D2D1;:I16:R(I)0ʍ3990:R(I)R(I)1劂R(I)0R(I)0I:4710IE71E71:I1I8ʍ4100CJE81E81:J1J8ʍ4090:D(I,J)3ʍ4180JJQIC10:PQ0ʍ4150:S(E1,E2)100C12:42406P500C11:4240::4240݋TC13:P3000:T110:I16:R(I)0::@304,CL$;P;:@368,T1;C10ʁI16:R(I)0C11::I@113,CL$;CN$(C1);:sC2(0):C2.25PQ10ʍ4370:C2.8PQ10ʍ4480:@Q,"SPACE STORM":QQ64:C13ʍ4330@Q,"STARBASE SHIELDS PROTECT ENTERPRISE":QQ64:4480C2(DV):DV$(C2);" DAMAGED":QQ4:R(C2)R(C2)5(0):C22ʍ4480:CB0:4480I16:R(I)0ʇI:4480{:@Q,"TRUCE, ";:DV$(I);" STATE OF REPAIR IMPROVED":QQ64:R(I)R(I)2(0):R(I)0R(I)04020:S2(P11):E1E1S2:E7(P1)8S2:L1E11̍P21P28ʍ4660S2(P21):E2E2S2:E8(P2)8S2:L2E2142920:@176,E1;"-";E2;:3920jHE7E3:E8E4:@PP,CF$;"ENTERPRISE BLOCKED AT";(P1);"-";(P2):QPP64:3930f4020:4260:4920:P0ʍ6350:D1D2ʍ6240:1620ڎ8PQ0ʍ5160:S(E1,E2)100ʍ5160:C13ʍ4950:4310VG1:H0:I1S(E1,E2)100tHH1:H8ʍ5020:H1:GG1.D(G,H)2ʍ4980쏦Q1GE7:Q2HE8:D4(Q1Q1Q2Q2):P5((J(I)1)):J(I)J(I)P5:C13ʍ5140:P6P5D4:PPP6:@304,CL$;P;:@Q,"ENTERPRISE HIT (";P6;"UNITS) KLINGON AT SECTOR";G;"-";H:QQ64:P610ʍ5140iA13(P6100):(A1)1ʍ5140:C2(DV):@Q,DV$(C2);" HAVE SUSTAINED DAMAGE":QQ64:R(C2)R(C2)(P642)(0):C22CB0|I:P0ʍ6260(<@PP,CF$;:R(4)0ʲ"PHASER CONTROL IS DAMAGED":1620ߐZ"PHASERS LOCKED ON TARGET. ";Gd@PP64,"ENERGY AVAILABLE =";P:"NUMBER OF UNITS TO FIRE";:7200:DD1ʍ1620:C2N:C2PC20ʍ5220PPC2:@304,CL$;P;:@PP,CF$;:QPP:S(E1,E2)100ʍ5570:P5C2(S(E1,E2)100):G1:H0:I1S(E1,E2)100ؑHH1:H9H1:GG1:G8ʍ5570D(G,H)2ʍ5340Q1GE7:Q2HE8:D(G,H)2ʍ53406D4(Q1Q1Q2Q2):P6P5D4:J(I)J(I)P6:@Q,"KLINGON AT";G;"-";H;"HIT (";P6;"UNITS) LEFT =";J(I):QQ64:J(I)0ʍ5560IhKD$KD$KK$:@Q," DESTROYED ";KD$:QQ64:I2I1S(E1,E2)100:J(I21)J(I2):I2:S(E1,E2)S(E1,E2)100:K1K11:@432,K1;:D(G,H)0:II1:CB1ʲ@(G1)64(H1)31,".";:G(E1,E2)S(E1,E2)PImK10ʍ6180:4920:1620@PP,CF$;:R(5)0ʲ"PHOTON TUBES ARE OUT":1620ϓT10ʲ"TORPEDO SUPPLY EXHAUSTED":1620F0APP32:6360:@PP,"TORPEDO COURSE";:7200:DD1ʍ1620:C2N:T1T11:@368,T1;:N2(C2.0174533):(N2).01N20mvN3(C2.0174533):(N3).01N30}P1E7:P2E8P1P1N2:P2P2N3:P1.5P18.5P2.5P28.5ʍ6050:CB1X(P1.6)64(P2.6)31:@X,T$;:A130:A:@X,".";D((P1.4),(P2.4))0ʍ5800U@PP,CF$;:QPP64:D((P1.4),(P2.4))5900,5930,5980:5800 @PP,CF$;"*** TORPEDO HIT STAR *** ";:CB1Y0:A110:@X,(" "S$,Y1,1);:A1150:A1:Y(Y1):A1@PP26,;:(4)1ʲ"BURNED UP":6010::S(E1,E2)S(E1,E2)1:(10)1ʑ7400:6260::7300:(2)1ʍ6260:6000x*(20)1ʲ"TORPEDO FAILED TO DETONATE":CB1ʲ@X,K$;:6010::6010Ö47500:(30)1ʲ@PP,"KLINGON SHIELDS HELD":CB1ʲ@X,K$;:6010::6010>KD$KD$KK$:@PP,"KLINGON DESTROYED ";KD$:S(E1,E2)S(E1,E2)100:K1K11:@432,K1;:6000R\"STARBASE DESTROYED ***":S(E1,E2)S(E1,E2)10pD((P1.4),(P2.4))0:CB1G(E1,E2)S(E1,E2)zK10ʍ61804920:1620ї@PP,CF$;"TORPEDO MISSED":QPP64:6010=Y19570764:@Y,(33,(131));:Y:X3354:Y19264064:@XY,(191);:Y,X:I18:@128I64,I;:I:t@960,;:"END OF PAGE. 'ENTER' TO CONTINUE";U$::$A12000::@PP,CF$;"IT IS STARDATE";D1:"THE KLINGONS HAVE BEEN DESTROYED":"THE FEDERATION IS SAFE.":"CONGRATULATIONS !!":6300`@32,"IT IS STARDATE";D1;tA12000::@PP,CF$;"THE ENTERPRISE HAS BEEN DESTROYED.":"THE FEDERATION WILL BE CONQUERED.":"THERE ARE STILL";K1;"ENEMY BATTLE CRUISERS.":"YOU ARE DEAD!!!!"陜"CAPTAIN KIRK: ANOTHER GAME? (Y/N)"U$:U$"Y"ʄ:5:U$"N"ʍ6310@A10,"0";:@A66,"315 45";:@A192,"270 90";:@A322,"225 135";:@A393,"180";:Y(A64)33:X(A(A64)64)26G@A195,(16,(140));:IA74A33064:@I,(191);:I:JY1:IX4X242:JJ1:(I,J):(I1,J):I:JY13:IX4X242:JJ1:(I,J):(I1,J):I:ڛXCA0:4020:@32,CL$;"STARDATE",D1;:@96,CL$;"CONDITION"," ";CN$(C1);:@160,CL$;"QUADRANT",E1;"-";E2;:@224,CL$;"SECTOR",;:R(2)0ʲE7;"-";E8;Mb@288,CL$;"ENERGY",P;:@352,CL$;"TORPEDOES",T1;:@416,CL$;"KLINGONS",K1;:@480,CL$;"DAYS LEFT",D2D1;:@PP,;:g C$"":"? ";:Y2:DD0#ZA(16417)256(16416)15360:@ZA,(95);%C12CA0ʲ@113,CN$(2Y);:Y(Y2)ޜ*A110:V$:V$""ʇ:72054V$" "C$C$V$:@ZA,V$;:7203"9V$(31)ʲ@ZA," ";:DD1:a>V$(13)N(C$):@ZA," ";:C12CA0ʲ@113,CN$(2);:::HV$(8)ʏ(C$)0ʲ@ZA1,(95);" ";:C$(C$,(C$)1):ZAZA1R7205ŝ"WENT NOVA":7500:A120::A1130:A1:(23):@520,"SUPERNOVA!!":A1135:A1,A::LCB1ʒ:Y50:A1Y:@X,(127(64));:A:A1Y:@X1,(127(64));(127(64));(127(64));:A:@X1," ";:A1Y:@X,(127(64));:AɞVA1Y:@X,(127(16));:A:@X,".";:N@"ENTER YOUR NAME";T$::(23);:@14,"STAR TREK":@130,"(THE COMPUTER GAME)":@462,"STARRING":@590,T$:@710,"AS CAPTAIN KIRK":