SGN function

Purpose | Return the sign of a numeric expression.
Syntax | y = SGN(numeric_expression)

Remarks

If numeric_expression is positive, SGN returns 1. If numeric_expression is zero, SGN returns 0. If numeric_expression is negative, SGN returns -1.

In conjunction with the ON GOTO and ON GOSUB statements, SGN can produce a FORTRAN-like three-way branch:

ON SGN(balance) + 2 GOTO InTheRed, BreakingEven, InTheMoney

See also | ABS, IF, ON GOSUB, ON GOTO, SELECT

Example

' ON SGN value, GOSUB appropriate subroutine

ON SGN (value) + 2 GOSUB Minus, Zero, Plus

' more code here

Minus:

x$ = "The product is negative" : RETURN

Zero:

x$ = "The product is zero" : RETURN

Plus:

x$ = "The product is positive" : RETURN