home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a530 / 1.ddi / OVSMP.PAK / RAND.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-10-30  |  192 b   |  19 lines
  1.  
  2. {$N+}
  3. library Rand;
  4.  
  5. var D : Double;
  6.  
  7. function RandomNumber: pointer; export;
  8. begin
  9.   D:=Random;
  10.   RandomNumber:=@D;
  11. end;
  12.  
  13. exports
  14.   RandomNumber;
  15.  
  16. begin
  17.   Randomize;
  18. end.
  19.