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