File: DVTEST.FT of Tape: Various/Tests/dsk1c

(Source file text) 

---

	MODE=1+8
	IRANGE=0+4
10	CALL DVINP(MODE,IRANGE,IERR,IVAL)
	WRITE(0,1000) MODE,IRANGE,IERR,IVAL
1000	FORMAT(X,4I8)
	GOTO 10
	END

---