   w_msg_a_enviar = spac(80)
   FidIp = "200.200.200.001"
   FidPort = "3232"
   DevPos( 08, 32 ) ; DevOut( "Mensagem:" ); w_msg_a_enviar=alltrim(VAR_GET(08,46, w_msg_a_enviar))
   DevPos( 09, 32 ) ; DevOut( "Ip......:" ); FidIp=alltrim(VAR_GET(09,46, FidIp))
   DevPos( 10, 32 ) ; DevOut( "Porta...:" ); FidPort=alltrim(VAR_GET(10,46, FidPort))
   w_socket = sockopen(FidIp, FidPort)
   if w_socket>0
      if sockwrite(w_socket, w_msg_a_enviar, w_timeout) >0
         w_linha = ""
         while sockread(w_socket, w_string_retorno, w_timeout) > 0
            if asc( w_string_retorno ) = 10
               exit
            end
            if asc( w_string_retorno ) <> 13
               w_linha = w_linha+w_string_retorno
            end
         end
         if alltrim(w_linha)<>""
            w_string_retorno = alltrim( substr(w_linha,8) )
         else
            w_string_retorno = ""
            Alert("Gravei mas nao consegui ler retorno em "+FidIp+":"+ltrim(str(val(FidPort),5))+"!",,"R/W")
         end         
      else
         Alert("Conectei mas nao pude gravar em "+FidIp+":"+ltrim(str(val(FidPort),5))+"!",,"R/W")
      end
   else
      Alert("O Servidor "+FidIp+":"+ltrim(str(val(FidPort),5))+"! Nao esta respondendo !",,"R/W")
   end
