' Name        : HSER.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : 16F, 18F with hardware USART
' Hardware    : Non specific
' Oscillator  : 4MHz external crystal or resonator
' Keywords    : HSERIN, HSEROUT, USART
' Description : PICBASIC PRO program to demonstrate sending and receiving
' with the hardware serial port. Defaults to 2400 bps.
'

char Var byte  ' Storage for serial character

start:
   Hserout ["Hello World", 13, 10] ' Send text followed by carriage return and linefeed

mainloop:
   Hserin 10000, start, [char]	' Get a char from serial port
   Hserout [char]		' Send char out serial port
   Goto mainloop		' Do it all over again
   
   End