From 2bf3dd146ba20aa93b47f0d563a86869734d73d9 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Fri, 17 Jan 2020 19:08:29 -0300
Subject: [PATCH] Fixes string concatenation in consts

---
 source/qb64.bas | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/source/qb64.bas b/source/qb64.bas
index 4777910d5..062a8ccd8 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -1995,8 +1995,18 @@ DO
                                     EXIT FOR
                                 END IF
                                 IF LEN(e$) = 0 THEN e$ = e2$ ELSE e$ = e$ + sp + e2$
-                                IF LEN(e2$) > 1 THEN removeComma = INSTR(e2$, ",") ELSE removeComma = 0
-                                IF removeComma THEN e3$ = MID$(e2$, removeComma + 1) ELSE e3$ = e2$
+
+                                e3$ = e2$
+                                IF LEN(e2$) > 1 THEN
+                                    IF ASC(e2$, 1) = 34 THEN
+                                        removeComma = _INSTRREV(e2$, ",")
+                                        e3$ = LEFT$(e2$, removeComma - 1)
+                                    ELSE
+                                        removeComma = INSTR(e2$, ",")
+                                        e3$ = MID$(e2$, removeComma + 1)
+                                    END IF
+                                END IF
+
                                 IF LEN(readable_e$) = 0 THEN
                                     readable_e$ = e3$
                                 ELSE