interface

{Change log:
30 Apr 89, V1.1: Extracted from KERMUTIL   RTC
}
 
   uses
     {$U kermglob.code} kermglob;
 
   procedure fill_parity_array;
 
   procedure set_parms;
 
   procedure show_parms;
 
   procedure connect;
 
   function read_ch(unitno: integer; var ch: char): boolean;

   procedure read_str(unitno:integer; var s: string255);

   procedure echo(ch: char);

   procedure clear_buf(unitno:integer);

   function aand(x,y: integer): integer;

   function aor(x,y: integer): integer;

   function xor(x,y: integer): integer;

   procedure uppercase(var s: string255);

   procedure error(p: packettype; len: integer);

   procedure io_error(i: integer);

   procedure debugwrite(s: string255);

   procedure debugint(s: string255; i: integer);

   function min(x,y: integer): integer;

   function tochar(ch: char): char;

   function unchar(ch: char): char;

   function ctl(ch: char): char;

   function getch(var r: char): boolean;

   function getsoh: boolean;

   function getfil(filename: string255): boolean;

   procedure send_brk;

   function setup_comm : boolean;        {changed 31 Jul 88, RTC}
 
   procedure flush_comm;                {added 16 Apr 89, RTC}

   procedure write_bool(s: string255; b: boolean);
 
   procedure write_ch(unitno: integer; ch: char );

   procedure writescreen(s: string255);

   procedure refresh_screen(numtry, num: integer);
 
   procedure set_timer(t : integer);    {added 26 Apr 89, RTC}
 
   function timeout : boolean;          {added 26 Apr 89, RTC}
 
   procedure utl_version;

implementation

