	REAL DBLK(2)
	DATA DBLK/6RAD    ,6R      /
	INTEGER IBUFF(16)
	CALL OPENFL(DBLK,ICHAN,IERR)
10	II = IREADW(16,IBUFF,0,ICHAN)
	WRITE(7,9000) IBUFF
9000	FORMAT(5I10)
	CALL ISLEEP(0,0,1,0)
	GOTO 10
	END
