BGPUT 0,0,0,A$だとずっと同じ場所にBGを置いてしまいますよ！ FOR BY=0 TO 14 FOR BX=0 TO 24 READ A$ B=0 IF A$=”■“ THEN B=410 BGPUT 0,BX,BY,B でできるはずですよ！