/***************************************************************************
 *									    
 *			    E x i t   F u n c t i o n			    
 *			    -------------------------			    
 *	Copyright 1982 by Digital Research Inc.  All rights reserved.	    
 *									    
 *	The exit function is called from anywhere to pass control back to   
 *	the CCP from the executing C program.				    
 *	Note that the stream files are closed via '_cleanup()'.		    
 *									    
 *	Calling Sequence:						    
 *									    
 *		exit(code);						    
 *									    
 *	Where:								    
 *		code	Is the exit status (ignored)			    
 *									    
 ****************************************************************************/

#include "portab.h"

VOID	exit(code)				/* CLEAR FUNCTION ***********/
	WORD	code;				/* Exit status		   */
{						/*			   */
	_cleanup();				/* Close all (stream) files*/
	_exit(code);				/* return to O.S.	   */
}						/***************************/