parameter (lr=48,ls=36,lc=60)
      character*(lr) record
      character*(ls) shipid,fileid
      character*(lc) command
      common/control/iout,nferr,iprint
      data command/
c      123456789012345678901234567890123456789012345678901234567890  
     *'mv temp tab_entries/                                        '/
      inp=1
      ipr=20
      ifl=30
      iout=6
      nferr=90
      iprint=0
      open(inp,file='tables.html',form='formatted',status='old')
      open(ifl,file='fileids',form='formatted',status='unknown')
      nr=0
      nrmax=300
    1 continue
      read(inp,'(a)',end=90)record
      call fstring1(record,'<TD ',ia,*1)
    2 continue
      open(ipr,file='temp',form='formatted',status='unknown')
      write(ipr,'(a)')record
      read(inp,'(a)',end=90)record
      call fstring1(record,'HREF',ia,*2)
      write(ipr,'(a)')record
      write(iout,'(2a)') 'after HREF: ',record
      ip=ia+6
      do i=ip,lr
       if(record(i:i).eq.'"')then
        if(i.gt.ls)then
         write(iout,'(2(a,i8))') ' i=',i,' ls=',ls
         stop 1
        endif 
        do j=1,ls
         shipid(j:j)=' '
        enddo 
        ipe=ip+1
        shipid(1:i-ipe)=record(ipe:i)  
        write(iout,'(3a)') ' shipid=|',shipid,'|'
       endif
      enddo
    3 continue
      read(inp,'(a)',end=90)record
      write(ipr,'(a)')record
      call fstring1(record,'</TD>',ia,*3)
      write(iout,'(2a)') ' found end for shipid',shipid
      do j=1,ls
        fileid(j:j)=' '
      enddo 
      do j=1,ls
       if(shipid(j:j).eq.' ')exit
       fileid(j:j)=shipid(j:j)
      enddo
      write(iout,'(3a)') ' fileid=|',fileid,'|' 
      write(ifl,'(a)')fileid
      do j=20,lc
       command(j:j)=' '
      enddo 
      command(20:20)='/'
      do j=1,ls
       if(fileid(j:j).eq.' ')exit
       command(20+j:20+j)=fileid(j:j)
      enddo
    4 continue   
      write(iout,'(3a)') ' issue command:|',command,'|'
      call system(command)
c     goto 2
      close(ipr)
      nr=nr+1
    5 continue
      read(inp,'(a)',end=90)record
      call fstring1(record,'<TD ',ia,*5)
      if(nr.le.nrmax)goto 2
   90 continue    
      close(inp)
      close(ifl)
      do j=11,lc
       command(j:j)=' '
      enddo 
      command(1:5)='sort '
      command(6:25)='fileids > fidssorted'
      write(iout,'(3a)') ' command:|',command(1:25),'|'
      call system(command(1:25))
      stop
      end 
      subroutine fstring1(record,string,ia,*)
c find string in record, return 1 if not found
      character*(*) record
      character*(*) string
      common/control/iout,nferr,iprint
      lrec=len(record)
      lstr=len(string)
      ia=1
    1 continue
      if(record(ia:ia+lstr-1).eq.string(1:lstr))return
      ia=ia+1
      if(ia.lt.lrec-lstr+1)goto 1
   10 return 1
      end