Re: Keyboard input time out routine

["Matthew Heaney" <matthew_heaney@acm.org>]

In article 
<11FADB0F359D6AC2.1F52588FCDAC2F80.5B1126BE5AE8CD31@lp.airnews.net> ,
Ray <crwhite12@airmail7.net>  wrote:

> I am trying to allow a max time for keyboard (math speed test program),
> but the following code only sort of works.  It times out, but waits for
> an input (unused) before printing out the message.  I want the message
> to print as soon as the time allotted for input has passed.  Hints? Is
> select even the right way to go (pulled the code from the help docs)?

I don't think your ATC example will work.  You could try polling the
input using Get_Immediate:

declare
  C : Character;
  Available : Boolean;
begin
  for I in 1 .. 50 loop
    Get_Immediate (C, Available);
    exit when Available;
    delay 0.1;
  end loop;

  if Available then
    <do whatever>
  else
    Put_Line ("No data entered.");
  end if;
end;


--
Science is, foremost, a method of interrogating reality: proposing
hypotheses that seem true and then testing them -- trying, almost
perversely, to negate them, elevating only the handful that survive to
the status of a theory. Creationism is a doctrine, whose adherents are
interested only in seeking out data that support it.

George Johnson, NY Times, 15 Aug 1999