29 lines
348 B
Plaintext
29 lines
348 B
Plaintext
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
|