out "<table cellspacing=0 cellpadding=0 border=0 bgcolor=e0e0e0 width=90%><tr><td><font face=arial,helvetica size=2>" if $pos ne "" && $pos==$Pos;
  out <<EOF;
<table width=90%><tr><td><font face=arial size=2>Beitrag von <b>$Name</b> am $Datum<br>
$EMail $WWW
<h4>$Titel</h4>
<p><ul><br>
EOF

  my $ca="<p><table width=90% cellpadding=10><tr><td bgcolor=f0f0f0><font size=3><code>";
  my $ce="</code></td></tr></table>";
  my $flag=0;
  my $nx="";
  $Text=convert_links($Text);
                  foreach $x (split "\n", $Text)

  {
   if($flag==0)
   {
    $flag=2 if $x=~ s/^: //;
    $flag=3 if $x=~ /^((\s*)<|\$|\{|\}|(out|get|put|mod|if|else)(\s|$|\(?))/;
    out $ca if($flag>1);
    $x=~ s/^(\s+)/" " x length($1)/ge;
   } elsif($flag>0)
   {
    $flag=-1 if $flag==2 && !($x=~ s/^: //);
    $flag=-1 if $flag==4 && !($x=~ /^((\s*)<|\$|\{|\}|(out|get|put|mod|if|else)(\s|$|\(?))/);
    if($flag==3 && !($x=~ /^((\s*)<|\$|\{|\}|(out|get|put|mod|if|else)(\s|$|\(?))/))
    {
     $nx="$x<br>";
     $flag=4;
     next;
    }

    if($flag==-1)
    {
     out $ce;
     $flag=0;
    }
   }
   out "$nx$x<br>"; $nx="";
  }
  out $ce if $flag>0;
  out "</ul></td></tr></table>";

  if($pos==$Pos && $Pos ne "")
  {
   out "<p>";
  } else
  {
   $alink="$mylinkr&Pos=$Pos";