SGN

sign = SGN( number ) AS INTEGER

Returns sign of a number.

Greater than Zero = 1

Equal to Zero = 0

Less than Zero = -1

Example:

DIM r AS REAL

DIM b AS REAL

b = -1

r = 123.1 * SGN( b )