Dim map(100,100) 
Graphics 640,480,16,3

tileset = LoadAnimImage(\"tileset2.bmp\",32,32,0,27)  

For x = 0 To 100 
 For y = 0 To 100 
   map(x,y)=0
 Next 
Next 

SetBuffer BackBuffer() 
Repeat 
Cls
HidePointer
If KeyHit(1) Then Exit 

For x = 0 To 100 
 For y = 0 To 100 
   DrawImage tileset,x*32-scrollx,y*32-scrolly,map(x,y) 
 Next 
Next 

If KeyHit(2) Then tile = tile+1
If KeyHit(3) Then tile = tile-1 
If tile = 27 Then tile = 0
If tile = -1 Then tile = 26

If MouseDown(1) Then 
 For x = 0 To 100 
  For y = 0 To 100 
   If RectsOverlap(x*32-scrollx,y*32-scrolly,32,32,MouseX(),MouseY(),1,1) Then 
    map(x,y)=tile 
   EndIf 
  Next 
 Next 
EndIf 

If KeyDown(208) Then scrolly = scrolly + 32 
If KeyDown(200) Then scrolly = scrolly - 32 
If KeyDown(205) Then scrollx = scrollx + 32 
If KeyDown(203) Then scrollx = scrollx - 32 

If KeyHit(31) Then 
 save() 
EndIf 

If KeyHit(38) Then 
 load() 
EndIf

DrawImage maus,MouseX(),MouseY()

Flip 
Cls 
Forever 

Function save() 
 karte$ = WriteFile(\"map1.map\") 
  For x = 0 To 100 
   For y = 0 To 100 
    WriteLine(karte$,tile) 
    WriteInt(karte$,map(x,y)) 
   Next 
  Next 
CloseFile(karte$) 
End Function 

Function load() 
 karte$ = ReadFile(\"map1.map\") 
  For x = 0 To 100 
   For y = 0 To 100 
    tile = ReadLine(karte$) 
    map(x,y) = ReadInt(karte$) 
   Next 
  Next 
CloseFile(karte$) 
End Function