Graphics 800,600,16,1



HidePointer

SetBuffer BackBuffer()

Button=LoadImage ("c:\Graphics\button.bmp")

zeiger=LoadImage("c:\Graphics\zeig.bmp")
MaskImage zeiger ,255,0,255

ClsColor 120,120,190



Cls




Print " Try to catch the red Square "

WaitKey

While Not KeyHit(1)


If MouseX() >= x And MouseX() <= x + ImageWidth(Button) And MouseY() >= y And MouseY() <= y + ImageHeight(Button) And MouseDown(1) Then
ziel
EndIf


x= Rnd (0,800)
y= Rnd (0,600)


Cls

DrawImage Button,x,y


DrawImage zeiger,MouseX(),MouseY()

Flip
Wend

Function ziel ()

Cls

Print "!! You have won !!!"

WaitKey

End
End Function