SwapStrings
Procedure SwapStrings(ByRef a:String, ByRef b:String)
This procedure swaps the values of the Strings that you supply.
Example:
Program
Uses basilisk, pure2d
Var
a : String
b : String
Begin
InitBasilisk(TRUE)
OpenScreen(640,480,32,FALSE,COB_SHOWCLOSE+COB_SHOWBORDER)
a = "cat"
b = "dog"
Text(10,10,"Before: a="+a+" b="+b)
SwapStrings(a, b)
Text(10,30,"After: a="+a+" b="+b)
While Not ExitRequested
Flip
Pause(2)
Wend
End