Try this, it might work a little better 60 -> dim(L1 60 -> dim(L2 fill(0,L1 fill(0,L2 for(X,1,60 Lbl 1 Randint(1,60)->Y if L2(Y) = 0 then y -> L1(X) 1 -> L2(Y) else goto 1 end end