RosettaCodeData/Task/Generic-swap/True-BASIC/generic-swap.basic

SUB swap(a, b)
    LET temp = a
    LET a = b
    LET b = temp
END SUB

LET a = 1
LET b = 2

PRINT a, b
CALL swap(a, b)
PRINT a, b
END