i working with 18F4550 with 4mhz resonator
usb work 100%
keypad don't work
can i help ?

Code:
   INCLUDE "modedefs.bas"
   INCLUDE "KeyPad.bas"
   
   DEFINE   OSC            48   
   
   DEFINE KEYPAD_ROW        6        ' 4 ROW keypad       
   DEFINE KEYPAD_ROW_PORT   PORTB    ' ROW port
   DEFINE KEYPAD_ROW_BIT    2        ' ROW0

   DEFINE KEYPAD_COL        3        ' 4 COL keypad
   DEFINE KEYPAD_COL_PORT   PORTD    ' COL port
   DEFINE KEYPAD_COL_BIT    5        ' COL0

   DEFINE KEYPAD_DEBOUNCEMS 200      ' debounce delay = 200 mSec
   DEFINE KEYPAD_AUTOREPEAT 0        ' use auto-repeat feature 

   Led                Var	  PORTA.0
   RF_Entrada         VAR    PORTA.1
   
   Contador           Var	  Byte
   Dados              var	  Byte[10]
   Recebeu            var    byte[4]
         
   Acao               var    byte
   Botao              VAR    Byte
   Linha              VAR    BYTE
   Coluna             VAR    BYTE

'-------------------------------------------------------------------------------      
Configura:
   ADCON0 = 0           ' Turn off A/D
   ADCON1 = 7           ' Set PORTA to digital
   CMCON  = 7           ' Comparators off

   high LED   
   PAUSE 100
   
   USBInit
   PAUSE 5000
	
   Low LED

'-------------------------------------------------------------------------------
Inicio:
   USBService
   
   contador = 1
	USBIn 3, Dados, contador, Inicio
	Toggle LED

   iF Dados[0]="B" tHEN 
      Contador = 5 
      Dados[0] = "B"
      Dados[1] = "O"
      Dados[2] = "T"
      Dados[3] = "Ã"
      Dados[4] = "O"
      goSUB Usb_Saida   

      GOTO Ler_Teclado
   endif
GOTO Inicio

'-------------------------------------------------------------------------------
Usb_Saida:
   USBService
   USBOut 3, Dados, contador, Usb_Saida
rETURN

'-------------------------------------------------------------------------------
Ler_Teclado:
   @ READKEYPAD _Botao

   Contador = 3
   Dados[0] = 96+Botao
   Dados[1] = 13
   Dados[2] = 10  
   goSUB Usb_Saida

goto Ler_Teclado

END