Re: Newbie question on Ada TExt_IO

[tmoran@acm.org]

If "2.3" is not "a number between 1 and 6", then why allow "  +0002   "?
Why not tell the user exactly what you want:
    loop
      Put("Please enter a digit between 1 and 6 > ");
      Get_Line(Item=>Input,Last=>Last);
      exit when Last = 1 and then Input(1) in '1' .. '6';
      Put_Line("Invalid entry, try again.");
    end loop;
    result := Integer'Value( Input_Data( 1 .. 1 ) );
    Put_Line("Thank you");