Initial data commit

Task/Array-concatenation/BASIC256/array-concatenation.basic

@@ -0,0 +1,36 @@
+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