DIMENSIONIB(260),NAME(5) COMMON IPAR(10),IFRMAT(3,20) TYPE 100 100 FORMAT(1X,'INPUT FILE ID'/) ACCEPT 101,IDF 101 FORMAT(A5) CALL SLECTF(IDF) 2 READ 200,IDR,NAME 200 FORMAT(I10,5A5) IF(EOFC(2))GO TO 5 IF(IFIND(IDR,1,0).EQ.0)GO TO 6 CALL READR(IB) DO 1 I=1,5 IB(I+1)=NAME(I) 1 CONTINUE CALL DUMP(IB) CALL WRITER(IB) GO TO 2 5 CALL SAVEF CALL EXIT 6 TYPE 105,IDR 105 FORMAT(1X,I10,' NOT IN FILE'/) GO TO 2 END