From 4e23c5ac49837ef7cd7f12611e39eb9736286c09 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Wed, 14 Mar 2012 02:23:09 -0400
Subject: [PATCH] New $X formatting MCI code

---
 mystic/bbs_io.pas | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/mystic/bbs_io.pas b/mystic/bbs_io.pas
index 42d12cc..e3621c3 100644
--- a/mystic/bbs_io.pas
+++ b/mystic/bbs_io.pas
@@ -289,7 +289,9 @@ Var
   Code  : String[2];
 Begin
   If FmtString Then Begin
+
     FmtString := False;
+
     Case FmtType of
       1  : Str := strPadR(Str, FmtLen + Length(Str) - Length(strStripPipe(Str)), ' ');
       2  : Str := strPadL(Str, FmtLen + Length(Str) - Length(strStripPipe(Str)), ' ');
@@ -404,6 +406,10 @@ Begin
                     FmtString := True;
                     FmtType   := 1;
                   End;
+            'X' : Begin
+                    FmtString := True;
+                    FmtType   := 17;
+                  End;
           End;
     '&' : Case Code[2] of
             '1' : LastMCIValue := PromptInfo[1];
@@ -770,6 +776,13 @@ Begin
 
                 FmtString := False;
               End;
+          17: Begin
+                Inc (A);
+                FmtString := False;
+
+                If Screen.CursorX < FmtLen Then
+                  BufAddStr (strRep(Str[A], FmtLen - Screen.CursorX + 1));
+              End;
         End;
       End;
     End Else
@@ -1076,6 +1089,12 @@ Begin
                         BaudEmulator := FmtLen;
                         FmtString    := False;
                       End;
+                  17: Begin
+                        FmtString := False;
+
+                        If Screen.CursorX < FmtLen Then
+                          BufAddStr (strRep(GetChar, FmtLen - Screen.CursorX + 1));
+                      End;
                 End;
               End;
             End;