From b9df93d5642eaf1da338e889a67c6eea45548fa6 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 30 Jul 2012 18:20:24 -0400
Subject: [PATCH] WriteXY WriteXYPipe procedures

---
 mystic/mpl_common.pas  | 2 ++
 mystic/mpl_execute.pas | 6 ++++--
 mystic/mpl_types.pas   | 2 +-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/mystic/mpl_common.pas b/mystic/mpl_common.pas
index 075b95e..49b6f39 100644
--- a/mystic/mpl_common.pas
+++ b/mystic/mpl_common.pas
@@ -290,6 +290,8 @@ Begin
           AddProc    ({$IFDEF MPLPARSER} 'putuser',        {$ENDIF} 'l',      iNone);    // 539
           AddProc    ({$IFDEF MPLPARSER} 'isuser',         {$ENDIF} 's',      iBool);    // 540
           AddProc    ({$IFDEF MPLPARSER} 'getmbasestats',  {$ENDIF} 'lLLL',   iBool);    // 541
+          AddProc    ({$IFDEF MPLPARSER} 'writexy',        {$ENDIF} 'bbbs',   iNone);    // 542
+          AddProc    ({$IFDEF MPLPARSER} 'writexypipe',    {$ENDIF} 'bbbbs',  iNone);    // 543
 
 { END OF PROCEDURE DEFINITIONS }
 
diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index f79951c..69f9325 100644
--- a/mystic/mpl_execute.pas
+++ b/mystic/mpl_execute.pas
@@ -122,7 +122,8 @@ Uses
   m_FileIO,
   BBS_Core,
   BBS_IO,
-  BBS_General;
+  BBS_General,
+  BBS_Ansi_MenuBox;
 
 {$I MPL_COMMON.PAS}
 
@@ -1768,7 +1769,6 @@ Begin
     92  : Begin
             BlockRead (File(Pointer(Param[1].vData)^), VarData[Param[2].vID]^.Data^, VarData[Param[2].vID]^.DataSize);
             IoError := IoResult;
-//            session.io.outfullln('pos: ' + stri2s(filepos(file(pointer(param[1].vdata)^))));
           End;
     500 : Begin
             TempStr := Session.io.GetInput(Param[1].B, Param[2].B, Param[3].B, Param[4].S);
@@ -1901,6 +1901,8 @@ Begin
             TempBool := GetMBaseStats(Param[1].L, LongInt(Pointer(Param[2].vData)^), LongInt(Pointer(Param[3].vData)^), LongInt(Pointer(Param[4].vData)^));
             Store (TempBool, 1);
           End;
+    542 : WriteXY (Param[1].B, Param[2].B, Param[3].B, Param[4].S);
+    543 : WriteXYPipe (Param[1].B, Param[2].B, Param[3].B, Param[4].B, Param[5].S);
   End;
 End;
 
diff --git a/mystic/mpl_types.pas b/mystic/mpl_types.pas
index 65a8e70..b828bf7 100644
--- a/mystic/mpl_types.pas
+++ b/mystic/mpl_types.pas
@@ -77,7 +77,7 @@ Type
   );
 
 Const
-  mplVer           = '11&';
+  mplVer           = '11A';
   mplVersion       = '[MPX ' + mplVer +']' + #26;
   mplVerLength     = 10;
   mplExtSource     = '.mps';