;  mesbox命令による簡易テキストエディタ
;	編集可能なテキストファイルは32000バイトまでです。
;

	cls 1
	alloc buf,32000			; テキストのバッファを確保
	buf=""				; バッファをクリア
	flg=1				; 0=編集不可/1=編集可能
	mesbox buf,636,426,flg
	objsize 60,24
	pos 410,428:button "LOAD",*file_load
	pos 480,428:button "SAVE",*file_save
	pos 548,428:button "END",*endbtn
	stop
*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