Graphics 640,480,32,1
zeiger = LoadImage ("zeiger.bmp")
DrawImage zeiger,MouseX(),MouseY()
WaitKey

Graphics 800,600,32,2
zeiger = LoadImage ("zeiger.bmp")

Dim KnopfX(50),KnopfY(50),KnopfB(50),KnopfH(50),KnopfN$(50),KnopfA$(50)
MaxKnopf=2
;-----------------------LeseKnöpfe-----------KnopfN$=Name KnopfA$=Reaktion bei Clock----------------"
For Z=0 To MaxKnopf :Read KnopfX(Z):Read KnopfY(Z):Read KnopfB(Z):Read KnopfH(Z):Read KnopfN$(Z):Read KnopfA$(Z):Next

SetBuffer BackBuffer()
Repeat:cls
MX=MouseX():MY=MouseY():MT=MouseHit(1)


;----------------------KnopfAbfrage---------------------------------------------"
For Z=0 To MaxKnopf
Select MX>KnopfX(Z) And MX<KnopfX(Z)+KnopfB(Z) And MY>KnopfY(Z) And MY<KnopfY(Z)+KnopfH(Z) And MT=1:Case 1:PRGVERZW(Z):Exit:End Select
;"-----------------------Knopf anzeige--------------------------------------------"
Color 200,0,0:Rect KnopfX(Z),KnopfY(Z),KnopfB(Z),KnopfH(Z)
Color 255,255,0:Text KnopfX(Z)+KnopfB(Z)/2,KnopfY(Z)+KnopfH(Z)/2,KnopfN$(Z),1,1
Next
DrawImage zeiger,MX,MY
Flip
Until KeyDown(1)=1
End

Function  PRGVERZW(Z):;"--------Programmverzweigung--------------------"
Select KnopfA$(Z):Case "Ende":BEENDEN():Case "Warten":WARTEN():Case "WesIG":WESIG():End Select
End Function

Function BEENDEN():End:End Function
Function WARTEN()::AppTitle "Warten":Delay 1000:End Function
Function WESIG():AppTitle "WesIG":End Function


Data 10,10,100,30,"KnopfJuhu","Ende"
Data 140,10,100,30,"KnopfMist","Warten"
Data 250,10,100,30,"KnopfTod","WesIG"