fcolor={pbp=color.new(125,0,0),mp3=color.new(125,125,0),png=color.new(0,125,0),lua=color.new(0,125,125)}
lista,ant = files.list("ms0:/"),"ms0:/"
ini,sel = 1,1
  if #lista > 15 then lim=15 else lim=#lista end
 
while true do
buttons.read()
  y=25
if #lista > 0 then
  for i=ini,lim do
	if lista[i].directory then ccolor=color.new(0,0,125)
	  else ccolor=nil end
	if i==sel then
	  screen.print(10,y,files.nopath(lista[i].name),0.9,ccolor or fcolor[files.ext(lista[i].name)] or color.new(155,155,155),color.new(0,0,0))
	else
	  screen.print(5,y,files.nopath(lista[i].name),0.6,ccolor or fcolor[files.ext(lista[i].name)] or color.new(155,155,155),color.new(0,0,0))
	end
	  y=y+15
  end
 
	if buttons.cross and lista[sel].directory then
	  ant=lista[sel].name
		lista = files.list(ant)
		  ini,sel = 1,1
		if #lista > 15 then lim=15 else lim=#lista end
	end
 
	  if buttons.down then
		if sel<lim then sel=sel+1
		  elseif lim+1<=#lista then
			ini,sel,lim=ini+1,sel+1,lim+1
		  end
	  end
 
		if buttons.up then
		  if sel>ini then sel=sel-1
			elseif ini-1>=1 then
			  ini,sel,lim=ini-1,sel-1,lim-1
			end
		end
else
  screen.print(5,25,"CARPETA VACIA")
end
	if buttons.circle then
	  ant=files.nofile(ant)
		lista = files.list(ant)
		  ini,sel = 1,1
		if #lista > 15 then lim=15 else lim=#lista end
	end
screen.flip()
end