home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 18 / forthsup / random.fth < prev    next >
Encoding:
Text File  |  1986-09-18  |  292 b   |  10 lines
  1. \ Interface to random number generator
  2.  
  3. decimal
  4. 17 xbios: _random { -- l.rnd-number }  \ bios random number routine
  5.  
  6. \ The 2/ throws away the lsb which is not very random; it toggles every time
  7. : rnd  ( limit -- rndnum )  \ return random number up to limit
  8.    _random 2/ swap  mod
  9. ;
  10.