サンプルプログラムはしばらくしたら消去しますが、ご容赦ください。サンプルプログラムの先頭の「RS=130」は「RS=120」の誤りです。すみません。XCARD関数は割と使いやすいと思いますので、ぜひご活用ください。SWAP命令は便利です。最初に重複しない数列を作っておけば、それを何度どのようにSWAPしようと、数字が重複することは絶対にありませんからね。 ところで、特殊役判定は、添付のDATAような表を作っておくと、やりやすくなります。表の意味や、表を使った実際の役判定の方法等、わからなければご質問ください。逆に、特殊役に対する私の解釈に誤りがあれば、ご指摘ください。