RECV  UART  uart
      DATA=INPUT
     SEND(UART,uart,DATA)

END