From 4c82f072fcae47bca4cc14528653ca7e4a928003 Mon Sep 17 00:00:00 2001
From: visionmercer <62051836+visionmercer@users.noreply.github.com>
Date: Tue, 10 May 2022 22:40:20 +0200
Subject: [PATCH] Update loadhexpalette.bm

---
 loadhexpalette.bm | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/loadhexpalette.bm b/loadhexpalette.bm
index 3069a17..da3f4a3 100644
--- a/loadhexpalette.bm
+++ b/loadhexpalette.bm
@@ -1,9 +1,6 @@
 SUB LoadHexPalette (Filename$, palettearray() AS _UNSIGNED LONG)
     DIM i  AS INTEGER
     DIM ff AS INTEGER
-    DIM r  AS _UNSIGNED _BYTE
-    DIM g  AS _UNSIGNED _BYTE
-    DIM b  AS _UNSIGNED _BYTE
     DIM Colorload AS STRING
     i = LBOUND(palettearray) - 1
     ff = FREEFILE
@@ -11,15 +8,12 @@ SUB LoadHexPalette (Filename$, palettearray() AS _UNSIGNED LONG)
         OPEN Filename$ FOR INPUT AS ff
         DO UNTIL EOF(ff)
             LINE INPUT #ff, Colorload
-            r = VAL("&H" + MID$(Colorload, 1, 2))
-            g = VAL("&H" + MID$(Colorload, 3, 2))
-            b = VAL("&H" + MID$(Colorload, 5, 2))
             i = i + 1
             IF i > UBOUND(palettearray) THEN
                 REDIM _PRESERVE palettearray(i) AS _UNSIGNED LONG
             END IF
-            palettearray(i) = _RGB32(r, g, b)
+            palettearray(i) = Val("&HFF" + Colorload)
         LOOP
         CLOSE ff
     END IF
-END SUB
\ No newline at end of file
+END SUB