あとオマケ。 MID$(MSG$,T,1)のように1文字だけ抜き出す場合、MSG$[T]とやっても同じように１文字だけ取り出すことが出来ますよ。 結構便利なので覚えておくといいかも。 12〜13行目のPRINTとCLSは僕も気になっていたけど、とりあえず謎で放置してた…。何か理由があって残しているならいいけど、そうじゃなかったら消しちゃった方がいいかもね。