!	print error message and exit current function
	!
	DEF fn.fcs.err.setup.exit% (arg1$, arg2$, arg3$)
	status% = fn.fcs.err.msg%(arg1$, arg2$, arg3$)
	IF	status%							&
	THEN	print err.msg$;						&
\		print chr$(7%)						&
\		SLEEP 4%						&
\		do% = fn.close.all%
	!
	fn.fcs.err.setup.exit% = status%
	!
	FNEND