September 2017 Update

Task/Array-concatenation/BASIC/array-concatenation-1.basic

@@ -0,0 +1,17 @@
+' Array concatenation
+OPTION BASE 1
+
+CONST asize = 2
+CONST bsize = 3
+DECLARE a[asize] TYPE NUMBER
+DECLARE b[bsize] TYPE NUMBER
+
+' BaCon has no array concatenation builtin, it will need to be done by hand
+LOCAL c TYPE NUMBER ARRAY asize + bsize
+FOR i = 1 TO asize
+    c[i] = a[i]
+NEXT
+
+FOR i = 1 TO bsize
+    c[asize + i] = b[i]
+NEXT