$DEBUG PAGELENGTH(55)

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

M$EX$ONE: DO;

/*****************************************************/
/*                                                   */
/* OPERATION:                                        */
/*                                                   */
/*  1. GET INPUT FILE NAME.                          */
/*  2. MAKE A COMMAND TO EXECUTE.                    */
/*      THE COMMAND IS BUILD FROM THE MESSAGE        */
/*      AND THE INPUT FILE NAME.                     */
/*      ("BUILD" COMMANDS WITH ONE OPERAND)          */
/*                                                   */
/*****************************************************/
$NOLIST
$INCLUDE(COMMON.DCL)
$INCLUDE(ISIS.DCL)
$INCLUDE(:F1:ISISIO.DCL)
$INCLUDE(STRING.DCL)
$LIST

GET$FNAME: PROCEDURE(NAME$P,TYPE,WILDCARD,NULLNAME,EXTPNT) EXTERNAL;
   DECLARE
       NAME$P ADDRESS,
       TYPE BYTE,
       WILDCARD BOOLEAN,
       NULLNAME BOOLEAN,
       EXTPNT BOOLEAN;
END GET$FNAME;

DECLARE MSG$FILL$IN(1) BYTE EXTERNAL;
DECLARE MSG$C$LFT(1) BYTE EXTERNAL;

EX$ONE: PROCEDURE (COM$LINE$P,COM$TYPE$P,COMP1$P,MSG1$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS,
      COMP1$P ADDRESS,
      MSG1$P ADDRESS;
   DECLARE
      (COM$LINE BASED COM$LINE$P) STRING,
      (COM$TYPE BASED COM$TYPE$P) BYTE,
      (COMP1 BASED COMP1$P) ADDRESS,
      (MSG1 BASED MSG1$P)(1) BYTE;

   DECLARE
      NAME STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(15) BYTE
         );
   DECLARE
      COMP2 STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(3) BYTE
         ) DATA (2,2,CR,LF,0);
   DECLARE
      CONSOL$LINE$I ADDRESS;
      DECLARE I BYTE;

   CALL MSG$OUT(.MSG$FILL$IN);
   CALL MSG$OUT(.MSG1);
   CALL MSG$OUT(.MSG$C$LFT);
   COM$LINE.L=0;
   CALL APPEND$S(.COM$LINE,.COMP1);
   CALL GET$FNAME(.NAME,1,FALSE,FALSE,FALSE);
   CALL APPEND$S(.COM$LINE,.NAME);
   CALL APPEND$S(.COM$LINE,.COMP2);
   CALL MSG$OUT(.(CLR$SCRN,0));
   COM$TYPE=1;

END EX$ONE;

END M$EX$ONE;