procedure StripScript(tcHtml) c=tcHtml DO WHILE ATC("<SCRIPT", c)>0 lcScript=STREXTRACT(c, "<SCRIPT", "</SCRIPT>",1, 7) c=STRTRAN(c, lcScript, "") ENDDO return c