Frontend – Is there a way to disable or enable text wrapping in cells?


I am trying to generate "Program" Cells, but my problem is different "Code" Cells, "Program" Cells automatically start wrapping text when the line is too long for the screen. Is there an option or something to do this "Program" Cells have no text wrap, so very long lines of code may disappear from the screen, but remain on the same line as "Code" Cells.

Here is an example "Program" Cell:

long=StringJoin@Table[".",1000];
CellPrint@Cell[TextData[{
    StyleBox["Code:",FontWeight->"Bold"],"   ",
    " ... very long piece of code "<>long,"n",
    StyleBox["Comment:",FontWeight->"Bold"],
    " ... very long comment ......"<>long
}], "Program"]

Here is an example "Code" Cell:

CellPrint@Cell[TextData[{
    StyleBox["Code:",FontWeight->"Bold"],"   ",
    " ... very long piece of code "<>long,"n",
    StyleBox["Comment:",FontWeight->"Bold"],
    " ... very long comment ......"<>long
}], "Code"]