;Load any *.EXP file (specifically for Automanager Organizer).
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;	http://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
(defun c:loadx ( / )
  (setq edfil (getfiled "Xload File" "o:/amo11/" "exp" 0))
  (if (> (strlen edfil) 4)
    (progn
      (setq efsln (-(strlen edfil)4))
      (setq edfil (substr edfil 1 efsln))
    );progn
  )
  (xload edfil)
);defun