Sub LoadMap(Level)

Dim i
Dim j
  For i = 0 To NY       ' стены
                Map(i, 0) = 1
                Map(i, NX) = 1
        Next 
        For i = 1 to NX - 1    ' потолок
                Map(0,i) = 1
  Next
Select Case Level
Case 3
'        For j = 1 to 4    ' 4 ряда бьющихся блоков
'                For i = 1 to NX - 1    ' бьющиеся
'                       Map(9,10) = 2
'                Next        
'        Next
Case 1
        For i = 3 to NX - 1 Step 4 ' узоры
                Map(4,i) = 1
        Next
        For j = 1 to 3    ' 4 ряда бьющихся блоков
                For i = 1 to NX - 1    ' бьющиеся
                        Map(j,i) = 2
                Next        
        Next
Case 2
        For i = 1 to NX - 1 ' узоры
                Map(3,i) = 1
        Next
        For j = 1 to 2    ' 4 ряда бьющихся блоков
                For i = 1 to NX - 1    ' бьющиеся
                        Map(j,i) = 2
                Next        
        Next
        Map(3,1) = 2        ' дырка в узоре
        Map(3,NX-1) = 2        ' дырка в узоре
End Select
End Sub