13 lines
298 B
Text
13 lines
298 B
Text
\\ programming again Swap (for local use)
|
|
Module Swap (&a, &b) {
|
|
\\ this call internal command - by default is by reference without using character &
|
|
Swap a, b
|
|
}
|
|
X=20
|
|
Y=100
|
|
Swap &x, &y
|
|
Print X, Y, Type$(X)="Double",Type$(Y)="Double"
|
|
A$="A$"
|
|
B$="B$"
|
|
Swap &A$, &B$
|
|
Print A$="B$", B$="A$"
|