>>230
buff = "AD / 2007 / 03 / 25 は 晴天なり 。"
mes buff

L = strlen(buff)
sdim ret, L
p = 0 : index = 0
repeat L
    c = peek(buff, p)
    if c != 0x20 : poke ret, index, c : index++
    p++
loop

mes "------------------\n" + ret