XPSE

 {$cleq}
cls
clearclip
putclip "Hallo"
print getclip$()
nClearClip()
print getclip$()
nPutClip("Hallo")
print getclip$()
nPutClip("Hallo")
print nGetclip()
waitinput
end
//

nProc nClearClip(){

    casenot OpenClipboard(hWnd) : return
    EmptyClipboard()
    CloseClipboard()

}

nProc nPutClip(string s){

    casenot OpenClipboard(hWnd) : return
    long c=len(s)+1,mem=dim(c)
    rtlMoveMemory(mem,s,c)
    SetClipboardData(CF_TEXT,mem)
    CloseClipboard()

}

nProc nGetClip(){

    string s
    casenot OpenClipboard(hWnd) : return s
    long data=GetClipboardData(CF_TEXT)
    case data : s=string(data,0)
    CloseClipboard()
    return s

}