File: DVTEST.FT of Tape: Sources/Multi8/m8-mprog-f

(Source file text) 

---

10	CALL DVINP(9,4,IERR,IVAL)
	WRITE(0,1000) IERR,IVAL
1000	FORMAT(X,2I8)
	GOTO 10
	END

---