#COMPILE EXE "test_numeric2.exe"
#DIM ALL
FUNCTION PBMAIN() AS LONG
    LOCAL r AS LONG
    LOCAL w AS WORD
    LOCAL d AS DWORD
    LOCAL i AS INTEGER
    LOCAL l AS LONG
    LOCAL q AS QUAD
    r = 0
    w = 50000
    IF w <> 50000 THEN r = 200
    d = 3000000000
    IF d <> 3000000000 THEN r = 300
    i = -1000
    IF i <> -1000 THEN r = 400
    i = 1000
    IF i <> 1000 THEN r = 401
    l = -50000
    IF l <> -50000 THEN r = 500
    q = 10000000000
    IF q <> 10000000000 THEN r = 600
    FUNCTION = r
END FUNCTION
