29 lines
348 B
Text
29 lines
348 B
Text
|
FUNCTION ConcatArrays(a(), b())
|
||
|
|
ta = UBOUND(a)
|
||
|
|
tb = UBOUND(b)
|
||
|
|
|
||
|
|
nt = ta + tb
|
||
|
|
|
||
|
|
FOR i = ta + 1 TO nt
|
||
|
|
a(i) = b(i - ta)
|
||
|
|
NEXT i
|
||
|
|
|
||
|
|
ConcatArrays = nt
|
||
|
|
END FUNCTION
|
||
|
|
|
||
|
|
dimen = 5
|
||
|
|
DIM a(dimen)
|
||
|
|
DIM b(dimen)
|
||
|
|
|
||
|
|
FOR i = 1 TO dimen
|
||
|
|
a(i) = i
|
||
|
|
b(i) = i + dimen
|
||
|
|
NEXT i
|
||
|
|
|
||
|
|
nt = ConcatArrays(a(), b())
|
||
|
|
|
||
|
|
FOR i = 1 TO nt
|
||
|
|
PRINT a(i);
|
||
|
|
IF i < nt THEN PRINT ", ";
|
||
|
|
NEXT i
|