Something

alias striphtml {
  if (!$isid) || (!$1) return
  set %H $1- 
  set %T $regsub(%H,/(<[^>]+>)/g,,%H)
  if ($chr(60) isin %H || $chr(62) isin %H) {
    set %H $replace(%H,&quot;," ,&lt;,< ,&gt;,> ,&amp;,& ,&nbsp;,$iif($prop,$chr($prop),$chr(32)) ,&pound;,£ ,&sect;,$chr(36) ,&uml;,¨ ,&laquo;,« ,&raquo;,» ,&szlig;,ß, &Ntilde;,Ñ ,&ntilde;,ñ)
    set %H $replace(%H,&Agrave;,À ,&Aacute;,Á ,&Acirc;, ,&Atilde;,à ,&Auml;,Ä ,&Aring;,Å ,&AElig;,Æ ,&agrave;,à ,&aacute;,á ,&acirc;,â ,&atilde;,ã ,&auml;,ä ,&aring;,å ,&aelig;,æ)
    set %H $replace(%H,&Egrave;,È,&Eacute;,É,&Ecirc;,Ê,&Euml;,Ë,&egrave;,è,&eacute;,é,&ecirc;,ê,&euml;,ë,&Igrave;,Ì,&Iacute;,Í,&Icirc;,Î,&Iuml;,Ï,&igrave;,ì,&iacute;,í,&icirc;,î)
    set %H $replace(%H,&iuml;,ï,&Ograve;,Ò,&Oacute;,Ó,&Ocirc;,Ô,&Otilde;,Õ,&Ouml;,Ö,&Oslash;,Ø,&ograve;,ò,&oacute;,ó,&ocirc;,ô,&otilde;,õ,&ouml;,ö,&oslash;,ø,&Ugrave;,Ù,&Uacute;,Ú,&Ucirc;,Û,&Uuml;,Ü,&Yacute;,Ý,&ugrave;,ù,&uacute;,ú,&ucirc;,û,&uuml;,ü,&yacute;,ý,&yuml;,ÿ)
  }
  return %H
}