The best way that I see to do this is to run two lists rather than 39 reals. B1, B2, B3 etc, becomes the 1st, 2nd and 3rd items of list B (ie, B(1), B(2), B(3)) and the same for the S list. Then to cycle through them all, just use the lines below. :For(b,1,15) :B(b)->s :S(s)+1->S(s) :End -Joseph Have A :-) Nice Day