短縮できますよ。 LOCATEのX座標指定も[G_PX+z]のzも連番になっています。 FOR I = 0 TO 9 LOCATE 4+I,7:?MAP$[G_PY][G_PX+(-3+I)] NEXT でどうでしょうか。