character*12 data1
       character*2 month,day
       character*116 data2
       character*132 header
       character*2 sel,seld1,seld2
       open (11,file='daily.dat')
       open (21,file='daily-op.dat')
       print*,'enter month to select (eg, enter 12 for december)'
       read (5,900) sel
 900   format (a2)
       print*,'enter begin-end days to select (eg, 01 15)'
       read (5,910) seld1,seld2
 910   format (a2,1x,a2)
       read (11,800) header
 800   format (a132)
       write (21,800) header
 2     read (11,810,end=99) data1,month,day,data2
 810   format (a12,a2,a2,a116)
       if (month.eq.sel.and.day.ge.seld1.and.day.le.seld2) then
       write (21,810) data1,month,day,data2
       else
       end if
       go to 2
 99    stop
       end