From 11b1da4450a19d46e325d516edc2fcaab5c1e81b Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Wed, 14 Dec 2016 18:47:43 +0900
Subject: [PATCH] Fix GSAVE

---
 SMILEBASIC/graphic.d | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/SMILEBASIC/graphic.d b/SMILEBASIC/graphic.d
index 3691ecb..fb9f844 100644
--- a/SMILEBASIC/graphic.d
+++ b/SMILEBASIC/graphic.d
@@ -576,6 +576,12 @@ class Graphic
     {
         if (w * h > array.length)
             return;
+        auto oldPage = useGRP;
+        useGRP = savepage;
+        scope (exit)
+        {
+            useGRP = oldPage;
+        }
         //endian?
         if (false && flag)//0=32bit
         {