' Float operations
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL a AS DOUBLE
    LOCAL b AS DOUBLE
    LOCAL c AS DOUBLE
    a = 1.5
    b = 2.25
    c = a * b + 0.5
    PRINT "a=" + STR$(a) + " b=" + STR$(b) + " c=" + STR$(c)
    IF c > 0.0 THEN
        PRINT "c is positive"
    ELSE
        PRINT "c is not positive"
    END IF
    FUNCTION = 0
END FUNCTION
