----------------------------------------------------------------------
--  The Screen Cursor Control Child Package (Specification)
--
--  Programmer : John Cupak
--  History    : 17Oct97 jcj Created
--  Description: Moves cursor from current position
----------------------------------------------------------------------

   package Screen.Cursor is
   
      -- Move cursor "By" times - stop at top
      procedure Up   (By : in Positive := 1);
   
      -- Move cursor down "By" times - stop at bottom
      procedure Down (By : in Positive := 1);
   
      -- Move cursor right "By" times - stop at far right
      procedure Right(By : in Positive := 1);
   
      -- Move cursor left "By" times - stop at far left
      procedure Left (By : in Positive := 1);
   
      -- Set cursor position - Column=X, Row=Y
      procedure Position(Column : Columns;  
                         Row    : Rows   ); -- Line
   
      -- Set cursor home (1,1)
      procedure Home;
   
   end Screen.Cursor;