(* Include File **************************************************)
(* System Variables, v. 0600am, wed, 17.Sep.86, Glen Ellis *)

(* begin of SYSTEM.PAS *)

TYPE

(*---> Global Reserved Words <---*)

    (* general purpose *)

    string1    = string[1];
    string2    = string[2];
    string3    = string[3];
    string4    = string[4];
    string5    = string[5];
    string6    = string[6];
    string7    = string[7];
    string8    = string[8];
    string9    = string[9];
    string10   = string[10];
    string11   = string[11];
    string12   = string[12];
    string13   = string[13];
    string14   = string[14];
    string79   = string[79];
    string80   = string[80];
    string127  = string[127];
    string128  = string[128];
    string255  = string[255];

    THEstr     = string255;
    lgc        = boolean;
    nbr        = integer;

    typF       = text;     (* type of file     *)
    typFN      = string14; (* type of filename *)

(*----------------------------------------------------------*)


VAR

   (*---> programmer's control *)

   SysDisplay         : lgc; (* normal running display *)
   SysUserTrace       : lgc; (* extra display for user *)
   SysPgmTrace        : lgc; (* audit developmental for programmer *)
   SysSpcTrace        : lgc; (* special, developmental, testing only *)

   (*---> I/O flags *)

   (* Pascal I/O values                          *)
   SysIOcheck                : lgc ;
   IOval                     : nbr ;
   IOerr                     : lgc ;

   (*---> Control Variables *)

   (* short names are for sending many vars to procedures *)
   (* without line overflow *)

   (* enable keyword search if first 'begin' occurred *)
   SysEnableBegin               : lgc;
   SEB                          : lgc;

   (* enable CORE module if all parameters OK    *)
   SysEnableCore                : lgc;  (* SEC *)
   SEC                          : lgc;

   (* enable write to disk (ex. if not comment ) *)
   SysMarkWrite                 : lgc;  (* SMW *)
   SMW                          : lgc;

   (*---> file handler memvar *)

   SysInFile                      : typF;
   SIFF                           : typF;
   SysOutFile                     : typF;
   SOFF                           : typF;

   SysInFileName                  : string14;
   SIFN                           : string14;
   SysOutFileName                 : string14;
   SOFN                           : string14;

   SysFile0, SysFile1, SysFile2   : string14;


   (*---> file string *)

   SysInStr, SysOutStr         : THEstr   ;
   SISS    , SOSS              : THEstr   ;

   SysInLine, SysOutLine       : THEstr   ;
   SILL     , SOLL             : THEstr   ;

   SysString                   : THEstr;


   (*---> utility *)

   InFile, OutFile             : typF;
   Line, Workline              : THEstr;
   InStr, OutStr               : Thestr;

   str1                           : string1;
   str2                           : string2;
   str3                           : string3;
   str4                           : string4;
   str5                           : string5;
   str6                           : string6;
   str7                           : string7;
   str8                           : string8;
   x,xx,y,yy,z,zz                 : nbr;
   Mark                           : lgc;

   (*---> Operating Variables for Core module *)

   (* required by Sysline.inc and Sysfile.inc modules *)

         SysCmdLine     : lgc;  (* Command Line entry *)
         SCL            : lgc;

         SysCmdFile     : lgc;  (* Command File entry *)
         SCF            : lgc;

         SysCmdUser     : lgc;  (* Command User entry *)
         SCU            : lgc;
         SysCmdUserFile : lgc;
         SysCmdUserParm : lgc;

         SysPgmMod        : string2; (* flag for current development *)
         SPMM             : string2;

         SysPgmModStrL    : string2; (* prefix for comment line *)
         SPMSL            : string2;

         SysPgmModStrR    : string2; (* suffix for comment line *)
         SPMSR            : string2;

         SysPgmType       : string4; (* used by SysParse for SysPgmMod *)
         SPT              : string4;


         SysComment     : lgc;  (* enable include of comment lines *)
           SysCommentNum  : nbr;  (* temp var                        *)
         SysLineCnt     : lgc;  (* enable line numbering module    *)
           SysLineCntNum  : nbr;
           SysLineNum     : nbr;
         SysVertiate    : lgc; (* vertical markers for blank lines *)

         SysCharEntry   : string1; (* gen. purp.entry FETCHER *)

         SysIndent      : lgc;  (* enable indent of source lines *)
         SysIndentNum   : nbr;  (* length of indent group          *)
         SIN            : nbr;

         SysIndentPos   : nbr;  (* indent position current         *)
         SIP            : nbr;

         SysLenMax      : nbr;  (* line length for typF line       *)
         SLM            : nbr;

         (* defaults not covered yet *)

         SysInSource    : array [1..48] of string14;
         SysInSourceCnt : nbr;
         SysInSourceMax : nbr;

         (* required for KEYWORD.INC *)
         (* not all used in any one application *)
         (* rename these if need be  *)

         SyslevelIF     : nbr;
         SLI            : nbr;

         SyslevelCASE   : nbr;
         SLC            : nbr;

         SyslevelWHILE  : nbr;
         SLW            : nbr;

         SysLevelBEGIN  : nbr;
         SLB            : nbr;

         SysLevelREPEAT : nbr;
         SLR            : nbr;


(* end of SYS.VAR *)

(************************************************************************)

(*:B:0*)