%NOLIST

10.60	H=0
	IF RECORD.COUNT%=0 THEN H=-1:L=1:RETURN
	READ #Y2,1;VAR1,VAR2,VAR3
	VAR1=VAR1+(VAR2/1000)
	IF K1 < VAR1 THEN H=-1:L=1:RETURN
	IF K1 = VAR1 THEN L=1:RETURN
	READ #Y2,RECORD.COUNT%;VAR1,VAR2,VAR3
	VAR1=VAR1+(VAR2/1000)
	IF K1 > VAR1 THEN H=-1:L=RECORD.COUNT%+1:RETURN
	IF K1 = VAR1 THEN L=RECORD.COUNT%:RETURN
	H=RECORD.COUNT%
	L=0
10.70	M=INT((L+H)/2)
	READ #Y2,M;VAR1,VAR2,VAR3
	VAR1=VAR1+(VAR2/1000)
	IF VAR1=K1 THEN L=M:RETURN
	IF VAR1 > K1 THEN H=M
	IF VAR1 < K1 THEN L=M
	IF H=M+1 THEN H=-1:L=M+1:RETURN
	GOTO 10.70

%LIST