DATA命令で読み込んだ文字をBGのキャラクターコードに変換する方法に INSTR関数を使う方法があります。 FOR Y=0 TO 14 READ A$ FOR X=0 TO 24 C=INSTR(" ■□●○▲△",MID$(A$,B,1)) IF C!=-1 THEN BGPUT 0,X,Y,C NEXT NEXT