UNDPUT
if (undkind == UNDPUT) {
case UNDPUT:
undkind = UNDPUT;
if (undkind == UNDPUT && undap1 == undap2) {
undkind == UNDPUT ? 0 : unddol - dol);