I've made this function a long time ago. This will erase all the character in a box that start on the point (X,Y) of size WxH.
DEF CLSBOX X,Y,W,H
VAR I
COLOR 0,0
FOR I=Y TO Y+H-1
IF I>30 THEN BREAK
IF DISPLAY()==1 && X>=40 THEN BREAK
IF DISPLAY()==0 && X>=50 THEN BREAK
LOCATE X,I
? " "*W;
NEXT
COLOR #TWHITE,0
END
1そうだね プレイ済み