;;;;;************  USED TO CHANGE TEXT TO DEFAULT Settings
;;;*****************************************
;;;   Superior Designs - Custom programming available
;;;   Copyright (C) 1996-1997
;;;   Written by Craig Carr -  1996
;;;   http://www.surfersnet.com/sdi/acad.htm
;;;   e-mail superior@surfersnet.com
;;;*****************************************
(DEFUN C:CHT()(SETVAR "CMDECHO" 0)
(PRINC "\nPICK TEXT TO STANDARDIZE..")
(SETQ SSTXT(SSGET))(SETQ TXTQTY(SSLENGTH SSTXT))
(SETQ NUM 0)(WHILE (< NUM TXTQTY)
          (IF (= (cdr(ASSOC 0 (ENTGET(SSNAME SSTXT NUM)))) "TEXT")
              (COMMAND "CHANGE" (SSNAME SSTXT NUM) "" "" "" "STANDARD" "" "" "" ) ); END IF
     (SETQ NUM(1+ NUM)) ); END WHILE  
(PRINC)); END FUNCTION
;;;;;;*************