SUB FCSNOR (C%,NOR) ! returns number of records in file now&
				! file must be open on C%
	{FCSCOM.B4S}
	CALL C.(C%)
	FDB%=FDBADR%(C%-.ZERO.CNL%)
	FDBRSZ% = FDB% + 2%
	CALL WORDAT(FDBRSZ%,RSZ%)
	RSZ=RSZ%
	CALL FCSNOB (C%,NOB)
	NOR = NOB / RSZ
	SUBEND