6 lines
99 B
Text
6 lines
99 B
Text
PROCEDURE Swap( /*@*/v1, /*@*/v2 )
|
|
LOCAL xTmp
|
|
xTmp := v1
|
|
v1 := v2
|
|
v2 := xTmp
|
|
RETURN
|