UNIT base; {-*-Mode: fundamental-mode}

INTERFACE {--------------------------------------}
const
  err_str_max   = 80;
  path_name_max = 128;
  arg_str_max   = 30;
type
  err_str_t     = string (err_str_max);
  path_name_t   = string (path_name_max);
  arg_str_t     = string (arg_str_max);

PROCEDURE abort (errorstring: err_str_t);



IMPLEMENTATION {-------------------------------------}
PROCEDURE abort (errorstring: err_str_t);

begin
  if errorstring <> '' then writeln (StdErr, errorstring);
  halt (1)
end;

END.  {base implementation}
