dim uart_rd as byte
 TRISC=0
 PORTC=0
main:
  UART1_Init(9600)                     ' Initialize UART module at 9600 bps
  Delay_ms(100)                        ' Wait for UART module to stabilize

  UART1_Write_Text("Ready")
  UART1_Write(10)                      ' Line Feed
  UART1_Write(13)                      ' Carriage Return

  while (TRUE)                         ' Endless loop
    if (UART1_Data_Ready() <> 0) then  ' If data is received,
      uart_rd = UART1_Read()           ' read the received data,
      UART1_Write(uart_rd)  
      if uart_rd ="a" then 
      portC= 1
      end if           ' and send data via UART
    end if
  wend