----------------------------------------------------------------------
     -- Needs Ln and SqRt to become A83.
     ----------------------------------------------------------------------

     with A83_017_Random; use A83_017_Random;

     package DOS_017_Random is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     Copyright : constant string :=
       "DOS_017_Random 1.00 (C) 1994 by David Wallace Croft." &
       "  All rights reserved.";
     Description : constant string :=
       "Random numbers and statistics.";
     ----------------------------------------------------------------------
     procedure Demo;
     procedure Random_Exp (
       Random :    out float;
       Seed   : in out Random_Seed_Type );
     procedure Random_Gaussian (
       Random             :    out float;
       Seed               : in out Random_Seed_Type;
       Standard_Deviation : in     float := 1.0 );
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end DOS_017_Random;