----------------------------------------------------------------------
     -- Title       :  ErroAK
     -- Version     :  1.0
     -- Copyright   :  (C) 1994 David Wallace Croft.  All rights reserved.
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Ada
     -- Description :  Handles errors.
     ----------------------------------------------------------------------

     package ErroAK is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     Copyright : constant string
       := "ErroAK (C) 1994 David Wallace Croft.  All rights reserved.";
     type Error_Type is
       ( OK,
	 Other );
     type Status_Type is
       ( OK,
	 Error,
	 Error_Constraint,
	 Error_File_Close,
	 Error_File_Get_Line,
	 Error_File_Open,
	 Error_Unknown_Command );
     ----------------------------------------------------------------------
     procedure Demo;
     procedure Notify (
       Location : in string := "program";
       Error    : in string := "Unknown error" );
     procedure Report (
       Status : in Status_Type );
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end ErroAK;