From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-0.5 required=3.0 tests=BAYES_05 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 3 Feb 93 01:47:40 GMT
From: agate!spool.mu.edu!sdd.hp.com!elroy.jpl.nasa.gov!usc.edu!cs.utexas.edu!to
rn!watserv2.uwaterloo.ca!watmath!undergrad.math.waterloo.edu!laplace.uwaterloo.
ca!ccalbrec@ucbvax.Berkeley.EDU  (Cory C. Albrecht)
Subject: simple help with Text_IO
Message-ID: <C1unnH.Lu9@undergrad.math.waterloo.edu>
List-Id: <comp.lang.ada>

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