File: FORT7.FT of Disk: Disks/PDP8-Net/haygood-osv3r

(Source file text) 

---

C THIS PROGRAM RUNS OK WITHOUT THE EAE
C BUT IT ONLY PRINTS OUT '11' WITH EAE
C AND WITH PC8 IT GENERATES AN I/O ERR

	INTEGER A(5,5)

	DO 100 I=1,5
	DO 100 J=1,5
100	A(I,J)=10*I+J

	DO 200 I=1,5
200	WRITE(4,1000) (A(I,J),J=1,5)
1000	FORMAT(' ',5I5)
	END

---