{ 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;