Codigo de SNAKE para pic18f4550 MicroC

char cont,col,aa,contret,barra,barra1,comi1,comi2,comi3;
long pos,op,pos1;
int main (void)
{
PORTA=0x00;
PORTD=0x00;
ADCON1=0x0F;
CMCON=0x07;
TRISA=0x00;
TRISB=0x00;
TRISD=0x0f;

barra=0x01;
comi1=0x04;
comi2=0x10;
comi3=0x40;
cont=0x00;
col=0x00;
pos=0;
pos1=0;
aa=0x00;
contret=0x00;

while (1)
{

op=PORTD;
PORTA=col;
 for(pos=3;pos<4;pos++)
       {
       PORTA=pos;
       PORTB=comi1;
        Delay_ms(5);
       }
 for(col=0;col<=15;col++)
       {
       PORTA=col;
       PORTB=barra;
        Delay_ms(5);
       }
//for(col=8;col<9;col++)
  //     {
    //      PORTA=col;
      //    PORTB=comi2;
        //  Delay_ms(5);
  //     }
//for(col=12;col<13;col++)
//       {
 //         PORTA=col;
  //        PORTB=comi3;
   //       Delay_ms(5);
     //     }

  switch (op)
  {
  case 1:{barra=barra>>1 ;break;}
  case 2:{barra=barra<<1;break;}
  case 4:{col++;break;}
  case 8:{col--;break;}
  }
  delay_ms(100);

  }
  return(0);
}