SwapReals

Procedure SwapReals(ByRef a:Real, ByRef b:Real)

This procedure swaps the values of the Reals that you supply.

Example:

Program
  Uses
basilisk, pure2d

Var
   a : Real
   b : Real   
Begin
  InitBasilisk(TRUE)

  OpenScreen(640,480,32,FALSE,COB_SHOWCLOSE+COB_SHOWBORDER)
  
  a = 1.23
  b = 9.98   

  Text(10,10,"Before: a="+a+" b="+b)

  SwapReals(a, b)
  
  Text(10,30,"After: a="+a+" b="+b)
  
  While Not ExitRequested
   Flip
   Pause
(2)
  Wend
     
End