Implement GPAGE OUT VP,WP

2016-12-20 21:32:05 +09:00
parent e00cee0344
commit a2aa152d5f
1 changed files with 5 additions and 0 deletions
--- 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*/);