i solve my problem. thx a lot....

here is the solution

......


serout2 serialOutput, 396, ["Report ",hex SlaveSelect]
pause 200

serin2 serialInput, 396,2000,loop,[wait("+"),RX[0]]

If RX[0] != "+" Then ReadPic

loop:
.......
....


ReadPic:
Lcdout $fe, 1, "PIC Reading...."
counter = 1

while counter != 16 'receive 166 char.
serin2 serialinput, 396,[ RX[counter]]
counter = counter+1
Wend

Lcdout $fe, 1,str RX \16 ' recevied data
pause 1000
RX[0]=0
hserout["+",Str RX \15,"+"] ' transmit received data to the other port
hserout [13,10]
pause 100
goto StartPoint
Return