動作するように手を入れてみました。
公開キー【QRFDA353】
・DATA文でスタッフロール用の文字列は定義してありましたがREADが無かったのでいつまでも文字がでないようになってました。
・ループの中にRESTORE命令が呼ばれていてデータ読み込み場所が常に先頭になってました。
・IF〜THEN〜ELSEの構造が深くなっていたのでIF〜THEN〜ELSEIFにしました。
・カラー変更をしない場合B$に文字列が入らないのでB$=A$を追加しました。
実は一回別の修正ソースもアップしたのですが、たくさん書き換えてしまっていたので、もっと少ない修正でいいんじゃないかなと思ってやり直したら動作したので修正の小さい版に差し替えました。