;
; BINSRC.MAC
; SOURCE FOR MACRO SUBROUTINE TO DO A BINARY SEARCH ON AN INDEX FILE
; BASIC CALL:
;       CALL "BINSRC"(A$,A,B)
; WHERE:
;	A$ = STRING TO BE SEARCHED FOR
;	A  = FILE # OF INDEX FILE
;	     VALUE IS THAT ASSIGNED IN BASIC OPEN COMMAND
;	     EXECUTED ONCE BEFORE FIRST CALL TO SUBROUTINE
;	B  = REC # RETURNED BY SUBROUTINE