'hotspot
ink(rgb(255,0,0))
line(0,2,4,2)
line(2,0,2,4)
grab(1,0,0,5,5)

ink(rgb(255,255,255))
loadimage("bidone.bmp",0)
while not key(K_esc)
	cls
	x=rnd(4)-1
	y=rnd(4)-1
	text(10,10,15,"hotspot(0,"&x&","&y&")      press any key to change hot spot")
	hotspot(0,x,y)
	bob( 1,100,100,0)
	bob(2,100,100,1)
	screenswap
	while(inkey=0):end while
	while(inkey<>0):end while
wend

