DIM x[10]

FOR q=1 TO 10

ARRAY.FILL x[1,10],q

!FOR q=1 TO 10

     PRINT x[q]

NEXT