;;;Edit *.LST files
;;;
(defun c:edlst (/)
  (setq
    edfil (getfiled "Edit Text File"
		    (STRCAT (getvar "dwgprefix")
			    (SUBSTR (GETVAR "DWGNAME")
				    1
				    (- (STRLEN (GETVAR "DWGNAME")) 4)
			    ) ;_ end of SUBSTR
		    ) ;_ end of STRCAT
		    "lst"
		    33
	  ) ;_ end of getfiled
  ) ;_ end of setq
  (if (= 1 edfil)
    (setq
      edstr (strcat "NOTEPAD.EXE " (GETVAR "DWGPREFIX") "UNNAMED.LST")
    ) ;_ end of setq
    (setq edstr (strcat "NOTEPAD.EXE \"" edfil "\""))
  )					;IF
  (command ".START" edstr)
)					;defun