さらに訂正(あきとさんすいません…) 「牌二曲語」にて[中]が必ず9になってしまうので、 530行目(画面写真参照) FOR I=0 TO PAI_KIND-2 を FOR I=0 TO PAI_KIND-1 にしたほうが良いと思います。