#COMPILE EXE "s04_log.exe"
' Sample: Logarithmic and exponential functions
FUNCTION PBMAIN() AS LONG
    DIM val AS DOUBLE
    val = 100.0
    PRINT "EXP(1) ="; EXP(1.0)
    PRINT "LOG("; val; ") ="; LOG(val)
    PRINT "LOG(1) ="; LOG(1.0)
    PRINT "EXP(LOG("; val; ")) ="; EXP(LOG(val))
    FUNCTION = 0
END FUNCTION
