Does SB have a SWAP function?

[marklpenni]

Or how can I implement a SWAP(x,y) function in SB?
This doesn't work for me as I thought it might...

a=1 ! b=2
PRINT a,b
swap(a,b)
PRINT a,b
END

DEF swap(x,y)
temp=x
x=y
y=temp
ENDDEF


Many thanks!
Mark

[Mr. Kibernetik]

In BASIC language there is no SWAP function.

In any case you will need to use extra assignment to change variables values.

Code: Select all

a=1 ! b=2
PRINT a,b
swap(a,b)
a=swap.x ! b=swap.y
PRINT a,b
END

DEF swap(x,y)
temp=x
x=y
y=temp
ENDDEF

Or more simple way, without a function:

Code: Select all

a=1 ! b=2
PRINT a,b
temp=a ! a = b ! b = temp
PRINT a,b
END