$DEBUG PAGELENGTH(55)

/**********************/
/*                    */
/*  E X $ E X M O N   */
/*                    */
/**********************/

M$EX$EXMON: DO;

$NOLIST
$INCLUDE(COMMON.DCL)
$INCLUDE(ISIS.DCL)
$INCLUDE(:F1:ISISIO.DCL)
$INCLUDE(STRING.DCL)
$LIST

EX$EXMON: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      (COM$LINE BASED COM$LINE$P) STRING,
      (COM$TYPE BASED COM$TYPE$P) BYTE;
   DECLARE
      COMP1 STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(8) BYTE
         ) DATA (7,7,'EXMON',CR,LF,0);

   COM$LINE.L=0;
   CALL APPEND$S(.COM$LINE,.COMP1);
   CALL MSG$OUT(.(CLR$SCRN,0));
   COM$TYPE=1;

END EX$EXMON;

END M$EX$EXMON;