 ; LXX - lisp editor with dialog box selection.
 ; Copyright 1994 by Rocket Software
 ; Program features - a subset of the class of things which beg to be tried
 ; even in the absence of a real use.
 (DEFUN C:LXX (/ fn tt len ll ch)
  (if (= (type ff) 'str)
      (setq tt ff)
      (setq tt " "))
  (setq fn (getfiled "Lisp Edit-O-Matic" tt "lsp" 4))
  (if fn
     (progn
         (setq ff fn)
         (setq ll (strlen ff))
         (while (and (< 0 ll) (/= (substr ff ll 1) (chr 92)))
                (if (= (substr ff ll 1) ".")
                    (setq ch T))
                (setq ll (1- ll)))
         (if (null ch)
             (setq fn (setq ff (strcat ff ".lsp")))
             (setq fn ff))
         (command "xxx" fn))
     (prompt "No file selected"))
 (princ))