-   
- int guardar(void) 
- { 
-   FILE *arch; 
-   arch = fopen("gymnacio.rap","wt"); 
-   if (arch != NULL)) 
-   { 
-     fwrite(sumf,sizeof(record),1,arch); 
-     fwrite(summ,sizeof(record),1,arch); 
-     fwrite(sumd,sizeof(record),1,arch); 
-     fwrite(sumi,sizeof(record),1,arch); 
-     fwrite(resf,sizeof(record),1,arch); 
-     fwrite(resm,sizeof(record),1,arch); 
-     fwrite(resd,sizeof(record),1,arch); 
-     fwrite(resi,sizeof(record),1,arch); 
-     fwrite(mulf,sizeof(record),1,arch); 
-     fwrite(mulm,sizeof(record),1,arch); 
-     fwrite(muld,sizeof(record),1,arch); 
-     fwrite(muli,sizeof(record),1,arch); 
-     fwrite(divf,sizeof(record),1,arch); 
-     fwrite(divm,sizeof(record),1,arch); 
-     fwrite(divd,sizeof(record),1,arch); 
-     fwrite(divi,sizeof(record),1,arch); 
-     fwrite(alef,sizeof(record),1,arch); 
-     fwrite(alem,sizeof(record),1,arch); 
-     fwrite(aled,sizeof(record),1,arch); 
-     fwrite(alei,sizeof(record),1,arch); 
-     if(!fclose(arch)) 
-       return(0); 
-     else 
-       return(1); 
-    
- } 
-   
-