 ; ZZ - Secondary Editor start.
 ; Copyright 1994 by Rocket Software
 ;
 (DEFUN C:ZZ (/ fn tt len ll ch)
  (if (= (type ff2) 'str)
      (setq tt (strcat "Lisp file <" ff2 ">: "))
      (setq tt "Lisp file: "))
  (setq fn (getstring T tt))
  (if (/= fn "") (setq ff2 fn))
  (setq ll (strlen ff2))
  (while (and (< 0 ll) (/= (substr ff2 ll 1) (chr 92)))
         (if (= (substr ff2 ll 1) ".")
             (setq ch T))
         (setq ll (1- ll)))
  (if (null ch)
      (setq fn (setq ff2 (strcat ff2 ".lsp")))
      (setq fn ff2))
  (command "xxx" fn)
 (princ))