僕のやり方としては 1,DATAでその文字列を囲む。 2,READで文字列変数に読み込む 3,MID$とFOR～NEXTで1文字ずつ読み込む。 4,IFでそれに応じてBGを配置する 5,FOR～NEXTを使い「2」へ。 という感じです。