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  --  PROGRAM FUNCTION GOES HERE
110  REM
120  DIM R[9],B$[20]
130  FILES *YTREKL
140  REM  ****  ARRAY TO FILE ADRESSING  ****
150  R=0
160  FOR C=4 TO 12 STEP 4
170  R=R+1
180  S=P[1,C]-(P[1,C]>4)*4
190  GOSUB 450
200  R[R]=F
210  NEXT C
220  FOR C=5 TO 30 STEP 5
230  R=R+1
240  S=T[1,C]-(T[1,C]>4)*4
250  GOSUB 450
260  R[R]=F
270  NEXT C
280  REM  ****  DAMAGE UPDATING  ****
290  PRINT #1,Y;3,O,TIM(2),TIM(1),TIM(0),S$[1,7],C[1],A[1,1],A[1,2],A[1,3]
300  PRINT #1;A[1,4],A[1,5],S[1,1],S[1,2],K[1],E[1]
310  FOR C=1 TO 8
320  PRINT #1;Q[1,C]
330  NEXT C
340  R=0
350  FOR C=4 TO 12 STEP 4
360  R=R+1
370  PRINT #1;P[1,C-3],P[1,C-2],P[1,C-1],R[R]
380  NEXT C
390  FOR C=5 TO 30 STEP 5
400  R=R+1
410  PRINT #1;T[1,C-1],R[R]
420  NEXT C
430  CHAIN "*YTREKJ"
440  REM  ****  FILE ADRESS SUBROUTINE  ****
450  IF S <= 0 THEN 540
460  FOR F=1 TO N1+1
470  IF F=Y THEN 520
480  READ #1,F;S2
490  IF S2=-1 THEN 520
500  READ #1;C6,C6,C6,C6,B$
510  IF B$=S$[S*7-6,S*7] THEN 550
520  NEXT F
530  RETURN 
540  F=S
550  RETURN 
560  END 
