thish
kl = c>0 ? thish (i,c-1) : 0;
kl = c>0 ? thish(up1(i),c-1) : 0;
kr = thish(i,c);
kr = c>0 ? thish(up1(i), c) : 0;
if (t=='s') return(thish(i,c-1));
k = thish(i,c);
if (thish(i,ck)==0)
type = thish(i,c);
if (c>0 && !shortl && thish(i,c-1) == type)return;
for(cr=c; cr < ncol && (ctype(i,cr)=='s'||type==thish(i,cr)); cr++);
extern int picl_get_next_by_row(picl_prophdl_t thish, picl_prophdl_t *proph);
extern int picl_get_next_by_col(picl_prophdl_t thish, picl_prophdl_t *proph);
extern int ptree_get_next_prop(picl_prophdl_t thish,