Re: How to exit a loop with keyboard input

[Georg Bauhaus <rm.dash-bauhaus@futureapps.de>]

Jerry schrieb:

> 
> with Ada.Text_IO;
> use  Ada.Text_IO;
> procedure key is
>     i         : Integer;
>     Keystroke : Character;
>     Available : Boolean;
> begin
>     i := 0;
>     loop
>         Put(Integer'Image(i));
>         Get_Immediate(Keystroke, Available);
>             if Available then
>                 if Keystroke = 'q' then
>                     exit;
>                 end if;
>             end if;
>         i := i + 1;
>     end loop;
>     Put_Line("Finished");
> end key;


Works as desired on Debian GNU/Linux stable.