Re: Newbie question on Ada TExt_IO

[tmoran@acm.org]

> Put("Please enter a number between 1 and 6);
> Get(x);
>
> But what if they give me 'abc' or 4.44 or simply
> 1230000000000000000000000000000000000000000000000000000000000000000000000
  To be really snazzy, use Get_Line and read into a String, then check the
string to make sure it consists of the desired kind of input - in this
case a single digit in '1' .. '6' and perhaps spaces.  If it's OK,
then Get from the string, if not tell the user just what he did wrong.
  Substantially simpler is to catch the exception and go back and
repeat the Put prompt and the Get.  Use exceptions judiciously, not
just for really totally surprising situations.