function audiomanager ( ... )
   -- Aqui inicializamos algunas cosas que sólo
   -- seran necesarias ejecutarlas una vez.
   local input = { ... };
   local output = { };
   local currentsong = nil;
   local currentindex = 1;
 
   local audiofiles = {
      "snd/bla.mp3",
      "snd/ble.mp3",
      "snd/bli.mp3"
   };
 
   -- A partir de aqui es lo que se ejecutará a cada ciclo.
   while true do
      -- if no song, load and play.
      if ( currentsong == nil ) then
         currentsong = sound.load(audiofiles[currentindex]);
         currentsong:play(5); -- canal 5.
      end
 
      -- if finished, next song.
      if ( currentsong:percent() > 98 ) then
          currentindex = currentindex + 1;
          currentsong:stop();
          currentsong:free();
          currentsong = nil;
      end
 
     -- if player wants next song.
     if ( controls.released("r") ) then
         currentindex = currentindex + 1;
         currentsong:stop();
         currentsong:free();
         currentsong = nil;
     end
 
     -- controlar rango de currentindex.
     if ( currentindex > #audiofiles ) then
        currentindex = 0;
     end
     if ( currentindex < 1 ) then
        currentindex = #audiofiles;
     end
 
     -- salir de la corutina ( y volver a entrar luego por aqui ).
      input = { coroutine.yield(output) };
   end
 
 
end

-- nos guardamos el screen flip.
old_screen_flip = screen.flip;
corutina_audiomanager = nil;
 
-- machacamos un nuevo screen.flip para añadir funciones
-- que vayamos a ejecutar a cada ciclo, y no queremos tocar
-- el resto del programa...
function screen.flip( )
   -- si no hay corutina, crearla.
   if (corutina_audiomanager == nil) then
     corutina_audiomanager = coroutine.create(audiomanager);
   end
 
   -- vigilar si no esta muerta.
   if ( coroutine.status(corutina_audiomanager) == "dead" ) then
       -- hay algun error, y murió, la borraremos para que vuelva
       -- a nacer en el proximo screen.flip.
       corutina_audiomanager = nil;
   else
      -- la corutina sigue viva, pero a la espera, o sin primera ejecucion
      coroutine.resume(corutina_audiomanager);
   end
 
 
   -- por ultimo, hacemos el viejo screen flip
   old_screen_flip();
end

Thread = {}	-- Se crea la tabla del modulo hilo
 
-- Se crea un nuevo hilo que contiene la funcion "func"
function Thread.new(id,func)
	local thr = {	-- Creamos un nuevo objeto thread
		id = id,
		type = "Thread",
		data = {},
	}
 
	table.insert(thr.data,func)	-- Insertamos la nueva funcion al hilo
 
	return thr
end
 
-- Añade un hilo a otro hilo
function Thread.add(thr_fat,thr_son)
	table.insert(thr_fat.data,thr_son)
end
 
-- Corre todos los hilos del objeto Thread pasado como argumento
function Thread.run(thr)
	for i = 1,#thr.data do
		local t = thr.data[i]
		if type(t) == "function" then
			t()	-- Corremos la funcion del thread
		elseif type(t) == "Table" and t.type == "Thread" then
			Thread.run(t) 	-- Ejecutamos todos los hilos dentro del hilo principal
end
	end	
end

function Thread.get(id)
 
end
 
function Thread.kill(id)
 
end
 
function Thread.stop(id)
 
end
 
function Thread.clone(id)
 
end