function dumpStr ( &$a )
        {
#-k     debug string print
        global $logfcb;

        $ar = callingVars ( 1 );
        $ax = hexChars($a);

        if (isset($logfcb['log']['f']))
                {       # dump to log file
                $d = stackPlace() . "\n" .
                        '    Name: ' . $ar[0]['name'] . "\n" .
                        '  Length: ' . strlen($a) .  "\n" .
                        'Contents:[' . $a . ']' .  "\n";

                $d .= 'Alpha Dec mb Alpha mb Hex'.  "\n";
                for ( $i=0; $i < count($ax['chars']); $i++ )
                        {
                        $ch = substr($a,$i,1);
                        $d .= $ax['chars'][$i] . ' - ' . ord($ax['chars'][$i]) .
                                ' - ' . $ax['mb_chars'][$i] . ' - ' . $ax['mb_hex'][$i] . "\n";
                        }
                $d .= "\n";
                prt ( $d );
                }
        else
                {       # dump to HTML
                $d = '<br><hr>' . stackPlace() .
                        '<br>Name: <b>' . $ar[0]['name'] .
                        '</b><br>Length: <b>' . strlen($a) .
                        '</b><br>Contents: [<b>' . $a . ']</b><br>';
                $d .= '<table>
                <col align="center"><col align="right"><col align="center"><col align="right">
                <thead>
                <tr><th>Alpha</th><th>Dec</th><th>mb Alpha</th><th>mb Hex</th></tr>
                </thead><tbody>';
                for ( $i=0; $i < count($ax['chars']); $i++ )
                        {
                        $ch = substr($a,$i,1);
                        $d .=   '<tr><td>' . $ax['chars'][$i] . '</td><td>' . ord($ax['chars'][$i]) .
                                '</td><td>' . $ax['mb_chars'][$i] . '</td><td>' . $ax['mb_hex'][$i] . '</td></tr>';
                        }
                $d .= '</tbody></table><br>';
                prt ( $d,3 );
                }

        }

?>