CALLを実装

SMILEBASIC/TEST.txt

@@ -1,11 +1,11 @@
-TABSTEP=4
-FOR i=0 TO 20
-?"A","B",
-NEXT
-SPSET 0,1206
-SPANIM 0,"I",-90,1209,0
-WHILE 1
-WEND
+DEF CALLTEST(V)
+ RETURN V
+END
+CALL "SPDEF",1192 OUT A,B
+
+ASSERT__ A==464, "CALLTEST"
+ASSERT__ B==384, "CALLTEST"
+ASSERT__ CALL("CALLTEST", TRUE), "CALLTEST"
 DEF TESST X,A$
  IF Y<0 THEN Y=28
  IF X<0 THEN X=20-(LEN(A$)/2)