Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
	INTEGER ANSWER
      DIMENSION IPAR(10),IFRMAT(3,20),IB(260)
	COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR
	COMMON LPFR,C1,IFRMAT
      EQUIVALENCE(IDF,IPAR(1) )
53     CONTINUE
2	IDFLE=ANSWER('FILE ID?')
      CALL SLECTF(IDFLE)
	LSR=LFR
1      READ(5, 400)(IB(I),I=1,6)
400	FORMAT(I,5A5)
	IF(EOFC(5))4,3,3
3	CONTINUE
	CALL INSRTR(IB,1)
	GO TO 1
4	CALL SAVEF
	CALL EXIT
      END