' Trigonometric functions: SIN, COS, TAN, ASIN, ACOS, ATAN, ATN2
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL rad  AS DOUBLE
    LOCAL result  AS DOUBLE
    rad = 0.7853981633974483   ' PI/4

    PRINT "Angle (radians):"; rad
    PRINT "SIN:"; SIN(rad)
    PRINT "COS:"; COS(rad)
    PRINT "TAN:"; TAN(rad)
    PRINT "ASIN(0.7071):"; ASIN(0.7071067811865475)
    PRINT "ACOS(0.7071):"; ACOS(0.7071067811865475)
    PRINT "ATAN(1.0):"; ATAN(1.0)
    PRINT "ATN2(1.0, 1.0):"; ATN2(1.0, 1.0)

    FUNCTION = 0
END FUNCTION
