eg
http://www.picbasic.co.uk/forum/showthread.php?t=11320
Then just put received chars in array
Code:
Get_char:
     hserin 100,noreceived,[mybyte] 'Get byte
     MyArray[Index]=mybyte
     Index=Index+1
     noreceived: 'or if timeout return
@ INT_RETURN