;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
;;;>		   EDITED: 08-18-1999
;;;
(defun c:tpan ()
  (setq vwtwst (getvar"viewtwist")
        tpang (*(/(- 0 vwtwst)pi)180)
  )
;  (setvar "snapang" ntwang)
  (setq pdist (ureal 1 "" "Horizontal pan distance" pdist))
  (command "._pan" "0,0" (strcat "@"(rtos pdist)"<"(rtos tpang))"")
)
(defun c:stz ()
  (if stait nil (load"stait"))
  (setq zmsta (ureal 1 "" "Zoom to Station" zmsta))
  (setq zmele (ureal 1 "" (strcat "Elevation at "(stait zmsta 2)) zmele))
  (command ".zoom" "c" (list zmsta (* zmele 10) 0) "")
)