From bee95ca79e7dd05388d7642b95469bb2fa9fce3b Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 30 Jul 2012 18:18:00 -0400
Subject: [PATCH] Added buffer flushes after displaying Scanning prompts

---
 mystic/bbs_filebase.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas
index aa40808..9b27c9a 100644
--- a/mystic/bbs_filebase.pas
+++ b/mystic/bbs_filebase.pas
@@ -2920,8 +2920,9 @@ Var
   Procedure Scan_Base;
   Begin
     Session.io.PromptInfo[1] := FBase.Name;
-    Session.io.OutBS (Screen.CursorX, True);
+    Session.io.OutBS   (Screen.CursorX, True);
     Session.io.OutFull (Session.GetPrompt(87));
+    Session.io.BufFlush;
 
     Case ListFiles (3, Str) of
       0 : Found := False;
@@ -2991,8 +2992,10 @@ Var
   Procedure Scan_Current_Base;
   Begin
     Session.io.PromptInfo[1] := FBase.Name;
-    Session.io.OutBS (Screen.CursorX, True);
+
+    Session.io.OutBS   (Screen.CursorX, True);
     Session.io.OutFull (Session.GetPrompt(87));
+    Session.io.BufFlush;
 
     Case ListFiles (2, '') of
       0 : Found := False;