duty VAR WORD  
   trisb=%00000011
   TRISC.2 = 0          
   CCP1CON = %00001100   
   T2CON = %00000101    



   PR2 = 249      
        

   duty = 100      

mainloop:
   CCP1CON.4 = duty.0   
   CCP1CON.5 = duty.1   
   CCPR1L = DUTY >> 2
   ;-----------
   if portb.0=0 then
   duty = duty + 50     
   pause 10
   IF ( duty < 500) Then mainloop:  
   duty = 500           
   endif
   ;-----------
   if portb.1=0 then
   duty=duty-50
   pause 10 
   if duty > 101 then mainloop:
   duty=100
   endif
    
   GoTo mainloop        

   End