A$="0123456789"@L SWAP A$[0],A$[RND(10)]?A$GOTO@L このプログラムは停止ボタンを押すことで表示ができます。ちょっとインチキだけどルールからは外れてないと思います。 手動停止必須ではなく普通に作るならば A$=" "FOR I=0TO 9B=RND(I+1)A$[B]=STR$(I)+A$[B]NEXT?A$ となりましたが、でんぺんさんが投稿したもの（　RND(I+1)番目に数字Iを挿入する方法　）と変数名以外は同じになったので上記の方を投稿とします。 コードゴルフ大会は私も以前2回ほど開催しましたが同じものを作るにも人によって異なるコードが見れて大変楽しかったですね。