\ pseudo random number generator
\ based on: Forth Scientific Library Algorithm #23
\ algorithm from:
\ Kirkpatrick, S., and E. Stoll, 1981; A Very Fast Shift-Register
\ Sequence Random Number Generator, Journal of Computational Physics,
\ V. 40. p. 517
\
\ see also:
\ Maier, W.L., 1991; A Fast Pseudo Random Number Generator,
\                    Dr. Dobb's Journal, May, pp. 152 - 157
\ Forthmacs hs 05.12.97
2147483647. 2constant max32
2variable seed
	get-ticks s>d
\	1234.
	seed 2!
: rnd	( -- u31 )
	seed 2@ 127773 um/mod >r
	16807 um* r>
        2836 um* d- dup 0< if max32 d+ then
	2dup seed 2! drop ;
\ terminals also
\ : test	erase-screen (/line) (lines) * locals| range |
\ 	screen-adr range 0 fill
\ 	begin	rnd range mod screen-adr + dup c@ 1+ 255 min swap c!
\ 	again ;
\ 	