#COMPILE EXE "s03_trig.exe"
' Sample: Trigonometric functions
FUNCTION PBMAIN() AS LONG
    DIM angle AS DOUBLE
    angle = 3.14159 / 4
    PRINT "sin(45) ="; SIN(angle)
    PRINT "cos(45) ="; COS(angle)
    PRINT "tan(45) ="; TAN(angle)
    PRINT "atn(1) ="; ATN(1.0)
    FUNCTION = 0
END FUNCTION
