B0 var Byte

Srt:Pause 1000
serout portb.7,N2400,["Hello 123",13,10]
goto wait1

wait1: Serin portb.6,N2400,B0

loop: Serout portb.7,N2400,[B0]
Goto wait1

Can any one help
Please !

Create an array like
B var byte[16]
array_count var byte
Then use serin with a time out. I don't have the book so you need to do a little tweaking.

Receive:
array_count = 0
get_byte:
Serin portb.6,N2400,500,send_char,B[array_count] ;wait for char for 500 ms, then send received chars.
send_char:
if array_count = 0 then get_byte
Serout...blah blah
goto Receive

Ron