CSS CONFIG:
<style TYPE="text/css"> <!-- body { font-family: verdana; } pre { font-family: courier; font-size: 0.7em;} span.Symbol { color: #00FFFF; } span.String { color: #FF00FF; } span.HexNumber { color: #FF00FF; } span.Comment { color: #F4F889; } span.Keyword { color: #FF8000; font-weight: bold; } span.Directive { color: #CC3333; font-weight: bold; } span.Identifier { color: #CCCCCC; } span.Number { color: #FFFF00; } --> </style>

HIGHLIGHTED HTML:
<pre> <span class="Keyword">program</span> <span class="Identifier">rapid</span><span class="Symbol">;</span> <span class="Directive">{$mode objfpc}</span><span class="Directive">{$H+}</span> <span class="Keyword">uses</span> <span class="Identifier">pwinit</span><span class="Symbol">,</span> <span class="Identifier">pwmain</span><span class="Symbol">,</span> <span class="Identifier">strwrap1</span><span class="Symbol">,</span> <span class="Comment">// string functions </span> <span class="Identifier">htmw</span><span class="Symbol">;</span> <span class="Comment">// rapid html wrapper </span> <span class="Keyword">var</span> <span class="Comment">// initialize a rapid DIV box </span> <span class="Identifier">TopPanel</span><span class="Symbol">:</span> <span class="Identifier">THtmCustomBox</span> <span class="Symbol">=</span> <span class="Symbol">(</span> <span class="Identifier">position</span><span class="Symbol">:</span> <span class="Identifier">cpAbsolute</span><span class="Symbol">;</span> <span class="Identifier">left</span><span class="Symbol">:</span> <span class="Number">0</span><span class="Symbol">;</span> <span class="Identifier">top</span><span class="Symbol">:</span> <span class="Number">2</span><span class="Symbol">;</span> <span class="Identifier">height</span><span class="Symbol">:</span> <span class="Number">0</span><span class="Symbol">;</span> <span class="Identifier">width</span><span class="Symbol">:</span> <span class="Number">96</span><span class="Symbol">;</span> <span class="Identifier">pad</span><span class="Symbol">:</span> <span class="Number">6</span><span class="Symbol">;</span> <span class="Identifier">HeightUnit</span><span class="Symbol">:</span> <span class="Identifier">hmPixel</span><span class="Symbol">;</span> <span class="Identifier">WidthUnit</span><span class="Symbol">:</span> <span class="Identifier">hmPercent</span><span class="Symbol">;</span> <span class="Identifier">bgcolor</span><span class="Symbol">:</span> <span class="String">'gray'</span><span class="Symbol">;</span> <span class="Identifier">PageAlign</span><span class="Symbol">:</span> <span class="Identifier">caCenter</span><span class="Symbol">;</span> <span class="Identifier">border</span><span class="Symbol">:</span> <span class="Identifier">cbNone</span><span class="Symbol">;</span> <span class="Identifier">zindex</span><span class="Symbol">:</span> <span class="Number">1</span><span class="Symbol">;</span> <span class="Identifier">text</span><span class="Symbol">:</span> <span class="String">''</span><span class="Symbol">;</span> <span class="Symbol">)</span><span class="Symbol">;</span> <span class="Identifier">RightPanel</span><span class="Symbol">:</span> <span class="Identifier">THtmPercentBox</span><span class="Symbol">;</span> <span class="Identifier">LeftPanel</span><span class="Symbol">:</span> <span class="Identifier">THtmPercentBox</span><span class="Symbol">;</span> <span class="Identifier">ContentPanel</span><span class="Symbol">:</span> <span class="Identifier">THtmPercentBox</span><span class="Symbol">;</span> <span class="Identifier">FootPanel</span><span class="Symbol">:</span> <span class="Identifier">THtmPercentBox</span><span class="Symbol">;</span> <span class="Keyword">function</span><span class="Symbol">:</span> <span class="Identifier">TemplateFileToString</span><span class="Symbol">(</span><span class="Identifier">fname</span><span class="Symbol">:</span> <span class="Keyword">string</span><span class="Symbol">)</span><span class="Symbol">:</span> <span class="Keyword">string</span><span class="Symbol">;</span> <span class="Keyword">begin</span> <span class="Comment">// load a file into a string </span> <span class="Identifier">result</span><span class="Symbol">:=</span> <span class="Identifier">StrLoadFile</span><span class="Symbol">(</span><span class="Identifier">fname</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Comment">// format $macrovar's using pwmain format function </span> <span class="Identifier">result</span><span class="Symbol">:=</span> <span class="Identifier">WebFormat</span><span class="Symbol">(</span><span class="Identifier">result</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Keyword">procedure</span> <span class="Identifier">Init</span><span class="Symbol">;</span> <span class="Keyword">begin</span> <span class="Comment">// setup macrovars for template </span> <span class="Identifier">SetVar</span><span class="Symbol">(</span><span class="String">'macro1'</span> <span class="String">'blue sky'</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Identifier">SetVar</span><span class="Symbol">(</span><span class="String">'macro2'</span> <span class="String">'green grass'</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Keyword">procedure</span> <span class="Identifier">Show</span><span class="Symbol">;</span> <span class="Keyword">begin</span> <span class="Identifier">HtmBegin</span><span class="Symbol">(</span><span class="String">'Pascal Internet Program'</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Comment">// open html tags, set page Title </span> <span class="Comment">// load a macro var template into string, put in box content </span> <span class="Identifier">TopPanel</span><span class="Symbol">.</span><span class="Identifier">text</span><span class="Symbol">:=</span> <span class="Identifier">TemplateFileToString</span><span class="Symbol">(</span><span class="String">'content1.tpl'</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Identifier">BoxOut</span><span class="Symbol">(</span><span class="Identifier">TopPanel</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Comment">// display div box </span> <span class="Identifier">HtmEnd</span><span class="Symbol">;</span> <span class="Comment">// close html tags </span> <span class="Keyword">end</span><span class="Symbol">;</span> <span class="Keyword">begin</span> <span class="Identifier">Init</span><span class="Symbol">;</span> <span class="Identifier">Show</span><span class="Symbol">;</span> <span class="Keyword">end</span><span class="Symbol">.</span> <span class="Comment">(*-----------content1.tpl------------------------------------------------- This is a page about the $macro1 in the air and also about the $macro2 on the ground. -------------------------------------------------------------------------*)</span><!---------------------> <!-- End of File ------> <!---------------------> </pre>