//  scrolls.js
//  Written:  2001-08-03 by James Alarie <jalarie@umich.edu>
//    http://spruce.flint.umich.edu/~jalarie/

        Scroll_Posn_Horz=0;
        Scroll_Posn_Vert=0;
        function Scroll_Up() {
          Scroll_posn = "*";
          Scroll_amnt = -5;
          Scroll_time = 0.1*1000;
          TimerID1 = setInterval(Scroll_It, Scroll_time);
          self.opener.focus();
          return true;
        } // Scroll_Up
        function Scroll_Down() {
          Scroll_posn = "*";
          Scroll_amnt = 5;
          Scroll_time = 0.1*1000;
          TimerID1 = setInterval(Scroll_It, Scroll_time);
          self.opener.focus();
          return true;
        } // Scroll_Down
        function Scroll_It() {
          self.opener.window.scrollBy(0, Scroll_amnt);
          if (navigator.appName == "Netscape"
            && self.opener.window.pageYOffset == Scroll_posn) { Scroll_End(); }
          Scroll_posn = self.opener.window.pageYOffset;
          return true;
        } // Scroll_It
        function Scroll_End() {
          clearTimeout(TimerID1);
          Scroll_amnt = 0;
          self.opener.focus();
          return true;
        } // Scroll_End
        function Scroll_Save() {                    // save current position
          if (document.all) {                       // Internet Explorer
            Scroll_Posn_Vert=self.opener.window.document.body.scrollTop;
          } else {
            Scroll_Posn_Vert=self.opener.window.pageYOffset;
          }
          self.opener.focus();
          return true;
        } // Scroll_Save
        function Scroll_Recl(WhereH,WhereV) {       // recall saved position
          if (WhereV == -1) {
            WhereH=0;
            WhereV=Scroll_Posn_Vert;
          }
          if (document.all) {                       // Internet Explorer
            self.opener.window.document.body.scrollTop=WhereV;
          } else {
            self.opener.window.scrollTo(0, WhereV);
          }
          self.opener.focus();
          return true;
        } // Scroll_Recl
        function Scroll_Help() {                    // description of functions
          Msg ='D  scroll Down the page\n';
          Msg+='U  scroll Up the page\n';
          Msg+='S  scroll Stop\n';
          Msg+='C  save Current scroll position\n';
          Msg+='P  goto Previous saved position\n';
          Msg+='T  goto Top of page';
          alert(Msg);
          return true;
        } // Scroll_Help