ループすりゃよろし a$="aaa" for i=0 to len(a$)-1 a=asc(a$[i]) ?chr$(a) next たぶん動くと思う（DSが手元にないので未確認）