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 )
 End Extern

 Const GMEM_FIXED = 0
 Const CF_TEXT=$01
 global ClipText:String = TextFromClipboard()
 Global timer:TTimer = CreateTimer(60)

Graphics 400,400

While Not AppTerminate()
  If ClipText
    cls
    drawtext ClipText,10,20
  EndIf

   Flip 0
   WaitTimer(timer)
Wend

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