<pre>function stripHTML string  put empty into vText  put false into inCode  repeat while string is not empty    if char 1 of string is "<" then      put true into inCode    else if char 1 of string is ">" then      put false into inCode    else      if inCode is false then        put char 1 of string after vText      end if    end if    delete char 1 of string  end repeat  return vTextend stripHTML</pre>