type errstrings is array (natural range 1 to 3) of hstring;
constant error_str : errstrings := (
- 1 => " > Fehler: Division durch Null " & nul,
- 2 => " > Fehler: Syntax " & nul,
- 3 => " > Fehler: Over- bzw. Underflow " & nul
+ 1 => " Fehler: Division durch Null " & nul,
+ 2 => " Fehler: Syntax " & nul,
+ 3 => " Fehler: Over- bzw. Underflow " & nul
);
begin
-- internal