USART isn't working because you're not using it.

Compare the commands you have used against the PICBasic manual to discover what you have doen.