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 )