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