select ... or delay ... end select

[Alejandro Villanueva <190921@cepsz.unizar.es>]

[-- Attachment #1: Type: text/plain, Size: 403 bytes --]

Dear Sirs,

Maybe I'm more stupid that I think I am but... why doesn't this code
work???


--
------------------------------------------------------
�Quieres Cobrar por Navegar en Internet?
Visita: http://www.navegana.com/dinero/flintstone.html
------------------------------------------------------
Alejandro Villanueva
190921@cepsz.unizar.es
------------------------------------------------------



[-- Attachment #2: condition.adb --]
[-- Type: text/plain, Size: 368 bytes --]

with Text_IO; use Text_IO;
procedure Condition is
   US: String (1..1);
   UI: Integer;
   task Wait is
      entry Ok;
   end Wait;
   task body Wait is
   begin
      Get_Line (US, UI);
      accept Ok;
   end Wait;
begin
   select
      Wait.Ok;
      Put_Line ("True");
   or
      delay Duration (1.0);
      Put_Line ("False");
   end select;
end Condition;