> M7TREK F: Z'1,1,0,0,0,0,0,0,126,0,0,-2,126,126 d)2,1,1,0,0,255,0,0,126,0,0,-2,126,126 n&3,1,8,1,0,0,0,0,16,0,0,-2,126,126 x7:23;8202;0;0;0; &A,&81,&9D,&93,&A,&D &81,&9D,&93,&7E,&2F,&2F,&FF,&6A,&2F,&FF,&2F,&35,&FF,&2F,&6F,&35,&FF,&2F,&6F,&34,&20,&6A,&2F,&FF,&2F,&35,&FF,&2F,&6F,&34,&FF,&2F,&2F,&35,&FF,&20,&78,&37,&20,&20 &81,&9D,&93,&FF,&70,&70,&70,&20,&20,&FF,&20,&20,&FF,&2C,&6E,&35,&FF,&2C,&6E,&21,&20,&20,&20,&FF,&20,&20,&FF,&2C,&6E,&21,&FF,&2C,&2C,&20,&FF,&70,&3F,&20,&20,&20 &81,&9D,&93,&20,&20,&20,&FF,&20,&20,&FF,&20,&20,&FF,&20,&6A,&35,&FF,&20,&6A,&35,&20,&20,&20,&FF,&20,&20,&FF,&20,&6A,&35,&FF,&7C,&7C,&35,&FF,&60,&7D,&20,&20,&20 &81,&9D,&93,&FF,&7C,&7C,&3F,&28,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&2C,&24,&FF,&20,&2A,&75,&20,&20,&81,&9D,&93 111,6);&86;&9C;"T h e G a m e";&81;&9D &91;39,(&60)) R1=(-) 8G(8,8),Z(8,8),C(9,2),K(3,3),N(3),D(9),Q$(9,9),D$(9) ȉ warp engines,s.r.sensors,l.r.sensors,phaser control,photon tubes,damage control,shield control,central computer,hyperprobe launcher !C(1,1)=-1:C(2,1)=-1:C(7,2)=-1 !C(8,1)=-1:C(8,2)=-1:C(6,2)=-1 C(9,1)=-1:C(1,2)=0:C(3,1)=0 C(5,2)=0:C(7,1)=0:C(9,2)=0 C(2,2)=1:C(3,2)=1:C(4,1)=1 C(4,2)=1:C(5,1)=1:C(6,1)=1 +CM$="NAVSRSLRSPHATORSHECOMMAPDAMHYPRES" %CP$="MAPSTAPTDCCMKLIACTCOMDOCMOV" "I%=19: D$(I%): ,X :=17 '&83"Resignation accepted.":DBI <>18 :" in line ";:DpC DpC @T=((((1)+3)*1E4))/10:T0=T JT9=25+((10)):T8=T9+T:Q4=0 T&S9=200:E0=4000:P0=10:P=P0:E=E0:S=0 ^I%=19:D(I%)=4: hI%=18:J%=18 rR1=(1):K3=0 |R1>.8 K3=1 R1>.95 K3=2 R1>.98 K3=3 (K9=K9+K3:R1=(1):B3=0:R1>.96 B3=1 -B9=B9+B3:S3=(8):G(I%,J%)=K3*100+B3*10+S3 Z(I%,J%)=0:: B9>0 dLA G(6,3)=G(6,3)+10:B9=1 F 0,9);:&84,&9D,&D,&A,&84,&9D,&87:"Your orders are as follows:" I&84,&9D,&87,&A,&D,&84,&9D,&86:" Seek & destroy the ";K9;" Klingons" O&84,&9D,&86:" which have invaded Federation"'&84;&9D;&86;" territory." -A$="is ":C$=" ":B9>1 A$="are ":C$="s " L&84,&9D,&86,&A,&D,&84,&9D,&86:" There ";A$;B9;" starbase";C$;"at your" 4&84,&9D,&86:" disposal and you have until ";T8 -&84,&9D,&86:" to complete in.":&84,&9D A0,22);:&81,&9D,&87:"Press SPACE BAR when ready to assume" 30,23);:&81,&9D,&87:"command of Enterprise." &#Q1=(8):Q2=(8):S1=(8):S2=(8) 0 =&20::23;4618;0;0;0; :_" Your mission begins with your ship"'" located in the galactic quadrant ";Q2;",";Q1:DNB D=" Now entering quadrant ";Q2;",";Q1;" sector ";S2;",";S1 N$Q1<1 Q1>8 Q2<1 Q2>8 tTB XG(Q1,Q2)=-1 D`N b$X=G(Q1,Q2)*.01:Z(Q1,Q2)=G(Q1,Q2) lK3=(X):B3=((X-K3)*10) v!S3=G(Q1,Q2)-(G(Q1,Q2)*.1)*10 K3=0 dFB LS>200 dFB 7;131"WARNING!!! SHIELD POWER ONLY ";S;" UNITS":dFB 9129:"WARNING:"'129"You are at galactic coordinate" 9129:;Q2+S2/10;",";Q1+S1/10;" which is outside your" 129:"operations area." C129:"Enterprise does not carry charts for"'129"this region."  :DpC !<" S3<=0 T`C  'I%=1S3:rnd:Q$(R1,R2)=131+"* ": DOK  ThJ * ATAK 4(1)>0.98 nova >(1)>.5 proberet H(1)>.99 mystery R(1)>.996 dilithium \(1)>.99 neutron fREP p+L%=0:&86:"Command: "A$:UP::I%=111 z"A$,3)=CM$,3*I%-2,3) L%=I% :ANAL:L%>0 d|C '" NAV = Set course (0-8)" " SRS = Short Range Scan" " LRS = Long Range Scan" " PHA = To fire PHAsors" " TOR = To fire TORpedoes" " SHE = Shield control" (" COM = To access central computer" " DAM = For damage report"  " HYP = To send hyperprobe" " RES = To resign"  DpC @ L% TFD,ThJ,DnE,d\E,tPF,t|G,tBJ,D@K,TjH,TnN,DBI (A$)<=4 DBD L29 C1<1 DpC jW1>8 W1<.1 DpC tW1<=.2 tHD ~VD(1)<0 7:&88"Warp drive is disabled."' &83"Impulse power max speed=0.2":DBD N=((W1+.0625)*8) E-N>0 tfD =7,&88:"Insufficient energy.":E<=0 S<=0 TZI TjC !Q$(S1,S2)=" ":X=S1:Y=S2:XY I%=0 S1=S1+X1:S2=S2+X2 %S1<1 S1>8 S2<1 S2>8 ThE Q$(S1,S2)=" " dlD S1=(S1-X1):S2=(S2-X2) S" Warp engines shut down at sector ";S2;",";S1'" due to bad navigation.":dvD I%=I%+1:I%T0+T9 TdI DOK::ThJ (X=Q1*8+X+X1*N:Y=Q2*8+Y+X2*N 21Q1=(X/8):Q2=(Y/8):S1=(X-Q1*8):S2=(Y-Q2*8) <S1<>0 DPE FQ1=Q1-1:S1=8 PS2<>0 DdE ZQ2=Q2-1:S2=8 d(T=T+1:E=E-N+5:T>T0+T9 TdI DDB nFD(3)<0 7,&81,&88,&AA,&89:'"Long range sensors inoperable":TjC x,1,5)"Long Range Scan: Quad ";Q2;",";Q1 SR$=129+19,"_") -SR$:I%=Q1-1 Q1+1:N(1)=0:N(2)=0:N(3)=0 J%=Q2-1 Q2+1 FI%>0 I%<9 J%>0 J%<9 N(J%-Q2+2)=G(I%,J%):Z(I%,J%)=G(I%,J%) :L%=13:129": "; N(L%)=0 " _ ";:dRE N(L%)=-1 "***";:dRE (N(L%)+1000),3); :" :":SR$::TjC K3>0 dzE P" Short range sensors report no Klingons in this quadrant, Captain.":TjC =D(4)<0 7,129,136,&AA,137:"Phasors are damaged *":TjC (A$)<=4 TNF  X=(A$,L1+1,(A$)-1)):TbF A" Phasers locked on target"'" Energy available=";E;" units"' (" Enter number of units to fire: "X "X<0 DpC E-X<0 TNF , E=E-X 6 0,3,4,5 @ 131"Phaser strike report:" JI%=1 3:K(I%,3)<=0 tFF T)H=(X/K3/(D(0)/2)):K(I%,3)=K(I%,3)-H ^2,H;" unit hit in sector ";K(I%,2);",";K(I%,1) h/6)"Target shields have ";K(I%,3);" units" rK(I%,3)>0 tFF |DfH:K9<=0 DLI :E<1 S<1 TZI TjC 0P=0 7,&88:"All torpedoes expended.":TjC BD(5)<0 7,129,136,&AA,137:"Photon tubes are damaged *":TjC (A$)<5 dBF C1=(A$,L1+1,(A$)-L1)) #C1=C1+1:C1<1 C1>9 dBF dLF ." Torpedo course: "C1:C1=C1+1:C1>9 DpC XY &X=S1:Y=S2:P=P-1:" Torpedo track:"  1,2,0,20 X=X+X1:Y=Y+X2:I%=1 2000: X<1 X>8 Y<1 Y>8 trG <20,-1);(Y+.5);",";(X+.5):(X+.25)<> (X+.75) djF (Y+.25)<> (Y+.75) djF )Z1=(X+.5):Z2=(Y+.5):A$=" ":check Z3<>0 djF &&A$=(129)+"+K+":check:Z3=0 DXG 0F131"* KLINGON DESTROYED *":0,1,6,7:K3=K3-1:K9=K9-1:K9<=0 DLI :I%=1 3:Z1<>K(I%,1) DNG D*Z2=K(I%,2) K(I%,3)=0:Q$(Z1,Z2)=" " N :t^G X#A$=131+"* ":check:Z3=0 DlG bM131"Star at sector ";Y;",";X;" absorbed torpedo":(1)>.8 ttO TjC lA$=134+">!<":check vZ3=0 djF 4131,136:" *** STARBASE DESTROYED ***":0,1,6,7 I129"If you survive, you will appear before"'129"a court marshall!" #B3=B3-1:B9=B9-1:Q$(Z1,Z2)=" " .G(Q1,Q2)=K3*100+B3*10+S3:Z(Q1,Q2)=G(Q1,Q2) E<1 TnI TjC .7,&88:"Torpedo missed":E<1 TnI TjC ID(7)<0 7,129,136,&AA,137:"Shield control is not operational":TjC (A$)<5 dZG !X=(A$,L1+1,(A$)-L1)):dnG )" Energy available = ";E+S;" units." (" Enter num of units to shields: "X >X>E+S 129"This is not the Federation treasury!":dZG *131"Deflector control room reports:" X<=0 X=S T`H  E=E+S-X:S=X ," < Shields now at ";S;" units >":TjC  2" < Shields unchanged at ";S;" units >":TjC *D(6)>=0 T~H 4>7,129,136,&AA,137:"Damage report is not available":DpC >&'&82"Device Repair index" HI%=1 9:&82+D$(I%); R23);D(I%) \ ::TjC fD131"* Klingon at ";K(I%,2);",";K(I%,1);" destroyed *":0,1,6,7 p9K3=K3-1:K9=K9-1:Z1=K(I%,1):Z2=K(I%,2):Q$(Z1,Z2)=" " z0G(Q1,Q2)=K3*100+B3*10+S3:Z(Q1,Q2)=G(Q1,Q2):  ATAK K3=0 TPI A$="s are":K3=1A$=" is" #K3;" Klingon";A$;" attacking." 8D%=1 " Starbase shields protect Enterprise.":TPI  I%=1: K(I%,3)<=0 TFI H=(K(I%,3)/ D(0)* (8))  S=S-H 3H;" unit hit from sector ";K(I%,2);",";K(I%,1) ,S<0 136"*** SHIELDS FAILED ***":TnI )" * shields holding at ";S;" units."  DAM:MOV I%=I%+1:I%=4  07,&81:"Enterprise is dead in space!":TxI $Z'&86"It is stardate ";T'&86"You have run out of time, Lieutenant.":1,1,127,5:DBI .R'129"ENTERPRISE HAS BEEN DESTROYED."'129"The Federation will be conquered." 8I%=1270 -1:1,-15,I%,1: Bd'&86"There were" &88;K9;&89"Klingons left at the"'&86"end of your mission.":K9=0:B9=0:D`I LS134"The last Klingon starship has been des-";134"troyed. Well done Captain." V8I%=13:J%=0255 12:1,-15,J%,2:2,-15,J%+85,2:: `'131"The Federation is in need of a new"'131"starship commander for a similar"'131"mission. If there is a volunteer, let"'131"him now step forward and enter 'AYE'"' j+&86:">"A$:UP:A$="AYE" ::D@A t DOK ~(D%=0:I%=S1-1 S1+1:J%=S2-1 S2+1 !I%<1 I%>8 J%<1 J%>8 tzI $A$=134+">!<":Z1=I%:Z2=J%:check Z3=0 tzI D%=1:E=E0:P=P0:S=0 )7,130:"* DOCKED * Shields lowered." J%:I%:D%=0 T^J 4N%=0:J%=0:I%=1 9:D(I%)<4N%=N%+D(I%)-4:J%=J%+1 -:J%=0 T^J Tl=((N%/J%)/4):Tl>5Tl=5 k130:"Estimated time for full overhaul:"'130;Tl;" stardates. Do you require a full"'130"overhaul? "; 3""A$:UP:A$,1)="Y"N%=4:T=T+Tl: &86"OK": I%=19:D(I%)>=N% TJJ D(I%)=4  ,&86"All systems functional and ready."  (ED(2)<0 7,&81,&88,&AA,&89:"Short range sensors are out *":DpC 23C$=&82+"Green":E0 C$=&81+&88+"*RED*" F)D%=1 C$=&82+"Docked - shields OFF" P'" Stardate ";T Z" Condition: ";C$ d)SR$=&83+" -1--2--3--4--5--6--7--8-" nSR$:J%=1 8 xdfO::SR$:DpC F%=0:D(8)>=0 tVJ 47,&81,&88,&AA,&89:"Computer disabled *"':TjC (A$)<=4 ttJ A$=A$,L1+1,(A$)-L1) t~J &85:"Program: "A$:UP L%=0:I%=1 9 !A$,3)=CP$,3*I%-2,3) L%=I% :ANAL:L%>0 TvK " Programs available:" (" MAP : Cumulative galactic record" " STA : Status report" !" PTD : Photon torpedo data" " CCM : Course calculator" )" KLI : Enemy positions & strengths" D" ACT : Activates auto torpedo launcher (use with PTD)" "$" COM : Return to COMMAND mode" , :ttJ 65L% DJK,tZK,THL,DDL,t~O,tvM,DpC,d\J,d\J @B:I%=12:132,157,135,141:" COMPUTER RECORD OF GALAXY": JD132,157,10,13,132,157,135:" _1___2___3___4___5___6___7___8_" T1I%=18:132,157,135:;I%;:J%=18:4*J%-1); ^Z(I%,J%)=-1 "***";:tPK hZ(I%,J%)=0 tFK rN%=Z(I%,J%)+1000 |;(N%),3);:tPK " - "; Q::132,157,135:::10) 131" You are at ";Q2+(S2/10);",";Q1+(S1/10):TjC :12,10:I%=1 2:7) &83+ &8D"___STATUS REPORT___": B$="s":B9=1B$="" 10,131:"It is stardate";135;T'131"The Federation is currently maintaining"135;B9;131;"starbase";B$;" in this part of the"'131"galaxy." 131"You have";135;((T8-T)*10)/10;131"stardates left in which"'131"to eliminate the";135;K9;131"remaining Klingons"' "&83"Alert condition.....";C$ .&83"Quadrant............";&87;Q2;",";Q1 .&83"Sector..............";&87;S2;",";S1 &&83"Ships energy........";&87;E &&83"Shield energy.......";&87;S &&83"Photon torpedoes....";&87;P :ttJ K3=0 dfE !&83"Aiming data for enemy:" I%=1 3:K(I%,3)<=0 TzL &#C1=S1:A=S2:W1=K(I%,1):X=K(I%,2) 0&83"(";I%;")";:DvL ::F%=1:DfM Dh&85:"This (s)ector or new (q)uadrant? "A$:UP:A$,1)="S"B$="sector" B$="quadrant":A$<>"Q" DpC N^&85:"Enter ";B$;" coordinates:":&85:" X: "X:&85:" Y: "W1:X<1 X>8 W1<1 W1>8 DpC X'C1=S1:A=S2:B$="quadrant"C1=Q1:A=Q2 bN3)&83;:DvL:B$="quadrant" 6,-1)"Distance: ";((X*X+A*A));20," ") l DfM vX=X-A:A=C1-W1 X<0 ddL A<0 TVM X>0 thL A=0 dxL C1=0 (X)<=(A) dPL &DR=C1+((((X)- (A))+ (X))/ (X)) DHM DR=C1+((X)/ (A)) DHM A>0 TLM X=0 TVM X=0 C1=4:trL C1=6:T`M C1=2 (X)>=(A) T~M *&DR=C1+((((A)- (X))+ (A))/ (A)) 4 DHM >DR=C1+((A)/ (X)) H" Bearing : ";DR R'&83;6)"Distance: ";(X*X+A*A)/10 \ fL1>=(A$) (A$)<=4 DpC pA$=A$,L1+1,(A$)-L1) z t~J rnd R1=(8):R2=(8) A$=" ":Z1=R1:Z2=R2:check Z3=0 tNM  "F%<1 " No aiming data":ttJ =P=0 7,&81,&88,&AA,&89:"All torpedoes expended *":TjC >D(5)<0 7,&81,&88,&AA,&89:"Photon tubes damaged *":TjC C1=DR+1:dLF ANAL L1=0:L2=0:I%=(A$) 1 -1 A$,I%,1)=" " L1=I% A$,I%,1)="/" L2=I% :  check Z3=0:Q$(Z1,Z2)=A$ Z3=1 $ .?D(9)<0 7,&81,&88,&AA,&89:"Hyperprobe is damaged *":TjC 8/Q4<>0 &83"Probe already launched.":TjC BB&86:"Send probe to quadrant: ":&86:" X: "Q5:&86:" Y: "Q4 LQ4<1 Q4>8 Q5<1 Q5>8 &81"Sir, the probe is now on an"' &81" irretrievable trajectory.":Q4=-1 &83"Probe launched to ";Q5;",";Q4;"; sir." V TjC `E' &85"You have entered a";&88"SUPERNOVAE";&89"in ";Q2;",";Q1' j TnI t nova ~rnd Z1<>Q1 t\N Z2=Q2 D~N G(Z1,Z2)=-1 D~N X=G(Z1,Z2)/100  X1=(X) /&83"Lft. Uhura reports message from SFC:" G" Space watch has detected supernova in quadrant ";Z2;",";Z1;"." '" Do NOT enter at sublight speed." X1<=0 TJO A$="":X1=1 dvN  A$="s" #X1;" Klingon";A$;" destroyed." K9=K9-X1:K9<=0 DLI  10*(X-X1)<1 ThO 1;" Starbase destroyed."  B9=B9-1 (G(Z1,Z2)=-1:Z(Z1,Z2)=-1 230)"SFC out." < Fproberet:Q4<1 PGN%=G(Q4,Q5):N%<0 &83"Lost contact with hyperprobe, sir.":Q4=-1: Z+" Hyperprobe returned from ";Q5;",";Q4 d&83" STATUS..." n&81" _______" xZ(Q4,Q5)=G(Q4,Q5) &81" : "; Z(Q4,Q5)=G(Q4,Q5) (N%+1000),3);" :" &81" _______"  Q4=0: 77,&88:"You have caused a star to go nova!!":TnI K3=0 dfE  I%=1 K3 K&83"Klingon at sector ";K(I%,2);",";K(I%,1);" has ";K(I%,3);" units."  :DpC 2131;J%;:I%=18:Q$(J%,I%);::27);131;J%; 0J% TDP,TNP,TXP,TbP,TlP,TvP,D@P,dzO : #29);135+"QUAD:";Q2;",";Q1': "29);135"SECT:";S2;",";S1': 29);135"ENRG:";E': "29);135"SHLD:";S': ,29);135"TORP:";P': 629);135"KLNG:";K9': @ 29);135"TIME:";(T8-T)': JDAM:H<100 DrP TR1=((9)) ^D(R1)=D(R1)- ((5)+2) h/131:"Sir, the ";D$(R1);" area is damaged" r | REP  I%=1 9 D(I%)>=0 dBP A$=" being repaired." D(I%)=D(I%)+1 #D(I%)>=0A$=" now operational." 131:;D$(I%);A$ :  MOV Z1=K(I%,1):Z2=K(I%,2) S1-Z1>0Z1=Z1+1 S2-Z2>0Z2=Z2+1 S1-Z1<0Z1=Z1-1 S2-Z2<0Z2=Z2-1 A$=" ":check:Z3=0 TfQ Q$(K(I%,1),K(I%,2))=" " .K(I%,1)=Z1:K(I%,2)=Z2:Q$(Z1,Z2)=129+"+K+" & 0+ݤD(D)=((K(I%,1)-S1)^2+(K(I%,2)-S2)^2) : mystery DE9=(1):E9<.2 E9>.6 DDQ NE=(E*E9+1) X7,&83:"Spock to captain:" bK" Mystery power drain has reduced"'" ship's power to ";E;" units." l vdilithium !7,&83:"Scottie to captain:" P" Dilithium crystals have been stolen by an intruder. No warp power." D(1)=-1E2:dFQ  neutron 7,&83:"Spock to captain:" T" Collision with neutron mine has disabled shields & shield control." D(7)=-1E2:S=0 +" Return to starbase for repairs.": XY .X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1- (C1)) .X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1- (C1))  UP: B$: A$="": 9B$=B$+(A$((A$<"@")&DF)):A$=A$,2):A$="":A$=B$: