C	TITLE  D L T 2 N D
C     GET RID OF SECOND OF TWO CONSECUTIVE RECORDS WITH SAME ID
      DIMENSION IB(260),B(260),IPAR(10),IFRMAT(3,20)
	COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,C1
      COMMON IFRMAT
      EQUIVALENCE (IB(1),B(1)),(IPAR(1),IDF)
	TYPE 100
100	FORMAT(1X,'THIS PROGRAM DELETES THE SECOND RECORD OF TWO WITH
',
	1/' IDENTICAL ID NUMBERS'/1X,'TYPE FILE ID'/)
	ACCEPT 105,IDFILE
105	FORMAT(A5)
      CALL SLECTF(IDFILE)
	TYPE 106
106	FORMAT(1X,'INPUT  ID # FROM TTY ^Z WHEN THROUGH'/)
6     READ(5, 101)IDR
101   FORMAT(I)
	IF(EOFC(5))GO TO 7
	LSR=LFR
      IF(IFIND(IDR,0,0)) 2,3,2
2     LSR=LSR+NSPR
      CALL READR(IB)
      IF(IDR-IB(1)) 4,5,4
5     CALL DELETR(IDR,IB)
8	GO TO 6
 7    CALL SAVEF
      CALL EXIT
3     TYPE 200,IDR
200   FORMAT(I10,11HNOT ON DISK)
      GO TO 8
4     TYPE 201,IDR
201   FORMAT(1X,6HSECOND,1X,I10,1X,11HNOT ON DISK)
      GO TO 8
      END