home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adapm_15.zip / RANDOM.ADS < prev    next >
Text File  |  1993-10-10  |  204b  |  12 lines
  1. package Random is
  2.  
  3.   procedure Set_Seed (Value : in Long_Integer);
  4.   
  5.   function Rnd return Float;
  6.   
  7.   function Num (Max_Value : in Long_Integer) return Long_Integer;
  8.   
  9. end Random;  
  10.     
  11.   
  12.