j 200::G$"GREEN ":Y$"YELLOW":R$"RED ":D5$"YOU HAVE DESTROYED "jEN5000:S!50:LS$G$:CS$LS$:WS$LS$:WD$LS$:IS$LS$:CO$LS$jTD10.5:RUP10.5:TP10:T4TD:16553,2558k(L,A,B,P,X,Y,U,N,S,D,C:CC1:B1$(53,140):B2$(10,140)Yk2U(7,7),S(7,7),XC(59),YC(59)k<:::" **** ULTRA-TREK ****":@450,"ENTER READ SPEED AS (.5-5) ";:LT:LT560:LTLT500:3480kFL06:LL36604kP@L64LL,(S(L1,(LL32)4));lZ::220:RET1ʒld3600+lnMV1ʒ:7508lx:L06ZlL6PK15360(L12864):150lPKL12864:@PK9,B1$;:PKPK15360lLL8568:LL56170lPK64LL16,191l@L128LL,U(L1,LL8);l::@387,"X-";:@840,"Y-"; mL06:@L1285,L1;:2mLL1:L8428948:@L,LL;:LLLL1:m@896,"SCAN CODE: STARS - BASES - SUPPLY PLANETS - ROMULANS - KLINGONS";:mCO$G$:KSU(X,Y)((U(X,Y)10)10)mRS(U(X,Y)((U(X,Y)100)100)KS)10mKS0RS0CO$Y$ nL18:A1,B1:A2AA1:B2BB1)n(A21A27)(B21B27)ʇMnS(A2,B2)75S(A2,B2)82CO$R$[nL8ʇ:n"-1,0,-1,1,0,1,1,1,1,0,1,-1,0,-1,-1,-1n,T3TDT4:SF(4):SF1SD0SDSD1n6580n@@0,"YOU ARE IN SECTOR - ";X;",";Y; oJ@64,"AT COORDINATES - - - ";A;",";B;:oT@128,"ENERGY LEVEL (UNITS) -";"#####";EN;jo^@192,"SHIELDS ARE AT - - - - ";"###%";S!;oh@256,"LIFE SUPPORT SYSTEM - ";LS$;or@320,"COMPUTER SYSTEMS - - ";CS$;o|@384,"WEAPONS SYSTEMS - - - ";WS$; p@448,"WARP DRIVE SYSTEM - - ";WD$;2p@512,"IMPULSE POWER - - - - ";IS$;]p@486,"STAR DATE - - - ";"###.##";TD;p@548,"ALERT CONDITION - - ";CO$;pSUP15(TDRUP)p@576,B1$;B2$;:p:XXX:YYY:XC(CC)X:YC(CC)Y:CC59CCCC1pUQU(X,Y)qUS(UQ10000):UQUQUS10000.qUB(UQ1000):UQUQUB1000LqUP(UQ100):UQUQUP100hqUR(UQ10):UQUQUR10{qUKUQ:RET1ʒqA17:B17:S(A,B)46::qS(4,4)69:CNUS:SY42:560:CNUB:SY66:560:CNUP:SY83:560:CNUR:SY82:560:CNUK:SY75:560 rXXHBYYHBCN1:SYM35:5600r&A4:B4:70Lr0CN0A(7):B(7)::xr:S(A,B)46S(A,B)SYM:CNCN1:560:560rDDAM0rNLS$Y$DAMDAM1:LS$R$DAMDAM2rXCS$Y$DAMDAM1:CS$R$DAMDAM2rbWS$Y$DAMDAM1:WS$R$DAMDAM2&slWD$Y$DAMDAM1:WD$R$DAMDAM2OsvIS$Y$DAMDAM1:IS$R$DAMDAM2esT31.9RET1660rsRET1ʒsDAM0ʒsL1T3sLS$G$CS$G$WS$G$WD$G$IS$G$740:DF(5):DF690,700,710,720,730tLS$G$680:LS$R$LS$Y$::740::LS$G$::740FtCS$G$680:CS$R$CS$Y$::740::CS$G$::740tWS$G$680:WS$R$WS$Y$:WD(2)::740::WS$G$:WD0::740tWD$G$680:WD$R$WD$Y$::740::WD$G$::740tIS$G$680:IS$R$IS$Y$::740::IS$G$::740uT4TD:+uMV0:RET0:3600:2640:RA((S!))DuLS$R$DKDK5(3)XuCO$R$RARA4u @640,"YOU ARE IN THE COMMAND MODE: CALLED BY ENTERING CMD"u@704,"YOU MAY NOW SELECT THE AREA OF COMMAMD FROM BELOW"v " NAVIGATION - 1 : WEAPONS - - - - 4"4v*" COMPUTER - - 2 : SHIPS LOG - - - 5"cv4" DEFENSE - - 3 : DISPLAY - - - - 6"v>"PLEASE MAKE YOUR SELECTION AND PRESS ENTER ";:@950,"";:CGvHCG(CG):CG1CG6750vRTDTD.1:ENEN20:3600w\RA4CO$G$CG43270:RET1:70SwfRET0:M7(100):M734CO$G$ʑ3600:@783,"*** HOSTILE IS MOVING ***"::910wpL17:LL17:S(L,LL)75S(L,LL)82WXL:WYLL:900wz::910wS(L,LL)75HM(2):3240:RET1:70:RET0:HM(4):3240:RET1:70:RET0 xCG930,1650,2050,2170,2540,2610x7508x3600:@640,"NAVIGATION MODE:"lx" SELECT LONG OR SHORT RANGE NAVIGATION":x" LONG - 1 SHORT - 2 YOUR SELECTION ";:IC$xIC$"CMD"ʒ:DEC(IC$)xDEC1DEC23000xDEC990,1290x3610yN10:D10 y@658,"LONG RANGE ";]y@768,"CALL UP THE LONG RANGE SCANNERS ENTER - - - - 1"y"YOU KNOW THE COORDINATES OF YOUR QUERY ENTER - 2"y"YOU WISH TO MAKE A LONG RANGE MOVE ENTER - - - 3"y@690,"";:CG$:CG$"CMD"ʒ:DEC(CG$)z$DEC1DEC33000 z.DEC1ʑ3610cz8DEC2ʲ@768,"";:"ENTER THE COORDINATES AS (X,Y)";N1,D1:1180zBDEC3CO$R$@768,"ALERT CONDITION IS: R E D !":"THE SHIP CANNOT LEAVE THE SECTOR UNDER RED ALERT":1920zLDEC3WD$R$15106{VDEC3ʲ@768,"";:"ENTER THE COORDINATES OF DESTINATION AS (X,Y)";N1,D1F{`DEC11160{j"AT WHAT WARP FACTOR DO YOU WISH TO TRAVEL 1 TO 10 ";CG$:CG$"CMD"{t(N11N17)(D11D17)2950{~WF(CG$):WF1WR101070:1480{120.|@960,"NOW AT";X;",";Y;": ENTER THE SECTOR YOU WANT NAV DATA ON";:N1,D1P|(N11N17)(D11D17)2950k|RET1:UQU(N1,D1):470{|DEC1:70|@640,"NAVIGATION MODE: DATA ON SECTOR (";N1;",";D1;")"}"STARS";US;":BASES";UB;":SUPPLY PLANETS";UP;":ROMULANS";UR;":KLINGONS";UKT}T1(XN1):T2(YD1):D!(T12T22):"DISTANCE TO (";N1;",";D1;") IS ";s}"##.###";D!;:" PARSECS"}"WARP FACTOR";:L110:"###.#";L;::}"TIME NEEDED";:L110:LL!D!L:"##.##";LL!;::~"ENERGY USED";:L110:LLD!L60:"#####";LL;:8~@687,"ENTER TO CONT";:G:RET0:930B~ 3610Z~@658,"SHORT RANGE"~"PRESENT SITUATION IS SHOWN ON THE SHORT RANGE SCANNER"~(@832,"SECTOR COORDINATES OF THE DESTINATION AS (X,Y)";:N1,D1#2(N11N17)(D11D17)"INVALID COORDINATES GIVEN";:L1LT::930V<@896,"IMPULSE SPEED OF THE MOVE (1-10)";:IC$rFIC$"CMD"ʒ:IS(IC$)PIS1IS103000ZIS$G$1420dIS$Y$IS52870nIS$Y$IS51420xIS$R$2890"ENTER TO CONTINUE ";G:*T1(N1A):T2(D1B):D!(T12T22):ELISD!15S(N1,D1)46S(N1,D1)69:S(A,B)46:AN1:BD1:ENENEL:TDTD(D!(IS2)):MV1:703610À(S(N1,D1)66S(N1,D1)83)(AN1)1(BD1)11550@768,"MOVE CAN NOT BE MADE: MASS AT THAT LOCATION !!"L12000::930$WD$G$1530:WD$Y$WF52910PWD$Y$WF61530aWD$R$2930"PRESS ENTER TO CONTINUE";G:ӁT1(XN1):T2(YD1):D!(T12T22):RET0:ENEN(D!WF60):TDTD(D!WF)XN1:YD1:MV1:450/S(N1,D1)83ENEN(((3)2)500):TPTP((3)2):TDTD1:RUPTDS(N1,D1)66EN5000:TP10:RUPTD:SD0:WD0:LS$G$:CS$G$:WS$G$:WD$G$:IS$G$:TDTD2"S(N1,D1)66@768,"YOU HAVE BEEN TOTALLY RESUPPLIED AND REPAIRED AT A STARBASE":RET1:702,S(N1,D1)83@768,"YOU HAVE RECIEVED SUPPLIES FROM THE SUPPLY PLANET"G6EN5000EN5000X@TP10TP10J:"YOU NOW HAVE";EN;"UNITS OF ENERGY AND";TP;"TORPEDOS"TL13000::3610^@768,"SUPPLY PLANET WAS DESTROYED BY HOSTILES":U(X,Y)U(X,Y)100 hS(N1,D1)46:RET1:70r36002|@640,"COMPUTER MODE: ";uCS$R$@768,"COMPUTER SYSTEMS OUT: REPAIRS IN PROGRESS":1920"WHAT COMPUTER SERVICE"Ä" 1 - ALL SECTORS THAT HAVE BEEN CHECKED"脤" 2 - DAMAGE CONTROL REPORTS"" 3 - SUPPLY STATUS "=" 4 - CREW STATUS";:" :YOUR SELECTION";IC$ZIC$"CMD"ʒ:DEC(IC$)pDEC1DEC43000DEC1770,1810,1930,19803600х@640,"SECTORS IN THE ORDER THEY WERE VISITED:"L1CC1:"::";"#";XC(L);YC(L);:@687,"ENTER TO CONT";:G:#3600G@640,"DAMAGE CONTROL REPORTS:"&:"AT THIS TIME WE ARE";100DAM10;"PERCENT OPERATIONAL: "φ0"COMPLETE REPAIRS WILL TAKE ABOUT ";"##.#";DAM1.5;:" STAR DAYS":DAM$"":LS$R$DAM$"LIFE SUPt:"DWS$R$DAM$DAM$"WEAPONS:"4NWD$R$DAM$DAM$"WARP:"UXIS$R$DAM$DAM$"IMPULSE:"tbSD2DAM$DAM$"SHIELDS:"lDAM$""DAM$"NONE"v"SYSTEMS INOPERABLE - ";DAM$;ч@687,"ENTER TO CONT";:G::ۇ3600@640,"SUPPLY STATUS:":"DAYS OF SUPPLIES - ";SUP5"TORPEDOS LEFT - - ";TP?1920I3600i@640,"CREW STATUS REPORT:":"CREW AT START OF THIS MISSION - - 475"̈"CREW KILLED ON THIS MISSION - - - ";"###";DK"CREW INJURED ON THIS MISSION - - ";"###";IC<"CREW REMAINING ON ACTIVE DUTY - - ";"###";475DKIC;F1920P3600l @640,"DEFENSE SYSTEM:":"SHIELDS PRESENTLY AT";S!;"PERCENT" "ENTER THE LEVEL YOU WANT THEM SET AT (0 TO 100)";:CG$:CG$"CMD"ʒ:CS(CG$)*CS0CS10030004ENEN(CSS!):S!CS)>S!0S!0 K2(10):K26@768,"CREWMEN HAVE BEEN KILLED OR INJURED":DKDK(3):ICIC(4):L1LT:םH SDSD1:SD2SD2:S!0::S!50S!50 R @832,"SHIELDS HAVE BEEN DAMAGED":L1LT2:4\ :DC(5):DC3430,3440,3450,3460,3470bf LS$R$3420:LS$G$LS$Y$:::LS$R$:p CS$R$3420:CS$G$CS$Y$:::CS$R$:˞z WS$R$3420:WS$G$WS$Y$:WD(2):::WS$R$:WD3: WD$R$3420:WD$G$WD$Y$:::WD$R$:' IS$R$3420:IS$G$IS$Y$:::IS$R$:N :@465,"UNIVERSE BEING GENERATED"d XHB(7):YHB(7)v X17:Y17 US(3)10000 UB(10):UB10UB0:UB1000˟ UP(10):UP10UP0:UP100ޟ UR((3)1)10 UK(6)1 U(X,Y)USUBUPURUK :, XX(7):YY(7):XXX:YYYOL150:XC(L)1:YC(L)1::450a@640,(31):s@690,(31):