今ぱっと思いつきで書きますが、例えば型が同じであれば・・・ FLAG=0 ID=1 CNT=2 X=3 Y=4 DIM ENE[ENEMAX,5] ENE[0,FLAG] = FALSE ENE[0,X] = 160 ENE[0,Y] = 120 みたいなのはどうですかね。