$DEBUG PAGEWIDTH(80) PAGELENGTH(50)

M$MENU$COMMUNICATION: DO;

/*******************/
/*                 */
/*  COMMUNICATION  */
/*                 */
/*******************/

$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$NOVA: PROCEDURE EXTERNAL;
END;

EX$XMT: PROCEDURE EXTERNAL;
END;

EX$EXMON: PROCEDURE EXTERNAL;
END;

EX$BAUD: PROCEDURE EXTERNAL;
END;

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

DECLARE (
   MENU$TREE$ROOT
   ) NODE EXTERNAL;

/**** MESSAGE ****/

DECLARE MSG$COMMUNICATION(*) BYTE DATA(
   'COMMUNICATION :',CR,LF,
   LF,
   '1. NOVA terminal simulation and file transfer',
   CR,LF,
   '2. General - purpose terminal simulation and file transfer ( XMT )',
   CR,LF,
   '3. General - purpose terminal simulation and file transfer ( EXMON )',
   CR,LF,
   '4. Set baud rate',
   CR,LF,
   LF,
   0);

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

DECLARE MENU$TREE$COMMUNICATION NODE PUBLIC DATA(
         .MSG$COMMUNICATION,
         .MENU$TREE$ROOT,
         4,
         1,1,1,1,1,1,1,1,
         .EX$NOVA,
         .EX$XMT,
         .EX$EXMON,
         .EX$BAUD,
         0,
         0,
         0,
         0
      ) ;



END M$MENU$COMMUNICATION;