;;;Edit *.FPL files
;;;
(defun c:edfpl ( / )
  (setq edfil (getfiled "Edit Flood Plain Grade File" (getvar"dwgprefix") "fpl" 4))
  (if (= 1 edfil)
    (setq edstr "UNNAMED.fpl")
    (setq edstr edfil)
  );IF
  (command "NOTEPAD" edstr)
);defun