Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
DIMENSION IPAR(10),IFRMAT(3,19),IB(260)
COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR
COMMON LPFR,C1,IFRMAT
EQUIVALENCE(IDF,IPAR(1) )
53 CONTINUE
TYPE 1001
1001 FORMAT(1X,'TYPE FILE ID'/)
2 ACCEPT 1000,IDFLE
1000 FORMAT(A5)
CALL SLECTF(IDFLE)
LSR=LFR
NCDR=2
1 READ 400,IVALUE,IDR
400 FORMAT(5X,I7/I5)
IF(EOFC(NCDR))4,3,3
3 CONTINUE
IF(IFIND(IDR,1,0))1,1,5
5 CALL READR(IB)
IB(7)=IVALUE
CALL DUMP(IB)
CALL WRITER(IB)
GO TO 1
4 CALL SAVEF
CALL EXIT
END