C		T I T L E   UPDTF
C		THIS UTILITY PROGRAM ADDS OR DELETS(EXTRACTS)
C		RECORDS FROM A MASTER FILE. FOR ADDING
C		ONLY ID-IB(1) AND NAME-(IB(2)--IB(6)) ARE INPUT.
C		THE USER IS FREE TO CHANGE  INPUT UNIT (NCDR) AND READ/FORMAT
C		(STATEMENT 20) TO SUIT HIS OWN NEEDS.
	INTEGER ANSWER
      DIMENSION IPAR(10),IFRMT(3,20),IB(260),IB1(260),B(260)
	COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,C1
       COMMON IFRMT
      EQUIVALENCE(IPAR(1),IDF)
      EQUIVALENCE(IB(1),B(1))
      DIMENSION IR(260)
      IDR=0
	TYPE 200
200	FORMAT(1X,'THIS PROGRAM WILL ADD OR EXTRACT SPECIFIED RECORDS FROM
	1 A MASTER FILE.'/' RECORDS ARE ASSUMED TO BE IN FORMAT(I,5A5)'/)
	IDM=ANSWER('MASTER FILE?')
	ID=ANSWER('TEMP FILE?')
	TYPE 205,ID
205	FORMAT(1X,'INPUT MAXR FOR FILE ',A5/)
	ACCEPT 206,MAX1
206	FORMAT(I)
      CALL SLECTF(IDM)
      LSR=LFR
      CALL SAVEF
      CALL DIO(1,1,IPAR,1)
      IF(IFIND(ID,1,0)) 3,4,3
4     CALL SLECTF(IDM)
      NSPR1=NSPR
      NCPR1=NCPR
      CALL DFINEF(ID,NSPR1,MAX1,NCPR1)
      CALL DFINER
3     CALL SLECTF(ID)
	IANS2=ANSWER('SHOULD TEMP FILE BE INITILIZED?')
	IF(IANS2.EQ.'YES')NAVR=LFR
      LSR=LFR
	NCDR=5
	TYPE 500
500	FORMAT(1X,'ENTER RECORD INFORMATION.TYPE <CR> FOR END OF FILE'/)
    2 CONTINUE
      CALL CLEAR(IB)
20    READ(NCDR,100)(IB(K23),K23=1,6)
100   FORMAT(I,5A5)
	IF(EOFC(NCDR))GO TO 10
		IF(IB(1).EQ.0)GO TO 10
	CALL INSRTR(IB,1)
	GO TO 20
  10  CALL SAVEF
130   TYPE 201,ID,IDM
201   FORMAT(15H TO MERGE FILE,,A6,16H, TO MASTER FILE,A6/
     162 H TYPE A 1, TO EXTRACT TEMPORARY FILE FROM MASTERFILE,TYPE A 0,
	2/' TO ABORT JOB TYPE A 2'/)
      ACCEPT202,NTYPE
202   FORMAT(I1)
      IF(NTYPE-1)11,12,131
11    CALL PULLF(IDM,ID,IB)
13    GO TO 130
12    CALL MERGEF(IDM,ID,IB)
      GO TO 13
131	TYPE 207,ID
207	FORMAT(1X,A5,' IS STILL ON THE PACK. TO DELETE IT'/)
	PAUSE
	CALL SLECTF(ID)
	CALL DELETF
	CALL EXIT
	END