$time=$16;    # Time Sample
                      
  @_1= split "\,",$16;
  if($#_1 eq 0){      
  $time = int ($time);
}                  
  if($#_1 eq 1){   
  $time=$_1[0];   
  $time=~ s/\,//g;
  $time*=1000;
}                              
  if($#_1 eq 2){   $time=1000;}
  if($#_1 eq 3){$time=1000;}