9524 IF RND<=PR THEN X=X+1