*init
	#define winx 320
	#define winy 480
	#define size 12
	x = 160.0:y = 140.0
	dx = 4.0:dy = 4.0
	px = 300:py = 440
	p_size = 50
	screen 0, winx, winy, 0
	
	score = 0
	
	//ubN̏ݒ
	dim blf, 20
	dim blx, 20
	dim bly,20
	dim blx_size, 20
	dim bly_size, 20
	
	for i, 0,  20
		blf.i = 1
		blx_size.i = 40
		bly_size.i = 10
		//ubNXʒu
		if i>=15:blx.i=20+(i-15)*60
		if i<15 & i>=10 :blx.i=20+(i-10)*60
		if i<10 & i>=5 :blx.i=20+(i-5)*60
		if i<5:blx.i=20+i*60
	
		//ubNYʒu
		if i>=15:bly.i=30
		if i<15 & i>=10 :bly.i=60
		if i<10 & i>=5 :bly.i=90
		if i<5:bly.i=120
	next

	//start message
	pos 90,200
	color 0, 0, 0
	mes "Click to start!"
*start
	// for start to mouse click
	stick st
	if st=256:goto *main
	await
	goto *start
*main
	redraw 0
	color 255,255,255:boxf 0,0,winx,winy
	color 0,0,0:circle x,y,x+size,y+size
	x+=dx
	y+=dy
	if x < 0 or x+size>winx:dx = -dx
	if y < 0 or y+size>winy:dy = -dy
	if x>=px - p_size & x <=px + p_size & y+size=py:dy= -dy
	
	if y = 480-size {
		pos 120,200
		color 0,0,0
		mes "Game Over":redraw 1:await 1000
		goto *init
	}
	//ubN̕\
	for i,0,20
		if blf.i=1:color 0,0,255:boxf blx.i,bly.i,blx.i+blx_size.i,bly.i+bly_size.i//ubÑtOĂΕ\
	next

//ubNƃ{[̓蔻
	for i,0,20
		if blf.i=0:_continue//ubNȂꍇ͎̃ubN̔s
		if(y+size=bly.i) & (x>=blx.i-size & x<=blx.i+blx_size.i+size):blf.i=0:dy=-dy:sc+=100:_break//{[ォ瓖ꍇ
		if(bly.i+bly_size.i=y) & (x>=blx.i-size & x<=blx.i+blx_size.i+size):blf.i=0:dy=-dy:sc+=100:_break//{[瓖ꍇ
		if(y>=bly.i-size & y<=bly.i+bly_size.i+size) & (x+size=blx.i):blf.i=0:dy=-dy:sc+=100:_break//{[瓖ꍇ
		if(y>=bly.i-size & y<=bly.i+bly_size.i+size) & (x=blx.i+blx_size.i):blf.i=0:dy=-dy:sc+=100:_break//{[E瓖ꍇ
	next

	px = mousex:color 255,0,0:boxf px-p_size,py,px+p_size, py + 8
	await 1000/60
	redraw 1
	goto *main