{ linear.txt -- Algorithm #16: Linear Congruential Random Numbers by Tom Swan
}

const
  m4 = 10000;
  m8 = 100000000;
  b  = 31415621;
  r  = 65536;
var
  Seed: Integer

function NextRandom: Integer;
begin
  Seed <- ((Seed * b) + 1) mod m8;
  NextRandom <- ((Seed / m4) * r) div m4;
end;


(*
// --------------------------------------------------------------
// Copyright (c) 1993 by Tom Swan. All rights reserved
// Revision 1.00    Date: 10/04/1993   Time: 04:40 pm
*)


