tabrow
for (i=tabrow; i<=length[sour]; i++)
if (slength == tabrow)
while (slength != tabrow - 1) {
for (i=1; i<=slength-tabrow; i++)
length[des] = length[des] + (length[sour] - (tabrow - 1));
length[sour] = tabrow - 1;
move(tabrow - 1, atabcol);
for(ptr = tableau[cnt], row = tabrow;
length[i] = tabrow;
printcard(atabcol, tabrow, tableau[0]);
printcard(btabcol, tabrow, tableau[1]);
printcard(ctabcol, tabrow, tableau[2]);
printcard(dtabcol, tabrow, tableau[3]);
fndbase(&tableau[j], pilemap[j], tabrow);