----------------------------------------------------------------------
     -- Title       :  AdaKit
     -- Copyright   :  (C) 1994 David Wallace Croft.  All rights reserved.
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Meridian OpenAda for DOS
     -- Description :  Demo of standard and DOS Ada packages
     ----------------------------------------------------------------------

     with DemoAK;
     with DemoAKD;
     with ConsAKD; use ConsAKD;
     with InteAKD; use InteAKD;
     with TextAKD; use TextAKD;

     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 :=  2;
       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 ( " 2 = DemoAKD.Demo -- Meridian OpenAda for DOS 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  2 => DemoAKD.Demo;
	   when others =>
	     Put_Line ( "The demonstration of that option is currently"
	       & " not available." );
	     Pause;
	 end case;
	 Put_Line ( "" );
       end loop;
     end AdaKit;