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