RosettaCodeData/Task/Generic-swap/XBasic/generic-swap.basic

PROGRAM  "nswap"
VERSION  "0.0000"

DECLARE FUNCTION Entry ()

FUNCTION  Entry ()
	a = 1
	b = 2

	PRINT a, b
	GOSUB nswap
	PRINT a, b

SUB nswap
    temp = a: a = b: b = temp
END SUB
END FUNCTION
END PROGRAM