○の部分を配列変数にするのはどうでしょうか？ '段取り部分 DIM X0[n],X1[n],Y0[n],Y1[n] FOR I=0 TO n-1 READ X0[I],X1[I],Y0[I],Y1[I] NEXT DATA 5,0,3,0,… '判定部分 FOR I=0 TO n-1 IF XX+X0[I]==X+X1[I] && Y+Y0[I]==YY+Y1[I] THEN ～ NEXT