home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / ucsdpecan.zip / intfutil.text < prev    next >
Text File  |  1990-08-05  |  2KB  |  78 lines
  1. interface
  2.  
  3. {Change log:
  4. 30 Apr 89, V1.1: Extracted from KERMUTIL   RTC
  5. }
  6.  
  7.    uses
  8.      {$U kermglob.code} kermglob;
  9.  
  10.    procedure fill_parity_array;
  11.  
  12.    procedure set_parms;
  13.  
  14.    procedure show_parms;
  15.  
  16.    procedure connect;
  17.  
  18.    function read_ch(unitno: integer; var ch: char): boolean;
  19.  
  20.    procedure read_str(unitno:integer; var s: string255);
  21.  
  22.    procedure echo(ch: char);
  23.  
  24.    procedure clear_buf(unitno:integer);
  25.  
  26.    function aand(x,y: integer): integer;
  27.  
  28.    function aor(x,y: integer): integer;
  29.  
  30.    function xor(x,y: integer): integer;
  31.  
  32.    procedure uppercase(var s: string255);
  33.  
  34.    procedure error(p: packettype; len: integer);
  35.  
  36.    procedure io_error(i: integer);
  37.  
  38.    procedure debugwrite(s: string255);
  39.  
  40.    procedure debugint(s: string255; i: integer);
  41.  
  42.    function min(x,y: integer): integer;
  43.  
  44.    function tochar(ch: char): char;
  45.  
  46.    function unchar(ch: char): char;
  47.  
  48.    function ctl(ch: char): char;
  49.  
  50.    function getch(var r: char): boolean;
  51.  
  52.    function getsoh: boolean;
  53.  
  54.    function getfil(filename: string255): boolean;
  55.  
  56.    procedure send_brk;
  57.  
  58.    function setup_comm : boolean;        {changed 31 Jul 88, RTC}
  59.  
  60.    procedure flush_comm;                {added 16 Apr 89, RTC}
  61.  
  62.    procedure write_bool(s: string255; b: boolean);
  63.  
  64.    procedure write_ch(unitno: integer; ch: char );
  65.  
  66.    procedure writescreen(s: string255);
  67.  
  68.    procedure refresh_screen(numtry, num: integer);
  69.  
  70.    procedure set_timer(t : integer);    {added 26 Apr 89, RTC}
  71.  
  72.    function timeout : boolean;          {added 26 Apr 89, RTC}
  73.  
  74.    procedure utl_version;
  75.  
  76. implementation
  77.  
  78.