RosettaCodeData/Task/Array-concatenation/Liberty-BASIC/array-concatenation.basic

    x=10
    y=20
    dim array1(x)
    dim array2(y)

[concatenate]
    dim array3(x + y)
    for i = 1 to x
        array3(i) = array1(i)
    next
    for i = 1 to y
        array3(i + x) = array2(i)
    next

[print]
    for i = 1 to x + y
        print array3(i)
    next