function flagSet ( $flags, $f, $v )
        {
#-k     flags
#-      put the value '$v' into the '$f'th place

        if (($f < 1) or ($f > 49)) return $flags;

        $flg = str_split ( $flags );
        for ($i=$flg[0]+1;$i<$f;$i++)   # fill in any gaps before $f for implode
                if (!isset($flg[$i])) $flg[$i] = '-';

        $flg[$f] = $v;
        $flg[0] = max ( $flg[0], $f );
        $flags = implode ( $flg );
        return $flags;
        }

?>