;右クリックで終了
#define BUTTON_W 90	;ボタンの幅
#define BUTTON_H 40	;ボタンの高さ
*main
;----------------変数の初期化-------------------
	button_x=100	;ボタンの左上のX座標
	button_y=50	;ボタンの左上のY座標

;----------------画面の準備-------------------
	buffer 2
	picload "button.bmp"	;バッファーにボタンの絵を読み込む
	gsel 0
*view
	pos button_x,button_y
	gcopy 2,0,0,BUTTON_W,BUTTON_H	;ボタンを表示

;----------------入力待ち-------------------
*kurikaesi
	click_stat=0
	await 1
	stick click_stat
	if click_stat==512 : end		;右ボタンが押された
	if click_stat!256 : goto *kurikaesi	;左ボタンが押されていない

;----------------どこでクリックされたか判定-------------------
	if mousex < button_x : goto *kurikaesi
	if mousex > (button_x+BUTTON_W) : goto *kurikaesi
	if mousey < button_y : goto *kurikaesi
	if mousey > (button_y+BUTTON_H) : goto *kurikaesi
	
	pos button_x,button_y
	gcopy 2,0,BUTTON_H,BUTTON_W,BUTTON_H	;押された画像に書き換える
	dialog "ボタンが押されました"

	goto *view