function [] = MarcarAudio (password, Delta, Fourrier, fator,tempo)


%Recebendo a lista de arquivos de audio
dirIn = 'C:\warter\In_Wav\';
dirOut = 'C:\warter\Out_Wav\';

lista = dir (dirIn);

%Imprimindo Status
delta = strcat('Delta: ', num2str(Delta));
fat = strcat('Fator: ', num2str(fator));
disp 'Marcando as Musicas';
disp '--------------';
disp (delta);
disp (fat);
disp '--------------';

for i=3:length (lista)

    %Lendo os dados do arquivo de entrada
    nomeIn = strcat(dirIn,lista(i).name);
    [tam Fs bits] = wavread(nomeIn,'size');
    %disp (nomeIn);

    %Nome do arquivo de saida
    lista(i).name = lista(i).name(1:end-4);
    nomeOut = strcat (dirOut,lista(i).name,' - D - ',num2str(Delta),' - F - ',num2str(fator),'.wav');

    % Escrevedo o cabeçalho do arquivo WAV
    fmt = wavwrite_Header(tam(1),tam(2), Fs, bits, nomeOut);  
    
    %Dividindo o arquivo original em pedaços para aplicar o patchwork para cada um deles
    resto = rem(tam(1),tempo); 
    
    %Aplicando o Patchwork para cada segmento do audio
    for j=1:tempo:(tam(1)-resto)

        y = wavread(nomeIn,[j (j+tempo-1)]);
        [y] = PatchWork(y, (password + j), Delta, Fourrier,fator);
        
        %Gravando o pedaço do audio ja alterado                
        [fidNew, err, samples_append] = ...
        	append_wavedat(nomeOut, fmt, y);
    end

    %Posicionado j na primeira posiçao ainda nao lida do audio original
    j = j + tempo;
    %Gravando o restante do audio, caso exista. 
    if (j < tam(1))
        y = wavread(nomeIn, [j tam(1)]);
        [y] = PatchWork(y, password, Delta, Fourrier,fator);

        %Gravando o pedaço do audio ja alterado                
        [fidNew, err, samples_append] = ...
            append_wavedat(nomeOut, fmt, y);
    end
    
    %Fechando o arquivo 
    if fclose(fidNew) == -1
        error('Error closing WAVE file!');
        result = 0;
    end
end