George,

Here's another "wrapper" for your code. It keeps running until ESC is pressed, and pops up the translation in the message box, whenever the clipboard changes. It would be nice if it popped up on top.

Michael

LOCAL loHeck, lcClip, lcText, lnKey
loHeck = CREATEOBJECT("hexwords")

lcClip = ''
DO WHILE .T.
  lnKey = INKEY(1, "H")
  IF lnKey = 27
    RETURN
  ENDIF
  IF lcClip != _CLIPTEXT
    lcClip = _CLIPTEXT
    IF UPPER(LEFT(lcClip, 2)) = "0X"
      lcText = loHeck.HexToWord(lcClip)
    ELSE
      lcText = loHeck.WordToHex(lcClip)
    ENDIF
    =MESSAGEBOX(lcText)
  ENDIF
ENDDO