DIMENSION IPAR(10),IFRMAT(3,19),IB(260)
	COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR
	COMMON LPFR,C1,IFRMAT
      EQUIVALENCE(IDF,IPAR(1) )
53     CONTINUE
	TYPE 1001
1001	FORMAT(1X,'TYPE FILE ID'/)
2     ACCEPT 1000,IDFLE
1000  FORMAT(A5)
      CALL SLECTF(IDFLE)
	LSR=LFR
	NCDR=2
1	READ 400,IVALUE,IDR
400	FORMAT(5X,I7/I5)
	IF(EOFC(NCDR))4,3,3
3	CONTINUE
	IF(IFIND(IDR,1,0))1,1,5
5	CALL READR(IB)
	IB(7)=IVALUE
	CALL DUMP(IB)
	CALL WRITER(IB)
	GO TO 1
4	CALL SAVEF
	CALL EXIT
      END