DATA,READを実装.

SMILEBASIC/TEST.txt

@@ -79,11 +79,18 @@ DEF ONGOSUBTEST
  RETURN
  @4
 END
+@DATA_1
+DATA "A",1,2,3,4
+READ DATA$,_1,_2
+READ _3,_4
+ASSERT__ DATA$=="A", "DATA"
+ASSERT__ _1==1, "DATA"
+ASSERT__ _2==2, "DATA"
+ASSERT__ _3==3, "DATA"
+ASSERT__ _4==4, "DATA"
 INPUT$="HELLO"
 INPUT INPUT$,IN
 ?INPUT$,IN
-@DATA_1
-DATA "A",1,2,3,4
 LOCATE 10,
 COLOR 1,15
 PRINT "テスト正常終了"