{ =================================================== }
{       Das MKINL Programm -- INCLUDE Dateien         }
{                                                     }
{            TEIL 2 : Fehler Funktionen               }
{                                                     }
{ =================================================== }

procedure Beep;
begin
  write (#7)
end;

procedure IOErr (Message: AnyString);
begin
  writeln;
  Writeln (Message);
  Beep;
  writeln('.. Lauf abgebrochen');
  halt;
end;

procedure ModeErr(Message:AnyString);
begin
  IOErr(Message+' nicht erlaubt im KONSTANT Mode');
end;

procedure StopErr;
begin
  IOErr('Halt wegen "Item" Fehler');
end;