9816 XR=XR*RND : X=X+1