function myTrim ( $a )
        {
#-k     string format
#       Specialized TRIM function

        $b = '';
        $pc = 32;
        for ( $i=0; $i < strlen($a); $i++ )
                {
                $ch = $a[$i];

                if (ord($ch) > 32)      { $b .= $ch; } else
                if (ord($pc) > 32)      { $b .= ' '; }          # note 1

                $pc = $ch;
                }

        return trim ( $b );
# note 1: don't actually want to put a blank here if the next character is one of these: ?!)}];:.,<
        }

?>