REPEAT~UNTILを実装

SMILEBASIC/TEST.txt

@@ -1,3 +1,35 @@
+'REPEAT TEST
+?"REPEAT(1)"
+VAR REPEATTEST
+REPEAT
+ REPEATTEST=TRUE
+ BREAK
+ ASSERT__ FALSE, "REPEAT"
+UNTIL FALSE
+ASSERT__ REPEATTEST, "REPEAT"
+
+?"REPEAT(2)"
+VAR REPEATTEST2
+REPEAT
+ REPEATTEST2=1
+ CONTINUE
+ ASSERT__ FALSE, "REPEAT"
+UNTIL REPEATTEST2
+ASSERT__ REPEATTEST2, "REPEAT"
+
+?"REPEAT(3)"
+REPEAT
+ CONTINUE
+ ASSERT__ FALSE, "REPEAT"
+UNTIL TRUE
+
+?"REPEAT(4)"
+VAR REPEATTEST4
+REPEAT
+ REPEATTEST4=TRUE
+UNTIL TRUE
+ASSERT__ REPEATTEST4, "REPEAT"
+
 
 VAR IFTEST=FALSE
 IF TRUE THEN