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