File: DOTEST.FT of Disk: Disks/MyPDP/m8-1-rka1-rkb1

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

---