$DEBUG PAGEWIDTH(80) PAGELENGTH(50)

M$MENU$SYSTEM$MANAGEMENT: DO;

/***********************/
/*                     */
/*  SYSTEM MANAGEMENT  */
/*                     */
/***********************/

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

EX$FORMAT: PROCEDURE EXTERNAL;
END;

EX$DCOPY: PROCEDURE EXTERNAL;
END;

EX$HDCOPY: PROCEDURE EXTERNAL;
END;

EX$HDBACK: PROCEDURE EXTERNAL;
END;

EX$FIXMAP: PROCEDURE EXTERNAL;
END;

EX$VERS: PROCEDURE EXTERNAL;
END;

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

DECLARE (
   MENU$TREE$ROOT,
   MENU$TREE$FILE$LISTING
   ) NODE EXTERNAL;

/**** MESSAGE ****/

DECLARE MSG$SYSTEM$MANAGEMENT(*) BYTE DATA(
   'SYSTEM MANAGEMANT :',CR,LF,
   LF,
   '1. Format a system / non-system disk    ',
   '5. Back-up a hard disk on floppy disks',CR,LF,
   '2. Format a new disk and copy files     ',
   '6. Map bad sectors on hard disk',CR,LF,
   '3. Copy a whole floppy disk to another  ',
   '7. Display program version number',CR,LF,
   '4. Copy a whole hard disk to another    ',
   CR,LF,
   LF,
   0);

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

DECLARE MENU$TREE$SYSTEM$MANAGEMENT NODE PUBLIC DATA(
         .MSG$SYSTEM$MANAGEMENT,
         .MENU$TREE$ROOT,
         7,
         1,1,1,1,1,1,1,1,
         .EX$IDISK,
         .EX$FORMAT,
         .EX$DCOPY,
         .EX$HDCOPY,
         .EX$HDBACK,
         .EX$FIXMAP,
         .EX$VERS,
         0
      ) ;



END M$MENU$SYSTEM$MANAGEMENT;