Global Seperator$ = "-------------------------------------------------------------------------------------"

SetBuffer BackBuffer()


Print "Öffne Stream..."
Stream = CreateUDPStream(3333)


If Stream = 0 Then
   Print Seperator$
   Print "Port 3333 belegt!"
   Print "<Enter> zum beenden!"
   WaitKey
   End
EndIf

Print "Stream geöffnet!"

Print "Höre Stream ab:"

Print "TextBox erstellen..."
Origin 5,95
Rect 0,0,200,200,0

Viewport 6,96,198,198

Flip

Print "Array erstellen..."

Dim MSG$(5,15,1)

; 5 : Vertikal angezeigt
; 10: Senkrecht
;  0: Neu oder nicht 1 Text!

For I = 0 To 5
   For J = 0 To 15
      MSG(I,J,1) = "N/A"
      MSG(I,J,0) = 0
   Next
Next

Print "Starte Empfangen!"


Repeat
   Cls
      If RecvUDPMsg(Stream) Then ; Stream abfragen
         Repeat
            X = X +1
            If X = 6 Then X = 0:Y = Y +1
            If Y = 16 Then Y = 0
            MSG(X,Y,1) = ReadByte(Stream) ; Auslesen!
            MSG$(X,Y,0) = 1
         Until ReadAvail(Stream) = 0
      EndIf
      ; Arry ausdrucken
      For I = 0 To 5
         For J = 0 To 15
            Color 255,255*(Int(MSG$(I,J,0))),0
            Text I*30+5,J*13+3,MSG$(I,J,1)+"|"
         Next
      Next
   Flip 0
Until KeyDown(1)

End