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