C	TITLE L O D F M T
C		LOADS FORMAT SPECIFICATIONS
	COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,DATME
	COMMON IFRMAT(3,20)
	DIMENSION IB(260)
	FILE=ANSWER('FILE ID?')
	CALL SLECTF(FILE)
	CALL DMPPAR
	TYPE 100
1	ACCEPT 101,N,IFRMAT(1,N),IFRMAT(2,N),IFRMAT(3,N),IP
101	FORMAT(4I,A5)
	IF(EOFC(5))GO TO 2
	IF(N.GT.NCPR)GO TO 2
	CALL DIO(LFR-NSPR,1,IB,NSPR)
	IB(IFRMAT(1,N))=IP
100	FORMAT(1X,'#CAT,1ST WORD#,LENGTH,MODE,PROMPT'/)
	CALL DIO(LFR-NSPR,0,IB,NSPR)
	IF(N.LT.NCPR)GO TO 1
2	CALL DFINER
	CALL SAVEF
	CALL EXIT
	END