SGN (real-exp)

Returns the sign of real-exp.

If real-exp < 0, it returns -1.
if real-exp=0, returns 0.
if real-exp > 0, returns +1.

Program Example

00100 REM The SGN function
00110 A0 = -100
00120 Al = 0
00130 A2 = 100
00140 PRINT SGN(A0)
00150 PRINT SGN(A1)
00160 PRINT SGN(A2)
00170 END

Try it