B_COPY
pk->p_is[x] = (char) ~(B_COPY+B_MARK);
if (pk->p_is[seq] & (B_COPY | B_MARK)) {
pk->p_is[x] |= B_COPY;
if (pk->p_is[x] & B_COPY) {
if (is & B_COPY) {