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