Frostbyte's 1980s DOS Shareware Collection/floppyshareware.zip/floppyshareware/USCX/TPCOMPLT.ZIP/PULL.SRC

Text File | 1986-05-06 | 426b | 17 lines

{<<<< Pull >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 16.10 -- Last mod 2/1/86  }

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;