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;