From d85a08090ace8a68f1f92094cb33a47b6e12070e Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 13 Sep 2013 23:08:58 -0400
Subject: [PATCH] Cleanup

---
 mystic/mis.pas            | 5 +++--
 mystic/mis_client_ftp.pas | 1 -
 mystic/mystic.pas         | 8 ++++++--
 3 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/mystic/mis.pas b/mystic/mis.pas
index 5e8520d..ca40cdf 100644
--- a/mystic/mis.pas
+++ b/mystic/mis.pas
@@ -19,10 +19,10 @@
 //
 // ====================================================================
 
-{$I M_OPS.PAS}
-
 Program MIS;
 
+{$I M_OPS.PAS}
+
 Uses
   {$IFDEF DEBUG}
     HeapTrc,
@@ -204,6 +204,7 @@ Begin
   For Count := 22 DownTo 15 Do Begin
     If Offset > 0 Then Begin
       Dec(Offset);
+
       Console.WriteXY (4, Count, 7, strPadR(FocusPtr.ServerStatus.Strings[Offset], 74, ' '));
     End Else
       Console.WriteXY (4, Count, 7, strPadR(' ', 74, ' '));
diff --git a/mystic/mis_client_ftp.pas b/mystic/mis_client_ftp.pas
index a8f8f5e..32ed8b1 100644
--- a/mystic/mis_client_ftp.pas
+++ b/mystic/mis_client_ftp.pas
@@ -851,7 +851,6 @@ Var
   TempBase : RecFileBase;
   BaseFile : File;
   CurDIR   : String;
-  DizFile  : Text;
   Desc     : FileDescBuffer;
   DescSize : Byte;
   Dir      : RecFileList;
diff --git a/mystic/mystic.pas b/mystic/mystic.pas
index c1d05af..2518560 100644
--- a/mystic/mystic.pas
+++ b/mystic/mystic.pas
@@ -253,13 +253,15 @@ Begin
   Session.TempPath := bbsCfg.SystemPath + 'temp' + strI2S(Session.NodeNum) + PathChar;
   Session.Pipe     := TPipe.Create(bbsCfg.DataPath, False, Session.NodeNum);
 
+(*
   {$I-}
   MkDir (bbsCfg.SystemPath + 'temp' + strI2S(Session.NodeNum));
   {$I+}
 
   If IoResult <> 0 Then;
-
-  DirClean (Session.TempPath, '');
+*)
+  DirCreate (Session.TempPath);
+  DirClean  (Session.TempPath, '');
 
   Assign (Session.User.UserFile, bbsCfg.DataPath + 'users.dat');
   {$I-} Reset (Session.User.UserFile); {$I+}
@@ -477,10 +479,12 @@ Begin
   Else
     Session.SetTimeLeft(bbsCfg.LoginTime);
 
+(*
   {$IFNDEF UNIX}
     Screen.TextAttr := 7;
     Screen.ClearScreen;
   {$ENDIF}
+*)
 
   {$IFNDEF UNIX}
     UpdateStatusLine(0, '');