45],S$[N3*10],N$[16],W$[14*45],X[45]Y45],B$[2]
100 COM D$[1],R$[15],T9,N1,W1,O,N2,N3,O1,O2,P1,P2,X$[14],N4
120 SYSTEM 6
1030 DEF FNM(X)=X-INT(X/N2)*N2
1040 DEF FNR(X)=INT(X*RND(0)+1)
1050 EF FNA(X)=X/57.2958
160 DEF FNB(W)=SQR((X[I]-X[J])^2+(Y[I]-Y[J])^2)
1070 DEF FNC(X)=X-INT(X/60/6)*60*6
1080 DEF FNQ(X)=ASC(B$)*N2+ASC(D$)
190 LET O32,W$[5,6]=S$[18,19]
1100 IF O=27 THEN  LET O=1
1110 FOR I=O3 TO N+1
1120 LET A$=S$[I*N3-9*8],X$=W$[I*14-13],D$=W$[11],J1=ASC(D$)-50,L=0
130 IF I>1 THEN  LET J11
140 LET J=J,D$=A$[3],S=ASC(D$),B$=X$[7,D$=X$[8],F4=FNQ(1),D$=X$[11]
150 LET F6=ASC(D$)-50,B$=X$[3],F1=ASC(B$)/10,B$=B$[2],F2=ASC(B$)/10,D$=W$[J*14-11]
110 LET T1=ASC(D$)/10,B$=W$[J*14-3],T2=ASC(B$)-50,B$=X$[12],F7=ASC(B$)
1170 GOSUB 200
1180 LET B$=A[18,D$=B$[2],F3=ASC(B$)*10+ASC($/10,B2=FNC(BF),R=FNB()
110 LET X$[5,6]=B$,D$=A$[64],F2=F2*(ASC(D$)-1),D$=A$[N3],F1=F1*(ASC(D$)-1)
1200 IF ASC(X$) THEN 20001210 IF X$[2,2]=CHR0 THEN 000120 IF R>50*64 THEN 1870
1230 IF R>3*0 THEN 152
1240 FOR K=23 TO 2
1250 LT D$=A$K],W=ASC($),B$=A$[2*-15],D$=B[]
160 IF W>N2 THEN 1330
170 GOSUB 200
1280 LT F=0,G2=FNB(1),G3=FNC(F4+FNQ(1)-B)
1290 IF G2>10^3 THEN 1320
130 IF G3>S THEN  IF 12*30-G3>S THEN 1320
131 LET D=A$[4+K],F=INT(ASC(D$)*SQR(1-G2/10^3*45/S)
120 IF F>10 THEN LA$[K,K]=CHR(W+25),L=1
130 NEXT K
1340 IF L THEN 1990
1350 FOR J=3 TO W1
1360 IF W$[J*14-13,J*14-13]="" THEN  IF FNB(1)<10^3 THEN 2250
1370 NEXT J
180 LT =J1
190 IF B2>27*5 THEN I B2<5*45 THEN 2250
100 FOR K=23 TO 26
1410 IF A$[K,K]<>"" THEN  IF A$[K,K]<>CHR(J) THEN  LET A$[K,K]=CHR(J),L=1
1420 NEXT K
1430 IF L THEN 2220
140 IF B2>=90 THEN  IF B2<=270 THEN  IF A$[13,13]=" " THEN  IF F3>10 THEN  IF ABST1<=1 THEN 2290
1450 IF F3<10 THEN  IF A$[22,22]<"" THEN  IF F7<5 THEN 2420
1460 IF F6=J THEN  IF 1+ABS(T1)<3 THEN 1520
1470 LET F2=ABS(T1),X$[4,4]=CHR(F2*10),X$[111]=CHR(J50),6=JA$64,64]=""1480 IF A$[1,14]= " THEN 1990
1490 IF AB(2)<1 THEN 520
1500 LET $[64,64]= ",X$[44]="	"1510 GOTO1990
1520 FORJ=2 TO 1+1
13 IF J=I THE 590
1540 IF W$[J*14-13,J*14-13]<>" " THEN 1590
1550 GOSUB 26001560 LET B1=FNC(B-F4)
150 IF B>=5 THEN  IF B1<=335 THEN  IF FNB(1)>=5*60 THE 159
158 GOO 180
150 NEXT J
100 FO K=40 TO45
1610 LET D$=A[K],X=ASC(D$)
1620 IF A$[K+6,K+6]<="" THEN 1601630 IF X>2TE 1660
1640 I X THEN  LET A[K,K]=CHR(X+25),L=L+1
150 IF L>FNR(4) THEN 1990
160 NEXT K
160 IFLTHEN 1990
180 LET J=J1
1690 IF A$[14,14]=" " THEN 1760
100 IF ABS(T1)>=1 THEN 238110 FOR K=23 TO28
1720 IF A$[K,K]<>"" THEN  IF K<27 THEN 1760
1730 I A$[17K,17+K]<>"" THEN 1760
170 NEXT K
1750 GOO 2380
1760 IF B2>=90 THEN IF B2<=20 THEN  IF T2*T1> THN  IF F3>1 THEN IF A$[3,13]=" " THEN 2290
1770 IF F3<=10 THEN  IF A$[22,22]<"" THEN  IF T2*T1>0 THEN  IF A$[13,13]+A$[15,15]="  " THEN 24501780 IF B2>27*5 THEN  IF B2<5*45 THEN 2360
190IF W[J*14-2,J*14-2]<="^" THEN 2250
1800 IF F2>ABS(T1)+1 THEN  IF F6=J THEN 1870
11 RRSET 1840
1820 LET F2=ABS(T1)+1FNR(2),X$[11,11]=CHR(J+50),6J,A$[64,64]="",X$[4,]=CHR(F2*10)
1830 ERRCLR 1840 I F2>11 THEN  LT X$[4,4]="n",F2=11
1850 IF A$[14,14]="" THEN  LET X$[4,4]="	",F2=9/10
1860 GOTO 2050
170 IF F3<10 THEN  F A$[22,22]<"-" THEN 2380
1880 IF A$[14,14]="" THEN 2380
180 IF W$[J*14-2,J*14-2]<="^" THEN 2250
1900 LET X$[11,11]=CHR(J+50),F6=J
110 IF F3<5 HEN 2020
1920 IF B2>60 THE  IF B2<60*5 THEN 2050
030 IF F2ABS(T1)+2 THEN 2050
14 ERSET1970
1950 LET F2=ABS(T1)+2+FNR(2),A$[64,64]="",X$[4,4]=CHR(F2*10)
190 ERRCLR 
1970 IF F2>11 THEN  LET X$[,4]="n"
180 PRINT "SULU  ";A$[1,10];" ATTACKING"
1990 LET W$[*14-13,I*14]=X$,S$[I*N3-9*8,I*N3]=A$
20 NEXT I
201 CHAIN #1;"$TREK5"
2020 IF F2<1 THEN 2050
2030 LET X$[4,4]=" "
2040 GOG 1990
25 OR K=40 TO 45
260 IF A[KK="" THEN 2110
270 LET Z3=K+6,D$=A$[Z3],X=ASC(D$)
2080 IF X>=10 THEN 2110
2090 LET Q=(10-X+F3-ABS(10-X-F3))/2,F3=F3-Q,B$=A$[20],D$=B$[2],W=FNQ(1)-Q,L=1
2100 LET A$[18,21]=CHR(F3/10)+CHR(FNM(F3*10))+CHR(W/N2)+CHR(FNM(W)),A$[Z3,Z3]=CHR(X+Q)
2110 NEXT K
2120 IF *I=1 THEN PRINT "OMPUTER: OADING TUBES2130 I L THEN190
240 FOR K=40 TO 45
2150 I A$[K,K]<"" THEN  IF A$[K,K]<>CHR(J) THEN  LETA$[K,K]=CHR(J),=1
2160 NEXT K
2170 IF L*I=1 THEN  PRINT "COMPUER: LOCING TUBS"
2180 IF L THE 1990
290 OR K=23 O26
220 IF A$[K,K]<>"" THEN F A$[KK]>CRJ)THF LETA$[KK]=CHR(J),L=1
2210NXT K
2220IF I*L=1 THEN  PRINT "CMPUTR:  LOCKING PHAERS"
220 IF L THEN 1990
220 GOTO 2360
2250 PRIN A$[1,10];" TKN EVASIVE ACTIO"
260 LET $[4,4]=CHR(20+FNR(2*40)),X$[9,10]=CHR(FNR()-1)+CHR(FNR(60)),A$[64,64]=""
2270 IF A$[14,14]="" THEN  LET X$[11,11]=CHR(J+50,$[,]="	"
2280 GOO 1990
2290 GOSUB 2500
2300 PRINT A$[1,10];" LAUNCHIGROBE #";
210 LET Q=(20+F3-ABS(2-F)/2,F3=F3-Q,B$=$[20],D$=B$[2,Z=FNQ()-Q
2320 LET A$[1,21]=CHR(F3/10)+CHR(FNM(F3*10))+CHR(Z/N2)+CHR(FNM(Z))
230 LET W$[S*14-13,S*14]=""+CHR(I)+""+CHR(Q/10)+CHR(FNM(Q*10))+X$[7,10]+CHR(J+50)+""
2340 LET W[*14-1,S*14]=CHR(FNR(3)2)+CHR(FNR(33*3)
2350 GOTO 990
2360 PRINT "SPOCK:  ";A$[1,10];" SCANNING"
2370 GOTO 1990
230 IF F20 THEN 1990
2390 PRINT SPOCK: ";A$[1,10];" RETREATING"
200 LET X$[4,4]="	",X$[11,11]=CHR(J+50),A$[64,64]=" "
2410 GOTO 1990
2420 PRINT "SPOCK:  ";A$[1,10];" DESTRUCTING N  SECNDS"
230 LET X$[12,12]=""
2440 GOTO 1990
2450 GOSUB 2500
2460 LET W$[S*14-13,S*14]=""+X$[2,3]+" "+X$[5,6]+X$[7,8]+X$[7,8]+"2 ,4,6]="    "
27 E B%A[6],A$[13,22]=""+B$+"     "
2480RINT"POCK:  ";A[1,10];" JTTISOE ENGIEERING"2490 GOTO1990
2500 FOR S=1 TO W1
2510 IF W[S*14-12,S*14-12]=" " THN 250
2520 NET S
2530 LETS=S+1,W1=S
240 IF LN(W$)1*44 THE  SYSTEM 12550 LET W$[S1-13,S*14]="             ",X[S]=X[I],YS]=Y[I]
2560 FOR W1=W1 TO 1 STP -1
2570 IF W$[W1*14-12,W1*14-12]<>" " THEN  RETURN 2580 NEXT W129 ETRN 
2600 LET X1=X[J]-X[I],Y1=Y[J]-Y[I],B=45*2
2610 IF X1 THEN  LET B=ATN(Y1/X1)*57.2958
22 F X1>=0 THEN  IF Y1>=0 THEN  RETURN 
2630 LET B=B+60*3
24 IF X1>= THEN  LT B=B+60*3
250 RETURN 
            