diff --git a/source/qb64pe.bas b/source/qb64pe.bas index 54b2611e5..f0eea334a 100644 --- a/source/qb64pe.bas +++ b/source/qb64pe.bas @@ -24634,20 +24634,17 @@ FUNCTION EvaluateNumbers$ (p, num() AS STRING) EXIT FUNCTION END IF CASE "\" - IF FIX(VAL(num(2))) = 0 THEN + IF _ROUND(VAL(num(2))) = 0 THEN EvaluateNumbers$ = "ERROR - Division By Zero" EXIT FUNCTION END IF - - n1 = VAL(num(1)) \ FIX(VAL(num(2))) + n1 = VAL(num(1)) \ _ROUND(VAL(num(2))) CASE "MOD" - IF FIX(VAL(num(2))) = 0 THEN + IF _ROUND(VAL(num(2))) = 0 THEN EvaluateNumbers$ = "ERROR - Division By Zero" EXIT FUNCTION END IF - - n1 = VAL(num(1)) MOD FIX(VAL(num(2))) - + n1 = VAL(num(1)) MOD _ROUND(VAL(num(2))) CASE "+": n1 = VAL(num(1)) + VAL(num(2)) CASE "-": n1 = VAL(num(1)) - VAL(num(2))