Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
C TITLE D U M P F
C DUMPS SELECTED RECORDS IN A FILE
SELECTIVE LISTING PROGRAM
DIMENSION IB(260),B(260),IFRMAT(3,20),IR(260),IPAR(10)
DIMENSION INDEX(8),IVALUE(8),IF(8),IPRINT(8)
DIMENSION ITOT(8) ,NT(8)
COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPTR,C1
COMMON IFRMAT
EQUIVALENCE (IB(1),B(1)),(IPAR(1),IDF),(IB(1),IR(1))
1 TYPE 503
503 FORMAT(1X,'INPUT FILE ID'/)
ACCEPT100,IDFILE
100 FORMAT(A5)
CALL SLECTF (IDFILE)
TYPE 501
501 FORMAT(1X,'INPUT NUMBER OF WORDS TO SELECT ON AND LOGIC'/)
ACCEPT101,N,LOGIC
101 FORMAT(2I)
TYPE 502
502 FORMAT(1X,'WORD INDEX,VALUE,-1 OR 0 OR 1'/)
ACCEPT102,(INDEX(I),IVALUE(I),IF(I),I=1,N)
102 FORMAT(3I)
LR=NAVR-NSPR
IF(LR.LE.LFR)GO TO 2
DO10LSR=LFR,LR,NSPR
IF(IGETR(IR,N,INDEX,IVALUE,IF,LOGIC))10,10,14
14 CALL DUMP(IB)
10 CONTINUE
2 CONTINUE
IF(ANSWER('CONTINUE?').EQ.'YES')GO TO 1
CALL EXIT
END