File: TEST.FT of Disk: Disks/MyPDP/m8-backup-rka1-rkb1

(Source file text) 

---

	REAL BUFF(22)

	DO 100 I=1,4
	DO 200 J=1,64
	C=(I-1)*64+J
	IF ((C.EQ.26).OR.(C.EQ.27)) GOTO 200
	IF ((C.EQ.154).OR.(C.EQ.155)) GOTO 200
	CALL CPUT3(BUFF,J,C)
200	CONTINUE
	WRITE(6,1000) BUFF
100	CONTINUE
C
1000	FORMAT	(22A3)
C
	CALL EXIT
	END



---