DIM a{b(3)}, c(3) FOR I = 0 TO 3 a.b(I) = I * 10 NEXT PROC_TEST(a{}, a.b(), c()) END DEF PROC_TEST(x{}, y(), RETURN z()) !(^y()+4) += !(^x{}+4) FOR I = 0 TO 3 z(I) = y(I) NEXT ENDPROC
|
DIM a{b(3)}, c(3) FOR I = 0 TO 3 a.b(I) = I * 10 NEXT PROC_TEST(a{}, c()) END DEF PROC_TEST(x{}, z()) LOCAL i FOR i = 0 TO 3 z(i) = x.b(i) NEXT ENDPROC
DIM a{b(3), d(3)}, c(3) FOR I = 0 TO 3 a.b(I) = I * 10 NEXT PROC_TEST(a.b(), c()) ... REM do something with c() ... PROC_TEST(a.d(), c()) ... REM do something with c() ... END DEF PROC_TEST(x(), z()) LOCAL i FOR i = 0 TO 3 z(i) = x(i) NEXT ENDPROC
|
DIM a{b(3,1)}, c(3) FOR I = 0 TO 3 a.b(I,0) = I * 10 a.b(I,1) = I * 11 NEXT PROC_TEST(a{}, 0, c()) REM do something with c() PROC_TEST(a{}, 1, c()) REM do something with c() END DEF PROC_TEST(x{}, j, z()) LOCAL i FOR i = 0 TO 3 z(i) = x.b(i,j) NEXT ENDPROC
|
|