50010<(CD$"":A1$"NLTSMR"j-CA$""Z1G%(Q1,Q2)100:K3(Z1):B3((Z1K3)10):S3G%(Q1,Q2)100K310B3"I02:J02:K%(I,J)0::@I07:J07:G$(I,J)" "::^G$(S1,S2)"":K3016804rI0K31:7100:G$(Z1,Z2)""jK%(I,0)Z1:K%(I,1)Z2:K%(I,2)S93(TT0)(U):B307100:G$(Z1,Z2)"":B4Z1:B5Z2S301770I0S31:7100:G$(Z1,Z2)"*"::PN01770"":PN0" 0 1 2 3 4 5 6 7 ";:I0/P11:P20:7200:" ϣ ";UP12I2:7200:((I),2,1);:M10|" ";:M101790I7P12I3:7200:" ";:M11:II1:18000P117:7200:" ̤ ";:D%(1)01930 DI07:P12I2:P22:7200:J07%lG$(I,J);:J7" ";3::1940=7400MPN02040}P11:P219:7200:" STARDATE CONDITION ";I216:P1I:7200"   ";:P117:7200:" ";P15:P220:7200:"QUADRANT SECTOR";:P19:7200:"ENERGY SHIELDS";dP113:7200:"TORPEDOES KLINGONS";n7300~*D002200>IS11S11:JS21S21:I0I7J0J72160fG$(I,J)""2170p::2200zD01:C$"DOCKED":EE0:PP0:S0 Z2D%(1):I07:D%(I)0::TT1- Z202200< PN1:1770T 7300:TT0T95500 P118:P20:7200:" ":7200 "COMMAND";X$ I16:(X$,1)(A1$,I,1):2280 j P119:7200:J15:J113:" "; t :J5 y :P119:72001 ~ I2450,2900,3450,3720,4010,1750d "COURSE,DISTANCE";C1,W1:D%(0)0W1.22575 "ENGINES DAMAGED-MAX .2";:2280 N(8W1.5):N12280 P120:P20:7200:"NOT ENOUGH ENERGY";:M152740 2280  N(8W1.5):N12280  K302630-  I0K31:K%(I,2)02620e ( Z1K%(I,0):Z2K%(I,1):X$" ":7500:7100:K%(I,0)Z1 2 K%(I,1)Z2:X$"":7500 < :5000 F P1W1:W11P11 K M1D%(1):I07:D%(I)0D%(I)D%(I)P1 d :(U).22692 n P1(8(U)):(U).4D%(P1)D%(P1)(5(U)1):2692: D%(P1)D%(P1)(3(U)1)^ M10D%(1)0D%(1)D%(1)9999w M10D%(1)07400 D00:X3S1:Y3S2:Q38Q1Q2:E1E:M10:6000 M11,2720,2750,2740,2540: S1Z1:S2Z2:P122:P20:7200 "AUTOMATIC STOP FOR SAFETY";2 D%(1)9000D%(1)D%(1)9999:2185< 2090b X8Q1X32NX1:Y8Q2Y32NX2 Q1(X8):Q2(Y8):M10 S1(XQ18):S2(YQ28) Q10M11:Q10:S10 Q17M11:Q17:S17 Q20M11:Q20:S20 Q27M11:Q27:S278 TT(NI21)10:EE1N10:E0SSE:E0:S0S0M" 7300:M102880, P122:P20:7200:"NOT ALLOWED TO LEAVE GALAXY";@ Q38Q1Q2Z1S1:Z2S2:X$"":7500:2090J PN1:1530T P120:P20:7200:D%(2)02930h "LR SENSORS DAMAGED";:2280#r IQ11Q11:JQ21Q21F Z$"---":I0I7J0J73030v ZAG%(I,J):7800:Z$(Z$,3):Z%(I,J)G%(I,J) IQ1JQ2Z$""Z$"" " "Z$;::P1P11:7200::2280z D%(4)03470 "PHOTON TUBES DAMAGED";:2280 P0"NO TORPEDOES";:2280$ M11:E22540S "COURSE";C1:PP1:EE2:7300:N100:6000t P121:P20:7200:M123710 G$(X,Y)"*"3710 C$G$(X,Y):Z1X:Z2Y:J7:7600:C$""3640 K3K31:K9K91:I02:Z1K%(I,0)Z2K%(I,1)/K%(I,2)0:7300:P121:P20:7200:" KLINGON DESTROYED ";?$K905550c.G%(Q1,Q2)100K310B3S3:37108P121:P20:7200:" STARBASE DESTROYED !!! ";:B3B31:B9B91LB905560VD00:3630~5000:2200P123:P20:7200:D%(6)03750"SHIELD CONTROL BROKEN";:2280E"UNITS TO SHIELDS";X:XESXESRX0X0nEESX:SX:7300:2200D%(7)0"MAP NOT AVAILABLE";:2280," 0 1 2 3 4 5 6 7"6:I07:I;@J07:Z%(I,J)0Z$" ?":4167EZAZ%(I,J):7800:Z$(Z$,3)5GQ1IQ2JZ$""Z$""aJZ$" ";::::::"HIT KEY WHEN READY"uTX$:X$""4180c1750K30D01E10:Z1S1:Z2S2:I02:K%(I,2)05150 P1((K%(I,0)S1)2(K%(I,1)S2)2):M1((K%(I,2)P1)((U)2))SSM1:S05190=7300:E1E1M1:M1205150Y(U).6M1S.025150zD2M1S.5(U):R1(8(U))D%(R1)D%(R1)D2Z1S1:Z2S2:J4:7600:7300 R115150D%(1)07400(P124:P20:72002""(E1)" UNIT HITS ON ENTERPRISE ";<TFZ1S1:Z2S2:J7:7600:"ENTERPRISE DESTROYED":i|"TIME'S UP!!!"o"YOU'VE WON!!":"YOU'RE FIRED!!!":pC1(C1(C1360)360)45sX1(C%(C1,0)(C%(C11,0)C%(C1,0))(C1(C1)))2'vX2(C%(C1,1)(C%(C11,1)C%(C1,1))(C1(C1)))2ezZ3S1:Z4S2:Z1Z3:Z2Z4:Z$"":I12N:Z3Z3X1:Z4Z4X2TT.05(1M1):M10EE((N10)(2N).5)E0M15:E0:6090X(2Z3.5)2:Y(2Z4.5)2:Z1XZ2Y6170X0X7Y0Y7M13:6130M11Y$".":6130PS1(XX1):S2(YX2):S10S17S20S27M16:6115hG$(S1,S2)" "6120qM12Z1(Z1)Z2(Z2)S1Z1:S2Z2:6160S1(Z1X1):S2(Z2X2)XS1:YS2:6120I2NM3Y$"":Z$" "X$Z$:7500:M131M11(X)X(Y)YG$(X,Y)" "M12:SZ1X:Z2Y:X$Y$:7500:M14q7300:Z$" ":M12M15M16:M14:6110$M13:6120Z1(8(U)):Z2(8(U))G$(Z1,Z2)" "7100 "";(CD$,P11);(CA$,P21);:'P13:P221:7200:ZA(T10)10:7800:Z$;FP17:P221:7200:Q1","Q2;}P231:7200:S1","S2;:P111:P221:7200:ZAE:7800Z$;:P231:7200:ZAS:7800:Z$;P115:P221:7200:ZAP:7800:Z$;P231:7200:ZAK9:7800:Z$;Z$"GREEN ":D00Z$"DOCKED":73951K30Z$" RED ":7395LEE030Z$"AMBER "gP13:P232:7200:Z$:P22:I1115:P1I11:7200:" ";:P19:P22:7200"SR SENSORS INOP";:L(Z1)Z1(Z2)Z2G$(Z1,Z2)X$!VD%(1)0P12(Z11):P22(Z21):7200:X$'`RY$G$(Z1,Z2):Z$""Y$:Z$Z$Z$Z$" "vI11J:X$(Z$,I1,1):7500::xZ$" "((ZA),2,((ZA))1):Z$(Z$,6):ZÙ"STAR TREK VERSION 17 23/07/78"dÙ:"DO YOU NEED INSTRUCTIONS";A1$nË(A1$,1)"Y"50460/xË(A1$,1)"N"50010_Ù:"PLEASE WAIT WHILE I SET UP THE GALAXY!"Æ K%(2,2),D%(7),G%(7,7),Z%(7,7)ÆG$(7,7),N$(2),C%(8,1)Ã0,-1,-1,-1,0,1,1,1,0,1,1,0,-1,-1,-1,0,1,1ÁI01:J08:C%(J,I)::UTI(TI):K90:B90:S0:D003T100(20(20(U))):T0T:T940UE03000:EE0:P15:P0P:S9150sQ1(8(U)):Q2(8(U))S1(8(U)):S2(8(U))ÁI07:J07Z1(U):Z1.98K33:50200ËZ1.95K32:50200ċZ1.8K31:50200K30K9K9K3("Z1(U):Z1.96B31:502301,B30>6B9B9B3Q@S3(8(U)1)mJG%(I,J)100K310B3S3TZ%(I,J)1::^ċB9050310hB91:G%(5,2)20050300rG%(5,2)G%(5,2)100:K9K91|G%(5,2)G%(5,2)10X$"":C$" IS "ċB91X$"S":C$" ARE ".ę:"YOUR ORDERS:-":[ę"DESTROY THE ";K9;"KLINGON WARSHIPS BY"ę"STARDATE ";T0T9;". THERE";C$;ęB9;"STARBASE";X$;ę"IN THE GALAXY FOR RESUPPLYING YOUR SHIP"ę::"ARE YOU READY";X$ċ(X$,1)"Y"50100 ę""< ę"MISSION BEGINS WITH THE ENTERPRISE IN:"^ ę10);" QUADRANT ";Q1;",";Q2 ę:"PLEASE WAIT WHILE THE ENTERPRISE IS" ř"PREPARED FOR YOUR MISSION" ŁMX15000:MX: ř"INSTRUCTIONS FOR STAR TREK"!&ř""7!0ř:"THE GALAXY IS DIVIDED INTO 64 QUADRANTS"x!:ř"IN AN 88 SQUARE."::"EACH QUADRANT IS ALSO DIVIDED INTO"!Dř"64 SECTORS, AGAIN 88":!Nř:"YOU WILL BE ASSIGNED A STARTING POINT"!Xř"SOMEWHERE IN THE GALAXY.""bř:"YOUR MISSION: TO SEEK & DESTROY THE">"lř"KLINGON WARSHIPS WHICH ARE MENACING"W"vř"THE FEDERATION.":|"ř::"PRESS ANY KEY TO CONTINUE""šA1$:A1$""50570"ř"THE FOLLOWING COMMANDS ARE AVAILABLE:-""ř:"N (FOR NAVIGATE) ALLOWS YOU TO TRAVEL."!#ř" YOU SET THE COURSE IN DEGREES,THUS:"?#ř:" 90"[#ř" "z#ř" 1800"#ř" "#ř" 270"#ř:" ANY ANGLE MAY BE SET, FROM 0-359" $ř:" YOU ALSO SET THE DISTANCE (NOT";$ř" SPEED), IN UNITS EQUAL TO THE SIZE"f$ƙ" OF A QUADRANT. USE SMALL VALUES"$ ƙ" (EG .3) TO TRAVEL WITHIN A QUADRANT":$ƙ"T (FOR PHOTON TORPEDO) IS YOUR WEAPON:"$ ƙ" YOU SET ITS COURSE IN DEGREES,AS" %*ƙ" FOR NAVIGATION."1%4ƙ::"PRESS ANY KEY TO CONTINUE"H%>ơA1$:A1$""50750a%Hƙ"(COMMANDS, CONT)"%Rƙ:"L (FOR LONG RANGE SENSORS) SHOWS YOU"%\ƙ" WHAT'S IN QUADRANTS ADJACENT TO"%fƙ" THE ONE YOU'RE IN, THUS:-"&pƙ:" KBS KBS KBS"'&zƙ" KBS KBS KBS"I&ƙ" KBS KBS KBS"x&ƙ:" WHERE K, B, AND S ARE THE NUMBERS"&ƙ" OF KLINGONS, STARBASES AND STARS.":&ƙ"M (FOR MAP) GIVES YOU A COMPLETE MAP"&ƙ" OF THE GALAXY IN THE KBS FORM,AS"+'ƙ" RECORDED BY THE L COMMAND. IT IS"W'ƙ" NOT UPDATED EXCEPT BY USING 'L'."|'ƙ::"PRESS ANY KEY TO CONTINUE"'ơA1$:A1$""50900'ƙ"(COMMANDS, CONT)":'ƙ"S (FOR SHIELD CONTROL) ALLOWS YOU TO" (ƙ" SET THE ENERGY LEVEL ON THE SHIELDS"8(ƙ" PROTECTING THE ENTERPRISE - IF THEY"](Ǚ" GET TOO LOW WATCH OUT!!":(Ǚ"R (FOR RESET) WILL RESET YOUR CONTROL"(Ǚ" PANEL SHOULD YOU GET IT IN A MESS."($Ǚ"").Ǚ"THE ENTERPRISE WILL RARELY SUFFER";)8Ǚ"DAMAGE WHILST TRAVELLING, BUT WILL"c)BǙ"OFTEN BE DAMAGED BY KLINGON FIRE")LǙ"DURING BATTLE. THIS DAMAGE WILL")VǙ"AFFECT YOUR CONTROLS, ETC. DURING")`Ǚ"A VOYAGE YOUR CREW WILL ATTEMPT TO PUT"*jǙ"THINGS RIGHT, BUT THE ONLY SURE WAY"<*tǙ"IS TO DOCK AT A STARBASE - IF YOU CAN"M*~Ǚ"FIND ONE!"r*Ǚ::"PRESS ANY KEY TO CONTINUE"*ǡA1$:A1$""51090*Ǚ"TIME PASSES WHILST YOU ARE TRAVELLING"*Ǚ"OR FIGHTING. YOU WILL ALSO BE USING"+Ǚ"UP ENERGY. DOCKING AT A STARBASE IS"=+Ǚ"THE ONLY WAY TO REPLENISH SUPPLIES OF"\+Ǚ"ENERGY AND TORPEDOES.":+Ǚ"WHILE YOU ARE DOCKED, THE STRONG SHIELDS";+Ǚ"OF THE STARBASE WILL PROTECT THE"+Ǚ"ENTERPRISE FROM KLINGON FIRE.": ,Ǚ"THE CONTROL PANEL WILL BE SHOWN NEXT.",,Ǚ"THE 'CONDITION' IS ONE OF:-"R,ș:" GREEN NO KLINGONS AROUND"|, ș:" RED COMBAT ZONE - BEWARE",ș:" DOCKED ALONGSIDE STARBASE",ș:" AMBER ENERGY VERY LOW",(ș::"PRESS ANY KEY TO CONTINUE"-2ȡA1$:A1$""51250-<ș" 0 1 2 3 4 5 6 7"P-Fș" ϣ  STARDATE CONDITION ";-Pș"0 *    ";-Zș"  3312  RED  ";-dș"1 *    ";*.nș" ^  QUADRANT SECTOR ";a.xș"2 STAR    ";.ș"  5 , 2  3 , 3  ";.ș"3    ";/ș" ^  ENERGY SHIELDS ";9/ș"4ENTERPRISE    ";p/ș"  2310  1226  ";/ș"5_STARBASE    ";/ș"  TORPEDOES KLINGONS ";0ș"6    ";H0ș"  12  17  ";0ș"7 _KLINGON    ";0ș" ̤  "0ș:"WHAT THE CONTROL PANEL LOOKS LIKE"1ș""(1ə:"PRESS ANY KEY TO CONTINUE"?1ɡA1$:A1$""51470w1ə"THAT'S ALL OF THE INSTRUCTIONS, EXCEPT"1"ə"ONE LAST POINT:"1,ə:" YOU MUST DESTROY ALL THE KLINGONS"16ə" IN ONLY 40 STARDATES !!"::1@ə13);"GOOD HUNTING"!2Jə::"PRESS ANY KEY TO CONTINUE"82TɡA1$:A1$""51540h2^ə"STAR TREK VERSION 17 23/07/78"s2hɉ50050d):32917