Get_Line

["Justin Birtwell" <jbirtwell@yahoo.com>]

Hi,

I'm having some strange behavior with Get_Line.  In a procedure called
GetData I call Get_Line to receive input from the command line. The first
time this function is called it behaves fine prompting the user for input.
The second time it runs  the execution passes through Get_Line and no prompt
appears on the command line.  Upon doing a little research in the Ref Man.
I found a statement that talks about if Get_Line finds a line terminator it
automatically returns.  But how can this be?   Here's the statement from the
RM.

<< A string read by Get or written by Put can extend over several lines. An
implementation is allowed to assume that certain external files do not
contain page terminators, in which case Get_Line and Skip_Line can return as
soon as a line terminator is read. >>

But I'm not reading from a file?  I'm reading from the command line?  Does
anyone understand this behavior?

Sincerely,
Justin

P.s.  Here's a few statements leading up to the problem...

   procedure Getdata(P_Num_Of_Points: out Natural) is
      Last:Natural:=0;
      Buffer:String(1..80):=(1..80=>Character'val(0));
      l_Num:Integer;
      --Answer:Character;
   begin

      --get input
      --are there any invalid characters
      --is it a valid number anyway?
      --does the user want to use this number?
         Ada.Text_Io.Put_Line("Enter between 1 and 6 Balloons to create in
the box. ");
      loop
         begin

                                           ---This line gets skipped
returning with an empty buffer!!!!!!!
         if Jb.Stringfunctions.Is_Integer(Buffer(Buffer'First..Last)) then