#include	<stdio.h>

static int errchk = 0, errflg = 0;

focaserr (errcode, errmsg, param)

int	errcode;
char	*errmsg;
char	*param;

{
	fprintf (stderr, "ERROR %d: %s%s\n", errcode, errmsg, param);
	errflg = 1;
	if (errchk)
	    return (errcode);
	else
	    exit (errcode);
}

ferpsh () { errchk = 1; errflg = 0; }

ferpop () { errchk = 0; return (errflg); }