;右クリックで終了
#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
	await 1
	if mousex < button_x : goto *view
	if mousex > (button_x+BUTTON_W) : goto *view
	if mousey < button_y : goto *view
	if mousey > (button_y+BUTTON_H) : goto *view

	pos button_x,button_y
	gcopy 2,0,BUTTON_H,BUTTON_W,BUTTON_H	;書き換え

;----------------入力確認-------------------
	click_stat=0
	stick click_stat
	if click_stat==512 : end		;右クリックされた
	if click_stat!256 : goto *kurikaesi	;左クリックされていない

	dialog "画像が選ばれました"

	goto *kurikaesi