ON GOTO,GOSUB実装.

SMILEBASIC/TEST.txt

@@ -34,6 +34,51 @@ DEF GOTOTEST
  ASSERT__ 0, "LOCAL LABEL"
  @LOCAL
 END
+
+ON 1 GOTO @0,@1,@2,@3
+@0
+ ASSERT__ 0, "ON GOTO"
+@2
+ ASSERT__ 0, "ON GOTO"
+@3
+ ASSERT__ 0, "ON GOTO"
+@1
+ONGOTOTEST
+DEF ONGOTOTEST
+ ON 1 GOTO @0,@1,@2,@3
+ @0
+  ASSERT__ 0, "LOCAL ON GOTO"
+ @2
+  ASSERT__ 0, "LOCAL ON GOTO"
+ @3
+  ASSERT__ 0, "LOCAL ON GOTO"
+ @1
+END
+ON 1 GOSUB @ONGOSUB0,@ONGOSUB1,@ONGOSUB2,@ONGOSUB3
+GOTO@ONGOSUB4
+@ONGOSUB0
+ ASSERT__ 0, "ON GOSUB"
+@ONGOSUB2
+ ASSERT__ 0, "ON GOSUB"
+@ONGOSUB3
+ ASSERT__ 0, "ON GOSUB"
+@ONGOSUB1
+RETURN
+@ONGOSUB4
+ONGOSUBTEST
+DEF ONGOSUBTEST
+ ON 1 GOTO @0,@1,@2,@3
+ GOTO@4
+ @0
+  ASSERT__ 0, "ON ONGOSUB"
+ @2
+  ASSERT__ 0, "ON ONGOSUB"
+ @3
+  ASSERT__ 0, "ON ONGOSUB"
+ @1
+ RETURN
+ @4
+END
 @DATA_1
 DATA "A",1,2,3,4
 LOCATE 10,