一つ提案ですが判定処理で配列変数を羅列するため 1行が長くなってしまい読みづらくなってしまいます。 P00=P[0,0]:P01=P[0,1]:P02=P[0,2] P10=P[1,0]:P11=P[1,1]:P12=P[1,2] P20=P[2,0]:P21=P[2,1]:P22=P[2,2] とした上で IF P00==P01 && P01==P02 THEN GOSUB @CHECK という様に1行で揃っているラインを判別する方が プログラムが見やすくなるかと思います。