;SENDEN
Function SendDesktopImage()
   GetDesktopBuffer()
   For y = 0 To gfy - 1
      For x = 0 To gfx - 1
         rgb% = GetDesktopPixel(x,y)
         a = (rgb And $FF000000)/$1000000
         r = (rgb And $FF0000)/$10000
         g = (rgb And $FF00)/$100
         b = rgb And $FF
         PokeByte(desktopbank,3*(x + y *gfx),r)
         PokeByte(desktopbank,3*(x + y *gfx) + 1,g)
         PokeByte(desktopbank,3*(x + y *gfx) + 2,b)
      Next
   Next
   For i = 0 To BankSize(desktopbank) - 1
      WriteByte udpstream, PeekByte(desktopbank, i)
      ;If i = 65507 Then
      ;   SendUDPMsg(udpstream, remoteip%, 9765)
      ;EndIf
   Next
   SendUDPMsg(udpstream,remoteip%,9765)
End Function

;-----------------------
;EMPFANGEN
While Not KeyHit(1)
   rcvmsg = RecvUDPMsg(udpstream)
   If rcvmsg <> 0 Then
      SetBuffer ImageBuffer(img)
      LockBuffer ImageBuffer(img)
      For y = 0 To gfy - 1
         For x = 0 To gfx - 1
            clr% = 255*$1000000 + ReadByte(udpstream)*$10000 + ReadByte(udpstream)*$100 + ReadByte(udpstream)
            ;Stop
            WritePixelFast(x,y,clr%,ImageBuffer( img ))
         Next
      Next
      UnlockBuffer ImageBuffer(img)
      SetBuffer BackBuffer()
   EndIf
   DrawImage img, 0,0
   Flip 0
   Cls
   WaitTimer frametimer
Wend