From ecf1f818331aca31a6cf3d74099684c80421ef64 Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Thu, 15 Dec 2016 21:45:52 +0900
Subject: [PATCH] Fix GPUTCHR X,Y,TEXT,COLOR

---
 SMILEBASIC/builtinfunctions.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SMILEBASIC/builtinfunctions.d b/SMILEBASIC/builtinfunctions.d
index f8ca773..1bfc331 100644
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -517,7 +517,7 @@ class BuiltinFunction
     }
     static void GPUTCHR(PetitComputer p, int x, int y, Value str, int color)
     {
-        GPUTCHR(p, x, y, str, 1, 1, p.graphic.gcolor);
+        GPUTCHR(p, x, y, str, 1, 1, color);
     }
     static void GPUTCHR(PetitComputer p, int x, int y, Value str, int scalex, int scaley)
     {