#COMPILE EXE "test_numeric1.exe"
#DIM ALL
FUNCTION PBMAIN() AS LONG
    LOCAL r AS LONG
    LOCAL b AS BYTE
    r = 0
    b = 200
    IF b <> 200 THEN r = 100
    b = 255
    IF b <> 255 THEN r = 101
    FUNCTION = r
END FUNCTION
