apts
savapts = apts;
apts = savapts;
apts = savapts;
(void) inumb(&apts);
savapts = apts;
apts = savapts;
i = inumb(&apts); /* this is a disaster for fractional point sizes */
apts1 = apts;
apts = i;
j += apts;
n = inumb(&apts);
n = apts; /* does this work? */
savapts = apts;
apts = savapts;