File: DVTEST.FT of Tape: Various/Disk-backup/dsk10

(Source file text) 

---

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

---