PROC Copy:
  ToClip:("This is a test")
ENDP

PROC ToClip:(s$)
        LOCAL id%,Header&(4),Footer&(3),data$(255),len&,pos&
        IF s$=""
                RETURN
        ENDIF
        data$=s$
        Header&(1)=&10000037
        Header&(2)=&1000003b
        Header&(3)=&00000000
        Header&(4)=&4739d53b
        Footer&(1)=&00330200
        Footer&(2)=&00141000
        Footer&(3)=&00000000
        IOOPEN(id%,"c:\System\Data\Clpboard.cbd",$302)
        IOWRITE(id%,ADDR(Header&(1)),16)
        len&=LEN(data$) :pos&=&19+len&
        IOWRITE(id%,ADDR(pos&),4)
        IOWRITE(id%,ADDR(len&),4)
        IOWRITE(id%,ADDR(data$)+1,len&)
        IOWRITE(id%,ADDR(Footer&(1)),10)
        IOCLOSE(id%)
ENDP