anchor.diff:                read( 10, rec = record ) (img(b), b = 1,bytes )
                 first  = 1
             else
  -              read_img = .false.
  -              return
  +              exit
             endif
         enddo
   
  
positive.code:           record = record + 1
            read( 10, rec = record, iostat = ierr ) (img(i), i = 1,bytes )
            if ( ierr .ne. 0 ) then
                read_img = .false.
                return
            endif
  
            do i = 1,bytes
  
negative.code: 
            if (ierr .ne. 0) then
                read_img = .false.
                write(*,*) 'Error!'
                return
            endif
  
            if (ver(1:1) .ne. '#' ) then
                exit
            endif
        enddo
  
  