;---------------------------------------------------
; SPLITS A STRING INTO FRAGMENTS, USING A SPLIT
; CHARACTER AND RETURNS A SPECIFIED SEGMENT
; SECTION = FRAGMENT TO RETURN (0 - ...) -1 FOR LAST
;---------------------------------------------------
Function Str_Explode$(txt$, divider$, section%)

   Local sec% = 0
   Local tmp$ = ""
   Local sections% = 0
   
   ; COUNT FRAGMENTS
   For i% = 1 To Len(txt$)
      If Mid(txt$,i,1) = divider$ Then sections = sections + 1
   Next

   ; RETURN LAST FRAGMENT?
   If section = -1 Then section = sections
   
   For i% = 1 To Len(txt$)
      char$    = Mid(txt$,i,1)
      If char$ = divider$ Then sec = sec + 1 : i = i + 1 : char$ = Mid(txt$,i,1)
      If sec   = section  Then tmp$ = tmp$ + char$
   Next
   
   Return tmp$

End Function

Const MSG_XPOS = 1
Const MSG_YPOS = 2
Const MSG_YPOS = 3

...
;Empfangen

msg = ReadByte(stream)

Select msg

  Case MSG_XPOS
    x = ReadByte(stream)

  Case MSG_YPOS
    y = ReadByte(stream)

  Case MSG_ZPOS
    z = ReadByte(stream)

End Select

...
;Senden
WriteByte(stream, MSG_XPOS)
WriteByte(stream, x)

WriteByte(stream, MSG_YPOS)
WriteByte(stream, y)

...