Fix INKEY$() buffer

2016-12-24 16:35:38 +09:00
parent 694f4736df
commit 197fdeb33d
1 changed files with 1 additions and 1 deletions
--- a/SMILEBASIC/petitcomputer.d
+++ b/SMILEBASIC/petitcomputer.d
@@ -1531,7 +1531,7 @@ class PetitComputer
        {
            return "";
        }
-        auto result = keybuffer[(keybufferpos - keybufferlen)];
+        auto result = keybuffer[(keybufferpos - keybufferlen) % keybuffer.length];
        keybufferlen--;
        return result.key.to!wstring;
    }