----------------------------------------------------------------------
     -- Title       :  CursAKD
     -- Version     :  1.0
     -- Copyright   :  (C) 1994 David Wallace Croft.  All rights reserved.
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Meridian OpenAda for DOS
     -- Description :  Cursor control
     ----------------------------------------------------------------------

     with Common_Display_Types, Cursor;
     use  Common_Display_Types;

     package CursAKD is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     procedure Set_Size (
		 Start_Line : in Cursor_Size;
		 End_Line   : in Cursor_Size )
		 renames Cursor.Set_Size;
     procedure Inhibit
		 renames Cursor.Inhibit;
     procedure Move (
		 Row    : in Row_Range;
		 Column : in Column_Range;
		 Page   : Display_Page := 0 )
		 renames Cursor.Move;
     procedure Get_Position (
		 Row    :    out Row_Range;
		 Column :    out Column_Range;
		 Page   : in     Display_Page := 0 )
		 renames Cursor.Get_Position;
     procedure Up (
		 Page : in Display_Page := 0 )
		 renames Cursor.Up;
     procedure Down (
		 Page : in Display_Page := 0 )
		 renames Cursor.Down;
     procedure Left (
		 Page : in Display_Page := 0 )
		 renames Cursor.Left;
     procedure Right (
		 Page : in Display_Page := 0 )
		 renames Cursor.Right;
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end CursAKD;