Modules with negative numbers have wrong sign

[mengstr]

10 LET A = 11
11 LET B = 0 - A
12 LET C = 3
13 LET D = 0 - C
20 PRINT A ; " % " ; C ; " SHOULD BE 2, IS " ; A % C
21 PRINT B ; " % " ; C ; " SHOULD BE -2, IS " ; B % C
22 PRINT A ; " % " ; D ; " SHOULD BE 2, IS " ; A % D
23 PRINT B ; " % " ; D ; " SHOULD BE -2, IS " ; B % D
50 END

>run
11 % 3 SHOULD BE 2, IS 2
-11 % 3 SHOULD BE -2, IS -2
11 % -3 SHOULD BE 2, IS -2
-11 % -3 SHOULD BE -2, IS 2