QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-05-12 12:00:14 +00:00
Code Releases Wiki Activity

Update qb64.bas

Browse source
This commit is contained in:
visionmercer 2023-05-03 13:26:12 +02:00
parent 12458c63bd
commit 04957e9b85
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/qb64.bas
View file

@ -24924,14 +24924,14 @@ FUNCTION EvaluateNumbers$ (p, num() AS STRING)
EXIT FUNCTION
END IF
n1 = VAL(num(1)) \ FIX(VAL(num(2)))
n1 = VAL(num(1)) \ VAL(num(2))
CASE "MOD"
IF FIX(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 VAL(num(2))
CASE "+": n1 = VAL(num(1)) + VAL(num(2))
CASE "-":
@ -26321,4 +26321,4 @@ SUB DebugPrint(text$)
OPEN debugPath$ + "/qb64.log" FOR APPEND AS #fn
PRINT #fn, text$
CLOSE #fn
END SUB
END SUBEND SUB