$ a1 = 123
$ a2 = "hello"
$ show symbol a*
$ gosub swap
$ show symbol a*
$ exit
$
$ swap:
$  t = a1
$  a1 = a2
$  a2 = t
$ return