Directory of image this file is from
This file as a plain text file

	COMMON NERR,ERRS,LC,CC,DIN,FIN
	INTEGER ERRS(61,3),DIN(2),FIN(4)
	INTEGER LINE(80),POS,CC
	LOGICAL B
	CALL IOPEN(DIN,FIN)
	NR = 1
	LNR = 0
100	IF (LNR>LC) GOTO 999
	K = ERRS(NR,2)		@LINE
	WHILE (K>LNR)
	  READ (4,10) (LINE(I),I=1,80)
10	FORMAT (80A1)
	  LNR = LNR + 1
	ENDWHILE
	LL = 80
110	IF (LL>1)
	  B = LINE(LL).NE.-2016
	  IF(B) GOTO 120
	  LL = LL - 1
	  GOTO 110
	ENDIF
120	WRITE (1,20) LNR, (LINE(I),I=1,LL)
20	FORMAT (/'#',I4,':',2X,80A1)
	WRITE (1,30) I,
30	FORMAT (8X,I0)
	CC = 1
200	POS = ERRS(NR,3)
	WHILE (CC<POS)
	  WRITE(1,40) I,
40	FORMAT(' ',I0)
	  CC = CC + 1
	ENDWHILE
	WRITE (1,50) ERRS(NR,1),
50	FORMAT('#',I3)
	NR = NR + 1
	CC = CC + 4
	IF (NR>NERR) GOTO 999
	B = ERRS(NR,2)>LNR
	IF(B) GOTO 100
	GOTO 200
999	CONTINUE
	CALL OOPEN('SYS@','PASCALB3')
	DO 111 I=1,2
	B=DIN(I).EQ.0
	IF(B) DIN(I) = -2016
	B=IREM(DIN(I)/64).EQ.0
	IF(B) DIN(I)=DIN(I)+32
111	CONTINUE
	DO 222 I=1,4
	B= FIN(I).EQ.0
	IF(B) FIN(I) = -2016
	B= IREM(FIN(I)/64).EQ.0
	IF(B) FIN(I)=FIN(I)+32
222	CONTINUE
	WRITE(4,1)(DIN(I),I=1,2),(FIN(I),I=1,4)
1	FORMAT('$JOB EDITING THE FILE'/'.EDIT ',2A2,':',3A2,'.'A2)
	WRITE(4,2)
2	FORMAT('.SU PASCAL.B2/Q/U'/'$END')
	CALL OCLOSE
	WRITE(1,3)
3	FORMAT (///)
	CALL EXIT
	END