----------------------------------------------------------------------
     -- Title       :  ConsAK
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Ada
     ----------------------------------------------------------------------

     with IO_Exceptions;
     with Text_IO;

     package ConsAK is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     use ASCII;
     Copyright : constant string :=
       "ConsAK v1.10 (C) 1994 David Wallace Croft.  All rights reserved.";
     Description : constant string :=
       "Text input/output via the standard console." & CR & LF &
       "Complements Text_IO for console 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
     ----------------------------------------------------------------------
     procedure Ask (
       Item    :    out boolean;
       Prompt  : in     string  := "";
       Default : in     boolean := true );
     procedure Put (
       Item    : in     boolean );
     procedure Put_Line (
       Item    : in     boolean );
     ----------------------------------------------------------------------
     -- Character
     ----------------------------------------------------------------------

     procedure Ask (
       Item    :    out character;
       Prompt  : in     string  := "";
       Default : in     character := ASCII.Nul;
       Answers : in     string    := "";
       Upcased : in     boolean   := true );

     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end ConsAK;