Try this: for the 83: 60 -> dim(L1 Fill(0,L1 For(X,1,60) Lbl 1 int(rand*60)+1->Y if L1(X) = 0 then Y->L1(X) else Goto 1 end end