FUNCTION PULL(LOW,HIGH : INTEGER) : INTEGER;

VAR I : INTEGER;

BEGIN
  REPEAT                   { Keep requesting random integers until }
    I := RANDOM(HIGH + 1); { one falls between LOW and HIGH }
  UNTIL I >= LOW;
  PULL := I
END;