anchor.diff:  (defun selected-files ()
     (let ((files '()))
       (save-excursion
  -      (move-point (current-point) *start-point*)
  +      (move-to-start-point (current-point))
         (loop
   	 (beginning-of-line)
   	 (let ((flag (char= (following-char) #\*)))
  
positive.code: (define-command dired-previous-line (n) ("p")
    (let ((point (current-point)))
      (line-offset point (- n))
      (when (point<= point *start-point*)
        (move-point point *start-point*))
      (line-start point)))
  
  (define-command dired-next-directory-line (n) ("p")
  
negative.code: (defvar *directory-attribute* (make-attribute "blue" nil :bold-p t))
  (defvar *link-attribute* (make-attribute "green" nil))
  
  (defvar *start-line-number*)
  
  (define-major-mode dired-mode ()
      (:name "dired"
  