$Target = $Size / 2;
read LIST, $NewString, $EntryLength, $Target;
$NewString = substr($NewString, $Target);
&Verify;
$CmpMonDay = substr($NewString, 16, 4);
$CmpYear = substr($NewString, 20, 4);

#This *should* split the find time in half. I hope.
#The following tree is used for the a binary split.

if ($CmpYear == $Year && $MonDay > $CmpMonDay) {
	$PointerStart = $Target;
}
elsif ($Year > $CmpYear) {
	$PointerStart = $Target;
}
	
$Start = $PointerStart;