キャラクタをBGのキャラクタコードに変換するならINSTR関数で 配列変数BGC%にBGのキャラクターコードをREAD命令で DATAから読んでおけば、 A%=INSTR("マップにあるキャラクタの文字列",M$):BGPUT 1,X,Y BGC%[A%] とすれば大量のIF命令を羅列しなくても記述できますよ。