int grabaRecords(FILE *file,char *nombre, int puntos){
    char nombreArchivo[15]="records.txt";
	char nom[18]="                 ";           //el nombre del jugador tendra como mucho 15 caracteres mas 3 de espacio  
	int i=0;
	char cadena[32]="";							//guardará la linea a leer o escribir
	char puntuacionLinea[5]="";                //puntuacion en caracteres
	long int auxPosCursor=0;						
	while((i<18)&&(nombre[i]!='\0')){ 	    //copia el nombre pasado a una cadena de 18 caracteres(nom)
	    nom[i]=nombre[i];
		i++;
	}
 
	//PA_OutputText(PANT_INF,4,10,"%s1",nom);
//   char path_raw [EFS_MAXPATHLEN]; 
//   sprintf (path_raw, "%s", nombreArchivo); 
    file=fopen(nombreArchivo,"r");				//lee del archivo records. He probado con modo rw, rw+, pero nada...
	int posicionRecord=0;						//en principio la posicion a escribir es cero
	if(file!=NULL){								//si abre archivo...
	   for(int i=0;i<8;i++){                   //para todas las lineas del archivo
	     if(posicionRecord==0){                //si todavia no ha encontrado la linea donde se debe escribir...
	       fgets(cadena,32,file);              //obtiene linea de texto del archivo
 
		   for(int j=0;j<6;j++){			    //lee los 5 caracteres de la puntuacion
		        puntuacionLinea[j] = cadena[j+17];//copia la puntuacion en caracteres
		   }
		   int iPuntuacion=atoi(puntuacionLinea);  //convierte a entero
 
 
		   if((iPuntuacion>0)&&(puntos>iPuntuacion)){ //si la nueva puntuacion es mayor que la puntuacion escrita en el archivo
		       posicionRecord=i;					   //almacena la posicion donde debe escribir
			   PA_OutputText(PANT_INF,0,9,"%s",cadena);
			   PA_OutputText(PANT_INF,0,10,"posRecor %d punt %d   puntcad %s",posicionRecord,iPuntuacion,puntuacionLinea);
		    }
		 } 
	   } 
 
 
	   if(posicionRecord>0){
	      sprintf(cadena,"%s%d",nom,puntos);       //se genera la cadena con el nombre y el nuevo record
		  PA_OutputText(PANT_INF,0,11,"%s",cadena);
          rewind(file);								//rebobina el archivo
		  int pos=0;								//posicion del cursor			
		  int linea=1;								//linea donde esta ubicado el cursor				
		  bool escrito=false;						//boleano para comprobar la escritura
 
          while(!feof(file)){						//mientras no se llega a final de archivo
		     if(fgetc(file)=='\n')					//a cada final de linea suma una
			    linea++;
			 pos++;									//suma un nuevo caracter
 
		     if((!escrito)&&(linea == posicionRecord)){
			    PA_OutputText(PANT_INF,0,14,"%d   %d",linea,pos);
				//rewind(file);
 
                auxPosCursor=ftell(file);			//dice donde esta el cursor. LA POSICION ES CORRECTA
				//PA_OutputText(PANT_INF,0,15,"%d",auxPosCursor);
				//fprintf(file,"%s",cadena);		//HABIA PROBADO DE ESCRIBIR CON rw pero nada
				escrito=true;
			 }
		  }	   
	   }
	}
	else{
	    PA_OutputSimpleText(PANT_SUP,5,1,"FALLO CARGANDO ARCHIVO");
	    return NULL;
	}
	fclose(file);					//cierra archivo para lectura
	file=fopen(nombreArchivo,"w"); //abre archivo para escritura
	rewind(file);					//rebobina posicion del cursor		
	fseek(file,auxPosCursor,SEEK_SET);     //coloca el cursor en la posicion correcta
	fprintf(file,"%s",cadena);     //no escribe!!!!
	fclose(file);
	return 1;
}