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 EXIT
	END