#DEFINE WSADATA_SIZE  398 
#DEFINE WS_VERSION 0x0202
#define AF_INET  2 
#define SOCK_DGRAM  2  && Connectionless, unreliable datagrams   of fixed maximum length.  
#define IPPROTO_UDP  17 
#define SO_BROADCAST 0x0020
#define SOL_SOCKET 0xffff 

DECLARE INTEGER WSAStartup IN ws2_32 INTEGER wVerRq, STRING  @ lpWSAData
DECLARE INTEGER WSACleanup IN ws2_32
DECLARE INTEGER socket IN ws2_32 INTEGER af, INTEGER type, INTEGER protocol
DECLARE INTEGER closesocket IN ws2_32 INTEGER s
DECLARE INTEGER setsockopt IN ws2_32;
    INTEGER s, INTEGER level, INTEGER optname,  STRING  @ optval,INTEGER optlen
DECLARE INTEGER sendto IN ws2_32;
    INTEGER s, STRING @buf,INTEGER buflen, INTEGER wsflags,STRING @sendto,INTEGER tolen

cWSADATA = Repli(Chr( 0 ), WSADATA_SIZE)
? WSAStartup(WS_VERSION, @cWSADATA)
S=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)
bc_true=chr( 1 )
? setsockopt (s,SOL_SOCKET,SO_BROADCAST, @bc_true,  1 )
a="hello"
? sendto(s,@a,len(a),...                 )
?closesocket(s)
? WSACleanup()

#DEFINE WS_VERSION 0x202
#DEFINE WSADATA_SIZE  512 
#DEFINE AF_INET  2  
#DEFINE SOCK_DGRAM  2  
#DEFINE IPPROTO_UDP  17  
#DEFINE SOCKET_ERROR - 1  
#DEFINE SOL_SOCKET 0xFFFF 
#DEFINE SO_BROADCAST 0x20 

DECLARE INTEGER WSAStartup IN ws2_32 INTEGER wVerRq, STRING  @ lpWSAData
DECLARE INTEGER WSACleanup IN ws2_32
DECLARE INTEGER socket IN ws2_32 INTEGER af, INTEGER type, INTEGER protocol
DECLARE INTEGER closesocket IN ws2_32 INTEGER s
DECLARE INTEGER setsockopt IN ws2_32;
    INTEGER s, INTEGER level, INTEGER optname,  STRING  @ optval,INTEGER optlen
DECLARE INTEGER htons IN WS2_32.DLL INTEGER hostshort 
DECLARE INTEGER sendto IN ws2_32;
    INTEGER s, STRING @buf,INTEGER buflen, INTEGER wsflags,STRING @sendto,INTEGER tolen
DECLARE INTEGER inet_addr IN ws2_32;
    STRING cp
DECLARE INTEGER bind IN ws2_32 As ws_bind;
    INTEGER  s, STRING @ sockaddr,INTEGER  namelen
DECLARE INTEGER gethostname IN ws2_32 STRING  @ name, INTEGER   namelen
DECLARE INTEGER gethostbyname IN ws2_32 STRING hostname
DECLARE STRING inet_ntoa IN ws2_32 INTEGER in_addr
clear
cWSADATA = Repli(Chr( 0 ), WSADATA_SIZE)
? WSAStartup(WS_VERSION, @cWSADATA)
S=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)
		m.cPort = WordToStr(htons( 5551 )) 
		m.cIP = dWordToStr(inet_addr("169.254.191.52")) 
		m.cRemoteAddr = WordToStr(AF_INET) + m.cPort + m.cIP + REPLICATE(CHR( 0 ), 8 ) 
		m.cOptval = REPLICATE(CHR( 255 ), 4 ) 

		m.nResult = setsockopt(S, SOL_SOCKET, SO_BROADCAST, @cOptval, LEN(m.cOptval)) && mode broadcast 
		IF m.nResult <> SOCKET_ERROR 
			m.cBuff="hello"
			m.nResult = sendto(S, @cBuff, LEN(m.cBuff),  0 , @cRemoteAddr, LEN(cRemoteAddr)) 
			m.lOK = (m.nResult <> SOCKET_ERROR) 
		ENDIF 
?closesocket(s)
? WSACleanup()
return

FUNCTION dWordToStr
LPARAM nValue 
LOCAL nB0, nB1, nB2, nB3 
IF m.nValue <  0  
	m.nValue =  2 ^ 32  + m.nValue 
ENDIF 
m.nB3 = BITRSHIFT(m.nValue,  24 ) 
m.nB2 = BITRSHIFT(m.nValue - m.nB3* 2 ^ 24 ,  16 ) 
m.nB1 = BITRSHIFT(m.nValue - m.nB3* 2 ^ 24  - m.nB2* 2 ^ 16 ,  8 ) 
m.nB0 = MOD(m.nValue,  2 ^ 8 ) 
RETURN CHR(m.nB0)+CHR(m.nB1)+CHR(m.nB2)+CHR(m.nB3) 

FUNCTION WordToStr 
LPARAM nValue 
RETURN CHR(MOD(nValue, 256 )) + CHR(INT(nValue/ 256 ))