DIM x[10]

FOR q=1 TO 10

ARRAY.FILL x[5,6],q

!FOR q=1 TO 10

     PRINT x[q]

NEXT