procedure abort(message : str);
const
     WARMBOOT = 0;
begin
writeln;
writeln(message);
bdos(WARMBOOT)
end;