$DEBUG PAGELENGTH(50)

/***********************/
/*                     */
/*  M E N U $ E X I T  */
/*                     */
/***********************/

/**********************************/
/*                                */
/*  EXIT MENU PROGRAM TO ISIS-II  */
/*                                */
/*  LAST UPDATED - 26.5.82        */
/*                                */
/**********************************/

M$MENU$EXIT:DO;

$NOLIST
$INCLUDE (COMMON.DCL)
$INCLUDE (ISIS.DCL)
$INCLUDE (MDSIO.DCL)
$INCLUDE(:F1:ISISIO.DCL)
$LIST

MENU$EXIT: PROCEDURE PUBLIC;
   DECLARE MSG1(*) BYTE DATA(
      CLR$SCRN,
      ' MENU PROGRAM, EXIT TO ISIS-II',CR,LF,
      0);

   CALL MSG$OUT(.MSG1);
   DISABLE;
   OUTPUT(INT$CNTL$MASK)=INPUT(INT$CNTL$MASK) OR 0100$0000B;
   ENABLE;
   CALL EXIT;

END MENU$EXIT;

END M$MENU$EXIT;