%NOLIST

1060	H=0
	IF RECORD.COUNT < 1 THEN H=-1:L=1:RETURN
	READ #Y2,1;VAR$,VAR1
	XYZ$=VAR$+"      ":ZYX$="000000"+STR$(VAR1)
	VAR$=LEFT$(XYZ$,6)
	IF LEN(K$)>6 THEN VAR$=VAR$+RIGHT$(ZYX$,6)
	IF K$ < VAR$ THEN H=-1:L=1:RETURN
	IF K$ = VAR$ THEN L=1:RETURN
	READ #Y2,RECORD.COUNT;VAR$,VAR1
	XYZ$=VAR$+"      ":ZYX$="000000"+STR$(VAR1)
	VAR$=LEFT$(XYZ$,6)
	IF LEN(K$)>6 THEN VAR$=VAR$+RIGHT$(ZYX$,6)
	IF K$ > VAR$ THEN H=-1:L=RECORD.COUNT+1:RETURN
	IF K$ = VAR$ THEN L=RECORD.COUNT:RETURN
	H=RECORD.COUNT
	L=0
1070	M=INT((L+H)/2)
	READ #Y2,M;VAR$,VAR1
	XYZ$=VAR$+"      ":ZYX$="000000"+STR$(VAR1)
	VAR$=LEFT$(XYZ$,6)
	IF LEN(K$)>6 THEN VAR$=VAR$+RIGHT$(ZYX$,6)
	IF VAR$=K$ THEN L=M:RETURN
	IF VAR$ > K$ THEN H=M
	IF VAR$ < K$ THEN L=M
	IF H=M+1 THEN H=-1:L=M+1:RETURN
	GOTO 1070

%LIST