var fileNo : int
var ch : char

open : fileNo, "HTML.txt", get
loop
    get : fileNo, ch
    put ch ..
    if eof (fileNo) then
        exit
    end if
end loop
close : fileNo

var inBody  = False (If we've made it to the body yet)
var inTag   = False (If we're inside the definition of a tag; between < and >)
var lastTag = "" (The last tag we got to)

for each character in the source as chr; do
    if chr is '<' then
        inTag = True
    else if chr is '>' then
        inTag = False
        if lastTag is "body" then
            inBody = True
        else if lastTag is "em" then
            change FG/BG colour for emphasis
        elsif lastTag is "/em" then
            change FG/BG back to normal to end emphasis
        end
        lastTag = "" (Clear last tag)
    else if inBody (Only do this if we're in the body)
        if chr is '&' then
            (this is the start of an HTML Entity, the next few character represent
            a single character, for example: &copy; means ?)
            var txt = ""
            read characters until a ';' is found, add each character to txt
            Use a switch or something to convert txt into a single character, the output
            it
        else (Just a normal character)
            if inTag then
                lastTag += chr
            else
                output the character
            end
        end
    end
done