Sub UDP_PacketArrived (Packet As UDPPacket)
Dim moddatasize As Int
UDPcounter = UDPcounter + 1
SendingHostIP = Packet.Host
' Log(SendingHostIP)
datasize = ((Packet.Length/4)-3)
moddatasize = datasize/10
If (UDPcounter Mod 20)==0 Then
Log(UDPcounter&" "&Packet.Length)
End If
End Sub