Chat entre dos computadoras con PIC y Bluetooth

#INCLUDE <16F877.H> // LIBRERIA DEL PIC A UTILIZAR

#FUSES XT, NOPROTECT, // CODIGO NO PROTEGIDO

#USE DELAY(CLOCK=4000000) // SELECCION DE LA FRECUENCIA DEL CRISTAL

#USE RS232(BAUD=9600, BITS=8, PARITY=N, XMIT=PIN_C6, RCV=PIN_C7) // COMUNICAION CON EL PUERTO SERIAL

#ORG 0X1F00, 0X1FFF VOID LOADER16F877(VOID){} // DIRECCION DEL CODIGO DE BUDLOADER

CHAR COMANDO; // COMANDO DE INICO

CHAR MENSAJE[20]; // ARREGLO DE LOS MENSAJES

VOID MAIN(){

WHILE(TRUE){

COMANDO=GETC(); // LEE UN COMANDO PARA INICIALIZAR LA COMUNICACINO

IF(COMANDO==' '){

// MENSAJE INICIAL

   PRINTF("\conexión ESTABLECIDA");

   PRINTF("\n");

   PRINTF("\rCHAT BLUETOOTH");

   PRINTF("\n");

   DELAY_MS(3000);

DO{

   PRINTF("\rPC1: "); // ESCRIBE LA PC1

   GETS(MENSAJE);

   OUTPUT_B(0X01); // ACTIVA EL RELAY, CAMBIA EL MANDO A LA PC2

   PRINTF("\rPC2: "); // ESCRIBE LA PC2

   GETS(MENSAJE);

   OUTPUT_B(0X00); // ACTIVA EL RELAY, CAMBIA EL MANDO A LA PC1

}WHILE(COMANDO==' '); // REALIZA LO ANTERIOR MIENTRAS QUE COMANDO NO CAMBIE DE VALOR

}//IF

}//WHILE

}//MAIN

                      Conexiones con pic, bluetooth y relay