Array concatenation: Difference between revisions

Content deleted Content added

Inline

@@ Line 3,105: / Line 3,105: @@
 list2:4 5 6
 list1,list2</lang>
+=={{header|QBasic}}==
+{{works with|QBasic|1.1}}
+{{works with|QuickBasic|4.5}}
+<lang qbasic>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
+</lang>
 =={{header|Quackery}}==