$DEBUG PAGEWIDTH(80) PAGELENGTH(50)

M$MENU$TREE$ROOT: DO;

/*********************************/
/*                               */
/*  M E N U $ T R E E $ R O O T  */
/*                               */
/*********************************/

$NOLIST
$INCLUDE(COMMON.DCL)
$LIST

/**** TREE NODE TYPE DECLARATION ****/

DECLARE NODE LITERALLY 'STRUCTURE(
      MSG$P ADDRESS,
      PARENT$P ADDRESS,
      N$SONS BYTE,
      SONS$TYPE(8) BYTE,
      SONS$P(8) ADDRESS
   )';

/**** EXTERNAL EXEC PROCEDURES ****/

MENU$EXIT: PROCEDURE EXTERNAL;
   /* EXIT TO ISIS-II */
END MENU$EXIT;

/**** EXTERNAL TREE NODES ****/

DECLARE (
   MENU$TREE$FILE$HANDLING,
   MENU$TREE$LANGUAGE$TRANSLATION,
   MENU$TREE$OBJECT$FILE$HANDLING,
   MENU$TREE$EMULATION,
   MENU$TREE$COMMUNICATION,
   MENU$TREE$SYSTEM$MANAGEMENT,
   MENU$TREE$HELP
   ) NODE EXTERNAL;

/**** MESSAGE ****/

DECLARE MSG$ROOT(*) BYTE DATA(
   'MENU CHOICES :',CR,LF,
   LF,
   '1. General file handling                ',
   '5. Communication',CR,LF,
   '2. Language translation                 ',
   '6. System management',CR,LF,
   '3. Object file handling                 ',
   '7. Help',CR,LF,
   '4. Emulation / Simulation               ',
   '8. Exit to ISIS-II operating system',CR,LF,
   LF,
   0);

/**** TREE NODE ****/

DECLARE MENU$TREE$ROOT NODE PUBLIC DATA(
         .MSG$ROOT,
         0,
         8,
         0,0,0,0,0,0,0,1,
         .MENU$TREE$FILE$HANDLING,
         .MENU$TREE$LANGUAGE$TRANSLATION,
         .MENU$TREE$OBJECT$FILE$HANDLING,
         .MENU$TREE$EMULATION,
         .MENU$TREE$COMMUNICATION,
         .MENU$TREE$SYSTEM$MANAGEMENT,
         .MENU$TREE$HELP,
         .MENU$EXIT
      ) ;



END M$MENU$TREE$ROOT;