スプライトの属性を実装.

SMILEBASIC/TEST.txt

@@ -1,3 +1,16 @@
+FOR I=0TO 511'-500
+ SPSET I,I'304'-I+304
+ SPOFS I, (I*16) MOD 400, FLOOR((I*16)/400)*16
+ 'SPOFS I, 100,100
+NEXT
+WHILE TRUE
+WEND
+WHILE TRUE
+FOR I=0TO 511
+ SPOFS I, RND(400), RND(240)
+ GPSET RND(400), RND(240), -1
+NEXT
+WEND
 DIM ARRY[10]
 ?ARRY[0],FORMAT$("%D",100)
 GOSUB@A