From 0eb9e1620f88f7bef24d24a44f7db7f5ff9fefbb Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Sat, 24 Dec 2016 16:10:57 +0900
Subject: [PATCH] Fix INKEY

---
 SMILEBASIC/petitcomputer.d | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/SMILEBASIC/petitcomputer.d b/SMILEBASIC/petitcomputer.d
index 25c508f..360beca 100644
--- a/SMILEBASIC/petitcomputer.d
+++ b/SMILEBASIC/petitcomputer.d
@@ -1522,6 +1522,9 @@ class PetitComputer
     }
     wstring inkey()
     {
+        keybuffermutex.lock();
+        scope (exit)
+            keybuffermutex.unlock();
         if (!keybufferlen)
         {
             return "";