10  COM D$[11]
20  COM M$[20],N$[20],O$[20],P$[20]
30  COM Q$[20],R$[20],S$[20],V$[20],X$[72],Y$[72],Z$[72]
40  COM A[50],B[50],C[50],D[50],E[50],F[50],G[10],H[10],I[50],J[50]
50  COM K[50],L[50],M[10,6],N[10,4],O[10],P[10,4],Q[10,4],R[10,4]
60  COM S[10,8],T[10,9],U[10,6],V[10,6],W[10],X[50],Y[50],Z[10,10]
70  COM A,D1,D2,I,I1,I2,K1,K2,K3,K4,N,N1,N2,O,O1,O2,P1,P2,P3,P4
80  COM T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,Z9
90  REM
100  REM    TREK73:  AN ADVANCED STAR TREK BATTLE SIMULATION
110  REM  PROGRAMED BY WILLIAM K. CHAR AND ASSOCIATES, WILSON
120  REM  EDP, 400 MANSELL, SAN FRAN, CA 94134, (415) 239-6460
130  REM  26 NOVEMBER 1973 ***FOR AUTHORIZED PERSONNEL ONLY***
140  REM
150  REM        MODIFIED BY DAVID SHAYER - SMHS - 6/04/80
160  REM
170  FILES *TREK12
180  DIM A$[255],B$[255],C$[255]
190  READ #1,10;S7,A$
200  B$="00000"
210  CONVERT S7 TO C$
220  B$[6-LEN(C$),5]=C$
230  PRINT LIN(2)"TREK73 HAS BEEN PLAYED "B$" TIMES SINCE  @  "A$,LIN(2)
240  FOR T=1 TO 9
250  READ #1,T
260  L=0
270  IF TYP(-1)>2 THEN 390
280  READ #1;A$
290  IF L THEN 370
300  PRINT LIN(2)"WIN RECORD FOR : ";
310  RESTORE 
320  FOR T1=1 TO T
330  READ B$
340  NEXT T1
350  PRINT B$" ENEMY SHIP(S).",LIN(2)
360  L=1
370  PRINT A$
380  GOTO 270
390  IF L THEN 460
400  PRINT LIN(2)"** NO CURRENT WINNERS FOR : ";
410  RESTORE 
420  FOR T1=1 TO T
430  READ B$
440  NEXT T1
450  PRINT B$" ENEMY SHIP(S)."
460  NEXT T
470  PRINT LIN(3)
480  CHAIN B5,"*TREK73"
490  DATA "ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT"
500  DATA "NINE"
510  END 
