a$="けそつれみはくすひばけらりしせいむふえらせんゆくせふみるをとけでこすにね" for i=1 to len(a$) if i mod 2 then b$=b$+mid(a$,i-1,1) next:?b$