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