var msstep
var msmem = 0
var mspos = 0
var loop = true

var visningsheight = 0
var start
var stop
var dalayer
var dalayermama
var hheight

function verScroll(dir, spd, wlayer, wlayermama, loop, starter, stopper, height) {

  var y_pos;
  var page;

  dalayer     = wlayer;
  dalayermama = wlayermama;

  stop  = stopper
  start = starter
  hheight = height

  visningsheight = -stop

  loop        = true;
  direction   = "up";
  speed       = 10;
  scrolltimer = null;

  if (document.layers)
    page = eval(document[dalayermama].document[dalayer]);
  else if (document.getElementById)
    page = eval("document.getElementById(dalayer).style");
  else if (document.all)
    page = eval(document.all[dalayer].style);

  direction = dir;
  speed = parseInt(spd);

  y_pos = parseInt(page.top);

  if (isNaN(y_pos)) {
    y_pos = start;
    first = "yes"
  }

  if (loop) {
    if (direction == "dn" && y_pos > visningsheight)
      page.top = (y_pos - (speed));
    else if (direction == "up" && y_pos < start)
      page.top = (y_pos + (speed));
    else if (direction == "top")
      page.top = start;

    mscroll(stop, direction, speed, hheight);

    scrolltimer = setTimeout("verScroll(direction, speed, dalayer, dalayermama, loop, start, stop, hheight)", 1);
  }
}

function stopScroll() {
  loop = false;
  clearTimeout(scrolltimer);
}


function mscroll(mmstop, mdirection, mspeed, height2){
  var mstop
  var mstart
  var mvisningsheight

  mstop = height2
  mstart = 0

  msstep = mstop / (mmstop / mspeed)

  if (mdirection == 'up') {
    if(mspos > mstart){
      msmem = msmem - msstep
    }
  }

  if(mdirection == 'dn'){
    if(mspos < mstop){
      msmem = msmem + msstep
    }
  }

  mspos = Math.round(msmem)

  var mdalayer = 'scroller';
  var mdalayermama = 'scrollerframe';


  if (document.layers) {
    var mpage = eval(document[mdalayermama].document[dalayer]);
  }
  else {
    if (document.getElementById) {
      var mpage = eval("document.getElementById(mdalayer).style");
    }
    else {
      if (document.all) {
        var mpage = eval(document.all[mdalayer].style);
      }
    }
  }

  mpage.top = mspos;
}