XとYの初期化が外せない要素なら CLS COLOR 15 X=4:Y=4 FOR I=X TO 15+X FOR J=Y TO 15+Y LOCATE J,I:PRINT "●"; NEXT NEXT で、どうでしょう？