-- hello3.adb
--    Purpose: Using refresh and sleep for animated effects.
--    Outline: Initialize, draw stuff, wrap up.

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;
      delay 0.3;
      Refresh;
   end loop;
   End_Screen;
exception
   when others =>
      End_Screen;
end Hello;