この大量のIF～THENの文を簡単にする方法はありますか？

　同じ働きをするプログラムを私も作って、もっとコンパクトにまとめています。公開キーは「 2A3XS3D4 」なので、これをダウンロードしてみて、どう短くまとめたかを比較解析してみるといいと思います。ちなみにFOR-NEXT,READ-DATA,配列を使います。

まず、BGMPLAYのあとに、 COLOR　Xを入れると、省略できます。

配列を使いましょう。 dim aa$[25] copy aa$, @aa color x: ? aa$[a] @aa data "Kung-Fu pop" data "With stealthy steps" : :

こうやまさんの言う通りDATA文を使えば良いと思います。しかし、最初はかなりよくわからないかもしれませんが、頑張って下さい。

DIM T$[42] T$[0]="Kung-Fu POP" T$[1]=... '（データ設定は省略） ... COLOR X:? T$[A] 簡単にはなりますが、行数自体は大して変わらいでしょうね

あ、みきさんの方がきれい *sayはcopyをおぼえた　＜ぱぱらぱっぱらー♪

すいません… 修学旅行あってコメントできませんでした。 たくさんのコメントどうもありがとうございました！是非活用します！