Syntax Highlighting (is it possible?)

[Alimonster]

Testing:

[pascal]program Project1;

{$APPTYPE CONSOLE}

var
Loop: Integer;

begin
for Loop := 0 to 1000 do begin
Write('Hung Up'+#9#8#8#8#8#8#;
end;
end.[/pascal]