-- hello4.adb
--    Purpose: Show how to use erase, time and draw for animation.

with
  Terminal_Interface.Curses;

use
  Terminal_Interface.Curses;

procedure Hello is
begin
   Init_Screen;
   Clear;
   for Line in 0 .. Lines -1 loop
      Move_Cursor (Line => Line, Column => 2 * Column_Position (Line));
      if Line mod 2 = 1 then
         Standout (On => True);
      end if;
      Add (Str => "Hello, world");
      if Line mod 2 = 1 then
         Standout (On => False);
      end if;
      Refresh;
      delay 0.3;
      Move_Cursor (Line => Line, Column => 2 * Column_Position (Line));
      Add (Str => "            ");
   end loop;
   End_Screen;
exception
   when others =>
      End_Screen;
end Hello;