randomize dim ran, max max =10 repeat max a = rnd(cnt + 1) ran.cnt = ran.a ran.a = cnt loop repeat max mes ran.cnt loop