Extern "Win32"
   Function OpenClipboard(hwnd:Int)
   Function CloseClipboard()
   Function EmptyClipboard()
   Function SetClipboardData(format:Int,hMem:Byte Ptr)
   Function GetClipboardData:Byte Ptr(Format:Int)
   Function GlobalAlloc:Byte Ptr(uflags:Int,bytes:Int)
   Function GlobalFree(buffer:Byte Ptr )
   Function WinExec(lpCmdLine$z, nCmdShow)
End Extern

Const GMEM_FIXED = 0
Const CF_TEXT=$01
global ClipText:String

Global timer:TTimer = CreateTimer(60)

WinExec Chr$(34) + "d:/blitzmax/esp_blitzmax.exe" + Chr$(34), 1
delay(2000)

Graphics 400,400, 0, 60

While Not AppTerminate()
 cls

 ClipText = TextFromClipboard()
 If ClipText
    setcolor 255,255,255
    drawtext ClipText,10,220
  EndIf

  If Button(100, 15, 40,20, "vor", 0) Then
    loadstring("http::192.168.2.102/?pin=vor")
  end if
   If Button(10, 40, 40,20, "li", 1) Then
    loadstring("http::192.168.2.102/?pin=links")
  end if
  If Button(55, 40, 40,20, "hli", 2) Then
    loadstring("http::192.168.2.102/?pin=hlinks")
  end if
  If Button(100, 40, 40,20, "mit", 3) Then
    loadstring("http::192.168.2.102/?pin=mitte")
  end if
  If Button(145, 40, 40,20, "hre", 4) Then
    loadstring("http::192.168.2.102/?pin=hrechts")
  end if
  If Button(190, 40, 40,20, "re", 5) Then
    loadstring("http::192.168.2.102/?pin=rechts")
  end if
  If Button(100, 65, 40,20, "zur", 6) Then
    loadstring("http::192.168.2.102/?pin=zur")
  end if

  If Button(100, 100, 40,20, "ser0", 7) Then
    loadstring("http::192.168.2.102/?pin=ser0")
  end if
  If Button(145, 100, 40,20, "ser1", 8) Then
    loadstring("http::192.168.2.102/?pin=ser1")
  end if
  If Button(100, 125, 40,20, "sha", 9) Then
    loadstring("http::192.168.2.102/?pin=sharp")
  end if

  If Button(190, 100, 40,20, "v0", 10) Then
    loadstring("http::192.168.2.102/?pin=v0")
  end if
  If Button(190, 125, 40,20, "v1", 11) Then
    loadstring("http::192.168.2.102/?pin=v1")
  end if
  If Button(190, 150, 40,20, "v2", 12) Then
    loadstring("http::192.168.2.102/?pin=v2")
  end if

   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

  setcolor 255,0,0
   Drawrect x, y, w,h
   setcolor 255,255,255

   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

Function TextFromClipboard:String()   
      If Not Openclipboard(0)
         Return ""
      EndIf
       
      Local TextBuf:Byte Ptr
       
      TextBuf = GetClipboardData(CF_TEXT)
      CloseClipboard()
       
      Return String.FromCString(TextBuf)
 End Function

 Function TextToClipboard (txt:String)
   If txt <> ""
     Local CPTR:Byte Ptr = GlobalAlloc(GMEM_FIXED,Len(txt)+1)
     For Local i = 0 Until Len(txt)
       CPTR[i] = txt[i]
     Next

     CPTR[Len(txt)+1]=0

     If OpenClipboard(0)
       EmptyClipboard()
       SetClipboardData (CF_TEXT,CPTR)
     CloseClipboard()
     EndIf

     If CPTR Then GlobalFree (CPTR)
   EndIf
 End Function