For i = 1 To reihe
   For j = 1 To blocks
      Read block
      If block <> 0 Then
         s.stein = New stein
         s\x = block_aktual_x
         s\y = block_aktual_y
         
         s\x1 = s\x
         s\y1 = s\y
         s\x1end = (s\x+71)
         s\y1end = (s\y+2)
         s\x2 = s\x
         s\y2 = s\y
         s\x2end = (s\x+2)
         s\y2end = (s\y+31)
         s\x3 = s\x
         s\y3 = (s\y+29)
         s\x3end = (s\x+71)
         s\y3end = (s\y+2)
         s\x4 = (s\x+69)
         s\y4 = s\y
         s\x4end = (s\x+71)
         s\y4end = (s\y+31)
         
         ;Blockindex mit Steinstärke und Imagedatei
         If block = 1 Then s\live = 1 : s\img = block_01
         If block = 2 Then s\live = 2 : s\img = block_02
         If block = 3 Then s\live = 3 : s\img = block_03
         
         s\dead = 0
         EndIf
      block_aktual_x = block_aktual_x + block_lenght
   Next
block_aktual_y = block_aktual_y + block_height
block_aktual_x = block_start_x
Next   

;Das Level Zeichnen
For s.stein = Each stein
   DrawImage s\img,s\x,s\y
   
   ;Oben und Unten
   If RectsOverlap(s\x1,s\y1,s\x1end,s\y1end,ball_x#,ball_y#,22,24) Or RectsOverlap(s\x3,s\y3,s\x3end,s\y3end,ball_x#,ball_y#,22,24)
      ball_speed_y# = -ball_speed_y#
      Delete s
   EndIf
   
   ;Rechts und Links
   If RectsOverlap(s\x2,s\y2,s\x2end,s\y2end,ball_x#,ball_y#,22,24) Or RectsOverlap(s\x4,s\y4,s\x4end,s\y4end,ball_x#,ball_y#,22,24)
      ball_speed_x# = -ball_speed_x#
      Delete s
   EndIf
   
   
Next