C	TITLE  F I X F L
C		DELETS N RECORDS STARTING WITH A SPECIFIED RECORD
      DIMENSION IB(500),B(500),IPAR(10),IFRMAT(3,20),IR(500),LIST(19)
	COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,C1,C2
      EQUIVALENCE (IB(1),B(1)),(IPAR(1),IDF),(IB(1),IR(1))
      COMMON IFRMAT
	TYPE 200
200	FORMAT(1X,'INPUT FILE ID'/)
      ACCEPT100,IDFILE
 100  FORMAT(A5)
      	TYPE 201
201	FORMAT(1X,'INPUT RECORD ID TO DELETE AND NUMBER OF RECORDS'/)
	TYPE 202
202	FORMAT(1X,'TO DELETE FOLLOWING IT(INCLUDING FIRST ONE)'/)

	ACCEPT 300,IDS1,N
300	FORMAT(2I)
      CALL SLECTF(IDFILE)
      LSR=LFR
      IF(IFIND(IDS1,0,0))1,2,1
 2    TYPE102
 102  FORMAT(9HNOT FOUND)
      GO TO 50
 1    LST=LSR+(N-1)*NSPR
      DO3K2=LSR,LST,NSPR
      CALL READR(IB)
      TYPE 103,IB(1)
 103  FORMAT(1X,I10)
 3    CALL RIGHT(1)
      PAUSE
      CALL SHRNKF(IB,N)
      CALL SAVEF
 50   CALL EXIT
	END