Lots of NodeSpy terminal updates

mystic/nodespy_ansiterm.ans

@@ -7,5 +7,5 @@
 °°²ÛÛÛÛ ²ÜÜÜܲ ÛÛÛÛÛ ±Ü ßßßßÛÛÛÛ²ÛÛÛÛÛÛÛÛÛÛ²± ßÛÛÛÛÜÜÛÛÛÛÛ±°°°°°ßÛÛÛÛÜÜÜÜÜ ÜÜÛ
 ÜÜþ ßß² ±  °°²ÜÜÜÜÜÜܲßßßßß ²ÛÛÛ ²²²ÛÛÛ²ßßßß ÞÜÜ ßßßßßßßß  ßßßßß    ßßßßßßß Ý°°
 °Ý°°þ    Þßßßßßßßßßßßßß ß   Node Spy   ßÜ
-ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜｲ System Name              ｲｳｲ Address                  ｲｳｲ LastCall ｲｳｲ Calls ｲﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾛﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞｲﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜｲｰ                           Default NodeSpy PhoneBook                          ｰ ﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟ
+ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜｲ System Name              ｲｳｲ Address                  ｲｳｲ LastCall ｲｳｲ Calls ｲﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾛﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞｲﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜｲｰ                            NodeSpy Telnet Directory                          ｰ ﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟ
-   ENTER: Call    ALT+E: Edit    ALT+S: Sort    DELETE: Clear    ESCAPE: Quit
+   ENTER: Call    ALT+E: Edit    INSERT: Add    DELETE: Clear    ESCAPE: Quit

mystic/nodespy_ansiterm.pas

@@ -2,8 +2,8 @@ Procedure DrawTerminalAnsi;
 Const
   IMAGEDATA_WIDTH=80;
   IMAGEDATA_DEPTH=25;
-  IMAGEDATA_LENGTH=1115;
+  IMAGEDATA_LENGTH=1112;
-  IMAGEDATA : array [1..1115] of Char = (
+  IMAGEDATA : array [1..1112] of Char = (
      #1,#16,'Ü','Ü',#25,#10, #8,'Ü','Ü',#25, #3, #7,'°', #0,#23,'²',#16,
     #25,#23, #9,#26, #4,'Ü',#25, #9,#14,'±','Û','±', #7,'°', #0,#23,'²',
     #16,#25, #8, #7,'°', #0,#23,'²', #8,#16,'g','j','!',#24,' ', #9,#17,
@@ -54,22 +54,22 @@ Const
     #24, #7,'Ü',#15,#26,#25,'Ü', #7,'Ü',' ','Ü',#15,#26,#25,'Ü', #7,'Ü',
     ' ','Ü',#15,#26, #9,'Ü', #7,'Ü',' ','Ü',#15,#26, #6,'Ü', #7,'Ü',#24,
      #8,#23,'²',' ', #0,'S','y','s','t','e','m',' ','N','a','m','e',#25,
-    #13, #7,#16,'²',#15,'³', #8,#23,'²',' ', #0,'A','d','d','r','e','s',
+    #13, #7,#16,'²','³', #8,#23,'²',' ', #0,'A','d','d','r','e','s','s',
-    's',#25,#17, #7,#16,'²',#15,'³', #8,#23,'²',' ', #0,'L','a','s','t',
+    #25,#17, #7,#16,'²','³', #8,#23,'²',' ', #0,'L','a','s','t','C','a',
-    'C','a','l','l',' ', #8,#16,'²',#15,'³', #8,#23,'²',' ', #0,'C','a',
+    'l','l',' ', #8,#16,'²', #7,'³', #8,#23,'²',' ', #0,'C','a','l','l',
-    'l','l','s',' ', #8,'²',#24,#16,'Û',#26,#26,'ß', #9,'³', #8,#26,#27,
+    's',' ', #8,'²',#24,#16,'Û',#26,#26,'ß', #1,'³', #8,#26,#27,'ß', #1,
-    'ß', #9,'³', #8,#26,#11,'ß', #9,'³', #8,#26, #7,'ß','Û',#24,'Ý',#25,
+    '³', #8,#26,#11,'ß', #1,'³', #8,#26, #7,'ß','Û',#24,'Ý',#25,'M','Þ',
-    'M','Þ',#24,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M','Þ',#24,'Ý',#25,'M',
+    #24,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M','Þ',#24,'Ý',#25,'M','Þ',#24,
-    'Þ',#24,'Ý',#25,'M','Þ',#24,#15,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M',
+    'Ý',#25,'M','Þ',#24,#15,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M','Þ',#24,
-    'Þ',#24,#15,'Ý',#25,'M','Þ',#24,'Ý',#25,'M','Þ',#24,'²',#26,'M','Ü',
+    #15,'Ý',#25,'M','Þ',#24,'Ý',#25,'M','Þ',#24,'²',#26,'M','Ü','²',#24,
-    '²',#24, #7,'°',#23,#25,#26, #0,'D','e','f','a','u','l','t',' ','N',
+     #7,'°',#23,#25,#27, #0,'N','o','d','e','S','p','y',' ','T','e','l',
-    'o','d','e','S','p','y',' ','P','h','o','n','e','B','o','o','k',#25,
+    'n','e','t',' ','D','i','r','e','c','t','o','r','y',#25,#25, #7,#16,
-    #25, #7,#16,'°',#24,' ', #8,#26,'M','ß',#24,#25, #2,#15,'E','N','T',
+    '°',#24,' ', #8,#26,'M','ß',#24,#25, #2,#15,'E','N','T','E','R', #8,
-    'E','R', #8,':',' ', #7,'C','a','l','l',#25, #3,#15,'A','L','T','+',
+    ':',' ', #7,'C','a','l','l',#25, #3,#15,'A','L','T','+','E', #8,':',
-    'E', #8,':',' ', #7,'E','d','i','t',#25, #3,#15,'A','L','T','+','S',
+    ' ', #7,'E','d','i','t',#25, #3,#15,'I','N','S','E','R','T', #8,':',
-     #8,':',' ', #7,'S','o','r','t',#25, #3,#15,'D','E','L','E','T','E',
+    ' ', #7,'A','d','d',#25, #3,#15,'D','E','L','E','T','E', #8,':',' ',
-     #8,':',' ', #7,'C','l','e','a','r',#25, #3,#15,'E','S','C','A','P',
+     #7,'C','l','e','a','r',#25, #3,#15,'E','S','C','A','P','E', #8,':',
-    'E', #8,':',' ', #7,'Q','u','i','t',#24);
+    ' ', #7,'Q','u','i','t',#24);
 Begin
   Screen.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
 End;

mystic/nodespy_common.pas

@@ -105,7 +105,8 @@ Begin
         Until False;
   End;
 
-  MsgBox.Close;
+  If BoxType <> 2 Then MsgBox.Close;
+
   MsgBox.Free;
 
   Screen.CursorXY (SavedX, SavedY);

mystic/nodespy_term.pas

@@ -62,17 +62,21 @@ Begin
     GetAddressPort := 23;
 End;
 
+Function GetNewRecord : PhoneRec;
+Begin
+  FillChar (Result, SizeOf(PhoneRec), 0);
+
+  Result.StatusBar := True;
+  Result.LastCall  := '00/00/00';
+  Result.Calls     := '0';
+End;
+
 Procedure InitializeBook (Var Book: PhoneBookRec);
 Var
   Count : SmallInt;
 Begin
-  FillChar (Book, SizeOf(Book), 0);
+  For Count := 1 to 100 Do
-
+    Book[Count] := GetNewRecord;
-  For Count := 1 to 100 Do Begin
-    Book[Count].StatusBar := True;
-    Book[Count].LastCall  := '00/00/00';
-    Book[Count].Calls     := '0';
-  End;
 
   Book[1].Name    := 'Local Login';
   Book[1].Address := 'localhost:' + strI2S(Config.INetTNPort);
@@ -84,7 +88,7 @@ Var
   Buffer  : Array[1..4096] of Char;
   Count   : SmallInt;
 Begin
-  ShowMsgBox (2, 'Saving phonebook');
+  //ShowMsgBox (2, 'Saving phonebook');
 
   Assign     (OutFile, 'nodespy.phn');
   SetTextBuf (OutFile, Buffer);
@@ -156,7 +160,7 @@ Begin
 
     If Dial.StatusBar Then Begin
       Screen.SetWindow (1, 1, 80, 24, True);
-      Screen.WriteXY   (1, 25, Config.StatusColor3, strPadC('ALT-X/Quit', 80, ' '));
+      Screen.WriteXY   (1, 25, Config.StatusColor3, strPadC('ALT/L-Send Login Info     ALT-X/Quit', 80, ' '));
     End;
 
     Term.SetReplyClient(TIOBase(Client));
@@ -253,8 +257,11 @@ End;
 
 Function GetTerminalEntry (Var Book: PhoneBookRec; Var Dial: PhoneRec) : Boolean;
 Var
-  Count : SmallInt;
+  Count  : SmallInt;
-  List  : TMenuList;
+  Count2 : SmallInt;
+  List   : TMenuList;
+  Found  : Boolean;
+  Picked : SmallInt;
 Begin
   Result := False;
 
@@ -271,15 +278,21 @@ Begin
 
   DrawTerminalAnsi;
 
-  Repeat
+  Picked := 1;
-    List := TMenuList.Create(Screen);
 
-    List.NoWindow := True;
+  List := TMenuList.Create(Screen);
-    List.AllowTag := False;
+
-    List.LoAttr   := 7;
+  List.NoWindow := True;
-    List.HiAttr   := 9 + 1 * 16;
+  List.AllowTag := False;
-    List.LoChars  := #13#27;
+  List.LoAttr   := 7;
-    List.HiChars  := #18;
+  List.HiAttr   := 9 + 1 * 16;
+  List.LoChars  := #13#27;
+  List.HiChars  := #18#82#83;
+
+  Repeat
+    List.Clear;
+
+    List.Picked := Picked;
 
     For Count := 1 to 100 Do
       List.Add(strPadR(Book[Count].Name, 26, ' ') + '   ' +
@@ -290,6 +303,8 @@ Begin
 
     List.Open(1, 12, 80, 22);
 
+    Picked := List.Picked;
+
     Case List.ExitCode of
       #13 : If Book[List.Picked].Address = '' Then
               ShowMsgBox(0, 'Address is empty')
@@ -308,10 +323,38 @@ Begin
             End;
       #18 : EditEntry(Book, List.Picked);
       #27 : Break;
-    End;
+      #82 : Begin
+              Found := False;
 
-    List.Free;
+              For Count := List.Picked to 100 Do
+                If (Book[Count].Name = '') and (Book[Count].Address = '') and (Book[Count].Calls = '0') Then Begin
+                  Found := True;
+                  Break;
+                End;
+
+              If Not Found Then
+                ShowMsgBox (0, 'No blank entries available')
+              Else Begin
+                For Count2 := Count DownTo List.Picked + 1 Do
+                  Book[Count2] := Book[Count2 - 1];
+
+                Book[List.Picked] := GetNewRecord;
+
+                WriteBook(Book);
+              End;
+            End;
+      #83 : If ShowMsgBox(1, 'Delete this record?') Then Begin
+              For Count := List.Picked to 100 - 1 Do
+                Book[Count] := Book[Count + 1];
+
+              Book[100] := GetNewRecord;
+
+              WriteBook(Book);
+            End;
+    End;
   Until False;
+
+  List.Free;
 End;
 
 Procedure Terminal;