sub arrayConcatenation(a(), b())
	local ta, tb, nt, i
	
	ta = arraysize(a(), 1)
	tb = arraysize(b(), 1)
	
	nt = ta + tb
	
	redim a(nt)
	
	for i = ta + 1 to nt
		a(i) = b(i - ta)
	next i
	
	return nt
end sub

//===============================

SIZE = 5

dim a(SIZE)
dim b(SIZE)

for i = 1 to SIZE
	a(i) = i
	b(i) = i + SIZE
next i

nt = arrayConcatenation(a(), b())

for i = 1 to nt
	print a(i);
	if i < nt print ", ";
next i
print