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

(Source file text) 

---

10	MASK=1
C10	MASK=2+4+8+16+32+64+128+256+512+1024+2048+1
	INPUT=0
C10	READ(0,200) MASK,IDATA
	IOUT=DINP(1,MASK,IERR,INPUT)
	WRITE(0,100) MASK,IERR,IOUT
	GOTO 10
100	FORMAT(3I8)
200	FORMAT(2I8)
	END

---