simple help with Text_IO

[agate!spool.mu.edu!sdd.hp.com!elroy.jpl.nasa.gov!usc.edu!cs.utexas.edu!to]

Could somebody tell me (email please) why this programme,
which compiles properly, seemingly stalls at the
line indicated? i.e. I type in a line followed by <cr>,
but nothing happens. What should happen is that this:

*:: <the line that was typed>

should be printed to the console, but isn't. And nothing
happens. The input prompt:

*>>

is printed, then I can type something, but after <cr>
nothing happens. :(


With Text_IO; Use Text_IO;

Procedure main is 

instr, tokstr : String(1..255);

Begin
Loop
    New_Line;
    Put("*>> ");
    Get(instr);                 -- this is where it stalls and won't go further
    New_Line;
    Put("*:: ");
    Put(instr);
    Exit When instr="quit";
End Loop;
End; --main