From a2aa152d5fa74d45f6ad0e266c700394e74e3715 Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Tue, 20 Dec 2016 21:32:05 +0900
Subject: [PATCH] Implement GPAGE OUT VP,WP

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

diff --git a/SMILEBASIC/builtinfunctions.d b/SMILEBASIC/builtinfunctions.d
index 54a7caa..978b675 100644
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -477,6 +477,11 @@ class BuiltinFunction
         p.graphic.showGRP = showPage;
         p.graphic.useGRP = usePage;
     }
+    static void GPAGE(PetitComputer p, out int showPage, out int usePage)
+    {
+        showPage = p.graphic.showGRP;
+        usePage = p.graphic.useGRP;
+    }
     static void GCLIP(PetitComputer p, int clipmode)
     {
         p.graphic.clip(cast(bool)clipmode/*not checked*/);