From af66e4327793f22f2009005d3bb2a07f4bf6f690 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 17 Aug 2012 15:09:42 -0400
Subject: [PATCH] ClearEOL bugfix

---
 mdl/m_output_windows.pas | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/mdl/m_output_windows.pas b/mdl/m_output_windows.pas
index a9a63a5..58bdeb7 100644
--- a/mdl/m_output_windows.pas
+++ b/mdl/m_output_windows.pas
@@ -11,15 +11,15 @@ Uses
 Type
   TOutputWindows = Class
   Private
-    ConOut      : THandle;
-    Cursor      : TCoord;
+    ConOut : THandle;
+    Cursor : TCoord;
   Public
     ScreenSize : Byte;
-    Active   : Boolean;
-    TextAttr : Byte;
-    Buffer   : TConsoleScreenRec;
-    LineBuf  : TConsoleLineRec;
-    Window   : TSmallRect;
+    Active     : Boolean;
+    TextAttr   : Byte;
+    Buffer     : TConsoleScreenRec;
+    LineBuf    : TConsoleLineRec;
+    Window     : TSmallRect;
 
     Constructor Create (A: Boolean);
     Destructor  Destroy; Override;
@@ -181,7 +181,7 @@ Begin
     Buf[Count].UnicodeChar := ' ';
   End;
 
-  Move(Buf[1], Buffer[Cursor.Y + 1][Cursor.X + 1], Count);
+  Move(Buf[1], Buffer[Cursor.Y + 1][Cursor.X + 1], SizeOf(TCharInfo) * Count);
 
   If Active Then Begin
     BufSize.X     := Count;