[iSlider,"_iterations_",10000,1,1,32767,"number of iterations",,0,150]
[IButton,"RandomTEST","random generator test",
     [VarDef,MoveList(10),0]
     [VarSet,MoveList(0),0][VarSet,MoveList(1),0][VarSet,MoveList(2),0]
     [VarSet,MoveList(3),0][VarSet,MoveList(4),0][VarSet,MoveList(5),0]
     [VarSet,MoveList(6),0][VarSet,MoveList(7),0][VarSet,MoveList(8),0]
     [VarSet,MoveList(9),0]
     [VarDef, direction,-1]
     [VarSet, direction,-1]
     [VarDef, iteration,0]
     [VarSet, iteration,0]
     [VarSet,iterations,[iGet,zscript:_iterations_]]
     
     //[VarSet, p,2027]
     //[VarSet, k,1298]
     [VarSet, p,5087]
     [VarSet, k,2900]    
     //[VarSet, p,10079]
     //[VarSet, k,3518]     
     //[VarSet, p,20183]
     //[VarSet, k,3622]     
     //[VarSet, p,40127]
     //[VarSet, k,20444]      
     //[VarSet, p,100103]
     //[VarSet, k,41054]    
     //[VarSet, p,220919]
     //[VarSet, k,161870]      
     [VarSet, x,1]
     [VarSet, A,0]
     [VarSet, B,9]
     
     
     [loop,iterations,
           [VarInc,iteration]
           [VarSet, str0,[StrMerge, "Iterations: ", [Var, iteration]]]
           [VarSet, str1,[StrMerge, [Var, MoveList(0)], " - ", [Var, MoveList(1)], " - ", [Var, MoveList(2)]]]
           [VarSet, str2,[StrMerge, [Var, MoveList(3)], " - ", [Var, MoveList(4)], " - ", [Var, MoveList(5)]]]
           [VarSet, str3,[StrMerge, [Var, MoveList(6)], " - ", [Var, MoveList(7)], " - ", [Var, MoveList(8)]]]
           [VarSet, str4,[Var, MoveList(9)]]
           [NoteBar,[StrMerge, str0, " # ", str1, " - ", str2, " - ", str3, " - ", str4]]
           
           [VarSet,x,x*k]
           [VarSet,ix,int(x/p)]
           [VarSet,x,x-(ix*p)]
           [VarSet,direction,int((B-A+1)*x/p+A)]
           //[Note,direction]
           [VarInc,MoveList(direction)]
     ] // end loop
     
     
     [VarSet,i,0]
     [VarSet,Total,0]
     [loop,10,
           [VarAdd,Total,MoveList(i)]
           [VarInc,i]
     ]           
     [VarSet, str0,[StrMerge, "Iterations: ", [Var, iteration]]]
     [VarSet, str1,[StrMerge, [Var, MoveList(0)], " - ", [Var, MoveList(1)], " - ", [Var, MoveList(2)]]]
     [VarSet, str2,[StrMerge, [Var, MoveList(3)], " - ", [Var, MoveList(4)], " - ", [Var, MoveList(5)]]]
     [VarSet, str3,[StrMerge, [Var, MoveList(6)], " - ", [Var, MoveList(7)], " - ", [Var, MoveList(8)]]]
     [VarSet, str4,[Var, MoveList(9)]]
     [VarSet, str5,[StrMerge,"Total: ", [Var,Total]]]
     [NoteBar,[StrMerge, str0, " # ", str1, " - ", str2, " - ", str3, " - ", str4, " # ", str5]]
     [Note, [StrMerge, str0, "\n# ", str1, " - ", str2, " - ", str3, " - ", str4, "\n# ", str5]]
]