Re: Problem with Get_Line

["Frank J. Lhota" <NOSPAM.lhota.adarose@verizon.net>]

The problem with this program is the way it manages the input stream. When
an integer is read from the input stream, as is done with the call

    Get(Opc);

the I/O routine skips leading white space (if any), then reads in characters
that can be used to represent an integer. No characters past the integer are
removed from the input stream.

Now assume that the user presses the '1' key followed by the enter key. Then
the input stream will have

    1<EOL>

where <EOL> is the end-of-line marker. After the "Get(Opc)" call, Opc is set
to 1 and the input stream will contain

    <EOL>

If you call Get_Line at this point, then it will correctly see that there is
an empty line in the input stream, and return an indcation of that fact.
That is precisely what is happening in your program.

This is not really an Ada issue, mistakes like this are also made in C.
After the "Get(Opc)" call, add a call to the Ada.Text_Io procedure Skip_Line
to discard the characters up to and including the next end-of-line marker.