stockrow
move(stockrow + 1, sidecol);
for (ptr = stock, row = stockrow; ptr != NIL; ptr = ptr->next, row++) {
printcard(stockcol, stockrow, stock);
printcard(stockcol, stockrow, stock);
fndbase(&stock, stockcol, stockrow);
move(stockrow - 1, sidecol);
move(stockrow, sidecol);
move(stockrow + 1, sidecol);
for(ptr = stock, row = stockrow;
move(stockrow + 1, sidecol);
move(stockrow, sidecol);
printcard(stockcol, stockrow, stock);
fndbase(&stock, stockcol, stockrow);