randomize
	gsel 0,-1
	;onexit *exit
	bgscr 2,24,24,8
	gsel 2,2
	title "XXXXX"
	objsize 24,24
	x=dispx-24/2
	y=dispy-24/2
	width ,,x,y
	cls 1
	repeat
		wait 1
		stick k,0,1
		if k&256 :break
		ginfo 0
		f=0
		if prmx > x & (x+24> prmx) :f= prmy > y & (y+24> prmy)
		if f :n++ :else: n=0
		mx=mousex
		my=mousey
		rnd r,400
		if r==0 {
			rnd mx,winx
			rnd my,winy
			n=256
		}
		if n>10 {
			await 0
			xx=12-mx*2
			yy=12-my*2
			repeat 24
				await cnt>>2
				if xx*4+x<0 | (xx*4+x+24>dispx) :xx=-xx
				if yy*4+y<0 | (yy*4+y+24>dispy) :yy=-yy
				x+=xx*4
				y+=yy*4
				width ,,x,y
				xx=xx>>1
				yy=yy>>1
			loop
			n=0
		}
	loop
	dialog "������I"
	end

*exit
	;stop