$DEBUG PAGELENGTH(55)

/**********************/
/*                    */
/*  E X $ Z E R O     */
/*                    */
/**********************/

M$EX$ZERO: DO;

/********************************************************/
/*                                                      */
/* OPERATION:                                           */
/*                                                      */
/*  1. MAKE THOSE COMMANDS TO EXECUTE WHICH HAVE        */
/*      NO OPERANDS.                                    */
/*  2. GET AS INPUT A MESSAGE (THE "COMMAND" IT SELF ). */
/*                                                      */
/********************************************************/

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

EX$ZERO: PROCEDURE (COM$LINE$P,COM$TYPE$P,COMP$P) PUBLIC;
   DECLARE
      COM$LINE$P  ADDRESS,
      COM$TYPE$P  ADDRESS,
      COMP$P ADDRESS;
   DECLARE
      (COM$LINE BASED COM$LINE$P) STRING,
      (COM$TYPE BASED COM$TYPE$P) BYTE;

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

END EX$ZERO;

END M$EX$ZERO;