home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / norskdata / ndkvar.pas < prev   
Pascal/Delphi Source File  |  2020-01-01  |  4KB  |  73 lines
  1. (* tab p ; *)
  2. VAR
  3.  
  4. (* Miscellaneous scratch variables: *)
  5.     SeqNo           :   integer;
  6.     PackType        :   PacketType;
  7.     ScrPacket       :   Packet;
  8.     PackLen         :   integer;
  9.     ch              :   char;
  10.     Status          :   integer;            (* Return status from RESRV,RELES *)
  11.  
  12. (* various status info:     *)
  13.     SendPSize       :   integer;    (* Packet size he wants *)
  14.     TimeOut         :   integer;    (* Time-out he wants *)
  15.     SendTimeOut     :   integer;    (* If set beforehand *)
  16.     RcvTimeOut      :   integer;    (* If set beforehand *)
  17.     STSet,RTSet     :   boolean;    (* Has any Time-out been set manually? *)
  18.     Delay           :   integer;    (* Delay before sending *)
  19.  
  20.  
  21.     NPad            :   integer;    (* Number of padding-characters he wants *)
  22.     PadChar         :   char;       (* The padding character he wants *)
  23.     Eol             :   char;       (* The EOL he wants *)
  24.     Quote           :   char;       (* The Quote char he wants *)
  25.     Bit8Quote       :   char;       (* 8-bit Quote character to be used *)
  26.     Use8Quote       :   boolean;    (* Is 8-bit quoting in use? *)
  27.     HasSw8Off       :   boolean;    (* Has it been switched off? *)
  28.  
  29.     CurrState       :   KermitStates;       (* This is the current state of Kermit *)
  30.  
  31.     Idev,Odev       :   integer;    (* Devices to use for packet transmission *)
  32.     LocalKermit     :   boolean;    (* TRUE if not transmitting by terminal *)
  33.     DisableTimOut   :   boolean;    (* TRUE if timeout is disabled *)
  34.  
  35.     FileWarning     :   boolean;    (* Avoid overwriting existing file if TRUE *)
  36.  
  37.     Debug           :   boolean;    (* Debug output off/on *)
  38.             (* if Debug then assert(DbgConnected) *)
  39.     DbgOut          :   text;       (* Files for debug output *)
  40.     DbgConnected    :   boolean;    (* Debug file is connected *)
  41.  
  42.     InFile,OutFile  :   ByteFile;   (* Files to receive,send *)
  43.  
  44.     N               :   Integer;    (* Current packet sequence number *)
  45.     OldTry,NumTry   :   Integer;    (* Packet retry counts  *)
  46.     MaxTry          :   Integer;    (* Retry limit before giving up *)
  47.  
  48.  
  49. (* Should have been constants, initialized ONCE by InitializeKermit: *)
  50.     SOH             :   char;               (* Start of header = CHR(1) *)
  51.     LegalPackets    :   set of char;        (* valid packet types *)
  52.     CtlMapping,                             (* Control character mapping *)
  53.     OkQuote,                                (* valid control quotes *)
  54.     Ok8Quote        :   set of char;        (* valid 8-bit-quote characters *)
  55.  
  56. (* For command handler: *)
  57.     VocabTable  :   packed array(. VocabType .) of WordType;
  58.     
  59. (* For statistics: *)
  60.  
  61.     NChFile,        (* Number of characters read/written from/to file   *)
  62.     NChSent,        (* Number of actual characters transmitted          *)
  63.     NChRcvd,        (* Number of actual characters received             *)
  64.     StartTime,      (* Time when transaction began                      *)
  65.     StopTime,       (* Time when transaction ended                      *)
  66.     StartCpTime,    (* Cpu time used at beginning of transact.          *)
  67.     StopCpTime      (* Cpu time used at end of transact.                *)
  68.         :   longint;
  69.     DidRcv,         (* Send or receive was last?                        *)
  70.     HasDone         (* A transaction has been done, and above data is valid *)
  71.         :   boolean;
  72. 
  73.