!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	!	
	!	BL:[101,5]FCSEXSUB.B4S
	!	set up error message, error flag, close all and exit current subroutine
	!
	DEF fn.fcs.err.exit% (what$, fi.le$, where$)
	!
	IF	err1% = .false%						&
	THEN	fn.fcs.err.exit% = .false%				&
	ELSE	fn.fcs.err.exit% = err1%				&
\		IF	err1% <> -10%	! ie, not e.o.f			&
		THEN	modtitle$ = ""					&
\			modtitle$ = "module: " IF module$ > modtitle$	&
\			err.msg$ = CR + LF + "FCS error " +		&
					num1$(err1%) +			&
					" during " + what$ + 		&
					" - file: " + file$ + 		&
				 	CR + LF + modtitle$ + module$	&
\			err% = .true%					&
\			do% = fn.logit% (err.msg$)			&
\			print err.msg IF batch% = .false%		&
\			do% = fn.end.sub%
	!
	FNEND
	!