sub EmptySocketBuffer(SOCKET socket)
int TotalBytesToRead
if (!ioctlsocket(socket, FIONREAD, &TotalBytesToRead) and TotalBytesToRead)
pointer buff = new(char, TotalBytesToRead)
recvfrom(socket, buff, TotalBytesToRead, 0, 0 ,0)
delete buff
endif
endsub