#!/usr/bin/octave

function cambia_lengua
  lenguaje=menu2("\n\n\nElige Lenguaje\nChoose your Languaje",["c";"C";"esp";"ESP";"Castellano\\Español"],["e";"E";"eng";"ENG";"English"]);
  a=["0:Elegir Lenguaje//Choose Language\n1:Castellano\\Español\n2:English\n\"" num2str(lenguaje) "\"\n"];  
  fid=fopen('lenguajes','w');
  fwrite(fid,a);
  fclose(fid);
endfunction

