arraybase 1
n = 4 : cont = 0
dim a(n)
dim c(n)

for j = 1 to n
    a[j] = j
next j

do
    for i = 1 to n
        print a[i];
    next
    print " ";

    i = n
    cont += 1
    if cont = 12 then
        print
        cont = 0
    else
        print " ";
    end if

    do
        i -= 1
    until (i = 0) or (a[i] < a[i+1])
    j = i + 1
    k = n
    while j < k
        tmp = a[j] : a[j] = a[k] : a[k] = tmp
        j += 1
        k -= 1
    end while
    if i > 0 then
        j = i + 1
        while a[j] < a[i]
            j += 1
        end while
        tmp = a[j] : a[j] = a[i] : a[i] = tmp
    end if
until i = 0
end