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

(Source file text) 

---

10	READ(0,200) MASK,IDATA
	IOUT=DOUT(1,MASK,IERR,IDATA)
	WRITE(0,100) IERR,IOUT
	GOTO 10
100	FORMAT(2I8)
200	FORMAT(2I8)
	END

---