You could do something like so:
DIM Map[25] = [0, // <- this goes into index:0, if you plan to use index:0 then you don't need this
5,2,1,3,5,
5,4,3,3,1,
3,3,1,1,4,
3,2,5,1,2,
5,2,4,2,3]
Then run through it with something like so:
FOR y = 1 TO MapHeight
FOR x = 1 TO MapWidth
GameTile[x,y] = Map[x + (y*MapWidth-MapWidth)]
NEXT x
NEXT y
Then load tile images like so:
FOR t = 0 TO TileTypes
img_tile[t] = LoadImage("spr_game_tile_" + str(t) + ".png")
NEXT t
Then assign tile images like so:
FOR y = 1 TO MapHeight
FOR x = 1 TO MapWidth
Tile[x,y] = CreateSprite(img_tile[GameTile[x,y]])
SetSpritePositionByOffset(Tile[x,y],x*TileSpacing-TileSpacing,y*TileSpacing-TileSpacing)
SetSpriteScaleByOffset(Tile[x,y],TileScale#,TileScale#)
NEXT x
NEXT y