function tabla = carga_musica (archivo)
  delimitadores = [' ',',',char(9),char(13),'\n'];
  tabla = {" "};
  [fid,msg] = fopen(archivo,"rt");
  if fid < 0
    printf("%s\n",msg);
    return  
  endif
  
  ren = 0;
  while 1
    linea = fgetl(fid);
    if ~ischar(linea)
      break
    endif
    resto = linea;
    ren = ren + 1;
    col = 0;
    while 1
        [palabra,resto]=strtok(resto,delimitadores);
        if isempty(palabra)
           break;
        endif
        col = col + 1;
        tabla(ren,col)={palabra};
    endwhile
  endwhile
  fclose(fid);
endfunction