SUBROUTINE RDFIL (SBUFF)
C
C      ROUTINE TO PRINT OUT GAME NOTES
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS,IDMGE(8),HR
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS
	LOGICAL*1 SBUFF(132)
C
	WRITE (5,3) "33,"33,"33,"33,"33
3	FORMAT (' ',A1,'[0;0H',A1,'[0J',A1,'[1;21H',A1,'[7m',
	1  ' Welcome to MULTI-TREK PLUS ',A1,'[0m',//)
	OPEN (UNIT=3,NAME='LB:[1,2]TREKNOTES.TXT',TYPE='OLD',
	1 READONLY,SHARED,ERR=23004)
23000	READ (3,23001,END=23002) L,(SBUFF(I),I=1,L)
23001	FORMAT (Q,130A1)
	WRITE (5,23003) (SBUFF(I),I=1,L)
23003	FORMAT (1X,130A1)
	GO TO  23000
23002	CALL CLOSE(3)
	WRITE (5,2) "33
2	FORMAT (' ',A1,'[23;1HEnter <CR> to continue ',$)
	CALL RDLINE(SBUFF,1,0)
23004	CONTINUE
C
	CALL PAGE2
	WRITE (5,10500) "33,"33
10500	FORMAT (' ',A1,'[0;0H',A1,'[0J')
	WRITE (5,10503) IUNIMX
10503	FORMAT (/,' Number of universes = ',I1,/)
	WRITE (5,502) IMAXX,IMAXY
502	FORMAT (/,' Universe dimensions are ',I3,' by ',I3,/)
C
	CALL TIME (SBUFF)
	DECODE (2,23005,SBUFF(1)) HR
23005	FORMAT (I2)
D	IF (HR.GE.17.OR.HR.LT.8) GOTO 23006
D	IF (IBLEV.EQ.1) STOP 'ONLY AFTER HOURS'
D	CALL GINUAB (SBUFF,ISTAT)
D	IF (KOMSTR (SBUFF(75),1,7,'OREILLY',1).EQ.0) GOTO 23006
D	IF (KOMSTR (SBUFF(75),1,7,'CARROLL',1).NE.0) STOP 'ONLY AFTER HOURS'
23006	RETURN
	END