Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
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