Não conhecia o Swap, mas darei uma olhada!
https://www.qbasic.net/en/reference/qb11/Statement/SWAP.htm