TEMPNAME
#ifndef TEMPNAME
ftemp = fopen(TEMPNAME, "w");
ZAPFILE(TEMPNAME);
if ((finput = fopen(TEMPNAME, "r")) == NULL)