Thanks my friend Bruce,
Now it is working with some problems.This is my code.
PROBLEM:When I send 8 bytes via Serial Communicator like this
qwertyui
the answer of the pic16f628-04 is:
You typed: qqqqqqqq
You typed: eeeeeeee
instead of
You typed: qwertyui
and it does not respond for the next inport stream(8bytes)

.................................................. ............................
loop: IF RCIF = 1 THEN
for i=0 to 7 STEP 1
RCREG = 0
SerData[i] = RCREG
if i=7 then type
NEXT i
endif
goto loop
type: HSEROUT ["You typed: ", str SerData\8,13,10]
GOSUB OUT
Goto loop


OUT:
.............................