!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	!	
	!	BL:[101,5]FCSEXSUB.B4S
	!	set up error message, error flag, close all and exit current subroutine
	!
	do% = 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
	!
	!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	!
	!	BL:[101,5]FNLOGIT.B4S
	!	open and write to the current log file
	! 
	DEF fn.logit% (the.news$)
	!
	call opena. (".log.file$", .log.chan%)
	call print. (.log.chan%, thenews$)
	call close. (.log.chan%)
	!
	FNEND
	!
	!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	!
	DEF fn.close.all%
	call close.(.list.chan%)
	call close.(.work.chan%)
	!
	FNEND
	!
	!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	!
	!	BL:[101,5]FNENDSUB.B4S
	!
	DEF fn.end.sub%
	do% = fn.close.all%
	SUBEXIT
	!
	FNEND