Local rec:Int

   While udpsocket.ReadAvail()
      rec = recvfrom_(udpsocket._socket, udpbuffer, UDP_BUFFER_SIZE, 0, remip, remport)
      If rec > 0 Then
         Local bptbuff:Byte Ptr = Byte Ptr(udpbuffer)
         If rec = 8 Then
            ox = udpbuffer[1]
        cls
         drawtext("vom server > "+ox,10,120)     
         EndIf
      EndIf
   Wend

SuperStrict

Import brl.timer
Import brl.basic
Import brl.retro

Global SERVERADRESS:String    = "127.0.0.1"
Const SERVERPORT:Int   = 40404

Const UDP_BUFFER_SIZE:Int   = 8
Const ROLE_UNDET:Int   = 0
Const ROLE_CLIENT:Int   = 1
Const ROLE_SERVER:Int   = 2
Global role:Int = ROLE_UNDET

Global udpsocket:TSocket = CreateUDPSocket()
Global udpbuffer:Int Ptr = Int Ptr(MemAlloc(UDP_BUFFER_SIZE))
Global remip:Int, remport:Int

Global timer:TTimer = CreateTimer(50)
global pos:Int ,ox:int

If udpsocket.Bind(0) Then
   role = ROLE_CLIENT
   AppTitle = "UDP CLIENT  Button"
   remip = HostIp(SERVERADRESS)
   remport = SERVERPORT
EndIf

Graphics 400,400, 0, 60

While Not AppTerminate()
  Local rec:Int

   While udpsocket.ReadAvail()
      rec = recvfrom_(udpsocket._socket, udpbuffer, UDP_BUFFER_SIZE, 0, remip, remport)
      If rec > 0 Then
         Local bptbuff:Byte Ptr = Byte Ptr(udpbuffer)
         If rec = 8 Then
            ox = udpbuffer[1]
        cls
         drawtext("vom server > "+ox,10,120)     
         EndIf
      EndIf
   Wend

   If Button(10, 10, 50,20, "1", 0) Then
    If remip <> 0 Then
        udpbuffer[0] = pos
        sendto_(udpsocket._socket, udpbuffer, 8, 0, remip, remport)
     EndIf
  end if
   If Button(10, 35, 50,20, "2", 1) Then pos=pos+1
   If Button(10, 60, 50,20, "3", 2) Then pos=pos+5
   If Button(10,85,50,20, "4", 3)   Then pos=pos+10
   If Button(GraphicsWidth()-100, GraphicsHeight()-45, 90, 35, "Beenden", 4) Then End
   
   Flip 0
   WaitTimer(timer)
Wend

Function Button:Int(x:Short, y:Short, w:Byte, h:Byte, name:String, id:Byte)
   Global mouse_state:Int = -1

   DrawLine x,     y,   x+w-1, y
   DrawLine x,     y,   x,     y+h
   DrawLine x+w-1, y,   x+w-1, y+h
   DrawLine x,     y+h, x+w-1, y+h

   If MouseDown(1) And MouseX() >= x And MouseY() >= y And MouseX() =< x+w And MouseY() =< y+h Then
      DrawText name, x + w/2 - TextWidth(name)/2 + 2, y + h/2 - TextHeight(name)/2 + 2
      mouse_state = id
   Else
      DrawText name, x + w/2 - TextWidth(name)/2, y + h/2 - TextHeight(name)/2
      If mouse_state = id Then
         mouse_state = -1
          FlushMouse()
         Return True
      End If
   End If
End Function

Local NeuesProgStarten:TThread = CreateThread(prog2, "")

Repeat

   'Hauptprogramm
   
Forever

Function Prog2:TThread (data:Object)
   Repeat
      '2. Programm
      Delay 1
   Forever
End Function