BYTE BUFF(80)
	OPEN (UNIT=1,NAME='TREKHELP.HLP',TYPE='NEW',FORM='UNFORMATTED',
	1ACCESS='DIRECT',RECORDTYPE='FIXED',RECORDSIZE=20)
	OPEN (UNIT=2,NAME='TREKHELP.HHH',TYPE='OLD')
	I=0
10	READ (2,100,END=32000) BUFF
100	FORMAT (80A1)
	I=I+1
	WRITE (1'I) BUFF
	GOTO 10
32000	CLOSE (UNIT=1)
	CLOSE (UNIT=2)
	STOP
	END