//-------FUNCION PARA PUERTO SERIAL, RECIBE HASTA 5 CARACTERES
//ASCII DEL PUERTO SERIAL, TERMINADOS CON UN "CR" Y ENVIA ECO POR 
//CADA UNO DE ELLOS
//ACOMODA LOS CARACTERES EN UN ARREGLO CON FORMATO DE STRING
//EN EL PROGRAMA PRINCIPAL, DEBE DEFINIRSE UN ARREGLO CON 
//CUALQUIER NOMBRE (por ejemplo array), DE 6 ELEMENTOS, 
//PARA LLAMAR A LA FUNCION:
//RCVECO(&array);

RCVECO(int *x)
{
char a;
for(a=0;a<7;a++)		//RECIBE NUMERO TERMINA CON "CR"
{*(x+a)=getchar();
if (*(x+a)==13)goto wo;	//13="CR"
putchar(*(x+a));}
wo:
*(x+a)=0;				//caracter null 
}