From 9d20796505c9ab60a59e631c95ad9a82a6df5d7f Mon Sep 17 00:00:00 2001
From: Fellippe Heitor <fellippeheitor@gmail.com>
Date: Fri, 21 May 2021 21:02:20 -0300
Subject: [PATCH] Prevents CONST errors with string functions.

CHR$ et al are not allowed in CONSTS. That's explicit now.
---
 source/qb64.bas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/source/qb64.bas b/source/qb64.bas
index 839474a32..3ec20c38d 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -2124,6 +2124,9 @@ DO
                                 e$ = lineformat(temp1$) 'retrieve parseable format
                             ELSE
                                 IF temp1$ = "ERROR - Division By Zero" THEN a$ = temp1$: GOTO errmes
+                                IF INSTR(temp1$, "Improper operations") THEN
+                                    a$ = "Invalid CONST expression.14": GOTO errmes
+                                END IF
                             END IF
 
                             'Proceed as usual
@@ -23993,7 +23996,6 @@ SUB Set_OrderOfOperations
     i = i + 1: OName(i) = "_CSC": PL(i) = 10
     i = i + 1: OName(i) = "_COT": PL(i) = 10
     i = i + 1: OName(i) = "ASC": PL(i) = 10
-    i = i + 1: OName(i) = "CHR$": PL(i) = 10
     i = i + 1: OName(i) = "C_RG": PL(i) = 10 '_RGB32 converted
     i = i + 1: OName(i) = "C_RA": PL(i) = 10 '_RGBA32 converted
     i = i + 1: OName(i) = "_RGB": PL(i) = 10