前に書いたのをちょっといじっただけですが。
Dummyの変数には32767byteまでしか入らないため、
buf変数を使って保存します。
Dummy=""
mesbox Dummy,200,200,1,0 ;<-この変数は使いません
hEdit=objinfo(stat,2)
button gosub "save",*save
repeat
sendmsg hEdit,0x000E,0,0
size = stat
wait 1
title "" + size
loop
*save
sendmsg hEdit,0x000E,0,0
size = stat
sdim buf,size+1
sendmsg hEdit,0x000D,size+1,varptr(buf)
notesel buf
notesave"tmp.txt"
dialog "保存しました"
exec "tmp.txt",16
return