( rnd2 Micro 17.04.2001 )

CREATE SEED 123 C, 53 C, 111 C, 0 C,
\ Initial state

: RND
  SEED C@
  SEED 1+ C@
  SEED 2+ C@
  + +
  255 AND
  2*
  DUP 255 > IF
    255 AND 1+
  THEN
  SEED DUP DUP 1+ C@ SWAP C!
                1+ DUP 1+ C@ SWAP C!
  DUP SEED 2+ C!
;

variable s 123 s !
variable m 0x25 m !
variable ii 1 ii !
variable c 255 c !
: rnd2 s @ m @ * ii @ + c @ mod dup s ! ;

\eof

needs plot graphics
vect r
' rnd to r
: qwe page
  0 do r 127 and rnd 127 and plot loop
;