function numin ( $num )
        {
#-k     string format
#-      strip commas from a number
#-p     $num    - req   - String to be inputted, poss has commas to be stripped
#-p             - ret   - Returns an int

        $n = 0;
        $dot = 0;
        for ($i=0;$i<strlen($num);$i++)
                {
                if ($dot) $dot++;
                if ($num[$i] == ".") $dot++;
                elseif (!$dot  &&  is_number($num[$i])) $n = $n*10 + $num[$i];
                elseif (is_number($num[$i])) $n = $n + $num[$i]/(10 ** ($dot-1));
                elseif ($num[$i] == ",") {}
                else break;
                }

        return $n;
        }
?>