home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / turbopas / pmodem.ark / EQUATES.INC < prev    next >
Text File  |  1987-02-22  |  1KB  |  54 lines
  1. {********** equates.inc **********}
  2.   { constants & initial values }
  3.  
  4. {$C-,U-}
  5.  
  6. type
  7.   fName = string[14];
  8.   Str3  = string[3];
  9.   data  = string[24];
  10.   dataa = string[45];
  11.   data2 = string[80];
  12.   StrStd = string[80];
  13.   StrPr = string[50];
  14.   datab = string[128];
  15.   ldata = string[255];
  16.  
  17. Const
  18.    CR: char = ^M;
  19.    LF: char = ^J;
  20.    ESC: char= ^[;
  21.    BELL: char= ^G;
  22.  
  23.    SOH: char= ^A;
  24.    STX: char= ^B;
  25.    ETX: char= ^C;
  26.    EOT: char= ^D;
  27.    ACK: char= ^F;
  28.    NAK: char= ^U;
  29.    CAN: char= ^X;
  30.  
  31.    CRLF: string[2] = ^M^J;
  32.  
  33.    lps = 1252.0;  {loops per second}
  34.  
  35. var
  36.   I,J,K,L,wait,rate: integer;
  37.   first,OK,filter,do_command,eraseOK: boolean;
  38.   temp1,temp2,temp3,phone_buffer: data;
  39.   logline: dataa;
  40.   sourceName : fName;
  41.   settings,X: char;
  42.   filvar,sourceFile : file;
  43.   cfile : text;
  44.   line: ldata;
  45.   fileName: fName;
  46.  
  47.   duplex: boolean; {not half}
  48.   hiBaud: boolean; {1200, not loBaud (300) }
  49.   slowBaud: boolean; {300 baud true}
  50.   capture: boolean; {on, not off}
  51.   host_mode: boolean; {not normal mode}
  52.   delay_set, autolog, log_on, command_file: boolean;
  53.  
  54.