Initial data commit

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

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