From 898ce86a63d3eede23de2e5a273a19c45f258ea6 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 16 Feb 2012 00:27:37 -0500
Subject: [PATCH] Reformatting

---
 mystic/bbs_ansi_menubox.pas | 10 +++++-----
 mystic/bbs_filebase.pas     |  7 ++++++-
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/mystic/bbs_ansi_menubox.pas b/mystic/bbs_ansi_menubox.pas
index 459f83a..b1887de 100644
--- a/mystic/bbs_ansi_menubox.pas
+++ b/mystic/bbs_ansi_menubox.pas
@@ -7,11 +7,11 @@ Interface
 Uses
   m_Types;
 
-Procedure WriteXY        (X, Y, A: Byte; S: String);
-Procedure WriteXYPipe    (X, Y, A, SZ : Byte; S: String);
-Function  InXY           (X, Y, Field, Max, Mode: Byte; Default: String) : String;
-Procedure VerticalLine   (X, Y1, Y2 : Byte);
-Function  ShowMsgBox     (BoxType : Byte; Str : String) : Boolean;
+Procedure WriteXY          (X, Y, A: Byte; S: String);
+Procedure WriteXYPipe      (X, Y, A, SZ : Byte; S: String);
+Function  InXY             (X, Y, Field, Max, Mode: Byte; Default: String) : String;
+Procedure VerticalLine     (X, Y1, Y2 : Byte);
+Function  ShowMsgBox       (BoxType : Byte; Str : String) : Boolean;
 
 Type
   TAnsiMenuBox = Class
diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas
index 9585cef..2e09833 100644
--- a/mystic/bbs_filebase.pas
+++ b/mystic/bbs_filebase.pas
@@ -3281,6 +3281,7 @@ Var
 
     Assign (DataFile, Config.DataPath + FBase.FileName + '.des');
     {$I-} Reset (DataFile, 1); {$I+}
+
     If IoResult = 0 Then
       Seek (DataFile, FileSize(DataFile))
     Else
@@ -3289,8 +3290,8 @@ Var
     Assign (FDirFile, Config.DataPath + FBase.FileName + '.dir');
 
     FindFirst(FBase.Path + FileMask, Archive, DirInfo);
-    While DosError = 0 Do Begin
 
+    While DosError = 0 Do Begin
       OldPos := FilePos(FBaseFile);
       Close (FBaseFile);
 
@@ -3341,6 +3342,7 @@ Var
         End;
 
         FDir.Pointer := FileSize(DataFile);
+
         For A := 1 to FDir.Lines Do
           BlockWrite (DataFile, Session.Msgs.MsgText[A][0], Length(Session.Msgs.MsgText[A]) + 1);
 
@@ -3365,11 +3367,14 @@ Var
         End;
 
         {$I-} Reset (FDirFile); {$I+}
+
         If IoResult <> 0 Then ReWrite(FDirFile);
+
         Seek  (FDirFile, FileSize(FDirFile));
         Write (FDirFile, FDir);
         Close (FDirFile);
       End;
+
       FindNext(DirInfo);
     End;