From 6c941d49bc95c7bb040c8df7a74826f89bb42d75 Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Tue, 13 Dec 2016 23:33:54 +0900
Subject: [PATCH] Implement GCOLOR()

---
 SMILEBASIC/builtinfunctions.d | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/SMILEBASIC/builtinfunctions.d b/SMILEBASIC/builtinfunctions.d
index a2861c2..43a6af6 100644
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -465,6 +465,10 @@ class BuiltinFunction
     {
         p.graphic.gcolor = color;
     }
+    static int GCOLOR(PetitComputer p)
+    {
+        return p.graphic.gcolor;
+    }
     static void GPRIO(PetitComputer p, int z)
     {
         p.graphic.gprio = z;