get "Pos<=$_get{Pos} Pos>=".($_get{Pos}-1)." sort=-", "foren";
$_put{Shift}=$Shift+1; $newPos=$Pos; get_next,"foren";
while(get_next("foren"))
{
last if $Shift<$_put{Shift};
$newPos=$Pos;
}
$Pos=0 if $_get{Pos}==$Pos;
$newPos=($Pos+$newPos)/2;
my $mx=$newPos; chop $mx; $newPos=$mx if($mx>$Pos);