BYTE BUF(8)
	CALL ASSIGN(1,'TEST.FIL')
10	READ(5,100,END=99)BUF
100	FORMAT(8A1)
	CALL STPRD(1)
	GOTO 10
99	CALLEXIT
	END