' 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 "1:"; 1
    PRINT "((0.0)=0):"; ((zeroVal)=0)

    color = 255 + 128 * 256 + 64 * 65536
    PRINT "RGB(255,128,64):"; color

    rotated = ((&H01020304) * (2 ^ ABS( 8)))
    PRINT "((&H01020304) * (2 ^ ABS( 8))):"; STR$(rotated)
    rotated = ((&H01020304) * (2 ^ ABS( -8)))
    PRINT "((&H01020304) * (2 ^ ABS( -8))):"; STR$(rotated)

    FUNCTION = 0
END FUNCTION
