buf = "test\nテスト\nte.スト"
sdim data ; 文字量に応じて確保サイズを調整する必要あり
sdim kekka ; 同じく
i = 0 : ii = 0
repeat
; 改行を区切りに切り出し
getstr data, buf, i
if strsize = 0 : break
i += strsize
; 切り出した文字を展開
poke kekka, ii, data
ii += strsize
loop
mes kekka
ANTARES
2009/5/15(Fri) 01:23:42|NO.25148
第3案
buf = {"
test
テスト
te.スト
"}
p=0
repeat
q=instr(buf,p,"\n")
if q<0: break
p+=q
memcpy buf, buf, strlen(buf)-p-1, p, p+2
loop
mes "["+buf+"]"