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