partreg
short partreg(unsigned char);
if (inopen && partreg(c)) {
if (partreg(c)) p--;
if (vreg && partreg(vreg) || !vreg && pkill[0]) {