DEF BGMPLAY_JP MML$ FOR I=0 TO LEN(MML$)-1 K=INSTR("CDEFGAB",MID$(MML$,I,1)) IF K>=0 THEN MML$=SUBST$(MML$,I,1,MID$("ハニホヘトイロ",K,1)) NEXT BGMPLAY MML$ END ' これだと@Dなどが使えなくなる気もするが気にしない。実機未確認なので間違いがあるかもしれないが気にしない。