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