Function Scrolling()
If KeyDown(203) Then scrollx=scrollx-4
 If scrollx<0 Then scrollx=0

If KeyDown(205) Then scrollx=scrollx+4
 If scrollx>(mapb-1)*16 scrollx=(mapb-1)*16

If KeyDown(200) scrolly=scrolly-4
 If scrolly<0 Then scrolly=0

If KeyDown(208) Then scrolly=scrolly+4
 If scrolly>(maph-1)*16 Then scrolly=(maph-1)*16

End Function

for i=0 to maph-1
 for j=0 to mapb-1
  drawimage Tset,j*16-scrollx,i*16-scrolly,map(j,i)
 next
next

Graphics 640,480,16,1
SetBuffer BackBuffer()
;------------------------------

Global xpos = 0,ypos = 0


Global links = 203,rechts = 205,oben = 200, unten = 208

Global tilex = 32,tiley = 32

Global count = 0

;------------------------------

While Not KeyHit(1)

If KeyDown(links)
 xpos = xpos - 1
   If xpos < 0 Then xpos = 0
EndIf

If KeyDown(rechts)
 xpos = xpos + 1
   If xpos > (640 - tilex * 10) Then xpos = (640 - tilex * 10)
EndIf

If KeyDown(oben)
 ypos = ypos - 1
   If ypos < 0 Then ypos = 0
EndIf

If KeyDown(unten)
   ypos = ypos + 1
   If ypos > (480 - tiley * 10) Then ypos = (480 - tiley * 10)
EndIf






;------------------------------
For y = 0 To 9
   For x = 0 To 9
   
   
   
   Rect xpos + (x * tilex  ),ypos + (y * tiley),tilex,tiley,0

      Text xpos + (x * tilex  ),ypos + (y * tiley),count
      count = count +1
   Next
Next
count = 0
;------------------------------


Flip:Cls
Wend:End