文字を書いてその位置に書いた文字を消して新しい位置に文字を 書き直せば動いているように見えますよ。 FOR Y=0 TO 25 LOCATE 20,Y:? "V" WAIT 5 LOCATE 20，Y:? " " NEXT