I think this won't work...
Code:
BVal VAR BYTE
BVal = 0
BVal = BVal - 1
If BVal < 0 THEN Negative
Because BVal is byte, and byte is always unsigned. So it can't be lower than 0. Correct me if I'm wrong...