
unit kermutil;

{ Change log:
30 Apr 89, V1.1: Created Fake version of KERMUTIL   RTC
}
 
$I intfutil.text

procedure fill_parity_array;
  begin end; (* fill_parity_array *)

procedure write_bool{s: string255; b: boolean};
  begin end; (* write_bool *)

procedure show_parms;
  begin end; (* show_sym *)

procedure set_parms;
  begin end; (* set_parms *)

procedure connect;
  begin (* connect *) end; (* connect *)

procedure uppercase(*var s: string255*);
  begin end; (* uppercase *)

function read_ch(*unitno:integer; var ch: char): boolean*);
  begin end; (* read_ch *)

procedure write_ch(*unitno: integer; ch: char*);
  begin end;

procedure read_str(*unitno:integer; var s: string255*);
  begin end; (* read_str *)

procedure clear_buf(*unitno:integer*);
  begin end;
 
procedure send_brk;
  begin end;

function setup_comm{ : boolean};
  begin end;
 
procedure flush_comm;                {added 16 Apr 89, RTC}
  begin {flush_comm} end {flush_comm};

function aand(*x,y: integer): integer*);
  begin end; (* aand *)

function aor(*x,y: integer): integer*);
  begin end; (* aor *)

function xor(*x,y: integer): integer*);
  begin end; (* xor *)

procedure error(*p: packettype; len: integer*);
  begin end; (* error *)

procedure io_error(*i: integer*);
  begin end; (* io_error *)

procedure debugwrite(*s: string255*);
  begin end; (* debugwrite *)

procedure debugint(*s: string255; i: integer*);
  begin end; (* debugint *)

function min(*x,y: integer): integer*);
  begin end; (* min *)

function tochar(*ch: char): char*);
  begin end; (* tochar *)

function unchar(*ch: char): char*);
  begin end; (* unchar *)

function ctl(*ch: char): char*);
  begin end; (* ctl *)

procedure echo(*ch: char*);
  begin end; (* echo *)

function getch(*var r: char): boolean*);
  begin end; (* getch *)

function getsoh(*: boolean*);
  begin end; (* getsoh *)

function getfil(*filename: string255): boolean*);
  begin end; (* getfil *)

procedure writescreen(*s: string255*);
  begin end; (* writescreen *)

procedure refresh_screen(*numtry, num: integer*);
  begin end; (* refresh_screen *)

procedure set_timer{t : integer};    {added 26 Apr 89, RTC}
  begin {set_timer} end {set_timer};

function timeout {: boolean};        {added 26 Apr 89, RTC}
  begin {timeout} end {timeout};

procedure utl_version;
  begin end {utl_version};

begin { body of unit kermutil }
   { initialization code }
   ***;
   { termination code }
end. { fakeutil }
