----------------------------------------------------------------------
     -- Title       :  HexaAKD
     -- Version     :  1.0
     -- Copyright   :  (C) 1994 David Wallace Croft.  All rights reserved.
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Meridian OpenAda for DOS
     -- Description :  Hexadecimal type manipulation.
     ----------------------------------------------------------------------

     with TypeAKD;  use TypeAKD;

     package HexaAKD is
     ---------------------------------------------------------------------------
     ---------------------------------------------------------------------------
     type HexChar is ( '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
		       'A', 'B', 'C', 'D', 'E', 'F' );
     type HexStr is array ( positive range <> ) of HexChar;
     subtype Hex8 is HexStr ( 1..8 );
     ---------------------------------------------------------------------------
     function  Hex_Complement ( Hex : in Hex8    ) return Hex8;
     function  Hex_To_Char    ( Hex : in HexChar ) return character;
     function  Hex_To_Int     ( Hex : in Hex8    ) return Int32;
     function  Hex_To_Str     ( Hex : in Hex8    ) return string;
     function  Int_To_Hex     ( Int : in Int32   ) return Hex8;
     procedure Put_Line       ( Hex : in Hex8    );
     function  Str_To_Hex     ( Str : in string  ) return Hex8;
     ---------------------------------------------------------------------------
     end HexaAKD;