From 6144608de7bd7f2e7741403f1fa0c073f1b547f6 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 22 Apr 2013 13:36:19 -0400
Subject: [PATCH] PurgeInput now purges local keyboard input in windows too

---
 mystic/bbs_io.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mystic/bbs_io.pas b/mystic/bbs_io.pas
index fa94fb6..4d9864d 100644
--- a/mystic/bbs_io.pas
+++ b/mystic/bbs_io.pas
@@ -2162,12 +2162,17 @@ Begin
 End;
 
 Procedure TBBSIO.PurgeInputBuffer;
+{$IFDEF WINDOWS}
+Var
+  Ch : Char;
+{$ENDIF}
 Begin
   {$IFDEF UNIX}
   While Input.KeyPressed Do Input.ReadKey;
   {$ENDIF}
   {$IFDEF WINDOWS}
   If Not TBBSCore(Core).LocalMode Then TBBSCore(Core).Client.PurgeInputData(100);
+  If TBBSCore(Core).LocalMode Then While Input.KeyPressed Do Ch := Input.ReadKey;
   {$ENDIF}
 End;