Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
C	TITLE   T Y P E F
C		TYPES SELECTED RECORDS IN FREE FORMAT
      DIMENSION IB(260),B(260),IFRMAT(3,20),IR(260),IPAR(10)
      DIMENSION INDEX(8),IVALUE(8),IF(8),IPRINT(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,'INDEX,VALUE,-1 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 DUMPT(IB)
 10   CONTINUE
2	CONTINUE
	IF(ANSWER('CONTINUE?').EQ.'YES')GO TO 1
 13   CALL EXIT
      END