home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol022 / random.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  565 b   |  25 lines
  1. (*****************************************************
  2. *
  3. *    This can be put in your library or just used
  4. *  as a source of random numbers. It was written by
  5. *  Bob Harsch as a quickie.
  6. *
  7. * donated Sept 1980
  8. ***************************************************)
  9.  
  10. PROGRAM random;
  11. var
  12.   seed:0..65535;
  13.   i:integer;
  14.  
  15.   Function Random:real;
  16.    begin /* Random */
  17.      seed:=(seed*13077+6925)mod 32768;
  18.      random:=seed/32768.0
  19.    end /* Random */;
  20.  
  21. begin
  22.      seed:=trunc(time*1000.0);
  23.         for i:=1 to 25 do writeln(trunc(random*6.0)+1)
  24. end.
  25.