mktemp(as)
char *as;
{
register char *s;
register pid, i;
int sign;
int sbuf[20];
pid = getpid();
sign = 0;
while (pid<0) {
pid =- 10000;
sign++;
}
s = as;
while (*s++);
s--;
i = 0;
while (*--s == 'X') {
*s = (pid%10) + '0';
pid =/ 10;
if (++i == 5)
*s =+ sign;
}
while (stat(as, sbuf) != -1) {
if (i==0 || sign>=20)
return("/");
*s = 'a' + ++sign;
}
return(as);
}