INKEY$()を実装

2016-08-31 18:19:14 +09:00
parent 8eb2790b0f
commit ed8017b4e0
2 changed files with 14 additions and 0 deletions
--- a/SMILEBASIC/petitcomputer.d
+++ b/SMILEBASIC/petitcomputer.d
@@ -1536,6 +1536,16 @@ class PetitComputer
        //display = olddisplay;
        return buffer;
    }
+    wstring inkey()
+    {
+        if (!keybufferlen)
+        {
+            return "";
+        }
+        auto result = keybuffer[(keybufferpos - keybufferlen)];
+        keybufferlen--;
+        return result.key.to!wstring;
+    }
    int CSRX;
    int CSRY;
    int CSRZ;