;  mesbox命令による簡易テキストエディタ2 (HSP ver2.6以降用)
;	編集可能なテキストファイルは65000バイトまでです。
;

	cls 1
	objmode 1
	alloc buf,65000		; テキストのバッファを確保
	buf=""				; バッファをクリア
	flg=1				; 0=編集不可/1=編集可能
	mesbox buf,636,446,flg+4

	objsize 60,24
	pos 410,450:button "LOAD",*file_load
	pos 480,450:button "SAVE",*file_save
	pos 548,450:button "END",*endbtn

	size=0
	onkey goto *keychk

*main
	stop

*keychk
	strlen size,buf
	title "size="+size
	goto *main


*file_save
	dialog "txt",17,"ﾃｷｽﾄﾌｧｲﾙ"
	if stat=0 : goto *dlcan
	strlen a,buf			; テキストの長さを調べる
	bsave refstr,buf,a		; テキストファイルをセーブ
*dlcan
	stop

*file_load
	dialog "txt",16,"ﾃｷｽﾄﾌｧｲﾙ"
	if stat=0 : goto *dlcan2
	bload refstr,buf		; テキストファイル読み込み
	objprm 0,buf
*dlcan2
	stop

*endbtn
	end