File: DOTEST.FT of Tape: Sources/Multi8/m-ra1-f1-15-6-81

(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)

---