Usb sa pic 18f4550 i Mikrobasic 6.0

Molim nekoga iskusnijeg u programiranju pic-eva malu pomoć.

Bezuspješno pokušavam spojiti pic preko usb-a sa kompjuterom.
Konekcija ide, sve je ok ali kako da u picu iščitam nekoliko
bajtova poslatih sa pc-a. mogu čitati samo prvi bajt.
Primjer koji daje mikroelektronika sa mikrobasicom radi, ali
moguće je samo spojiti pic i ništa drugo.???

Kako pročitati rxbuffer. Klasa je usbhid.
Host radi na VBnet2005.

main:
df=0
Init_Main

HID_Enable(@userRD_buffer, @userWR_buffer)
Delay_mS(1000)
Delay_mS(1000)

while true
k = HID_Read
i = 0
while i < k
ch = userRD_buffer[0]
userWR_buffer[0] = ch
HID_Write(@userWR_buffer, 1)
inc(i)
wend
wend
HID_Disable

Gdje postaviti ostali dio programa,....

Molim pomoć

Nisam radio sa USB komunikacijom pogotovu sa mikroBASIC-om ali mi je ovaj deo sumljiv:

k = HID_Read

pozivajuci funkciju HID_Read u varijablu k vraca broj primljenih bajtova dok kod citanja

ch = userRD_buffer[0]

citas samo prvi bajt iz bafera, cemu onda broj primljenih bajtova u baferu.
Ja pretpostavljam da je potrebno izmeniti taj deo u

ch = userRD_buffer[I]

kako bi procitao sve podatke iz bafera a ne samo prvi podatak.

Možda, probati ću...

Ovo je bio primjer koji daje mikroelektronika.
uvijek dobijem da je k=1 , a userrdbuffer(0)=podataka koji sam poslao
svi oslali: userrdbuffer(1) itd su nula

Ako dobijas paket od samo jednog podatka a saljes vise, onda je mozda problem u komunikaciji PC-PIC.
Najbolje bi bilo da se obratis radakciji Mikroelektronike na tel. i e-mail, mozda ima neki bag u kompajleru.