Allow empty OUT arguments

SMILEBASIC/VM.d

@@ -2161,3 +2161,11 @@ class SetX : Code
             vm.petitcomputer.xoff(func);
     }
 }
+
+class Pop : Code
+{
+    override void execute(VM vm)
+    {
+        vm.decSP();
+    }
+}

SMILEBASIC/compiler.d

@@ -697,6 +697,11 @@ class Compiler
                     genCode(new PopVarExpression(sc));
                 }
                 break;
+            case NodeType.VoidExpression:
+                {
+                    genCode(new Pop());
+                }
+                break;
             default:
                 throw new SyntaxError();
 

SMILEBASIC/parser.d

@@ -970,7 +970,18 @@ class Parser
                         while(true)
                         {
                             token = lex.front();
+                            if (token.type == TokenType.Comma)
+                            {
+                                func.addOut(new VoidExpression(lex.location));
+                            }
+                            else
+                            {
                                 Expression arg = expression();
+                                if (!arg)
+                                {
+                                    func.addOut(new VoidExpression(lex.location));
+                                    break;
+                                }
                                 if(!isLValue(arg))
                                 {
                                     //to support func args... OUT (no argument)
@@ -982,6 +993,7 @@ class Parser
                                     return null;
                                 }
                                 func.addOut(arg);
+                            }
                             token = lex.front();
                             if(token.type == TokenType.Comma)
                             {