anchor.diff:            (progn
               (setf (options-script-stream    *options*) script
                     (options-script-arguments *options*) arguments)
  -            
  +
               new-arguments)
             (error "arguments invalides : ~S" (cons argument remaining))))))
   
  
positive.code: 
      ;; (let ((line (terminal-read-string (task-terminal task))))
      ;;   (io-format task "Lu 21: ~S~%" line))
      
      (let ((line (io-read-line task :beep t)))
        (io-format task "Lu 22: ~S~%" line))
      ))
  
negative.code:   (with-terminal terminal
      (unwind-protect
           (progn
             (with-pager task
               (io-format task "~A" *tape-banner*)
               (io-format task "~?" *title-banner* (list (long-version) *copyright*))
               (io-format task "~?" *cli-banner*   (list (subseq (dat) 9))))
  