mcast = "multicast-test"

for i 1 3
	call opentt
	unlink
next

call opentt

callmenu 50814

sendmulticast mcast "hexdump -C"#10

pause 1

sendmulticast mcast "0: " 0 ", 1:" 1 ","#13#10

;pause 1

sendmulticast mcast "1:"#1","#13#10

pause 1

str = "1:"#1","#13#10
sendmulticast mcast str

pause 1

sendmulticast mcast 4
end

:opentt
	cygconnect
	wait "%" "$" "#"
	setmulticastname mcast
	return
