!	FNFCSERR.B4S
	!
	DEF fn.fcs.err% (what$, file$)
	IF	err1% = 0%						&
	THEN	fn.fcs.err% = 0%					&
	ELSE	fn.fcs.err% = err1%					&
\		IF	err1% <> -10%	! ie, not e.o.f			&
		THEN	print "FCS error "; err1%; " during "; what$;	&
				 " - file: "; file$
	!
	FNEND
	!