Graphics 800,600,32,1

sendeport=Input ("Port zum senden eingeben: ")
empfangsport=Input ("Port zum empfangen eingeben: ")
name=Input ("Und zu guter letzt darfst du noch deinen Nicknamen eingeben: ")
Cls

; Die Streams erstellen
sende_stream = CreateUDPStream(sendeport)
empfangs_stream = CreateUDPStream(empfangsport)

While Not KeyDown(1)

   ; Eine Nachricht empfangen
   IP_Adresse = RecvUDPMsg(empfangs_stream)
   ; Wenn einen Nachricht empfangen wurde eine Line auslesen
   If IP_Adresse <> 0 Then
      empfangsnachricht = ReadLine(empfangs_stream)
      Print empfangsnachricht
   End If

   nachrichtsenden$= Input ("Nachricht: ")
   ; Eine Line in den Sendestream schreiben
   WriteLine(sende_stream, name+": "+nachrichtsenden$)
   ; Den Stream an die IP Adresse und den Port desjenigen senden von dem man die Nachricht empfangen hat
   SendUDPMsg sende_stream, IP_Adresse
   If nachrichtsenden$="/exit" Then
      CloseUDPStream(sende_stream)
      CloseUDPStream(empfangs_stream)
      End
   End If
Wend
CloseUDPStream(sende_stream)
CloseUDPStream(empfangs_stream)
End