10  COM S$[28],N$[72],N,Y,D[3],L[3],I[3],Y[4,2],V[3,2],S[4,2],W[4],E[4],K[4]
20  COM P[4,12],F[4,9],C[4],Q[4,8],T[4,30],O[4],A[4,5],A1,H5,U,W0,F3,O,G
30  COM W,V9,N1,U[4],S
40  REM  ****  $TREK4T  FOUR-TERMINAL STAR TREK GAME  ****
50  REM
60  REM  WRITTEN BY WARD RUTH  MONTEREY HIGH SCHOOL  4-24-78
70  REM
80  REM  FORMATTING BASED ON TREK73 BY W.K. CHAR
90  REM  LOOSLY RELATED TO *TREK BY K.A. MASON  MHS
100  REM  --  INITIALIZATION
110  REM
120  FILES *YTREKL
130  DEF FNT()=(3.14159*)/180
140  DEF FND()=+((<0)*360)
150  DEF FNN()=FND((ATN()*180)/3.14159)
160  DEF FNE()=-((>360)*360)
170  DIM B$[72]
180  G8=100*TIM(3)+TIM(2)+TIM(1)/100
190  IF Y THEN 350
200  N1=N-1
210  FOR F=1 TO N
220  READ #1,F;S
230  IF  NOT S THEN 270
240  NEXT F
250  PRINT "NO SHIPS LEFT"
260  STOP 
270  Y=F
280  READ #1;O,T2,T1,T0
290  FOR C=1 TO N1
300  READ #1;D[C],V[C,1],L[C],I[C]
310  V[C,2]=FNE(FNN(I[C]/L[C])+((L[C]<0)*180))
320  NEXT C
330  PRINT #1,Y;1,O,TIM(2),TIM(1),TIM(0),S$,N$
340  CHAIN "*YTREKE"
350  FOR F=1 TO N
360  READ #1,F;S
370  IF  NOT S THEN 330
380  NEXT F
390  REM  ****  INITIALIZATION  ****
400  H5=U=W0=A1=O=G=W=0
410  MAT U=CON
420  MAT U=(-10)*U
430  MAT T=ZER
440  MAT K=CON
450  MAT C=ZER
460  MAT Y=CON
470  MAT Y=(270)*Y
480  Y[1,1]=Y[1,2]=0
490  MAT A=ZER
500  FOR C=1 TO N
510  O[C]=7.7
520  S[C,1]=S[C,2]=5
530  W[C]=300
540  E[C]=150
550  FOR C3=2 TO 8 STEP 2
560  Q[C,C3]=1
570  Q[C,C3-1]=10
580  NEXT C3
590  FOR C3=1 TO 3
600  P[C,C3*4]=-120*C3+120
610  P[C,C3*4-3]=10
620  P[C,C3*4-2]=0
630  P[C,C3*4-1]=1
640  NEXT C3
650  FOR C3=5 TO 30 STEP 5
660  T[C,C3-1]=12
670  T[C,C3-4]=-1
680  NEXT C3
690  NEXT C
700  REM  ****  ALERT & IDENTIFY ATTACKERS  ****
710  PRINT 
720  PRINT '7'7'7'7'7'7'7;
730  PRINT "*****RED ALERT -- RED ALERT -- REPORT TO BATTLE STATIONS*****"'7'7'7'7'7'7'7
740  PRINT 
750  PRINT "NAVIGATION:  SIR!  ";
760  C=1
770  FOR F=1 TO N
780  IF F=Y THEN 820
790  C=C+1
800  READ #1,F;S,O,T2,T1,T0,S$[C*7-6,C*7],B$
810  PRINT "CAPTAIN "B$" IS ATTACKING WITH THE "S$[C*7-6,C*7]"."
820  NEXT F
830  CHAIN "*YTREKB"
840  END 
