/*                               deletecard.c                           */
/*                                                                      */
/* This function is used to delete a card from the screen and from the  */
/* mycardsposition[] array (all the cards are stored here). The input   */
/* is the cardnumber (0 - 31)...                                        */

deletecard(card)
   int card;
   {
   extern struct RastPort *rp;
   extern UWORD mycardsposition[];
   int left = 2;
   int top = 13;
   int loffset, toffset;

   loffset = card % 8;
   toffset = card / 8;
   left = left + 31 * loffset;
   top = top + 41 * toffset;

   SetAPen(rp, 6);
   RectFill(rp, left, top, left + 30, top + 40);

   card += 1;
   mycardsposition[card] = 1000;

   return(0);
   }