!	FCSERROR.B4S
	!
	DEF fn.fcs.error% (what$, file$)
	IF	err1% = -10% 						&
	THEN	print "Input file completed"				&
\		goto 32000
	IF	err1% <> 0%						&
	THEN	print "FCS error "; err1%; " during "; what$;		&
				 " - file: "; file$			&
\		GOTO 32000
	FNEND
	!