From dc299c2af4512e4e5e0c3e41ddbc4105fb410ca3 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 13 Mar 2012 22:32:12 -0400
Subject: [PATCH] GetPrompt change

---
 mystic/bbs_core.pas | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/mystic/bbs_core.pas b/mystic/bbs_core.pas
index 059ce9b..973dd30 100644
--- a/mystic/bbs_core.pas
+++ b/mystic/bbs_core.pas
@@ -226,9 +226,17 @@ Begin
   {$I+}
 
   If IoResult <> 0 Then Begin
-    io.OutFull ('|CR|12Error reading prompt ' + strI2S(N) + '|DE|DE');
-    SystemLog  ('Error reading prompt ' + strI2S(N));
-    Halt       (1);
+    {$I-}
+    Reset (PromptFile);
+    Seek  (PromptFile, N);
+    Read  (PromptFile, Prompt);
+    {$I+}
+
+    If IoResult <> 0 Then Begin
+      io.OutFull ('|CR|12Error reading prompt ' + strI2S(N) + '|DE|DE');
+      SystemLog  ('Error reading prompt ' + strI2S(N));
+      Halt       (1);
+    End;
   End;
 
   If Prompt[1] = '@' Then Begin