@A A=A+1 LOCATE A,10 ？"■" IF A==20 THEN END GOTO @A で、いいのでは？