\ 31-bit random number generator.  Uses a linear congruential generator.
\ The result is a positive number in the range 0 <= n < 2^31
\ The lsb of this number is no good.  It always toggles.
decimal
lvariable seed
: random  ( -- l )
   seed l@
   1103515245 *  12345 +
   th 7fff.ffff land
   ldup seed l!
;