Graphics 640,480,0,2

   Type recht   ;rechteck type mit anfangs- und endpunkt x,y
      Field ax
      Field ay
      Field ex
      Field ey
   End Type
   
   
ClsColor 255,255,255

Color 0,0,0

re = 1

Repeat

   Cls
   
   xmaus = MouseX()
   ymaus = MouseY()
   
   If MouseHit(1) And re = 1 Then;bei maustase 1 die 1. koordinaten speichern
      apple.recht = New recht 
      apple\ax = maus
      apple\ay = ymaus
      re = 0
   EndIf
   
   If MouseHit(2) And re = 0 Then;bei maustase 2 die 2. koordinaten speichern
      apple\ex = xmaus
      apple\ey = ymaus
      re = 1
   EndIf
      
   For apple.recht = Each recht  ; rechtecke zeichnen
      Rect apple\ax,apple\ay,apple\ex,apple\ey
   Next
         
   Rect -1,-1,MouseX()+2,MouseY()+2,0 ;auswahlkreutz
   Rect MouseX(),MouseY(),640,480,0     ;zeichnen
      
   Flip
   
Until KeyDown(1)
End

For apples.recht = Each recht ; rechtecke zeichnen
Rect apples\ax,apples\ay,apples\ex,apples\ey
Next