anchor.diff:      (dotimes (blocknum (+ count start))
         (let ((network (read-uint32 in))
   	    (blocksize (read-uint32 in)))
  -	(format t "block offset ~d - net 0x~X size ~d"
  +	(format t "block offset ~7d - net 0x~X size ~d"
   		blocknum
   		network blocksize)
   	(if (< blocknum start)
  
positive.code: 
  (defun advance-file-position (fstream count)
    (file-position fstream (+ (file-position fstream) count)))
  
negative.code: 			     :element-type '(unsigned-byte 8)
  			     :if-does-not-exist :create
  			     :if-exists :supersede)
  	      (copy-bytes in out blocksize)
  	      (format t " *~%")))))))
  
  (defun read-uint32 (instream)
  