if mousclick(1) then
mousex = erste
mousey = zweite
........

if mousehit(1) then
 if toggle
  pos2x = mousex()
 pos2y = mousey()
 else
  pos1x = mousex()
 pos1y = mousey()
endif
toggle = not toggle
endif
 

local x1,x2,y1,y2

waitmouse()

x1 = mousex()
y1 = mousey()

waitmouse()

x2 = mousex()
y2 = mousey()

line x1,y1,x2,y2

waitmouse()

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

Type l
   Field x1,y1,x2,y2
End Type

Global MX,MY,MHIT=1
Dim TEMP(1,1)

Repeat
   mx = MouseX()
   my = MouseY()
   If MouseHit(1) Then
      TEMP(MHIT-1,0) = MX
      TEMP(MHIT-1,1) = MY
      MHIT = MHIT + 1
      If MHIT > 2 Then
         MHIT = 1
         l.l = New l
         l\x1 = TEMP(0,0)
         l\y1 = TEMP(0,1)
         l\x2 = TEMP(1,0)
         l\y2 = TEMP(1,1)
      EndIf
   EndIf
   Text 1,1,"X1 : "+TEMP(0,0)
   Text 1,15,"Y1 : "+TEMP(0,1)
   Text 1,30,"X2 : "+TEMP(1,0)
   Text 1,45,"Y2 : "+TEMP(1,1)
   Text 1,60,"HITS : "+MHIT
   For l.l = Each l
      Oval l\x1-2,l\y1-2,4,4
      Oval l\x2-2,l\y2-2,4,4
      Line l\x1,l\y1,l\x2,l\y2
   Next
   Flip
   Cls
Until KeyHit(1)
End

Graphics 800,600,32,2 ;Standart Prozedur :)
SetBuffer BackBuffer()


Color 255,0,0  ; Die Farbe auf Rot setzten , der Optik wegen


While Not KeyHit(1) ;Schleife durchgehn bis ESC gedrückt wird

Cls ;Bildschrim löschen



If  MouseHit(1) ;Falls mausgedrüclt wird

If c=0          ; und dazu noch c(lick) = 0 ist
    posx=MouseX() ; Posx soll den Wert der Maus haben
    posy=MouseY() ; Posy soll den Wert der Maus haben
    c=1         ; c(lick) wird auf 1 gesetzt
EndIf   


If c=2          ; Falls c(lick) gleich 2 ist , noch nicht beachten
    posx2=MouseX() ; bekannt nur das es posx2 und posy2 sind
    posy2=MouseY()
    c=0         ; c(lick) wird auf 0 gesetzt
EndIf
EndIf



If c=1 Then c=2 ; Falls die Maus gedrückt wurde und c=1 ist (siehe oben) , soll c=2 sein (siehe oben)


Color 255,255,255 ;Farbe auf weis, für den Text
Text  0,20,"x"+posx+" y"+posy+" x2"+posx2+" y2"+posy2 ;Hier kanst du die Koordinaten der Punkte (die du geklickt hast) ansehn
Text  0,0,"c:"+c ; Hier den Wert von c
Color 255,0,0 ; Farbe auf Rot


Line posx,posy,posx2,posy2 ; Die Linie wird gezeichnet :)

If c=0 ; Nicht beachten ist nur das die akktuele Linie Rot ist und die andere weis :)
   Color 255,255,255
  Line posx2,posy2,MouseX(),MouseY()
   Color 255,0,0
Else
   Color 255,255,255
  Line posx,posy,MouseX(),MouseY()
   Color 255,0,0
EndIf


Flip 60 ;Flipen
Wend    ;Ende der Schleife
End     ;Ende !