;--------------------------------------
;	waku p1,p2,p3		[枠の表示]
;
;	p1 ： 枠の幅
;	p2 ： 枠の高さ
;	p3 ： 枠の太さ
;
;	
;	枠の左上の座標はカレントポジションです
;--------------------------------------
#module
#deffunc waku int,int,int
	mref w,0
	mref h,1
	mref size,2
	size--
	x=csrx : y=csry
	boxf x,y,x+w,y+size		;上
	boxf x,y,x+size,y+h		;左
	boxf x,y+h-size,x+w,y+h		;下
	boxf x+w-size,y,x+w,y+h		;右
	return
#global

;--------------------------------------
;	ここから、サンプルプログラム
;	実際に使うときは削除してください
;-------------------------------------
repeat
	stick a
	if a&256 {
		pos mousex,mousey
		color 128,0,255
		waku 300,30,5
	}
	wait 1
loop