home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / numana01.zip / DEF / RAND.DEF < prev    next >
Text File  |  1996-08-07  |  1KB  |  22 lines
  1. DEFINITION MODULE Rand;
  2.  
  3.         (********************************************************)
  4.         (*                                                      *)
  5.         (*              Random number generator                 *)
  6.         (*                                                      *)
  7.         (*      This version is about 50% slower than the       *)
  8.         (*      PMOS random number generator, but it's more     *)
  9.         (*      portable.  I haven't done enough tests to       *)
  10.         (*      judge which one is "more random".               *)
  11.         (*                                                      *)
  12.         (*  Programmer:         P. Moylan                       *)
  13.         (*  Last edited:        7 August 1996                   *)
  14.         (*  Status:             OK                              *)
  15.         (*                                                      *)
  16.         (********************************************************)
  17.  
  18. PROCEDURE RANDOM(): REAL;
  19.  
  20. END Rand.
  21.  
  22.