10  COM D$[11]
20  COM A$[20],B$[20],C$[20],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  REM   INFO ON THE TREK73 MODULES IS IN THE BEGINNING OF *TREK10
180  REM
190  B=BRK(1)
200  PRINT LIN(3);"AUTO-START?";
210  LINPUT A$
220  IF A$[1,1]#"Y" THEN 240
230  CHAIN "*TREK13"
240  PRINT LIN(3);"(H)AZELTINE, (A)DM-3A, OR (P)RINTER ";
250  INPUT A$
260  GOTO POS("HAP",A$)+1 OF 240,270,300,330
270  D$="*TREK14"
280  PRINT "~"'28
290  GOTO 340
300  D$="*TREK15"
310  PRINT '26
320  GOTO 340
330  D$=""
340  PRINT LIN(5);"GAME OR RECORD: ";
350  LINPUT A$
360  IF A$[1,1]="R" THEN 420
370  IF A$="" THEN 430
380  IF A$[1,1]="G" THEN 430
390  PRINT "IF YOU WANT TO PLAY A GAME OF TREK73, THEN TYPE GAME."
400  PRINT "IF YOU WANT A WIN RECORD, THEN TYPE RECORD."
410  GOTO 340
420  CHAIN "*TREK11"
430  CHAIN "*TREK10"
440  END 
