$DEBUG PAGELENGTH(55)

/**********************/
/*                    */
/*  E X $ F L H       */
/*                    */
/**********************/

M$EX$FLH: DO;

/************************************************/
/*                                              */
/*  THE MESSAGES AND CREATING FILES FOR THE     */
/*     FEW FILE HANDLING COMMANDS AS:           */
/*     CREDIT,LIST,LAST AND PR703.              */
/*                                              */
/************************************************/

$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;

EX$ONE: PROCEDURE (COM$LINE$P,COM$TYPE$P,COMP1$P,MSG1$P) EXTERNAL;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS,
      COMP1$P ADDRESS,
      MSG1$P ADDRESS;
END EX$ONE;

EX$CREDIT: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP1 STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(8) BYTE
         ) DATA (7,7,'CREDIT ',0);
   DECLARE MSG1(*) BYTE DATA(
      LF,
      '       --- EDIT FILE ---',CR,LF,
      '          SOURCE FILE',CR,LF,
      '         ..............',
      0);

CALL EX$ONE(COM$LINE$P,COM$TYPE$P,.COMP1,.MSG1);

END EX$CREDIT;

EX$LIST: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP1 STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(6) BYTE
         ) DATA (5,5,'LIST ',0);
   DECLARE MSG1(*) BYTE DATA(
      LF,
      '          --- LIST FILE ---',CR,LF,
      '           ..............',
      0);

CALL EX$ONE(COM$LINE$P,COM$TYPE$P,.COMP1,.MSG1);

END EX$LIST;

EX$LAST: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP1 STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(6) BYTE
         ) DATA (5,5,'LAST ',0);
   DECLARE MSG1(*) BYTE DATA(
      LF,
      '  --- DISPLAY LAST LINES OF FILE ---',CR,LF,
      '            ..............',
      0);

CALL EX$ONE(COM$LINE$P,COM$TYPE$P,.COMP1,.MSG1);

END EX$LAST;

EX$PR703: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP1 STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(7) BYTE
         ) DATA (6,6,'PR703 ',0);
   DECLARE MSG1(*) BYTE DATA(
      LF,
      '        PRINT FILE',CR,LF,
      '      ..............',
      0);

CALL EX$ONE(COM$LINE$P,COM$TYPE$P,.COMP1,.MSG1);

END EX$PR703;

END M$EX$FLH;