Keyboard Polling Solution

[Me <me@me.org>]

Yes, "Get_Immediate" seems to do the trick.  Thanks for the tip.

Test Example :




with Text_IO;  use Text_IO;

procedure Test is

  My_Char          : CHARACTER := ' ';
  Character_Exists : BOOLEAN   := FALSE;
  Loop_Counter     : INTEGER   := 0;

procedure Take_A_Break is begin put_line ("Taking a break from
polling..."); end Take_A_Break;

begin

  loop
    Loop_Counter := Loop_Counter + 1;
    for X in 1..10000 loop
      Get_Immediate (Item      => My_Char,
                     Available => Character_Exists);
      if (Character_Exists) then
        put_line ("Character entered.  Done.");
        return;
      end if;
    end loop;
    Take_A_Break;
  end loop;

end;