' Float checking: ISFINITE, ISNAN, ISZERO, RGB, ROTATE
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL normalVal  AS DOUBLE
    LOCAL zeroVal  AS DOUBLE
    LOCAL nanVal  AS DOUBLE
    LOCAL color  AS LONG
    LOCAL rotated  AS LONG
    normalVal = 42.0
    zeroVal = 0.0

    PRINT "ISFINITE(42.0):"; ISFINITE(normalVal)
    PRINT "ISZERO(0.0):"; ISZERO(zeroVal)

    color = RGB(255, 128, 64)
    PRINT "RGB(255,128,64):"; color

    rotated = ROTATE(&H01020304, 8)
    PRINT "ROTATE(&H01020304, 8):"; FORMAT$(rotated, "&H")
    rotated = ROTATE(&H01020304, -8)
    PRINT "ROTATE(&H01020304, -8):"; FORMAT$(rotated, "&H")

    FUNCTION = 0
END FUNCTION
