FULLHAND
sorthand(chand, FULLHAND);
sorthand(phand, FULLHAND);
makeknown(chand, FULLHAND);
prhand(phand, FULLHAND, Playwin, FALSE);
for (i = j = 0; i < FULLHAND; i++) {
crd = phand[infrom(phand, FULLHAND, prompt)];
cremove(crd, phand, FULLHAND);
prhand(phand, FULLHAND, Playwin, FALSE);
crd = phand[infrom(phand, FULLHAND - 1, prompt)];
cremove(crd, phand, FULLHAND - 1);
prhand(phand, FULLHAND, Playwin, FALSE);
extern CARD phand[ FULLHAND ]; /* player's hand */
extern CARD chand[ FULLHAND ]; /* computer's hand */
CARD chand[FULLHAND]; /* computer's hand */
CARD phand[FULLHAND]; /* player's hand */
CARD d[CARDS], h[FULLHAND], cb[2];
for (i = 0; i < (FULLHAND - 1); i++) {
for (j = i + 1; j < FULLHAND; j++) {
for (k = 0; k < FULLHAND; k++)
cremove(chand[i], h, FULLHAND);
cremove(chand[j], h, FULLHAND - 1);
for (k = 0; k < FULLHAND; k++)
cremove(h[undo1[j]], chand, FULLHAND);
cremove(h[undo2[j]], chand, FULLHAND - 1);