これですが、配列を使って例えば
A=n+1:DIM CX1[A],CY1[A],CX2[A],CY2[A],CK[A]
FOR I=0 TO n
READ CX1[I],CY1[I],CX2[I],CY2[I],CK[I]
NEXT
DATA 60,217,47,204,16
DATA 76,217,63,204,16
DATA …
：
FOR I=0 TO n
IF X<=CX1[I] AND Y<=CY1[I] AND X<=CX2[I] AND Y<=CY2[I] AND KB==CK[I] THEN…
：
NEXT
とした方が小さくまとまり、また管理しやすくなりますよ。
