From bf7037107087bab8786aa2c23593a9dd40d39495 Mon Sep 17 00:00:00 2001
From: Eric <sikofitt@gmail.com>
Date: Sun, 10 Mar 2013 09:21:18 -0700
Subject: [PATCH] Fix so user and op stay on their own sides.

Used to scroll all the way down to line 25, now sysop and user stay on their own sides.
---
 SOURCE/SPLITCHA.PAS | 28 ++++++++++++++++++++++++----
 1 file changed, 24 insertions(+), 4 deletions(-)

diff --git a/SOURCE/SPLITCHA.PAS b/SOURCE/SPLITCHA.PAS
index a3e6d20..b179c7c 100644
--- a/SOURCE/SPLITCHA.PAS
+++ b/SOURCE/SPLITCHA.PAS
@@ -228,11 +228,11 @@ PROCEDURE SysOpChatWindow;
 BEGIN
   CLS;
   ANSIG(1,1);
-  Prompt('ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸');
+  Prompt('������������������������������������������������������������������������������͸');
   ANSIG(1,12);
-  Prompt('ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵ CTRL-Z Help ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵');
+  Prompt('�������������������������������͵ CTRL-Z Help ��������������������������������͵');
   ANSIG(1,23);
-  Prompt('ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;');
+  Prompt('������������������������������������������������������������������������������;');
 END;
 
 PROCEDURE SysOpSplitChat;
@@ -391,7 +391,27 @@ VAR
 
     Inc(YPos);
     XPos := 2;
-    ANSIG(XPos,YPos);
+    { Fix Splitscreen so user and op stay on their own sides }
+    If (YPos = 12) Then 
+     Begin
+      For i := 2 To 11 Do
+       Begin
+        ANSIG(1,i);
+        Clear_EOL;
+       End;
+      YPos := 2;
+    End
+    Else If (YPos = 23) Then
+     Begin
+      For i := 13 To 22 Do
+       Begin
+        ANSIG(1,i);
+        Clear_EOL;
+       End;
+    YPos := 13;
+    End;
+    
+   ANSIG(XPos,YPos);
 
     (* Do Cmds Here or add as Ctrl *)