/**************************************/
/* RAND: RETURNS RANDOM VALUE         */
/*       BETWEEN 'LO' AND 'HI'.       */
/*                                    */
/* ×RITTEN 88/04 BY ÓTEVE ÂOYKO       */
/*        ÉNFINITY ÅNTERPRISES        */
/**************************************/
 
UNSIGNED RAND (LO,HI)
UNSIGNED LO,HI;
Û
   FLOAT F;
   UNSIGNED RETVAL;
   FLOAT RANGE;
 
/* ÃHECK FOR INCORRECT PARAMETERS    */
   IF (LO >= HI) RETURN (LO);
 
   RANGE = ((FLOAT) HI) - ((FLOAT) LO);
 
   F = ((FLOAT) RANDOM ()) / 65535.0;
   RETVAL = (UNSIGNED) (F * RANGE);
   RETVAL += LO;
   RETURN (RETVAL);
Ý