あ、間違えました！ 先ほどのプログラム、18行目は SWAP DS[I],DS[RND(30-I)+I] が正しいです。恐縮です。