speed=1 // speed of scroll
pause=0 // default pause
pause_steps=0 // user pause increments
dir=0 // 0 = top, 1 = right
auto_reverse=0 // 0 = no, 1 = yes
spacer=35 // space between displays

ani_top=""
ani_right=""
next_top=""
next_right=""
rev=""
running=0
div_num=1


IE=document.all

function init(){ //42
el_cont=document.getElementById("cont_div")
el_one=document.getElementById("div_one")
el_two=document.getElementById("div_two")

el_one.style.height=el_cont.offsetHeight
el_two.style.height=el_cont.offsetHeight
//document.getElementById("pause_time").innerHTML=pause/1000
ani_speed=50
fade_step=100/(parseInt(el_cont.style.width)/speed)

if(dir==0){
data_num=0
el_one.innerHTML=data[data_num]
init_to_top()} // start on load
else{
data_num=data.length-1
el_one.innerHTML=data[data_num]
init_to_right()}

}

function init_to_top(){
if(running==1){return}
running=1

if(dir==1){
data_num+=1
if(div_num==1){el_one.innerHTML=data[data_num]}
if(div_num==2){el_two.innerHTML=data[data_num]}

}

if(data_num>=data.length){data_num=0}

dir=0
move_top()
}

function move_top(){
enable_change=1 // button
clearTimeout(ani_top)

if(div_num==1){el_pos=parseInt(el_one.style.top)}
else{el_pos=parseInt(el_two.style.top)}

el_pos-=speed
ani_top=setTimeout("move_top()",ani_speed)

if(div_num==1){
el_one.style.top=el_pos
el_two.style.top=el_pos-el_cont.offsetWidth-spacer
if(IE){
el_one.filters.alpha.Opacity+=fade_step
el_two.filters.alpha.Opacity-=fade_step}

if(el_pos<0){
enable_change=0
el_one.style.top=0
el_two.style.top=el_cont.offsetWidth+spacer

if(IE){
el_one.filters.alpha.Opacity=100
el_two.filters.alpha.Opacity=0}

data_num++
if(data_num>=data.length){

if(auto_reverse==1&&running==1){
running=0
rev=setTimeout("init_to_right()",500)}
else{data_num=0}

}

el_two.innerHTML=data[data_num]
clearTimeout(ani_top)

if(running==1){next_top=setTimeout("move_top()",pause)}

div_num=2
}

}
else{ // if div_num = 2

el_two.style.top=el_pos
el_one.style.top=el_pos-el_cont.offsetWidth-spacer

if(IE){
el_one.filters.alpha.Opacity-=fade_step
el_two.filters.alpha.Opacity+=fade_step}

if(el_pos<0){
enable_change=0
el_two.style.top=0
el_two.style.zIndex=""
el_one.style.top=el_cont.offsetWidth+spacer

if(IE){
el_two.filters.alpha.Opacity=100
el_one.filters.alpha.Opacity=0}

data_num++

if(data_num>=data.length){

if(auto_reverse==1&&running==1){
running=0
rev=setTimeout("init_to_right()",500)}
else{data_num=0}

}
el_one.innerHTML=data[data_num]
clearTimeout(ani_top)
if(running==1){
next_top=setTimeout("move_top()",pause)}

div_num=1
}

}

}


function init_to_right(){
if(running==1){return}
running=1

if(dir==0){
data_num-=1
/* if moving top and stopped on last image then right dir chosen, data_num has passed data.length and is reset to 0 
additional step back is require to show correct data */
if(data_num== -2){data_num=data.length-2} // additional step back
if(data_num<0){data_num=data.length-1}
if(div_num==1){el_one.innerHTML=data[data_num]}
if(div_num==2){el_two.innerHTML=data[data_num]}

}

dir=1
move_right()
}

function move_right(){
enable_change=1
clearTimeout(ani_right)
if(div_num==1){el_pos=parseInt(el_one.style.top)}
else{el_pos=parseInt(el_two.style.top)}

el_pos+=speed
ani_right=setTimeout("move_right()",ani_speed)

if(div_num==1){
el_one.style.top=el_pos
el_two.style.top=el_pos+el_cont.offsetWidth

if(IE){
el_one.filters.alpha.Opacity+=fade_step
el_two.filters.alpha.Opacity-=fade_step}

if(el_pos>0){
enable_change=0
el_one.style.top=0
el_one.style.zIndex=""
el_two.style.top= -el_cont.offsetWidth

if(IE){
el_one.filters.alpha.Opacity=100
el_two.filters.alpha.Opacity=0}

data_num--
if(data_num<0){

if(auto_reverse==1&&running==1){
running=0
rev=setTimeout("init_to_top()",500)
}
else{data_num=data.length-1}

}
el_two.innerHTML=data[data_num]
clearTimeout(ani_right)
if(running==1){next_right=setTimeout("move_right()",pause)}

div_num=2
}

}
else{
el_two.style.top=el_pos
el_one.style.top=el_pos+el_cont.offsetWidth
if(IE){
el_one.filters.alpha.Opacity-=fade_step
el_two.filters.alpha.Opacity+=fade_step}

if(el_pos>0){
enable_change=0
el_two.style.top=0
el_two.style.zIndex=""
el_one.style.top= -el_cont.offsetWidth

if(IE){
el_two.filters.alpha.Opacity=100
el_one.filters.alpha.Opacity=0}

data_num--
if(data_num<0){
if(auto_reverse==1&&running==1){
running=0
rev=setTimeout("init_to_top()",500)
}
else{data_num=data.length-1}

}
el_one.innerHTML=data[data_num]
clearTimeout(ani_right)
if(running==1){next_right=setTimeout("move_right()",pause)}

div_num=1
}

}

}

function pause_up(){
pause+=pause_steps
//document.getElementById("pause_time").innerHTML=pause/1000
//clearTimeout(rev)
//clearTimeout(next_right)
//clearTimeout(next_top)
//if(dir==0){
//move_top()
//}
//else{
//move_right()
//}
}

function stopit(){
pause+=10000;
}

function runit(){
pause=pause_steps;
}



function pause_down(){
pause-=pause_steps;
if(pause<2000){pause=2000}
//document.getElementById("pause_time").innerHTML=pause/1000
//clearTimeout(rev)
//clearTimeout(next_right)
//clearTimeout(next_top)
//if(dir==0){
//move_top()
//}
//else{
//move_right()
//}

}

function stopme(){
running=0
clearTimeout(rev)
clearTimeout(next_right)
clearTimeout(next_top)
}