From 92e963ce7a182691b8bb156c087267beb7269cef Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 23 Jul 2012 23:02:19 -0400
Subject: [PATCH] Code cleanup

---
 mdl/m_fileio.pas       | 5 +++--
 mdl/m_socket_class.pas | 3 ---
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/mdl/m_fileio.pas b/mdl/m_fileio.pas
index fe38574..3594cd0 100644
--- a/mdl/m_fileio.pas
+++ b/mdl/m_fileio.pas
@@ -247,7 +247,8 @@ Var
   BWrite  : LongInt;
   FileBuf : Array[1..4096] of Char;
 Begin
-  Result := False;
+  Result   := False;
+  FileMode := 66;
 
   Assign (SF, Source);
   {$I-} Reset(SF, 1); {$I+}
@@ -366,7 +367,7 @@ Function JustFile (Str: String) : String;
 Var
   Count : Byte;
 Begin
-  For Count := Ord(Str[0]) DownTo 1 Do
+  For Count := Length(Str) DownTo 1 Do
     If (Str[Count] = '/') or (Str[Count] = '\') Then Begin
       Delete (Str, 1, Count);
       Break;
diff --git a/mdl/m_socket_class.pas b/mdl/m_socket_class.pas
index f477702..8464f5a 100644
--- a/mdl/m_socket_class.pas
+++ b/mdl/m_socket_class.pas
@@ -174,9 +174,6 @@ Begin
 End;
 
 Procedure TSocketClass.BufFlush;
-Var
-  Count : LongInt;
-  Start : LongInt;
 Begin
   If FOutBufPos > 0 Then Begin
     If FTelnetClient or FTelnetServer Then