$DEBUG PAGEWIDTH(80) PAGELENGTH(50)

M$MENU$HELP: DO;

/**********/
/*        */
/*  HELP  */
/*        */
/**********/

$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 ****/

EX$HELP1: PROCEDURE EXTERNAL;
END;

EX$HELP2: PROCEDURE EXTERNAL;
END;

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

DECLARE (
   MENU$TREE$ROOT
   ) NODE EXTERNAL;

/**** MESSAGE ****/

DECLARE MSG$HELP(*) BYTE DATA(
   'HELP :',CR,LF,
   LF,
   '1. File names',
   CR,LF,
   '2. File attributes',
   CR,LF,
   
   CR,LF,
   
   CR,LF,
   LF,
   0);

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

DECLARE MENU$TREE$HELP NODE PUBLIC DATA(
         .MSG$HELP,
         .MENU$TREE$ROOT,
         4,
         1,1,1,1,1,1,1,1,
         .EX$HELP1,
         .EX$HELP2,
         0,
         0,
         0,
         0,
         0,
         0
      ) ;



END M$MENU$HELP;