slookc
mcr = sfeof(mr) ? 0 : slookc(mr);
ct = 100 - slookc(p) - carry;
d = slookc(divd);
d = slookc(p) + divcarry;