subroutine rdline
	character*80 line
	character*8 hour
	integer snum,qnum,tnum
	logical iex
	iex=.false.
	inquire(file="../../bin/sline.dat",exist=iex)
	if(.not.iex) goto 999
	open(33,file="../../bin/sline.dat")
100	format(a80)
	snum=0
10	read(unit=33,fmt=100,end=200) line
	if(line(1:4).eq."####") then
	snum=snum+1
	end if
	goto 10
200	continue
	close(33)
	tnum=snum-1
	call time(hour)
	read(hour(1:2),123) i1
	read(hour(4:5),123) i2
	read(hour(7:8),123) i3
123     format(i2)    
	i4=i1*3600 + i2*60 + i3
	qnum=mod(i4,tnum)+1
	open(33,file="../../bin/sline.dat")
	snum=0
20	read(unit=33,fmt=100,end=300) line
	if(line(1:4).eq."####") then
	snum=snum+1
	if(snum.eq.qnum) then
30	read(unit=33,fmt=100,end=300) line
	if(line(1:4).ne."####") then
	write(6,100) line
	else
	goto 300
	end if
	goto 30
	end if
	end if
	goto 20
300	continue
	close(33)
	write(6,*) " "
999	return
	end