get "Pos<=$_get{Pos} Pos>=".($_get{Pos}-1)." sort=-";
$_put{Shift}=$Shift+1; $newPos=$Pos; get_next;
while(get_next)
 {
   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);