Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/TPASBOOK.ZIP/PULL.SRC

Text File | 1985-06-09 | 247 b | 11 lines

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;