out "<table cellspacing=0 cellpadding=0 border=0 bgcolor=f0f0ff width=85%><tr><td><font face=verdana color=000000 size=2>" if $pos ne "" && $pos==$Pos;
                out "<table width=85%><tr><td><font face=verdana color=000000 size=2>Beitrag von <b>$Name</b>$Verein am $Datum<br>$EMail<br>$WWW<h4>";
                out "<img src='$gif' border='0'> " if ($gif ne "");
                out "$Titel</h4><p><ul><br>";
                my $ca="<p><table width=100% cellpadding=10><tr><td bgcolor=f0f0ff><font face=verdana size=2><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;

                                }
                               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 "</table><p>";
                } else
                {
                        $alink="$mylinkr&Pos=$Pos";
                }