(* Tab p; *)
function   inbt (dev      : integer): char; extern;
procedure  outbt(dev      : integer; ch : char);extern;
procedure  brkm (mode     : integer);extern;
procedure  setbt(dev      : integer;max : longint);extern;
procedure  reabt(dev      : integer;var ptr : longint);extern;
procedure  rmax (dev      : integer;var ptr : longint);extern;
function   lunit(var  f   : text) : integer;extern;
function   xopen(var file_name : f_string;
                 var file_type : t_string;
                 acc           : integer;
                 var status : integer) : integer;extern;
procedure   close(fno : integer);extern;
procedure   echom(mode:integer);extern;