Function CheckMouse2(X1,Y1,X2,Y2)
   If MouseX() >= X1 And MouseY() >= Y1
      If MouseX() < X2 And MouseY() < Y2
         If MouseHit(1)
            FlushMouse()
            Return 2
         Else
            Return 1
         EndIf
      Else
         Return 0
      EndIf
   Else
      Return 0
   EndIf
End Function

Text 200,200,"Hallo"
If CheckMouse2(200,200,200+StringWidth("Hallo"),200+StringHeight("Hallo"))=2
;geklickt
ElseIf CheckMouse2(200,200,200+StringWidth("Hallo"),200+StringHeight("Hallo"))=1
;drüber
EndIf

Graphics 800,600,32,2
SetBuffer BackBuffer ()

While qwe=0
  If KeyDown(1) Then qwe=1 Else qwe=0
  Cls
  linkText ("Das ist ein Test",200,300,0,2)
  Flip
Wend

End


;txt$ = der Text den du darstellen willst
;x,y = Startposition des textes
;start = Position bei der dein link anfängt - 0 entspricht 1ter Buchstabe des Textes
;laenge = laenge des links

Function linktext(txt$,x,y,start,laenge) 

  start_x=StringWidth(LSet(txt$,start))
  laenge_x=StringWidth(LSet(RSet(txt$,Len(txt$)-start),laenge))

  x1= x+start_x
  y1= y
  x2= laenge_x
  y2= StringHeight(txt$)

  ;Color 255,0,0                            ;optional um den link sichtbar zu machen
  ;Rect x1,y1,x2,y2
  ;Color 255,255,255
  Text x,y,txt$

  Mouse_X=MouseX()
  Mouse_Y=MouseY()
  If MouseDown(1)=1 Then
    If Mouse_X>=x1 And Mouse_X<=x1+x2 Then
      If Mouse_Y>=y1 And Mouse_Y<=y1+y2 Then
        End              ; "end" gegen die function austauschen die der link   erfüllen soll
      EndIf
    EndIf
  EndIf

End Function

setbuffer backbuffer()

while not keydown(1)

color 255,255,255
rect 100,100,100,20
color 0,0,0
text 100,100, "Hallo"
 
;das wichtige:
if rectsoverlap (mouseX(),mouseY(),1,1,100,100,100,20) then Text 100,200, "Du darfst drücken :-)"
;die erste zahl in der klammer ist die abgefragte xpos (hier die mausxpos), die 2te die ypos,die nächsten zwei  sind glaub ich die grösse des rectecks (hier mausx bis die erste der beiden zahlen,etc.),dann die x koordinate des linken oberen punkts des abgefragten bereichs, das in ypos,+ die zahl hier(xpos des bereichs), + die zahl hier(ypos)

cls
flip

wend

if (mousex() >=xpos) and (mousex() <= xpos+stringwidth(derstring)) and...