From 774707c58447b6f4abc4b946678b485108481c29 Mon Sep 17 00:00:00 2001
From: Fellippe Heitor <fellippeheitor@gmail.com>
Date: Thu, 18 Feb 2021 19:39:22 -0300
Subject: [PATCH] Properly colorizes 32BIT and 64BIT in $IF blocks.

---
 source/ide/ide_methods.bas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index f5ee06a5a..b27896373 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -8380,6 +8380,13 @@ SUB ideshowtext
                             IF isnumber(checkKeyword$) THEN
                                 is_Number = -1
                                 isKeyword = LEN(checkKeyword$)
+                            ELSEIF INSTR(UserDefineList$, "@" + UCASE$(checkKeyword$)) > 0 THEN
+                                'keep checking
+                                FOR i = i TO LEN(a2$)
+                                    IF INSTR(char.sep$, MID$(a2$, i, 1)) > 0 THEN right.sep$ = MID$(a2$, i, 1): GOTO keywordAcquired
+                                    checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1)
+                                NEXT
+                                GOTO keywordAcquired
                             END IF
                         END IF
                         GOTO setOldChar
@@ -8394,6 +8401,7 @@ SUB ideshowtext
                             checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1)
                         NEXT
                         IF comment = 0 AND LEFT$(checkKeyword$, 1) = "?" THEN isKeyword = 1: GOTO setOldChar
+                        keywordAcquired:
                         checkKeyword$ = UCASE$(checkKeyword$)
                         IF INSTR(listOfKeywords$, "@" + checkKeyword$ + "@") > 0 OR _
                            (qb64prefix_set = 1 AND INSTR(listOfKeywords$, "@_" + checkKeyword$ + "@") > 0) THEN