hst {
;----Basics by an unknow author(thanks alot!!)
var %x, %y = $regsub($replace($1,<br>,$lf),/^[^<]*>|<[^>]*>|<[^>]*$/g,,%x), %ht = html $+ $ticks, %bd = body $+ $ticks
if ($prop == rem) { !.echo -q $regsub(%x,/&\S+?;/g,,%x) | return %x }
if (!$regex(%x,/&\S+?;/)) return %x
;%x = $replace(%x,)
.comopen %ht htmlfile
if ($comerr) return %x
%x = $com(%ht,write,1,bstr*,$+(<html><body>,%x,</body></html>))
%x = $com(%ht,body,2,dispatch* %body) $com(%bd,innertext,2)
%x = $com(%bd).result
if ($com(%bd)) .comclose %bd
if ($com(%ht)) .comclose %ht
return %x
}
