Hi, I would like to post to mathgroup but when I paste code out of a notebook, it 
looks like this: (using a Mac in OSX)

\!\(\*
  StyleBox[\(Clear[uDiagonal,
    uAngYZ, uAngW, uAngX, uAngY, uAngZ, y, x]\[IndentingNewLine]
    \(uDiagonal[input_, fixed_, angleA_] := ?\((\((input\^2 +
    fixed\^2)\) - \((2*input*fixed\ *Cos[
    angleA\ *\ \((Pi/180)\)\ ])\))\);\)\[IndentingNewLine]\[IndentingNewLine]\
\[IndentingNewLine]
    \(uAngYZ[fixed_, \ input_, coupler_, \ output_, \
              angleA_] := \
                  ArcCos[\((coupler\^2 + \ output\^2 - \((uDiagonal[input,
                      fixed, angleA])\)\^2)\)/\((2*coupler*
                output)\)]\ *\((180/Pi)\);\)\[IndentingNewLine]

Can you please tell me how to export code from mathematica into something that 
will appear legible on the newsgroup?

Thanks!

Michael