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