SPLINK,SPOFS OUT実装,BuiltinFunctionクラスをオーバーロード対応にした

SMILEBASIC/VM.d

@@ -113,6 +113,15 @@ class VM
         }
         value = stack[--stacki];
     }
+    void decSP()
+    {
+        if(stacki <= bp)
+        {
+            writeln("Stack underflow");
+            readln();
+        }
+        --stacki;
+    }
     Value testGetGlobalVariable(wstring name)
     {
         return global[globalTable[name].index];
@@ -1391,3 +1400,10 @@ class PopSystemVariable : Code
         return "popsysvar " ~ var.to!string;
     }
 }
+class DecSP : Code
+{
+    override void execute(VM vm)
+    {
+        vm.decSP;
+    }
+}