$DEBUG PAGEWIDTH(80) PAGELENGTH(50)

M$MENU$8086$LANGUAGE: DO;

/*******************/
/*                 */
/*  8086 LANGUAGE  */
/*                 */
/*******************/

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

EX$PLM86: PROCEDURE EXTERNAL;
END;

EX$FORT86: PROCEDURE EXTERNAL;
END;

EX$PASC86: PROCEDURE EXTERNAL;
END;

EX$CONV86: PROCEDURE EXTERNAL;
END;

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

DECLARE (
   MENU$TREE$LANGUAGE$TRANSLATION
   ) NODE EXTERNAL;

/**** MESSAGE ****/

DECLARE MSG$8086$LANGUAGE(*) BYTE DATA(
   '8086 / 8087 / 8088  LANGUAGE TRANSLATION :',CR,LF,
   LF,
   '1. Assembly language ( ASM-86 )         ',
   '4. Pascal-86',CR,LF,
   '2. PL/M-86                              ',
   '5. Convert ASM-80 to ASM-86',CR,LF,
   '3. FORTRAN-86',
   CR,LF,
   
   CR,LF,
   LF,
   0);

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

DECLARE MENU$TREE$8086$LANGUAGE NODE PUBLIC DATA(
         .MSG$8086$LANGUAGE,
         .MENU$TREE$LANGUAGE$TRANSLATION,
         5,
         1,1,1,1,1,1,1,1,
         .EX$ASM86,
         .EX$PLM86,
         .EX$FORT86,
         .EX$PASC86,
         .EX$CONV86,
         0,
         0,
         0
      ) ;



END M$MENU$8086$LANGUAGE;