File: EXPROG.FT of Disk: Disks/PDP8-Net/disk2-fortran

(Source file text) 

---

C
C    PROGRAM TO FILTER OUT PRACTICE TYPE FIVE JUL-1-80
C        TOM MARGEVICIUS
C
C	FILE 7 IS INPUT
C	FILE 8 IS OUTPUT FILTERED
C	FILE 9 IS CORRECTED OUTPUT TO TAPE
	INTEGER INPUT(50,50)
	DATA IFIVE/'5'/
5	IFLAG=0
	CALL CHKEOF(I)
	READ(7,10)(INPUT(J,K),J=1,50),K=1,50)
10	FORMAT(50(1X,50A1,/))
	IF(I.NE.0)GO TO 999
	DO 20 J=1,50
	IF(INPUT(J,8).NE.IFIVE)GO TO 20
	WRITE(9,30)(INPUT(J,K),K=1,50)
30	FORMAT(1X,'PRACTICE 5-',50A1)
	IFLAG=1
20	CONTINUE
	IF(IFLAG.EQ.1)GO TO 40
	WRITE(8,50)(INPUT(J,K),J=1,50),K=1,50)
50	FORMAT(50(1X,50A1,/))
	GO TO 5
40	DO 60 J=1,50
	WRITE(8,50)(INPUT(J,K),K=1,50)
60	CONTINUE
	GO TO 5
999	STOP
	END

---