37 lines
417 B
Plaintext
37 lines
417 B
Plaintext
arraybase 1
|
|
global c
|
|
|
|
dimen = 5
|
|
dim a(dimen)
|
|
dim b(dimen)
|
|
# Array initialization
|
|
for i = 1 to dimen
|
|
a[i] = i
|
|
b[i] = i + dimen
|
|
next i
|
|
|
|
nt = ConcatArrays(a, b)
|
|
|
|
for i = 1 to nt
|
|
print c[i];
|
|
if i < nt then print ", ";
|
|
next i
|
|
end
|
|
|
|
function ConcatArrays(a, b)
|
|
ta = a[?]
|
|
tb = b[?]
|
|
|
|
nt = ta + tb
|
|
redim c(nt)
|
|
|
|
for i = 1 to ta
|
|
c[i] = a[i]
|
|
next i
|
|
for i = 1 to tb
|
|
c[i + ta] = b[i]
|
|
next i
|
|
|
|
return nt
|
|
end function
|