s="abcdefg"
n=4
strlen l,s
memcpy s,s,l-n-1,n,n+1
poke s,l-1,0

mes s
stop

これより速い方法キボンヌ