10  COM S$[28],N$[72],N,Y
11  PRINT "THIS IS THE GAME OF YTREK - UP TO 3 PLAYERS"
12  PRINT "CAN PLAY AGAINSST EACH OTHER.  YOU MUST EXE-*YCLEAR"
13  PRINT "FIRST TO RE-INITIALIZE THE FILE.  THEN EXE-*YSTART"
14  PRINT "AND YOU WILL BE ASKED YOUR NAME AND THE NAME OF"
15  PRINT "YOUR SHIP.  THE PROGRAM WILL THEN WAIT FOR ONE OR"
16  PRINT "MORE PERSONS TO EXE-*YTREK AT THEIR OWN TERMINAL."
17  PRINT "AFTER THIS HAPPENS, THE GAME BEGINS!"'7
20  FILES *YTREKL
30  DIM B$[7]
40  B$="       "
50  N=Y=0
60  PRINT "STATE LAST NAME FOR STAR FLEET RECORDS";
70  INPUT N$
80  PRINT '14"WHAT DO YOU CHRISTEN YOUR SHIP, CAPTAIN "N$" [1-7 CHARACTERS]"
90  INPUT S$
100  IF S$[1,1]#"*" THEN 130
110  PRINT "ASTERKSK [*] UNALLOWABLE AS FIRST CHARACTER"
120  GOTO 80
130  IF LEN(S$) <= 7 THEN 160
140  PRINT "ONLY SEVEN CHARACTERS FOR YOUR SHIP NAME "N$"!"
150  GOTO 80
160  IF LEN(S$)=7 THEN 180
170  S$[LEN(S$)+1,7]=B$[1,7-LEN(S$)]
180  FOR F=1 TO 4
190  READ #1,F;S
200  IF S<0 THEN 220
210  N=N+1
220  NEXT F
230  CHAIN "*YTREKE"
240  END 
