+ procedure Hello is
+ Visibility : Cursor_Visibility := Invisible;
+ Message : constant String := "Hello, World!";
+ done : Boolean := False;
+ c : Key_Code;
+ begin
+ Init_Screen;
+ Set_Echo_Mode (False);
+ Set_Cursor_Visibility (Visibility);
+ Set_Timeout_Mode (Standard_Window, Non_Blocking, 0);