<b>type</b> Second <b>is</b><b>new</b><spanstyle='color:#800000;'>Integer</span><b>range</b><spanstyle='color:#800080;'>0..59</span>;
<b>type</b> Second <b>is</b><b>new</b><spanstyle='color:#800000;'>Integer</span><b>range</b><spanstyle='color:#0000ff;'>0</span> .. <spanstyle='color:#0000ff;'>59</span>;
Ada.Text_IO.Put_Line(<spanstyle='color:#dd0000;'>"wieschbaed Version "</span>& VERSION &<spanstyle='color:#dd0000;'>" ("</span>& RELEASE &<spanstyle='color:#dd0000;'>")"</span>);
<b>return</b>;
<b>end if</b>;
<i><spanstyle='color:#808080;'>-- input length must be correct; as mentioned above, the formats</span></i>
<i><spanstyle='color:#808080;'>-- used at the moment are 4, 5, 6 or 8 characters long</span></i>
...
...
@@ -295,21 +352,20 @@
<b>raise</b> Input_Error <b>with</b><spanstyle='color:#dd0000;'>"Illegal time data length"</span>;