CP/M/CPM_CDROM.iso/simtel/sigm/vols000/vol071/randomiz.pas

Pascal/Delphi Source File | 1984-04-29 | 353 b | 13 lines

PROCEDURE RANDOMIZE;
{ SEED THE RANDOM NUMBER GENERATOR BASED ON A RANDOM TIME DELAY }
var    dummy: real;

  function constat: boolean; external;

begin
  seed := 4.0;{ sorry but we must start at a known point }
  { generate random numbers until a key press is detected }
  while not constat do
    dummy := random( seed );
end{of randomize};