( rnd day 04.05.2001 )

api: TimGetTicks

variable rnd

: seed ( u -- )
    rnd !
;

: random ( -- u )
   rnd @ 0x8088405 * 1+
   dup rnd !
;

: choose ( u1 -- u2 )
\ u2 - random number from 0 to u1
   random um* nip
;

: randomize TimGetTicks seed ;

randomize