ついでなので、ちょっとだけ改善したソースも載せておきます。変更点は、 １　タイル登録処理にREPEATを使い終了判定を変更 ２　タイル登録処理での文字列追加命令を計算式からINC命令に変更 ３　文字のチェックでMID$抜き出しを文字配列インデックス指定に変更 です。まあどれも必須な感じじゃないですが、とくに３は今どき（？）な方法なので変えておきました。