FUNCTION Random (VAR Seed : Integer) : Real ;

  { Taken from PROGRAMMING IN PASCAL, by Peter Grogono, pp. 117-119,
    with "Modulus" reduced to "Maxint" to accommodate Pascal/Z limits.
    Returns a pseudo-random number between 0 and 1.0, inclusive, and
    should generate "Maxint" (32767) such numbers before repeating itself. }

  CONST
    Multiplier	= 25173 ;
    Increment	= 13849 ;

BEGIN { Random }

  Random := Seed / Maxint ;
  Seed := Abs ((Seed * Multiplier + Increment) MOD Maxint) ;

END { Random } ;
N { Random }

  Random := Seed / Maxint ;
  Seed := Abs ((Seed * Multiplier + Increment) MOD Maxint) ;!ÎÍ· Â’ÍPÍŒ ÃQ!æÍ· ÂªÍPÍ} ÍQxÃQ!êÍ· ÂÆÍÛ Í“ G@ÍÛ ±°ÃQ!
Í· ÂÜyÍ“ G€Ã¾!Í· ÂôÍÛ Í“ ±ÃQ!Í· ÂÍ