/*****************************************************************************

	TAbort()

	This function cleans up and terminates TECO-C.

*****************************************************************************/

#include "zport.h"		/* define portability identifiers */
#include "tecoc.h"		/* define general identifiers */


VVOID TAbort(tstat)		/* terminate TECO-C */
DEFAULT tstat;
{
	DBGFEN(2,"TAbort",NULL);

	ClenUp();			/* close files, memory, etc. */
	ZExit(tstat);			/* terminate with given status */
}
