FUNCTION main() AS LONG
    DIM a AS DOUBLE = 1.5
    DIM b AS DOUBLE = 2.25
    DIM c AS DOUBLE
    c = a * b + 0.5

    IF c > 0.0 THEN
        main = 0
    ELSE
        main = 1
    END IF
END FUNCTION
