;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 12/8/2012 ;;; Edited: 12/8/2012 ;;; (DEFUN C:ZTRICK ( / ss10e99) (SETQ ss10e99 (cadr(ssgetfirst))) (IF (AND ss10e99 (>=(SSLENGTH ss10e99) 1)) (COMMAND "_move" ss10e99 "" "non" "0,0,10e99" "" "_move" "p" "" "non" "0,0,-10e99" "") (PROGN (SETQ ss10e99 (SSGET)) (COMMAND "_move" ss10e99 "" "non" "0,0,10e99" "" "_move" "p" "" "non" "0,0,-10e99" "") ) ) (PRINC) )