----------------------------------------------------------------------
     -- 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.
     ----------------------------------------------------------------------

     with ConsAK;
     with Text_IO; use Text_IO;

     package body ErroAK is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------

     procedure Demo is
     ----------------------------------------------------------------------
     begin
       Put_Line ( Copyright );
       New_Line;
       Put_Line ( "Reports errors and exceptions." );
       New_Line;
       Put_Line ( "No demonstration is currently available." );
       ConsAK.Pause;
     end Demo;

     procedure Notify (
       Location : in string := "program";
       Error    : in string := "Unknown error" ) is
     ----------------------------------------------------------------------
     begin
       Put_Line ( Error & " in " & Location & "!" );
       ConsAK.Pause;
       New_Line;
     end Notify;

     procedure Report ( Status : in Status_Type ) is
     ----------------------------------------------------------------------
     begin
       Put_Line ( Status_Type'image ( Status ) );
     end Report;

     ----------------------------------------------------------------------
     end ErroAK;