Graphics 640, 480, 32, 2
SetBuffer BackBuffer()
Cls
imgDraw ("test.jpg", 0, 0)
bereich (0, 74, 452, 479)

Function imgDraw (img$, x, y)  ;bild auf screen bringen
   img = LoadImage (img$)
   If img = 0 Then
      Text 100, 100, "Fehler"
   Else
      DrawImage (img, x, y)
   EndIf
End Function

; hier soll einfach nur überprüft werden, ob in einen bestimmten bereich geklickt wurde, und dann ein text erscheinen
Function bereich (minX, maxX, minY, maxY)
   While Not KeyHit (1)
      mausX = mausX + MouseXSpeed ()
      mausY = mausY + MouseYSpeed ()
      If MouseHit (1) = 1 And mausX >= minX And mausX <= maxX And mausY >= minY And mausY <= maxY Then
         imgDraw ("test", 0, 0)
         Text 10, 40, mausY
      End If   
      Flip
   Wend
End Function

WaitKey
End

repeat
msecs=millisecs()

; Berechnung, Ausgabe, tralala

flip 0
waittimer(gewuenschte_frames,millisecs()-msecs)
until keyhit(1)
end


Function WaitTimer(frames,time)
   wait=1000/frames-time
   If wait>0 Delay wait
   Return wait
End Function