08/08/11 23:55:19 aswBVdjQ
>>340
あまりスマートでは無いが。半角カナは無視してる。
sdim string,96
string = "あいうえおABCかきくけこ"
c = 0
char = " "
repeat
t = wpeek(string,c)
if (t & $FF) = 0 : break
wpoke char, 0, t
c++
if t & $80 : c++ : else : poke char, 1, 0
pos 8,17*cnt
mes char
loop
stop