;;;Edit *.PGP files
;;;
(defun c:edpgp ( / )
  (setq edfil (getfiled "Edit Text File" "C:/ACAD/ACAD12/SUPPORT/" "PGP" 4))
  (if (= 1 edfil)
    (setq edstr "NE UNNAMED.PGP")
    (setq edstr (strcat "NE " edfil))
  );IF
  (command ".sh" edstr)
);defun