Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
C TITLE N H B O R
C TYPES SECTOR NUMBER, ID AND NAME OR RECORDS
C WITHIN A NEIGHBORHOOD OF A GIVEN RECORD.
COMMON IPAR(10),IFRMAT(3,20)
DIMENSION IB(260)
FILE=ANSWER('FILE?')
2 IDR=NANSWR('RECORD ID?')
CALL SLECTF(FILE)
IF(IFIND(IDR,1,0).NE.0)GO TO 4
IF(IFIND(IDR,0,0).EQ.0)GO TO 3
4 CALL LEFT(5)
DO 1 I=1,10
CALL READR(IB)
TYPE 200,LSR,(IB(J),J=1,6)
200 FORMAT(1X,I6,I10,1X,5A5)
1 CALL RIGHT(1)
GO TO 2
3 TYPE 100
100 FORMAT(1X,'NOT IN FILE')
GO TO 2
END