dim関数を使ってシャッフル法も変えてみました
使い方合ってるかどうか分かりませんが一応形になったので乗せます
http://www66.tok2.com/home2/ankokunosyoujo/cgi-bin/up/source/9pazuru02.as
少しは短くなったような気はしますがまだまだ多いです＿|￣|○
reprat,gosubあたりをもう少し効率よくつかえればなぁ・・・