*
*
************************************************************************
************************************************************************
*
*
	SUBROUTINE FINISH
*
*	AST DELIVERY ROUTINE FOR TERMINATION MAILBOX
*
************************************************************************
*
	IMPLICIT INTEGER(A-Z)
*
	INTEGER*2 EXITMSG(100)
	INTEGER*2 IOSTATUS(4)
	INTEGER*2 MSG$_DELPROC /'3'X/
	COMMON PIDADR
	COMMON IOSTATUS
	COMMON EXITMSG
	EXTERNAL SS$_NORMAL
*
*
	T1 = %LOC(SS$_NORMAL)
	IF(IOSTATUS(1).NE.T1) CALL LIB$SIGNAL(%VAL(IOSTATUS(1)))
*
*	TYPE *,EXITMSG(1),EXITMSG(2),EXITMSG(3)
*	IF (EXITMSG(1).NE.MSG$_DELPROC) THEN
*		TYPE *,'NOT A TERMINATION MAILBOX'
*	ENDIF
*
*	IF (IOSTATUS(2).NE.PIDADR) THEN
*		TYPE *,'NOT MY PID'
*		GO TO 100
*
*	ELSE
		WRITE (*,10)
 10		FORMAT (1X,'BOOST>EXIT NORMAL')
*	ENDIF
*
 100	CALL EXIT
	END