あと@CHECKの部分ですが、事前に変数にチェックしたい スロットの出目を代入しておいて @CHECKでその変数の内容をチェックするようにすれば わざわざ@CHECK2、@CHECK3のサブルーチンを使わなくても 配当の判別はできますよ。 IF～（省略）THEN GOSUB @CHECK2 ↓ IF～（省略）THEN CN=P11:GOSUB @CHECK @CHECK IF CN==1 THEN G=G+～（省略） IF CN==2 THEN G=G+～（省略） という具合に変更すると@CHECKで配当の判定が共用できます。