c1234567890123456789012345678901234567890123456789012345678901234567890
c-rw-r--r-- 1 lakdivac lakdivac 23767 Feb 28 17:13 lanka_170301_00.jpg
c-rw-r--r-- 1 lakdivac lakdivac 24831 Feb 28 18:13 lanka_170301_01.jpg
      character*80 card
      nold = 0
      do while(.true.)
         read(5,'(A)',end=10) card
         read(card(31:36),*) nnew
         if(nnew.lt.10000.or.nnew.eq.nold) then
            write(7,'(2A)') 'rm ',card(51:69)
         else
            nold = nnew
         endif
       enddo
 10    stop
       end
