----------------------------------------------------------------------
     -- Title       :  KeybAKD
     -- 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 :  Keyboard input.
     ----------------------------------------------------------------------

     with HexaAKD;

     package KeybAKD is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     function  Ask ( Question: in string;
       Default : in HexaAKD.Hex8
	 := ( others => HexaAKD.HexChar'val ( 0 ) ) )
       return HexaAKD.Hex8;
     function  Ask ( Question: in string; Default: in float ) return float;
     function  Ask ( Question: in string; Max: in positive  ) return natural;
     function  Ask (
		 Question : in string;
		 Min      : in long_integer;
		 Max      : in long_integer;
		 Default  : in long_integer ) return long_integer;
     procedure Ask (
		 Question: in string;
		 Answer: out character;
		 Definition_Str: in string := "" );
     procedure Ask (
		 Question: in string;
		 Answer: out string;
		 Definition_Str: in string := "" );
     procedure Get_Line ( Get_Str: out string; Upcase: in boolean := false );
     procedure Pause;
     procedure Pause ( PauseStr: in string );
     ---------------------------------------------------------------------------
     end KeybAKD;