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);
}