{ midsqr.txt -- Algorithm #15: Middle-Square Random Numbers by Tom Swan
  Note: This method is obsolete
}

const
  m4 = 10000;
  m8 = 100000000;
var
  Seed: Integer

function NextRandom: Integer;
begin
  Seed <- ((Seed * Seed) / m4) mod m8;
  NextRandom <- Seed;
end;


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

