----------------------------------------------------------------------
     -- Title       :  SounAKD
     -- Version     :  1.0
     -- Copyright   :  (C) 1994 David Wallace Croft.  All rights reserved.
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Ada
     -- Description :  Sound/speaker
     ----------------------------------------------------------------------

     package SounAKD is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     Copyright : constant string :=
       "SounAKD (C) 1994 David Wallace Croft.  All rights reserved.";
     ----------------------------------------------------------------------
     Freq_Default : constant integer := 150;
     Freq_Minimum : constant integer :=  37;
     ----------------------------------------------------------------------
     procedure Demo;
     procedure Speaker_Thump (
       Count    : in     natural := 1;
       Interval : in     float   := 0.0 );
     procedure Speaker_Tone_Toggle (
       Turn_On   : in     boolean := false );
     procedure Speaker_Tone_Set (
       Frequency : in     integer := Freq_Default );
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end SounAKD;