From 19bdea67f553a4453de44e33d7e3dc8449b1077f Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 27 Feb 2012 18:37:35 -0500
Subject: [PATCH] Localized FBase file buffer and record

---
 mystic/bbs_cfg_filebase.pas | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/mystic/bbs_cfg_filebase.pas b/mystic/bbs_cfg_filebase.pas
index 1bdb8e7..c2b4be8 100644
--- a/mystic/bbs_cfg_filebase.pas
+++ b/mystic/bbs_cfg_filebase.pas
@@ -16,11 +16,7 @@ Uses
   bbs_Common,
   bbs_cfg_Common;
 
-Var
-  FBaseFile : TBufFile;
-  FBase     : RecFileBase;
-
-Procedure EditFileBase;
+Procedure EditFileBase (Var FBase: RecFileBase);
 Var
   Box   : TAnsiMenuBox;
   Form  : TAnsiMenuForm;
@@ -67,10 +63,12 @@ End;
 
 Procedure Configuration_FileBaseEditor;
 Var
-  Box     : TAnsiMenuBox;
-  List    : TAnsiMenuList;
-  Copied  : RecFileBase;
-  HasCopy : Boolean = False;
+  Box       : TAnsiMenuBox;
+  List      : TAnsiMenuList;
+  Copied    : RecFileBase;
+  HasCopy   : Boolean = False;
+  FBaseFile : TBufFile;
+  FBase     : RecFileBase;
 
   Procedure MakeList;
   Begin
@@ -175,7 +173,7 @@ Begin
               FBaseFile.Seek (List.Picked - 1);
               FBaseFile.Read (FBase);
 
-              EditFileBase;
+              EditFileBase(FBase);
 
               FBaseFile.Seek  (List.Picked - 1);
               FBaseFile.Write (FBase);