----------------------------------------------------------------------
	-- Author      :  David Wallace Croft, CompuServe [76600,102]
	-- Compiler    :  Meridian OpenAda for DOS
	-- Description :  Demo of standard and DOS Ada packages
	----------------------------------------------------------------------

	with DemoAK ;
	with ConsAK ; use ConsAK ;
	with InteAK ; use InteAK ;
	with Text_IO; use Text_IO;

	procedure AdaKit is
	----------------------------------------------------------------------
	----------------------------------------------------------------------
	  Copyright : constant string :=
	    "AdaKit v1.10 (C) 1994 David Wallace Croft.  Freeware.";
	  Default :          natural :=  1;
	  Min     : constant natural :=  0;
	  Max     : constant natural :=  1;
	  Option  :          natural;
	begin
	  loop
	 Put_Line ( Copyright );
	 Put_Line ( "" );
	 Put_Line (
	   "Demonstration of available Ada programming language packages."
	   );
	 Put_Line ( "This program is free and may be distributed." );
	 Put_Line (
	   "For information on licensing these packages, the author" );
	 Put_Line ( "may be contacted via CompuServe at [76600,102]." );
	 Put_Line ( "Use at your own risk." );
	 Put_Line ( "" );
	 Put_Line ( " 0 = Quit" );
	 Put_Line ( " 1 = DemoAK.Demo  -- standard Ada packages" );
	 Put_Line ( "" );
	 Option := Ask_Nat ( "Option ", Default, Min, Max );
	 Default := Option + 1;
	 if Default > Max then
	   Default := Min;
	 end if;
	 case Option is
	   when  0 => exit;
	   when  1 => DemoAK.Demo;
	   when others =>
		Put_Line ( "The demonstration of that option is currently"
		  & " not available." );
		Pause;
	 end case;
	 Put_Line ( "" );
	  end loop;
	end AdaKit;