Added Copy/Paste functions

mystic/bbs_cfg_archive.pas

@@ -55,8 +55,9 @@ Var
   List    : TAnsiMenuList;
   F       : TBufFile;
   Arc     : RecArchive;
+  Copied  : RecArchive;
+  HasCopy : Boolean = False;
 
-  // SORT THIS LIST BY NON CASE SENSITIVE ARCHIVE EXTENSION
   Procedure MakeList;
   Var
     OS : String;
@@ -105,8 +106,7 @@ Begin
     List.Close;
 
     Case List.ExitCode of
-      '/' : Case GetCommandOption(11, 'I-Insert|D-Delete|') of
+      '/' : Case GetCommandOption(10, 'I-Insert|D-Delete|C-Copy|P-Paste|') of
-              #27 : ;
               'I' : Begin
                       F.RecordInsert (List.Picked);
 
@@ -124,6 +124,18 @@ Begin
                     End;
               'D' : If ShowMsgBox(1, 'Delete this entry?') Then Begin
                       F.RecordDelete (List.Picked);
+                      MakeList;
+                    End;
+              'C' : If List.Picked <> List.ListMax Then Begin
+                      F.Seek (List.Picked - 1);
+                      F.Read (Copied);
+
+                      HasCopy := True;
+                    End;
+              'P' : If HasCopy Then Begin
+                      F.RecordInsert (List.Picked);
+                      F.Write        (Copied);
+
                       MakeList;
                     End;
             End;

mystic/bbs_cfg_protocol.pas

@@ -53,6 +53,8 @@ Var
   List    : TAnsiMenuList;
   F       : TBufFile;
   Prot    : RecProtocol;
+  Copied  : RecProtocol;
+  HasCopy : Boolean = False;
 
   Procedure MakeList;
   Var
@@ -105,8 +107,7 @@ Begin
     List.Close;
 
     Case List.ExitCode of
-      '/' : Case GetCommandOption(11, 'I-Insert|D-Delete|') of
+      '/' : Case GetCommandOption(10, 'I-Insert|D-Delete|C-Copy|P-Paste|') of
-              #27 : ;
               'I' : Begin
                       F.RecordInsert (List.Picked);
 
@@ -127,6 +128,19 @@ Begin
                         F.RecordDelete (List.Picked);
                         MakeList;
                       End;
+              'C' : If List.Picked <> List.ListMax Then Begin
+                      F.Seek (List.Picked - 1);
+                      F.Read (Copied);
+
+                      HasCopy := True;
+                    End;
+              'P' : If HasCopy Then Begin
+                      F.RecordInsert (List.Picked);
+                      F.Write        (Copied);
+
+                      MakeList;
+                    End;
+
             End;
       #13 : If List.Picked <> List.ListMax Then Begin
               F.Seek (List.Picked - 1);