10  COM Z$[72],G[8,8],C[9,2],K[3,3],N[3],Z[8,8],D[8]
20  COM C$[6],D$[72],E$[24],A$[3],Q$[72],R$[72],S$[48],X$[8]
30  COM T,T0,T7,T9,D0,E,E0,P,P0,S,S1,S2,S3,S8,S9,H,H8,Q1,Q2
40  COM Z1,Z2,Z3,R1,R2,C1,C2,W1,X,Y,X1,X2,A,N,B3,B9,K3,K7,K9,O9,O8
50  REM HP BASIC PROGRAM LIBRARY
60  REM STTR1: STAR TREK
70  REM 36243  REV B  --  10/73
80  REM CONTRIBUTED PROGRAM
90  REM ORIGIN: EXTRACTED FROP HP TAPE IMAGE 16-NOV-2003 BY PETE TURNBULL
100  REM *****************************************************************
110  REM ***                                                           ***
120  REM ***     STAR TREK: BY MIKE MAYFIELD, CENTERLINE ENGINEERING   ***
130  REM ***                                                           ***
140  REM ***        TOTAL INTERACTION GAME - ORIG. 20 OCT 1972
150  REM ***                                                           ***
160  REM *****************************************************************
170  REM MAKE IT GO... O9 FOR BRANCHING IN STTR1A, O8 FOR AUX BRANCHING
180  O9=0
190  CHAIN "STTR1A"
200  REM MODIFIED 8/27/06 WTN FOR TSB E...
202  REM PUT KEY VARIABLES INTO COM STATEMENTS
204  REM DIVIDED CODE INTO STTR1A (MAIN CODE), STTR1B (MORE CODE)
205  REM AND STTR1C (INSTRUCTIONS), SOME SUBS IN BOTH A AND B.
206  REM CONVERTED ALL PRINT USING TO PRINT IMAGE DIRECTLY.
208  REM TWEEKED TEXT PROMPTS ETC TO LOOK HALF-RIGHT UNDER TSB E.
210  REM RUN STTR1 TO START PROGRAM.
220  REM COMMENTS REMOVED FROM MAIN CODE TO SAVE MEMORY...
230  REM *****  PROGRAM STARTS HERE *****
5510  REM ******  INSERTION IN STRING ARRAY FOR QUADRANT ******
5610  REM ****  PRINTS DEVICE NAME FROM ARRAY *****
5680  REM *******  STRING COMPARISON IN QUADRANT ARRAY **********
9000  REM PRINT COORDINATES - ADDED FOR TSB E VERSION
9002  REM ENTRY: Z8, Z9, X$ CONTAINING "12345678"
9004  REM PRINTS " [DIGIT],[DIGIT] " DIGIT=* IF OUT OF RANGE
9999  END