bsp; open_socket_in(f_socket,f_port,ip); (* take the first out of the queue and close the listening socket *) if not f_async_data then begin temp_socket:=accept_socket_in(f_socket,SockInfo); if temp_socket=INVALID_SOCKET then {do nothing} else begin close_socket(f_socket); (* no more listening necessary *) f_socket:=temp_socket; end; end; end; (*@\\\0000000B01*) if f_async_data and (f_socket<>INVALID_SOCKET) then winsock.WSAAsyncSelect(f_socket,f_handle,uwm_socketevent+1, fd_connect or fd_read or fd_write or fd_accept); end;