	SUBROUTINE CALC_EXIT
*******************************************************************************
* 
*    UNIT NAME:  CALC_EXIT
* 
*    PURPOSE:  PROCESS "/EXIT" COMMAND
* 
*    INVOCATION METHOD:
* 	CALL CALC_EXIT
* 
*    ARGUMENT LIST:  NONE
* 
*    MODULES CALLED:
*      NAME           PURPOSE
*    -------------    --------------------------------------
*    CALC_SAVE        TO SAVE SYMBOL TABLE
*    CLI$PRESENT      TO GET "/SAVE" QUALIFIER FROM COMMAND LINE
* 
*    DEVELOPMENT HISTORY:
*      AUTHOR	            DATE  	COMMENTS
*    D. FITZGERALD         4/14/83        
* 
*******************************************************************************
*
*		SPECIFICATIONS
*
	INTEGER CLI$PRESENT
*
*		CODE SECTION
*
	IF (CLI$PRESENT('SAVE')) THEN
	    CALL CALC_SAVE
	ENDIF
	CALL EXIT
	END
