TOP
goto TOP;
TOP:
if (i>=nlin) return(TOP);
if (ku ==2) return(TOP);
case TOP: case BOT: exhl = "-1p"; break;
case TOP: exhr = ln==0 ? "-1p" : "+1p"; break;
case TOP: case BOT: exhr = "+1p"; break;
case TOP: exhl = ln==0 ? "1p" : "-1p"; break;