with Hyper_Type; use Hyper_Type;

     package HyperMus is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     procedure Music_Display (
       Notes       : in     Notes_Type;
       Note        : in     positive;
       Silent_Char : in     character;
       Opt         : in     Options_Type );
     procedure Music_Load (
       Music :    out Music_Type );
     procedure Music_Set (
       Music : in out Music_Type );
     procedure Spike_Sound (
       Neuron   : in     natural;
       Tones_On : in     boolean := Tones_On_Default );
     procedure Voltage_Clamp (
       Quit     :    out boolean;
       Refresh  :    out boolean;
       Notes    : in out Notes_Type;
       Axons    : in out Axons_Type;
       Neurons  : in out Neurons_Type;
       Opt      : in     Options_Type );
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end HyperMus;