From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,345fce79e8dbda9d,start
X-Google-Attributes: gid103376,public
From: Ray <crwhite12@airmail7.net>
Subject: Keyboard input time out routine
Date: 1999/11/09
Message-ID: 
 <11FADB0F359D6AC2.1F52588FCDAC2F80.5B1126BE5AE8CD31@lp.airnews.net>#1/1
X-Deja-AN: 546692008
Content-Transfer-Encoding: 7bit
X-Orig-Message-ID: <3828C507.1E636723@airmail7.net>
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
NNTP-Posting-Time: Tue Nov  9 19:04:54 1999
Organization: Airnews.net! at Internet America
NNTP-Proxy-Relay: library1.airnews.net
Mime-Version: 1.0
Reply-To: crwhite12@airmail7.net
Abuse-Reports-To: abuse at airmail.net to report improper postings
Newsgroups: comp.lang.ada
Date: 1999-11-09T00:00:00+00:00
List-Id: <comp.lang.ada>

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)?

win 98, intel, AdaGIDE.

with Ada.Text_Io, Ada.Integer_Text_IO;

procedure InputDelay is
X: Integer;

begin
X:=1;
select
  delay 5.0;
  Ada.Text_Io.Put_Line("No data entered");
then abort
  Ada.Integer_Text_IO.Get (X);
end select;
Ada.Integer_Text_IO.Put (X);
end InputDelay;
-- 
"I'm not lost, I just don't know where I am!"
In the interest of anti-spam, I have added numerics to my email address

Ray