while(a > 0 && FileName[a-1] != SLASH) a--;

    while(a > 0 && FileName[a-1] != SLASH) a--;

    memcpy(TempName, FileName, a);

    memcpy(TempName, FileName, a);

    strcpy(TempName+a, "XXXXXX");

    strcpy(TempName+a, "XXXXXX");

    if(!TempName[0]) {

    if(!TempName[0]) {

        ErrFatal("Cannot find available temporary file name");

        ErrFatal("Cannot find available temporary file name");

    }

    }