#COMPILE EXE
#DIM ALL
FUNCTION PBMAIN() AS LONG
    DIM c AS CURRENCYX
    c = 1234.5@
    PRINT c
    c = 0.5@
    PRINT c
    c = 1000000.0@
    PRINT c
    c = 123.456789@
    PRINT c
    FUNCTION = 0
END FUNCTION
