Graphics 640,480
SetBuffer BackBuffer()


;<<<<<<<<<< karte erstellen
Global mapx = 9
Global mapy = 7
Dim karte(mapx,mapy)
;<<<<<<<<<< karte füllen
Data 0,0,0,0,0,0,0,0,0
Data 0,0,0,0,1,0,0,0,0
Data 0,0,0,0,1,0,0,0,0
Data 0,2,0,0,1,0,0,3,0
Data 0,0,0,0,1,0,0,0,0
Data 0,0,0,0,1,0,0,0,0
Data 0,0,0,0,0,0,0,0,0

For y = 0 To mapy-1
 For x = 0 To mapx-1
  Read karte(x,y)
 Next
Next


Repeat
Cls

;karte zeichnen
For x = 0 To mapx-1
 For y = 0 To mapy-1
  Select karte(x,y)
  Case 0 ;weiß
  Color 255,255,255
  Rect x*16,y*16,16,16
  Case 1 ;schwarz
  Color 0,0,0
  Rect x*16,y*16,16,16
  Case 2 ;grün
  Color 0,255,0
  Rect x*16,y*16,16,16
  Case 3 ;blau
  Color 0,0,255
  Rect x*16,y*16,16,16
  End Select
 Next
Next



Flip
Until KeyHit(1)
end