Add WIDTH stub

2016-12-06 18:56:18 +09:00
parent f172fce38f
commit acc5c19043
2 changed files with 15 additions and 0 deletions
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -238,6 +238,18 @@ class BuiltinFunction
            throw new OutOfRange("ATTR", 1);
        p.console.attr = cast(otya.smilebasic.console.ConsoleAttribute)attr;
    }
+    static void WIDTH(PetitComputer p, int width)
+    {
+        if (width != 8 && width != 16)
+        {
+            throw new IllegalFunctionCall("WIDTH", 1);
+        }
+        p.console.width = width;
+    }
+    static int WIDTH(PetitComputer p)
+    {
+        return p.console.width;
+    }
    static void VSYNC(PetitComputer p, DefaultValue!int time)
    {
        time.setDefaultValue(1);