RosettaCodeData/Task/Array-concatenation/BaCon/array-concatenation.bacon

DECLARE a[] = { 1, 2, 3, 4, 5 }
DECLARE b[] = { 6, 7, 8, 9, 10 }

DECLARE c ARRAY UBOUND(a) + UBOUND(b)

FOR x = 0 TO 4
    c[x] = a[x]
    c[x+5] = b[x]
NEXT