home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / random.seq < prev    next >
Text File  |  2019-04-13  |  1KB  |  26 lines
  1. /**************************************/
  2. /* RAND: RETURNS RANDOM VALUE         */
  3. /*       BETWEEN 'LO' AND 'HI'.       */
  4. /*                                    */
  5. /* ╫RITTEN 88/04 BY ╙TEVE ┬OYKO       */
  6. /*        ╔NFINITY ┼NTERPRISES        */
  7. /**************************************/
  8.  
  9. UNSIGNED RAND (LO,HI)
  10. UNSIGNED LO,HI;
  11. █
  12.    FLOAT F;
  13.    UNSIGNED RETVAL;
  14.    FLOAT RANGE;
  15.  
  16. /* ├HECK FOR INCORRECT PARAMETERS    */
  17.    IF (LO >= HI) RETURN (LO);
  18.  
  19.    RANGE = ((FLOAT) HI) - ((FLOAT) LO);
  20.  
  21.    F = ((FLOAT) RANDOM ()) / 65535.0;
  22.    RETVAL = (UNSIGNED) (F * RANGE);
  23.    RETVAL += LO;
  24.    RETURN (RETVAL);
  25. ▌
  26.