-- hello1.adb
--    Purpose: Show the minimal calls needed to use curses.
--    Outline: Initialize, draw stuff, wait for input, quit.

with
  Terminal_Interface.Curses;

use
  Terminal_Interface.Curses;

procedure Hello is
   Key : Real_Key_Code;
begin
   Init_Screen;
   Clear;
   Move_Cursor (Line => 10, Column => 20);
   Add (Str => "Hello, world");
   Move_Cursor (Line => Lines -1, Column => 0);
   Refresh;
   Key := Get_Keystroke;
   End_Screen;
exception
   when others =>
      End_Screen;
end Hello;