Dim map(10, 10)

map(1, 1) = 22
map(2, 1) = 22
map(3, 1) = 22

usw.

Dim Map(5,5)

for y=0 to 5
    for x = 0 to 5
        read map(x,y)
    next
next
; Hier wurde die Karte eingelesen. Lass das Programm mal im Debugger durchlaufen um zu verstehen warum man x und y vertauschen muss ;)

graphics 640,480
tiles = loadanimimage("tiles.png",32,32,0,2);hier werden die Tiles geladen
repeat
cls
    for y=0 to 5
        for x = 0 to 5
            drawimage tiles,x*32,y*32,map(x,y); und hier werden sie gezeichnet
        next
    next
    flip
until keyhit(1)

;die Karte, die mit READ eingelesen wird:
data 0,0,0,0,0,0
data 0,1,0,0,1,0
data 0,0,0,0,0,0
data 0,0,1,1,0,0
data 1,0,0,0,0,1
data 0,1,1,1,1,0