XSCREENとSPDEFとDISPLAY実�

SMILEBASIC/TEST.txt

@@ -1,3 +1,8 @@
+ASSERT__ SUBST$("0123456789",0,"B")=="B","SUBST$"
+ASSERT__ SUBST$("0123456789",0,4,"B")=="B456789","SUBST$"
+ASSERT__ SUBST$("",0,4,"B")=="B","SUBST$"
+WHILE 1
+WEND
 FOR I=0TO 511'-500
  SPSET I,I'304'-I+304
  SPOFS I, (I*16) MOD 400, FLOOR((I*16)/400)*16