diff --git a/mystic/mpl_common.pas b/mystic/mpl_common.pas
index 1cc98e1..d43433b 100644
--- a/mystic/mpl_common.pas
+++ b/mystic/mpl_common.pas
@@ -245,7 +245,8 @@ Begin
           AddProc    ({$IFDEF MPLPARSER} 'fillchar',       {$ENDIF} '*lc',     iNone);    // 90
           AddProc    ({$IFDEF MPLPARSER} 'fwriterec',      {$ENDIF} 'Fx',      iNone);    // 91
           AddProc    ({$IFDEF MPLPARSER} 'freadrec',       {$ENDIF} 'Fx',      iNone);    // 92
-          AddProc    ({$IFDEF MPLPARSER} 'real2str',       {$ENDIF} 'rb',      iString);  // 93;
+          AddProc    ({$IFDEF MPLPARSER} 'real2str',       {$ENDIF} 'rb',      iString);  // 93
+          AddProc    ({$IFDEF MPLPARSER} 'abs',            {$ENDIF} 'l',       iLongInt); // 94
 
           IW := 500; // BEGIN BBS-SPECIFIC STUFF
 
diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index b818617..984ae94 100644
--- a/mystic/mpl_execute.pas
+++ b/mystic/mpl_execute.pas
@@ -1771,6 +1771,10 @@ Begin
             TempStr := strR2S(Param[1].R, Param[2].B);
             Store (TempStr, 256);
           End;
+    94  : Begin
+            TempLong := Abs(Param[1].L);
+            Store (TempLong, 4);
+          End;
     500 : Begin
             TempStr := Session.io.GetInput(Param[1].B, Param[2].B, Param[3].B, Param[4].S);
             Store (TempStr, 256);