13 lines
130 B
Text
13 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
|