dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr="":c="|"&mr:Set w = document.body
sub tp
m=mid(t,p,1):if m="" then c=mr
if m="`" then m="":mm=mid(mm,1,len(mm)-1)
if m=""):m=mid(t,p,av):p=p+av-1
if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1
tmp=100:if m="." then tmp=400 else if m="," then tmp=200 else if m=" " then tmp=200
if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop+int(dy):dy=dy+dy/vs else dy=1
mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p |