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