 (setvar "CMDECHO" 0) 
  (setq style_car (getvar "TEXTSTYLE"))
    (if (null (tblsearch "style" "techn_mt"))
       (command "-style" "techn_mt" "techn_mt.shx" "" "" "" "n" "" ""))
    (if (null (tblsearch "style" "techno"))
        (command "-style" "techno" "techno.shx" "" "" ""  "y" "" ))
    (setvar "TEXTSTYLE" style_car)
(defun c:ahebmenu()
 (command "_.menuunload" "autoheb") 
 (command "_.menuload" "autoheb.cuix")
)
(load"ddmodify")

(defun-q autohebload() 
  (command "ahebstart")
)

(setq s::startup(append s::startup autohebload ))

(princ)  