;
	;	mes命令で表示した文字の範囲を取得します
	;

	title "MES命令の表示範囲取得"
	screen 0,640,240
	font msgothic,50,font_bold|font_antialias
	a="Hot Soup Processor":gosub *test
	a="Ver3.0 testing":gosub *test
	stop
*test
	color 0,0,0
	cx=ginfo_cx:cy=ginfo_cy
	mes a
	mx=ginfo_mesx:my=ginfo_mesy
	mes "SX="+mx+"/SY="+my
	x=cx:y=cy:x2=cx+mx:y2=cy+my

	color 255,0,0
	boxf x,y,x2,y
	boxf x,y2,x2,y2
	boxf x,y,x,y2
	boxf x2,y,x2,y2
	return