Code cleanups

mystic/bbs_ansi_help.pas

@@ -251,6 +251,8 @@ Var
   Count : Byte;
   Ch    : Char;
 Begin
+  FillChar(LastKey, SizeOf(LastKey), 0);
+
   FN       := strWordGet(1, Str, ';');
   Template := strWordGet(2, Str, ';');
   Keyword  := strWordGet(3, Str, ';');

mystic/bbs_cfg_useredit.pas

@@ -102,8 +102,8 @@ Begin
     Case PagePos of
       1 : Begin
             WriteXY ( 8, 19, 112, 'Caller ID');
-            WriteXY (23, 19, 113, U.PeerIP);
-            WriteXY (23, 20, 113, U.PeerHost);
+            WriteXY (23, 19, 113, U.PeerHost);
+            WriteXY (23, 20, 113, U.PeerIP);
 
             Form.Clear;
 
@@ -223,7 +223,8 @@ Begin
       #81 : If PagePos < 6 Then Begin
               Inc (PagePos);
               UpdatePage(True);
-            End;
+            End Else
+              Form.ItemPos := Form.Items;
     End;
 
     Changed := Changed or Form.Changed;

mystic/bbs_common.pas

@@ -321,11 +321,6 @@ Begin
 End;
 
 Procedure ProcessSysopCommand (Cmd: Char);
-Var
-  A  : Integer;
-  X,
-  Y  : Byte;
-  LS : Boolean;
 Begin
   If Not Screen.Active And (Cmd <> #47) Then Exit;
 
@@ -333,9 +328,6 @@ Begin
 {E} #18 : If (Not Session.InUserEdit) and (Session.User.UserNum <> -1) Then
             Configuration_LocalUserEdit;
 {T} #20 : Begin
-//            X := Screen.CursorX;
-//            Y := Screen.CursorY;
-
             Config.UseStatusBar := Not Config.UseStatusBar;
 
             If Not Config.UseStatusBar Then Begin

mystic/bbs_edit_full.pas

@@ -40,7 +40,7 @@ Var
   InsertMode   : Boolean = True;
   CutPasted    : Boolean = False;
   CutTextPos   : Word    = 0;
-  CutText      : Array[1..MaxCutText] of CutTextPtr;
+  CutText      : Array[1..MaxCutText] of CutTextPTR;
   Done         : Boolean;
   Save         : Boolean;
   Ch           : Char;

mystic/bbs_io.pas

@@ -1238,7 +1238,7 @@ End;
 Function TBBSIO.GetKey : Char;
 Var
   TimeCount : LongInt;
-  LastSec   : LongInt;
+  LastSec   : LongInt = 0;
 Begin
   Result := #255;
 

mystic/bbs_nodechat.pas

@@ -18,11 +18,11 @@ Uses
   bbs_Core;
 
 Var
-  ChatSize   : Byte;
+  ChatSize   : Integer;
   ChatUpdate : LongInt;
-  TextPos    : Byte;
-  TopPage    : Byte;
-  LinePos    : Byte;
+  TextPos    : Integer;
+  TopPage    : Integer;
+  LinePos    : Integer;
   Full       : Boolean;
 
 Procedure FullReDraw;

mystic/mide.pas

@@ -271,11 +271,6 @@ Var
     End;
   End;
 
-Var
-  A     : Byte;
-  B     : Byte;
-  W     : String;
-  InStr : Boolean;
 Begin
   Console.WriteXY (2, Y, colTextNormal, strPadR(Copy(S, CurWin[CurWinNum]^.ScrlX + 1, 255), 77, ' '));
 End;
@@ -619,7 +614,6 @@ Var
   InKey : TMenuInput;
   Str   : String;
   Save  : Boolean;
-//  TF    : Text;
 Begin
   Save := True;
 
@@ -716,7 +710,6 @@ End;
 
 Procedure CompileStatusUpdate (Info: TParserUpdateInfo);
 Var
-  SavedX  : Byte;
   Percent : Byte;
 Begin
   Case Info.Mode of