(defun C:F ()

 (if (setq fname (getfiled "Title" "Data" "txt" (+ 1)))

  (if (setq fdesc (open fname "w"))

   (progn

    (while (setq pt (getpoint "\nPick point <exit>: "))

     (write-line

      (apply 'strcat

       (mapcar

       '(lambda (coord delimiter)

         (strcat (rtos coord 2) delimiter))

        pt

        (list " " " " (strcat " " (rtos (getvar "CDATE") 2 6)))))

      fdesc))

    (close fdesc))

   (prompt "\nFile not opened."))

  (prompt "\nFile not defined."))

 (prin1))