screenres 640,640,32,,&h4
dim map as byte ptr
map = imagecreate(32,32)
dim tiles as byte ptr
tiles = imagecreate(256,256)
dim tile as byte ptr
tile = imagecreate(32,32)
bload("map.bmp", map)
bload("test.bmp", tiles)
dim as integer breite, hoehe
IMAGEINFO map, Breite , hoehe

dim col as uinteger
for y as integer = 0 to 1
	for x as integer = 0 to 3
		col = POINT(x, y, map)
		if col = &hffff0000 then
			get tiles, (96,0) - (127,31), tile
			put (x*32, y*32), tile
		end if
		if col = &hff00ff00 then
			get tiles, (32,0) - (63,31), tile
			put ((x-1)*32, (y-1)*32), tile
		end if
	next
next
'put (1,1), map
sleep