DIMENSION aPattern [1000] aPattern[1] = 1 aPattern[2] = 2 aPattern[3] = 3 ACOPY (aPattern, aPattern, 1, 997, 4) FOR nt = 1 TO 1000 ?? aPattern[nT] ENDFOR