--   with HyperNet; use HyperNet;
--   with HyperMus; use HyperMus; -- for Opt
     with Hyper_Type; use Hyper_Type;

     package HyperDis is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     Copyright : constant string :=
       "HyperNet 0.5 (C) 1994 David Wallace Croft.  All rights reserved.";
     ----------------------------------------------------------------------
     procedure Axons_Display (
       Axons    : in     Axons_Type;
       N_Last   : in     natural;
       Deci     : in     positive;
       Segments : in     positive );
     procedure Neurons_Display (
       Neurons : in     Neurons_Type;
       N_Last  : in     natural;
       Deci    : in     positive );
     procedure Options_Setup (
       Opt     : in out Options_Type;
       Axons   : in out Axons_Type;
       Neurons : in out Neurons_Type;
       Weights : in out Weights_Type );
     procedure Weights_Display (
       Weights : in     Weights_Type;
       N_Last  : in     natural;
       Deci    : in     positive );
     ----------------------------------------------------------------------
     end HyperDis;