home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / HTML / AceHTML / AceHTML4Free.exe / %MAINDIR% / EScripts / jscript / ban4.scr < prev    next >
Encoding:
Text File  |  2001-09-06  |  505 b   |  19 lines
  1. <SCRIPT LANGUAGE="JavaScript">
  2. <!-- begin script
  3. var posBan4=0, ban4, delayBan4, msgBan4;
  4. function banner4(delay) {
  5.   delayBan4 = delay;
  6.   if (posBan4 >= msgBan4.length)
  7.     posBan4 = 0;
  8.   else if (posBan4 == 0) {
  9.     msgBan4 = '        ' + msgBan4;
  10.     while (msgBan4.length < 128)
  11.       msgBan4 += '        ' + msgBan4;
  12.   }
  13.   window.status = msgBan4.substring(posBan4,posBan4+msgBan4.length);
  14.   posBan4++;
  15.   ban4 = setTimeout("banner4(delayBan4)",delay);
  16. }
  17. // end script -->
  18. </SCRIPT>
  19.