stream_in=CreateUDPStream(7022)
stream_out=CreateUDPStream(7023)

If stream_in=0 Then RuntimeError "Fehler! UDP konnte nicht erstellt werden!"
If stream_out=0 Then RuntimeError "Fehler! UDP konnte nicht erstellt werden!"

ip_count=CountHostIPs(GetEnv("localhost"))
For i=1 To ip_count
   own_ip=HostIP(1)
Next
broadcast=own_ip-(own_ip And 255)+255

While Not KeyHit(1)
   
   If KeyHit(57)
      
      WriteLine stream_out,"SEARCH"
      SendUDPMsg stream_out,broadcast,7022
      Print "Sende Broadcast!"
      last_time=MilliSecs()
      
   EndIf
   
   d=RecvUDPMsg(stream_in)
   While d<>0 And d<>own_ip
      While ReadAvail(stream_in)
         s$=ReadLine$(stream_in)
         Select s$
            Case "FOUND"
               Print "Server:  "+DottedIP$(d)+" Ping: "+(MilliSecs()-last_time)
            Case "SEARCH"
               WriteLine stream_out,"FOUND"
               SendUDPMsg stream_out,d,7022
               Print "Antwort: "+DottedIP$(d)
            Case s$<>"FOUND" And s$<>"SEARCH"
               Print s$
         End Select
         Delay 1
      Wend
      d=RecvUDPMsg(stream_in)
      Delay 1
   Wend
   
   Delay 10
   
Wend

CloseUDPStream stream_in
CloseUDPStream stream_out

End

Function INT_IP(IP$)
   
   a1=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
   a2=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
   a3=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
   a4=Int(IP$)
   
   Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) +a4
   
End Function

broadcast=own_ip-(own_ip And 255)+255