$DEBUG PAGEWIDTH(80) PAGELENGTH(50)

M$MENU$LANGUAGE$TRANSLATION: DO;

/****************************************************/
/*                                                  */
/*  MODULE NAME -  M$MENU$LANGUAGE$TRANSLATION      */
/*                                                  */
/****************************************************/

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

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

DECLARE (
   MENU$TREE$ROOT,
   MENU$TREE$8085$LANGUAGE,
   MENU$TREE$8086$LANGUAGE,
   MENU$TREE$2920$LANGUAGE
   ) NODE EXTERNAL;

/**** MESSAGE ****/

DECLARE MSG$LANGUAGE$TRANSLATION(*) BYTE DATA(
   'LANGUAGE TRANSLATION - PROCESSOR TYPES :',CR,LF,
   LF,
   '1. 8080 / 8085',
   CR,LF,
   '2. 8086 / 8087 / 8088',
   CR,LF,
   '3. 2920',
   CR,LF,
   
   CR,LF,
   LF,
   0);

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

DECLARE MENU$TREE$LANGUAGE$TRANSLATION NODE PUBLIC DATA(
         .MSG$LANGUAGE$TRANSLATION,
         .MENU$TREE$ROOT,
         3,
         0,0,0,1,1,1,1,1,
         .MENU$TREE$8085$LANGUAGE,
         .MENU$TREE$8086$LANGUAGE,
         .MENU$TREE$2920$LANGUAGE,
         0,
         0,
         0,
         0,
         0
      ) ;



END M$MENU$LANGUAGE$TRANSLATION;