SUB FCSNOB (C%,NOB) ! returns number of bytes in file now&
				! file must be open on C%
	{FCSCOM.B4S}
	CALL C.(C%)
	FDB%=FDBADR%(C%-.ZERO.CNL%)
	FDBEFH%=FDB%+8%
	FDBEFL%=FDBEFH%+2%
	FDBFFB%=FDB%+12%
	CALL WORDAT(FDBEFH%,EFH%)
	CALL WORDAT(FDBEFL%,EFL%)
	CALL WORDAT(FDBFFB%,FFB%)
	EFH=EFH%
	EFL=EFL%
	EF = EFH*65536. + (EFL% AND 32767%)
	IF EFL%<0% THEN EF = EF + 32768.
	EF = EF - 1.
	EF = EF * 512.
	FFB = FFB%
	NOB = EF + FFB
	SUBEND