Ok here is a code for CCP but for some reason it is not working:
Define LCD_DREG PORTD ' Define LCD connections
Define LCD_DBIT 4
Define LCD_RSREG PORTD
Define LCD_RSBIT 2
Define LCD_EREG PORTD
Define LCD_EBIT 3



Lcdout $fe, $80, " Pulse Reader"

Pause 2000
Lcdout $fe, $1





Period var Word
Capture var PIR1.2
Overflow var PIR1.0 CCP1CON = %00000100
T1CON = %00000001
Loop:
While Capture = 0 : Wend

Period.lowbyte = CCPR1L Period.highbyte = CCPR1H
If Overflow = 0 Then Lcdout $fe, $80, "Input Period: " , #Period , "uS"
Endif
Capture = 0 ' Clear the capture flag
Rst:
While Capture = 0 : Wend
TMR1L = 0 TMR1H = 0
Capture = 0
Overflow = 0
Goto loop