#COMPILE EXE "s07_abs_sgn.exe"
' Sample: Absolute value and sign functions
FUNCTION PBMAIN() AS LONG
    DIM v AS LONG
    v = -42
    PRINT "ABS("; v; ") ="; ABS(v)
    PRINT "SGN("; v; ") ="; SGN(v)
    PRINT "ABS(42) ="; ABS(42)
    PRINT "SGN(0) ="; SGN(0)
    FUNCTION = 0
END FUNCTION
