DIM yy(100) FOR i = 1 TO 5 CYCLE yy(i) = i * i REPEAT // PROC foo(yy()) END DEF PROC foo(x()) FOR i = 1 TO 5 CYCLE PRINT x(i) REPEAT ENDPROC