{ Read the file INCLUDE to learn how to include this file in your program }
{ function from "Oh! Pascal!" that generates a random real value between 0.0
and 1.0 }
function Random (var seed:integer) : real;
const MODULUS = 65536;
MULTIPLIER = 25173;
INCREMENT = 13849;
begin
seed := ((MULTIPLIER * seed) + INCREMENT) mod MODULUS;
Random := seed / MODULUS;
end;