#include "gdi32.as"
	width ,,0,0
	mref bm,67
	dim tm,14
	GetTextMetrics bm.4, varptr(tm)
	if stat==0: dialog "GetTextMetrics() failed(1).": end
	mes "tmHeight="+tm.0
	mes "tmAscent="+tm.1
	mes "tmDescent="+tm.2
	screen 1,640,480,,0,100
	color 0,255,0: boxf
	color 0,0,255
	line -1,16,639,16
	line -1,17,639,17
	line 16,-1,16,17
	line 16*2,-1,16*2,17
	line 16*3,-1,16*3,17
	line 16*4,-1,16*4,17
	line 16*5,-1,16*5,17
	line 16*6,-1,16*6,17
	color: pos 0,0
	mes "あいうえおabgy  デフォルトフォント デフォルトサイズ"
	font msgothic
	mes "あいうえおabgy  MS ゴシック デフォルトサイズ"
	font msgothic,12
	mes "あいうえおabgy  MS ゴシック 12"
	font msgothic,16
	mes "あいうえおabgy  MS ゴシック 16"
	font "FixedSys",0
	mes "あいうえおabgy  FixedSys 0"
	font "FixedSys",31
	mes "あいうえおabgy  FixedSys 31"
	font "FixedSys",32
	mes "あいうえおabgy  FixedSys 32"
	screen 2,640,480,,0,300
	gzoom 448,144,1,0,0,112,36