Nop i'm wrong there. Next is working

Code:
DEFINE OSC 20

' Set baud rate
DEFINE HSER_BAUD 9600

DEFINE HSER_ CLROERR 1

datain var byte

main:

         HSerin [datain]
         Hserout [datain]

goto main