{********** equates.inc **********}
  { constants & initial values }

{$C-,U-}

type
  fName = string[14];
  Str3  = string[3];
  data  = string[24];
  dataa = string[45];
  data2 = string[80];
  StrStd = string[80];
  StrPr = string[50];
  datab = string[128];
  ldata = string[255];

Const
   CR: char = ^M;
   LF: char = ^J;
   ESC: char= ^[;
   BELL: char= ^G;

   SOH: char= ^A;
   STX: char= ^B;
   ETX: char= ^C;
   EOT: char= ^D;
   ACK: char= ^F;
   NAK: char= ^U;
   CAN: char= ^X;

   CRLF: string[2] = ^M^J;

   lps = 1252.0;  {loops per second}

var
  I,J,K,L,wait,rate: integer;
  first,OK,filter,do_command,eraseOK: boolean;
  temp1,temp2,temp3,phone_buffer: data;
  logline: dataa;
  sourceName : fName;
  settings,X: char;
  filvar,sourceFile : file;
  cfile : text;
  line: ldata;
  fileName: fName;

  duplex: boolean; {not half}
  hiBaud: boolean; {1200, not loBaud (300) }
  slowBaud: boolean; {300 baud true}
  capture: boolean; {on, not off}
  host_mode: boolean; {not normal mode}
  delay_set, autolog, log_on, command_file: boolean;