Implement CHKVAR

2016-12-24 19:34:48 +09:00
parent d3c4392087
commit ce71082b29
2 changed files with 22 additions and 1 deletions
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -2382,7 +2382,12 @@ class BuiltinFunction
    static int CHKLABEL(PetitComputer p, wstring label)
    {
        label = label.toUpper;
-        return (label in p.vm.currentSlot.globalLabel) != null;
+        return p.vm.chklabel(label);
+    }
+    static int CHKVAR(PetitComputer p, wstring var)
+    {
+        var = var.toUpper;
+        return p.vm.chkvar(var);
    }
    static wstring INKEY(PetitComputer p)
    {