for~nextと配列を使う? 座標と色を読んで、しゃくっと処理しちまうとか? read rdmax for i=0 to rdmax read x[i],y[i],c[i] locate x,y:color c:? "るるどん2000" next data 5 '数値は下のdataの行数だけ data 0,0,15 data 8,0,15 data 12,6,15 data 0,13,15 data 22,20,15 動くと思う