$DEBUG PAGELENGTH(55)

/*******************/
/*                 */
/*  E X $ H E L P  */
/*                 */
/*******************/

M$EX$HELP: DO;

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

EX$HELP1: 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
      CHAR BYTE;
   DECLARE MSG1(*) BYTE DATA(
      CLR$SCRN,
      '-------------------------------- FILE',
         ' NAMES ------------------------------------',
      LF,
      'ISIS-II file names have the following general format :',CR,LF,
      LF,
      '          :device: name . extension',CR,LF,
      '             ^      ^        ^',CR,LF,
      '             |      |        |______ 1-3 alphanumeric',
         ' characters or wildcards',CR,LF,
      '             |      |',CR,LF,
      '             |      |______ 1-6 alphanumeric',
         ' characters or wildcards',CR,LF,
      '             |',CR,LF,
      '             |_______ 2 alphanumeric characters ( see below )',CR,LF,
      '                       default is :F0:',CR,LF,
      LF,
      '   NOTE - Name and extension are valid for disk files only',CR,LF,
      LF,
      '   WILDCARDS :  *  -  matches any sequence of characters',CR,LF,
      '                ?  -  matches any single character',CR,LF,
      LF,
      '      Not all commands allow the use of wildcards',CR,LF,
      C$HOME,
      C$UP,
      '                                        Type RETURN to continue ',
      0);
   DECLARE MSG2(*) BYTE DATA(
      CLR$SCRN,
      '                        STANDARD DEVICES',CR,LF,
      LF,
      ':F0: - :F9:   Disk drives               ',
         ':VI:   Video terminal keyboard',CR,LF,
      ':CI:   Console input                    ',
         ':VO:   Video terminal output',CR,LF,
      ':CO:   Console output                   ',
         ':LP:   Line printer',CR,LF,
      ':TI:   Serial channel 1 input           ',
         ':BB:   Null input/output',CR,LF,
      ':TO:   Serial channel 1 output          ',
         ':HR:   High-speed paper tape reader',CR,LF,
      ':TP:   Teletype punch                   ',
         ':HP:   High-speed paper tape punch',CR,LF,
      ':TR:   Teletype reader',CR,LF,
      LF,
      '                      NON - STANDARD DEVICES',CR,LF,
      LF,
      ':R1:   Paper tape reader 1              ',
         ':L1:   Line printer 1',CR,LF,
      ':R2:   Paper tape reader 2              ',
         ':I1:   Console type input device',CR,LF,
      ':P1:   Paper tape punch 1               ',
         ':O1:   Console type output device',CR,LF,
      ':P2:   Paper tape punch 2',CR,LF,
      LF,
      '   NOTE - Only some of the devices are available in this system',CR,LF,
      C$HOME,
      C$UP,
      '                                         Type RETURN to continue',
      0);
DECLARE MSG3(*) BYTE DATA(
      CLR$SCRN,
      '     EXAMPLES :',CR,LF,
      LF,
      ':F4:ABC.DE1         Disk file, on disk in drive 4',CR,LF,
      ':CO:                Consol output ( usually screen )',CR,LF,
      '25MAIN.PLM          Disk file, on disk in drive 0',CR,LF,
      ':F1:25*.LST         All files on disk in drive 1, whose names',CR,LF,
      '                     start with ''25'', and extens',
         'ions are ''LST''',CR,LF,
      C$HOME,
      C$UP,
      '                                        Type RETURN to return to menu ',
      0);

   CALL MSG$OUT(.MSG1);
   IF CI=CR
      THEN DO;
         CALL MSG$OUT(.MSG2);
         IF CI=CR
            THEN DO;
               CALL MSG$OUT(.MSG3);
               CHAR=CI;
            END;
      END;
   COM$TYPE=0;
END EX$HELP1;

EX$HELP2: 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
      CHAR BYTE;
   DECLARE MSG1(*) BYTE DATA(
      CLR$SCRN,
      '----------------------------- FILE',
         ' ATTRIBUTES ----------------------------------',
      LF,
      'ISIS-II files have 4 attributes which may be set or reset',
         ' ( on or off ).',CR,LF,
      '   these attributes are:',CR,LF,
      LF,
      '      I - Invisible. Prevents files from',
         ' being listed by the DIR command,',CR,LF,
      '             unless told to do so by the I switch.',CR,LF,
      '      W - Write-protect. Prevents files from',
         ' being modified, deleted , or',CR,LF,
      '             renamed.',CR,LF,
      '      F - Format. Files with the format',
         ' attribute are copied to a new disk,',CR,LF,
      '             when formatted by the IDISK or FORMAT',
         ' command. Also, a file',CR,LF,
      '             with the F attribute is write-protected.',CR,LF,
      '      S - System. Files with the S attribute are',
         ' copied to a new disk when',CR,LF,
      '             you specify the S switch with the FORMAT command.',CR,LF,
      LF,
      LF,
      '   Attributes may be displayed or changed by the ATTRIB command,',CR,LF,
      '      and are also displayed by the DIR command.',CR,LF,
      C$HOME,
      C$UP,
      '                                        Type RETURN to return to menu ',
      0);

   CALL MSG$OUT(.MSG1);
   CHAR=CI;
   COM$TYPE=0;
END EX$HELP2;

END M$EX$HELP;