;TIP561.LSP    Additional Support File Directories    (c)1990, Darren Myles
(defun C:LISP ()
  (load (strcat (getenv "ACADLISP") "\\"
    (getstring "Lisp file to load: ")))
)

(defun C:SCRIPT ()
  (setq FILE (strcat (getenv "ACADSCR")
    "\\" (getstring "Script file: ")))
  (command ".script" FILE)
)

(defun S::STARTUP ()
  (command "UNDEFINE" "SCRIPT")
)