sdim data,128000
	exist"text.dat" : dim w,2
	if strsize>=0 : bload"text.dat",data,strsize-8,8 : bload"text.dat",w,8,0
	width 320,240,w.0,w.1 : title"Memo Board"
	font"‚l‚r ƒSƒVƒbƒN",12 : objmode 2,0 : objsize 320,240
	mesbox data,,,1
	gsel 0,1 : onexit *en
	stop
*en
	strlen len,data
	ginfo 2 : if prmx!=3000 : w.0=prmx : w.1=prmy
	bsave"text.dat",w,8
	bsave"text.dat",data,len,8
	end