#COMPILE EXE "s05_rounding.exe"
' Sample: Rounding and integer conversion
FUNCTION PBMAIN() AS LONG
    DIM v AS DOUBLE
    v = 3.14159
    PRINT "INT("; v; ") ="; INT(v)
    PRINT "FIX("; v; ") ="; FIX(v)
    PRINT "INT(-3.14) ="; INT(-3.14)
    PRINT "FIX(-3.14) ="; FIX(-3.14)
    PRINT "ROUND("; v; ",2) ="; ROUND(v, 2)
    FUNCTION = 0
END FUNCTION
