FPS = CreateTimer(60)

Dim map(30,16)
Graphics 800,600,16,3
SetBuffer BackBuffer()

Tileset = LoadAnimImage("tileset.bmp",106,196,0,4)
Global x,y,mx,my,mapx,mapy,tile,TileH, TileW, XPos, YPos
Tile  = 1

Repeat
	If KeyDown(1) Then End
	;Scrolling und einfache Scrollgrenzen
	XPos=XPos+(KeyDown(32)-KeyDown(30)) *50 ;X
	If XPos < 0 Then XPos = 0
	YPos=YPos+(KeyDown(31)-KeyDown(17)) *50 ;Y
	If YPos < 0 Then YPos = 0

	For x = 0 To 29
		For y = 0 To 15
			DrawImage tileset,x*106-XPos,y*196-YPos+100,map(x,y) ;Tile wird gemalt. Man beachte +100 beim Y Wert
		Next
	Next
	
	If KeyDown(2) Then tile = 1
	If KeyDown(3) Then tile = 2
	If KeyDown(4) Then tile = 3

	mx = MouseX()
	my = MouseY()

	If MouseDown(1) Then
		scroll()
		map(mapx,mapy) = tile
	End If

	If MouseDown(2) Then
		scroll()
		map(mapx,mapy) = 0
	End If

	Flip 0
	WaitTimer FPS
	Forever
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
Function scroll()
	;scrolling
	mapx = (mx+XPos)/106
	mapy = (my+YPos)/196
	;Grenzen, da es sonst zu einer Array index out of...
	;Meldung führen würde.
	If mapx > 30 Then mapx = 30
	If mapy > 16 Then mapy = 16
End Function 

Viewport

FPS = CreateTimer(60)

Dim map(30,16)
Graphics 800,600,16,3
SetBuffer BackBuffer()
Viewport 0, 100, 800, 600

Tileset = LoadAnimImage("tileset.bmp",106,196,0,4)

; [  ... ]

Viewport