Swapping array elements

[Pete]

But my FUNCTON is a one-liner...

Code: (Select All)

a$ = "ABCDEFG"

PRINT goswap$(a$, 3, 5)

FUNCTION goswap$ (a$, x, y)
    goswap$ = MID$(a$, 1, x - 1) + MID$(a$, y, 1) + MID$(a$, x + 1, y - (x + 1)) + MID$(a$, x, 1) + MID$(a$, y + 1)
END FUNCTION

Pete

PS Love the new perks in the Quick Reply. Good job!!!