(defun c:l()(xload "ww")(c:ip))
 (defun c:wu()(xunload "ww"))

(defun wwinit()
        (load "dde")
        (xload "ww")
        (setq chnl (ddeprompt))
        (advise chnl "PanTo" "(panto) ")
)


(defun panto( / handle)
	(setq chnl (ddeprompt))
	(setq handle (request chnl "PanTo"))
	(pantohandle handle)
)