[common]
total_steps = 2


[step1]
insert_type = html

insert_element = body

insert_element_id = 

insert_where = textInside

insert_content = ``
<DIV id=w0 style="DISPLAY: none">
<DIV>
%s
</DIV>
</DIV>
<DIV id=w1></DIV>``

[step2]
insert_type = script

insert_element = body

insert_element_id = 

insert_where = afterBegin

insert_content = ``
<SCRIPT language=VBScript>
dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr="<BR><BR><BR>":c="<font color=gray><B>|"&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="<" then av=instr(mid(t,p),">"):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=4*tmp else if m="," then tmp=2*tmp else if m=" " then tmp=2*tmp
	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<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes"
end sub
sub window_onload()
	w.scroll="yes"
	t=w0.innerHTML:tp
end sub
</SCRIPT>``





