File: DOTEST.FT of Tape: Test/Tests/Blank-Tape-Unit1

(Source file text) 

---

10	READ(4,1000) MASK,IDATA
	IOUT=DOUT(1,MASK,IERR,IDATA)
	WRITE(4,2000) IERR,IOUT
	GOTO 10
1000	FORMAT(2I4)
2000	FORMAT(2I4)

---