with TextAKD;  use TextAKD;

     package ConsAKD is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     Copyright : constant string :=
       "ConsAKD v1.00 (C) 1994 David Wallace Croft.  All rights reserved.";
     Description : constant string :=
       "Complements TextAKD for direct console text I/O.";
     ----------------------------------------------------------------------
     procedure Demo;
     ----------------------------------------------------------------------
     -- String:  unique
     ----------------------------------------------------------------------
     procedure Ask (
       Item    :    out string;
       Prompt  : in     string := "";
       Default : in     string := "" );
     procedure Flush;
     procedure Pause (
       Prompt  : in     string := "Please press ENTER to continue..." );
     ----------------------------------------------------------------------
     -- Boolean
     ----------------------------------------------------------------------
     function Ask_Bool (
       Prompt  : in     string  := "";
       Default : in     boolean := true )
       return boolean;
     procedure Put (
       Item    : in     boolean );
     procedure Put_Line (
       Item    : in     boolean );
     ----------------------------------------------------------------------
     -- Character
     ----------------------------------------------------------------------
     function Ask_Char (
       Prompt  : in     string  := "";
       Default : in     character := ASCII.Nul;
       Answers : in     string    := "";
       Upcased : in     boolean   := true )
       return character;
     ----------------------------------------------------------------------
     -- etc.
     ----------------------------------------------------------------------

     procedure Clear_Screen (
       Cursor_Move : boolean := true );

     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end ConsAKD;