/**
 * make sure the lines are only $cols long */
 
function wordwrap ($string, $cols = 72, $prefix = "") {
 $t_lines = split( "\n", $string);
 $outlines = "";
 while(list(, $thisline) = each($t_lines)) {
     if(strlen($thisline) > $cols) {
   $newline = "";
   $t_l_lines = split(" ", $thisline);
   while(list(, $thisword) = each($t_l_lines)) {
    while((strlen($thisword) + strlen($prefix)) > $cols) {
     $cur_pos = 0;
     $outlines .= $prefix;

     for($num=0; $num < $cols-1; $num++) {
      $outlines .= $thisword[$num];
         $cur_pos++;
      echo $cur_pos."<br>";
     }
     $outlines .= "\n";
     $thi1sword = substr($thisword, $cur_pos, (strlen($thisword)-$cur_pos));
    }
    if((strlen($newline) + strlen($thisword)) > $cols) {
     $outlines .= $prefix.$newline."\n";
     $newline = $thisword." ";
    } else {
     $newline .= $thisword." ";
    }
   }
   $outlines .= $prefix.$newline."\n";
     } else {
   $outlines .= $prefix.$thisline."\n";
     }
 }
 return $outlines;
}