--------------- CLS X=4:Y=4 W=16:H=16 LINE$="●"*W COLOR 15 FOR I=0 TO H-1 LOCATE X,Y+I PRINT LINE$ NEXT --------------- このプログラムの機能は「4,4の位置から縦横16文字の範囲を四角形に、●で埋める」なので、文字列のセットやCOLOR命令はループの外に出せます。 また、文字列を作るのはループで一文字ずつ書くより1つの文字列にして一回で済ませた方が普通は速いので横方向のループはやめます。 縦横のサイズは直値でも書けますが将来変更する可能性も見越して変数にしておきます。プログラムの2ヶ所以上から使いそうなら、さらにこれを関数化して呼びます。 もし縦横で文字や文字の色を変える必要が出てきたら、作りから変える必要がありますね。