code:

---

 function html2text($in)
$,$t
$in=split($in,"&#")
for $=0 to ubound($in)
 $t=split($in[$],";")[0]
 $in[$]=chr(substr($t,2))+substr($in[$],len($t)+1)
next
$html2text=$in
endfunction 

---