上のモジュールの全角対応型

#module
sdim d,256,1

#deffunc onedel val,str
mref s,24:mref d,33
strlen o,d
repeat 1
instr n,s,d,0:if n=-1:break;抜く文字を検索し、無かったらbreak
strlen l,s;長さを調べる
memcpy s,s,l-n-o,n,n+o;抜く文字以降の文字列をコピー
poke s,l-o,0;抜いた後に余った文字列を消す
continue 0:loop:return

#global