home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol071 / randomiz.pas < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  353b  |  13 lines
  1. PROCEDURE RANDOMIZE;
  2. { SEED THE RANDOM NUMBER GENERATOR BASED ON A RANDOM TIME DELAY }
  3. var    dummy: real;
  4.  
  5.   function constat: boolean; external;
  6.  
  7. begin
  8.   seed := 4.0;{ sorry but we must start at a known point }
  9.   { generate random numbers until a key press is detected }
  10.   while not constat do
  11.     dummy := random( seed );
  12. end{of randomize};
  13.