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 WORKINGS OF *TREK73, BY DAVID SHAYER SMHS 12/21/79
180  REM *TREK01-COMMANDS 1-10
190  REM *TREK02-COMMANDS 11-20
200  REM *TREK03-COMMANDS 21-30
210  REM *TREK04-COMMANDS 31-40
220  REM *TREK05-M5 COMPUTER LOGIC
230  REM *TREK06-MOVES SHIPS, TORPEDOS, PROBES, ETC.
240  REM *TREK07-MAIN MODULE
250  REM *TREK08-START UP MODULE, INITALIZES ARRAYS
260  REM *TREK09-END MODULE, WIN SUMMARY
270  REM *TREK10-INFO
280  REM *TREK11-WIN RECORD ANAYLIZING PROGRAM
290  REM *TREK12-WIN SUMMARY FILE
300  REM *TREK13-AUTO START MODULE, CHAINS TO *TREK07
310  REM *TREK14-HAZELTINE GRAPHICS MODULE
320  REM *TREK15-ADM-3A GRAPHICS MODULE
330  REM *TREK73-CHAINS TO *TREK11 OR *TREK10
340  PRINT "TREK73!  DO YOU WANT INSTRUCTIONS  ? ";
350  LINPUT A$[1,1]
360  IF A$[1,1]#"Y" THEN 770
370  PRINT LIN(2);TAB(19)"A STAR TREK BATTLE SIMULATION"LIN(1)
380  PRINT "   TREK IS A COMPUTER-SIMULATED BATTLE BASED ON THE FAMOUS STAR *TREK"
390  PRINT "TELEVISION SERIES.  VIA COMPUTER TERMINAL, YOU CAN CLASH WITH ROMULAN OR"
400  PRINT "KLINGON BATTLE CRUISERS AND USE THE SAME STRATEGIES THAT CAPTAIN KIRK"
410  PRINT "HAS USED.  AS KIRK, YOU CONTROL A FEDERATION VESSEL SIMILAR TO THE"
420  PRINT "ENTERPRISE; A COMPUTER PROGRAM DIRECTS THE ENEMY.  VICTORY CAN FALL INTO"
430  PRINT "SEVERAL CATEGORIES:"
440  PRINT LIN(1)"     DECISIVE VICTORY-- YOU COMPLETELY DESTROY OR CRIPPLE THE ATTACKING"
450  PRINT "FORCE."LIN(1)
460  PRINT "     TACTICAL VICTORY-- YOU OUT-MANEUVER THE ENEMY USING HIGH-SPEED"
470  PRINT "ESCAPES, CORBOMITE BLUFFS, 'PLAY DEAD' TACTICS; OR THE ENEMY SURRENDERS."
480  PRINT LIN(1)"MORAL VICTORY-- YOU SURRENDER OR SELF-DESTRUCT AND DESTROY EACH"
490  PRINT "OTHER."LIN(2)
500  PRINT "   IN THE FOLLOWING DESCRIPTIONS OF PLAY, IT IS ASSUMED THAT YOU"
510  PRINT "ARE CAPTAIN KIRK OF THE U.S.S. ENTERPRISE AND ARE BEING ATTACKED"
520  PRINT "BY ONE ROMULAN AGGRESSOR.  ALL DISTANCES ARE MEASURED IN MEGAMETERS,"
530  PRINT "ONE MILLION METERS (ABBREVIATED 'M'), SPEED IS EXPRESSED IN 'WARP"
540  PRINT "FACTORS.'  EACH WARP FACTOR EQUALS 100M PER SECOND.  ALL ANGLES"
550  PRINT "ARE EXPRESSED IN COMMON DEGREES FROM ZERO TO 360, MEASURED COUNTER-"
560  PRINT "CLOCKWISE FROM THE X-AXIS, SIMILAR TO READING A PROTRACTOR.  ONLY"
570  PRINT "TWO DIMENSIONS ARE USED."LIN(1)
580  PRINT "   ALTHOUGH THE ABOVE FIGURES ARE TECHNICALLY INACCURATE, THEY SERVE"
590  PRINT "TO MAKE THE GAME MORE PLAYABLE."LIN(1)
600  PRINT '10"PLAY IS AS FOLLOWS:"LIN(1)
610  PRINT "  1.  YOU ISSUE ONE OF THE 29 COMMANDS (FIRE PHASERS, CHANGE"
620  PRINT " COURSE, LAUNCH ANTIMATTER PODS, SURRENDER, ETC.) BY TYPING"
630  PRINT " THE APPROPRIATE CODE NUMBER INTO THE KEYBOARD."LIN(1)
640  PRINT "  2.  THE ENEMY, UNDER PROGRAMMED INSTRUCTIONS, ISSUES A COMMAND."
650  PRINT LIN(2)"  3.  BOTH YOUR COMMANDS ARE EXECUTED (PHASERS ARE FIRED,"
660  PRINT " PROBES ARE LAUNCHED, DAMAGES ARE ASSESSED, ETC.) WHILE THE VESSELS"
670  PRINT " MOVE THROUGH SPACE."LIN(1)
680  PRINT "  4.  UNLESS CERTAIN END-GAME CONDITIONS ARE MET (YOU DESTROY"
690  PRINT " THE ENEMY, THE ENEMY DESTROYS YOU, YOU OUT-MANEUVER THE ENEMY"
700  PRINT " YOU BOTH DESTROY EACH OTHER, OR ONE PARTY SURRENDERS) THE ABOVE"
710  PRINT " STEPS ARE REPEATED."LIN(2)
720  REM
730  REM
740  REM
750  REM
760  REM
770  CHAIN "*TREK08"
780  END 
