12 lines
130 B
Text
12 lines
130 B
Text
$ a1 = 123
|
|
$ a2 = "hello"
|
|
$ show symbol a*
|
|
$ gosub swap
|
|
$ show symbol a*
|
|
$ exit
|
|
$
|
|
$ swap:
|
|
$ t = a1
|
|
$ a1 = a2
|
|
$ a2 = t
|
|
$ return
|