function menu_wtm
        
        lang=leer_lengua();
        if lang==0
                cambia_lengua;
                menu_wtm;
        elseif lang==1
                %esp
                lang='esp';
        elseif lang==2
                %eng
                lang='eng';
        endif
	filename=[lang".lang"];
        fid=fopen(filename,'r');
	archivo=setstr((fread(fid))');
        fclose(fid);
        
        texto=busca_tags('main',busca_tags('menu_wtm',busca_tags('menus',archivo)));
        
        a_eval=["menu2 " texto];
        [eleccion_num,eleccion_txt]=eval(a_eval);
	
        if strcmp(eleccion_txt,'config')
                %configure wave2mid
                config_wtm;
                menu_wtm;
	elseif strcmp(eleccion_txt,'edit_hand')
                %ver archivo de configuracion
                [editor,rep_audio,rep_midi]=lectores;
                a=[editor," config.pbg"]
                system(a)
		menu_wtm;
        elseif strcmp(eleccion_txt,'edit_auto')
                %editar archivo de configuracion
                edit_params;
                menu_wtm;
	elseif strcmp(eleccion_txt,'tempo')
                %estimacion del tempo
                printf("%s\n",busca_tags('estimating',busca_tags('menu_wtm',busca_tags('menus',archivo))));
		tempo=calcula_tempo;
		printf("%s: %f\n",busca_tags('tempo',busca_tags('menu_wtm',busca_tags('menus',archivo))),tempo);
		clear tempo;
		menu_wtm;
	elseif strcmp(eleccion_txt,'convert')
                %convertir
		printf("%s\n",busca_tags('starting',busca_tags('menu_wtm',busca_tags('menus',archivo))));
		inicio=time;
		wtm;
		fin=time;
		printf("%s en %f %s\n",busca_tags('text',busca_tags('finished',busca_tags('menu_wtm',busca_tags('menus',archivo)))),fin-inicio,busca_tags('units',busca_tags('finished',busca_tags('menu_wtm',busca_tags('menus',archivo)))));
		clear inicio;
		clear fin;
		menu_wtm;
	elseif strcmp(eleccion_txt,'audio')
                %Reproducir Audio
		config=leer();
                [editor,rep_audio,rep_midi]=lectores;
                a=[rep_audio," ",config.file_input];
                system(a);
		menu_wtm;
	elseif strcmp(eleccion_txt,'midi')
                %Reproducir Midi
		config=leer();
                [editor,rep_audio,rep_midi]=lectores;
                a=[rep_midi," ",config.file_output];
                system(a);
		menu_wtm;
        elseif strcmp(eleccion_txt,'language')
                %Cambiar lenguaje
                cambia_lengua;
                menu_wtm;
        elseif strcmp(eleccion_txt,'about')
                %acerca de
                fid=fopen('readme','r');
                a=fread(fid);
                fclose(fid);
                setstr(a')
                pause;
                menu_wtm;
	elseif strcmp(eleccion_txt,'exit')
                %Fin
		printf("%s\n",busca_tags('program_end',busca_tags('menu_wtm',busca_tags('menus',archivo))));
	endif
endfunction

