10 ! BINSRC
	! PROGRAM TO TEST NEW BINARY SEARCH AND BINARY DECODE
100 DIM R$[10],S$[254]
110 LOAD "BINSRC","DBLBIN"
120 R0=0 : R1=0
130	OPEN #4,"TRNINDV1.SRT/RN/LN:10/RO" :
	OPEN #5,"LEVEL1.DAT/RN/LN:254/RO"
140 CALL "BINSRC"("38856",4,R0)
150	PRINT "INDEX FILE RECORD # ";R0
160	INPUT LINE #4@R0,R$
170	PRINT "INDEX FILE RECORD   ";SBS$(R$,5)
180 CALL "DBLBIN"(R$,R1)
190	PRINT "LEVEL FILE RECORD # ";R1
200	INPUT LINE #5@R1,S$
210	PRINT "LEVEL FILE RECORD   ";LEFT(S$,50) :
	PRINT "                    ";SBS$(S$,51,50) :
	PRINT "                    ";SBS$(S$,101,50) :
	PRINT "                    ";SBS$(S$,151,50) :
	PRINT "                    ";SBS$(S$,201,50) :
	PRINT "                    ";SBS$(S$,251)
220 STOP