</center>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub doTrans()
call hi.filters.item(0).Apply()
hi.style.visibility=""
call hi.filters.item(0).Play()
action=setTimeout ("doTrans1()",5000)
End Sub
Sub doTrans1()
call hi1.filters.item(0).Apply()
hi1.style.visibility=""
call hi1.filters.item(0).Play()
action=setTimeout ("doTrans2()",5000)
End Sub
Sub doTrans2()
call hi2.filters.item(0).Apply()
hi2.style.visibility=""
call hi2.filters.item(0).Play()
action=setTimeout ("doTrans3()",5000)
End Sub
Sub doTrans3()
call hi4.filters.item(0).Apply()
hi4.style.visibility=""
call hi4.filters.item(0).Play()
action=setTimeout ("doTrans4()",5000)
End Sub
Sub doTrans4()
call hi3.filters.item(0).Apply()
hi3.style.visibility=""
call hi3.filters.item(0).Play()
action=setTimeout ("doTrans5()",3000)
End Sub
Sub doTrans5()
hi1.style.visibility="hidden"
hi2.style.visibility="hidden"
hi3.style.visibility="hidden"
hi4.style.visibility="hidden"
hi.style.visibility="hidden"
call doTrans
End Sub
//-->
</SCRIPT>