PROGRAM DRTEST
C
	COMMON /DRVAL/IVAL,IVAL2
C
5	WRITE(5,10)
10	FORMAT(/'$ENTER VALUE [OCTAL]: ')
	READ(5,20,END=100,ERR=100) IVAL
20	FORMAT(O8)
	CALL DRSET
	CALL DRREAD
	WRITE(5,30) IVAL2
30	FORMAT(/' INPUT BUFFER: ',O8)
	GO TO 5
100	STOP
	END