ON GOTO,GOSUBを定義

SMILEBASIC/node.d

@@ -39,6 +39,7 @@ enum NodeType
     Data,
     Read,
     Restore,
+    On,
 }
 abstract class Node
 {
@@ -448,3 +449,17 @@ class Data : Statement
         data ~= v;
     }
 }
+class On : Statement
+{
+    bool isGosub;
+    wstring[] labels;
+    this(bool isgosub)
+    {
+        this.isGosub = isgosub;
+        this.labels = new wstring[0];
+    }
+    void addLabel(wstring label)
+    {
+        this.labels ~= label;
+    }
+}

SMILEBASIC/token.d

@@ -61,6 +61,7 @@ enum TokenType
     Data,
     Read,
     Restore,
+    On,
 }
 
 struct Token