\ random 97.8.14 5:01 pm NAB : seed ( ud -- ) SysRandom drop ; : rand ( -- n ) 0. SysRandom ; TimGetTicks seed