goto *@f
#include "loadlib.as"
#deffunc ini
mref bmscr, 67
hDC = bmscr.4
hWnd = bmscr.13

ll_libload hGdi,"gdi32.dll"

ll_getproc pBeginPath,"BeginPath",hGdi
ll_getproc pEndPath,"EndPath",hGdi
ll_getproc pPathToRegion, "PathToRegion",hGdi
ll_libload hUser,"user32.dll"
ll_getproc pSetWindowRgn, "SetWindowRgn", hUser

prm = hDC
ll_callfunc prm, 1, pBeginPath

font "ＭＳ　Ｐゴシック",32,1
str buf : wpoke buf,0,$6761 : wpoke buf,2,$0065
mes buf

ll_callfunc prm, 1, pEndPath
ll_callfunc prm, 1, pPathToRegion

ll_ret prm.1
prm.0 = hWnd
prm.2 = 1
ll_callfunc prm, 3, pSetWindowRgn
return
#deffunc bye
if hGdi : ll_libfree hGdi
if hUser : ll_libfree hUser
return

*@

onexit *owari
gsel 0,-1
bgscr 2, 100,40,1,dispx-100/2,dispy-32/2
ini
boxf
stop

*owari
bye