program bigtabr
      character*80 fn,ts
      write(6,*)' Wmin:'
      read(5,*)wmin
      write(6,*)' Wmax:'
      read(5,*)wmax
      open(8,file='TAB.LST')
      open(9,file='BIG.TAB')
      it=0
11    read(8,30,end=999,err=999)fn
30    format(a80)
      it=it+1
      write(6,*)it,fn
      open(91,file=fn)
      i=0
22    read(91,30)ts
      i=i+1
      if((i.le.3.and.it.eq.1).or.(i.gt.3.and.ts(1:1).ne.'-'))then
       if(i.gt.3)then
        open(34,file='scr')
        write(34,30)ts
        rewind 34
        read(34,*)idumm,w
        close(34)
        if(w.lt.wmin.or.w.gt.wmax)goto 22
       endif
       write(9,30)ts
       goto 22
      endif
      if(i.le.3)goto 22
      close(91)
      goto 11
999   close(8)
      write(9,901)
901   format(80(1h-))
      close(9)
      stop
      end