home *** CD-ROM | disk | FTP | other *** search
Attribute VB_Name = "SourceCode" Option Explicit Option Compare Text Option Base 1 Option Private Module Public Function DetectEntry(Text As String) As String If Not InStr(Text, ":") = 0 Then DetectEntry = Left$(Mid$(Text, InStrRev(Text, "/") + 1, Len(Text) - InStrRev(Text, "/")), InStrRev(Mid$(Text, InStrRev(Text, "/") + 1, Len(Text) - InStrRev(Text, "/")), ".") - 1) Mode = False Else DetectEntry = Left$(Text, InStrRev(Text, ".") - 1) Mode = True End If End Function Public Function ApplicationRunning() As Boolean ApplicationRunning = Not (App.PrevInstance = False) End Function Public Function FormMousePointer(FormName As Form, MousePointerNumber As Long) As Long FormMousePointer = MousePointerNumber End Function Public Function FormMouse(FormName As Form, Number As Long) As Long With FormName .Label1.MousePointer = FormMousePointer(FormName, Number) .Label2.MousePointer = FormMousePointer(FormName, Number) .Label3.MousePointer = FormMousePointer(FormName, Number) .Label4.MousePointer = FormMousePointer(FormName, Number) .lblDisplay.MousePointer = FormMousePointer(FormName, Number) .picProgress.MousePointer = FormMousePointer(FormName, Number) .cmbOptions.MousePointer = FormMousePointer(FormName, Number) .cmdClear.MousePointer = FormMousePointer(FormName, Number) .cmdCopy.MousePointer = FormMousePointer(FormName, Number) .cmdCreate.MousePointer = FormMousePointer(FormName, Number) .cmdTextGen.MousePointer = FormMousePointer(FormName, Number) .Frame1.MousePointer = FormMousePointer(FormName, Number) .Frame2.MousePointer = FormMousePointer(FormName, Number) .Frame3.MousePointer = FormMousePointer(FormName, Number) .txtInt.MousePointer = FormMousePointer(FormName, Number) .txtMes.MousePointer = FormMousePointer(FormName, Number) .txtOutput.MousePointer = FormMousePointer(FormName, Number) .VS.MousePointer = FormMousePointer(FormName, Number) For X = 0 To 3 .txtMen(X).MousePointer = FormMousePointer(FormName, Number) Next X FormMouse = FormMousePointer(FormName, Number) End With End Function Public Function CreateDocument(ByVal Index As Integer, Optional ByVal Text As String = vbNullString, Optional ByVal Interval As String = 10, Optional ByVal Title As String = vbNullString) As String CreateDocument = "<?xml version=" & """" & "1.0" & """" & " encoding=" & """" & "iso-8859-1" & """" & "?>" & vbNewLine CreateDocument = CreateDocument & "<%@LANGUAGE=" & """" & "JAVASCRIPT" & """" & " CODEPAGE=" & """" & "1252" & """" & "%>" & vbNewLine CreateDocument = CreateDocument & "<html>" & vbNewLine CreateDocument = CreateDocument & "</head" & vbNewLine CreateDocument = CreateDocument & "<META NAME=" & """" & "Author" & """" & " GILBERT O. ABELLAR" & """" & ">" & vbNewLine CreateDocument = CreateDocument & "<meta http-equiv=" & """" & "pragma" & """" & " content=" & """" & "no-cache" & """" & ">" & vbNewLine CreateDocument = CreateDocument & "<title>" & Title & "®</title>" & vbNewLine CreateDocument = CreateDocument & "<meta http-equiv=" & """" & "Content-Type" & """" & " content=" & """" & "text/html; charset=iso-8859-1" & """" & ">" & vbNewLine CreateDocument = CreateDocument & "</head>" & vbNewLine Print #1, CreateDocument Print #1, TextEffects(Index, Text, Interval) If Index >= 0 And Index <= 7 Then Print #1, "</head>" Print #1, vbNullString Print #1, "<body>" Print #1, vbNullString Print #1, "<a href=" & """" & "javascript:void(window.close())" & """" & ">Click here to close this window.</a>" Print #1, "</body>" Print #1, "</html>" ElseIf Index = 10 Or Index = 11 Or Index = 12 Or Index = 16 Or Index = 17 Or Index = 18 Then Print #1, vbNullString Print #1, "<a href=" & """" & "javascript:void(window.close())" & """" & ">Click here to close this window.</a>" Print #1, "</body>" Print #1, "</html>" Else Print #1, "</html>" End If End Function Public Function TextEffects(ByVal Index As Integer, Optional ByVal Text As String = vbNullString, Optional ByVal Interval As Integer = 10) As String Select Case Index Case 0 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "var ip=" & """" & Text & """" & ";" & vbNewLine TextEffects = TextEffects & "var op= " & """" & """" & ";" & vbNewLine TextEffects = TextEffects & "var cur=0;" & vbNewLine TextEffects = TextEffects & "function sstatus(){" & vbNewLine TextEffects = TextEffects & "op = ip.substring(cur,ip.length) + ip.substring(0,cur);" & vbNewLine TextEffects = TextEffects & "window.status = op;" & vbNewLine TextEffects = TextEffects & "cur++;" & vbNewLine TextEffects = TextEffects & "if(cur>ip.length)" & vbNewLine TextEffects = TextEffects & "cur=0;" & vbNewLine TextEffects = TextEffects & "setTimeout('sstatus();'" & "," & Interval & ");" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "sstatus();" & vbNewLine TextEffects = TextEffects & "</script>" & vbNewLine Case 1 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "var ip=" & """" & Text & """" & ";" & vbNewLine TextEffects = TextEffects & "var op= " & """" & """" & ";" & vbNewLine TextEffects = TextEffects & "var cur=0;" & vbNewLine TextEffects = TextEffects & "function sstatus(){" & vbNewLine TextEffects = TextEffects & "op = ip.substring(cur,ip.length) + ip.substring(0,cur);" & vbNewLine TextEffects = TextEffects & "window.status = op;" & vbNewLine TextEffects = TextEffects & "cur--;" & vbNewLine TextEffects = TextEffects & "if(cur<0)" & vbNewLine TextEffects = TextEffects & "cur=ip.length;" & vbNewLine TextEffects = TextEffects & "setTimeout('sstatus();'" & "," & Interval & ");" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "sstatus();" & vbNewLine TextEffects = TextEffects & "</script>" & vbNewLine Case 2 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "var ip=" & """" & Text & """" & ";" & vbNewLine TextEffects = TextEffects & "var op= " & """" & """" & ";" & vbNewLine TextEffects = TextEffects & "var cur=0;" & vbNewLine TextEffects = TextEffects & "function sstatus(){" & vbNewLine TextEffects = TextEffects & "op = ip.substring(0,cur);" & vbNewLine TextEffects = TextEffects & "window.status = op;" & vbNewLine TextEffects = TextEffects & "cur++;" & vbNewLine TextEffects = TextEffects & "if(cur>ip.length)" & vbNewLine TextEffects = TextEffects & "cur=0;" & vbNewLine TextEffects = TextEffects & "setTimeout('sstatus();'" & "," & Interval & ");" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "sstatus();" & vbNewLine TextEffects = TextEffects & "</script>" & vbNewLine Case 3 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "var ip=" & """" & Text & """" & ";" & vbNewLine TextEffects = TextEffects & "var op= " & """" & """" & ";" & vbNewLine TextEffects = TextEffects & "var cur=0;" & vbNewLine TextEffects = TextEffects & "var space=10;" & vbNewLine TextEffects = TextEffects & "var sp=" & """" & " " & """" & ";" & vbNewLine TextEffects = TextEffects & "function sstatus(){" & vbNewLine TextEffects = TextEffects & "op = ip.substring(0,cur) + sp.substring(0,space) + " & vbNewLine TextEffects = TextEffects & "ip.substring(cur,cur+1);" & vbNewLine TextEffects = TextEffects & "window.status = op;" & vbNewLine TextEffects = TextEffects & "space--;" & vbNewLine TextEffects = TextEffects & "if (space<-1){" & vbNewLine TextEffects = TextEffects & "space=10;" & vbNewLine TextEffects = TextEffects & "cur++;" & vbNewLine TextEffects = TextEffects & "if(cur>ip.length)" & vbNewLine TextEffects = TextEffects & "cur=0;" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "setTimeout('sstatus();'" & "," & Interval & ");" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "sstatus();" & vbNewLine TextEffects = TextEffects & "</script>" & vbNewLine Case 4 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "var ip=" & """" & Text & """" & ";" & vbNewLine TextEffects = TextEffects & "var op= " & """" & """" & ";" & vbNewLine TextEffects = TextEffects & "var cur=0;" & vbNewLine TextEffects = TextEffects & "var space=10;" & vbNewLine TextEffects = TextEffects & "var sp=" & """" & " " & """" & ";" & vbNewLine TextEffects = TextEffects & "function sstatus(){" & vbNewLine TextEffects = TextEffects & "op =" & """" & """" & ";" & vbNewLine TextEffects = TextEffects & "for(var v=0;v<ip.length;v++)" & vbNewLine TextEffects = TextEffects & "op = op + ip.substring(v,v+1) + sp.substring(0,cur);" & vbNewLine TextEffects = TextEffects & "window.status = op;" & vbNewLine TextEffects = TextEffects & "cur--;" & vbNewLine TextEffects = TextEffects & "if(cur<-10)" & vbNewLine TextEffects = TextEffects & "cur=20;" & vbNewLine TextEffects = TextEffects & "setTimeout('sstatus();'" & "," & Interval & ");" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "sstatus();" & vbNewLine TextEffects = TextEffects & "</script>" & vbNewLine Case 5 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "var osd = " & """" & " " & """" & vbNewLine TextEffects = TextEffects & "osd +=" & """" & Text & """" & ";" & vbNewLine TextEffects = TextEffects & "osd +=" & """" & " " & """" & ";" & vbNewLine TextEffects = TextEffects & "var timer;" & vbNewLine TextEffects = TextEffects & "var msg = """";" & vbNewLine TextEffects = TextEffects & "function scrollMaster () {" & vbNewLine TextEffects = TextEffects & "msg = customDateSpring(new Date())" & vbNewLine TextEffects = TextEffects & "clearTimeout(timer)" & vbNewLine TextEffects = TextEffects & "msg += "" "" + showtime() + "" "" + osd" & vbNewLine TextEffects = TextEffects & "for (var i= 0; i < 100; i++){" & vbNewLine TextEffects = TextEffects & "msg = "" "" + msg;" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "scrollMe()" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "function scrollMe(){" & vbNewLine TextEffects = TextEffects & "window.status = msg;" & vbNewLine TextEffects = TextEffects & "msg = msg.substring(1, msg.length) + msg.substring(0,1);" & vbNewLine TextEffects = TextEffects & "timer = setTimeout(""scrollMe()"", " & Interval & ");" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "function showtime (){" & vbNewLine TextEffects = TextEffects & "var now = new Date();" & vbNewLine TextEffects = TextEffects & "var hours= now.getHours();" & vbNewLine TextEffects = TextEffects & "var minutes= now.getMinutes();" & vbNewLine TextEffects = TextEffects & "var seconds= now.getSeconds();" & vbNewLine TextEffects = TextEffects & "var months= now.getMonth();" & vbNewLine TextEffects = TextEffects & "var dates= now.getDate();" & vbNewLine TextEffects = TextEffects & "var years= now.getYear();" & vbNewLine TextEffects = TextEffects & "var timeValue = """"" & vbNewLine TextEffects = TextEffects & "timeValue += ((months >9) ? """" : "" "")" & vbNewLine TextEffects = TextEffects & "timeValue += ((dates >9) ? """" : "" "")" & vbNewLine TextEffects = TextEffects & "timeValue = ( months +1)" & vbNewLine TextEffects = TextEffects & "timeValue +=""/""+ dates" & vbNewLine TextEffects = TextEffects & "timeValue +=""/""+ years" & vbNewLine TextEffects = TextEffects & "var ap = ""A.M.""" & vbNewLine TextEffects = TextEffects & "if (hours == 12) {" & vbNewLine TextEffects = TextEffects & "ap=""P.M.""" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "if (hours == 0) {" & vbNewLine TextEffects = TextEffects & "hours = 12" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "if(hours >= 13){" & vbNewLine TextEffects = TextEffects & "hours -= 12;" & vbNewLine TextEffects = TextEffects & "ap = ""P.M.""" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "var timeValue2 = "" "" + hours" & vbNewLine TextEffects = TextEffects & "timeValue2 += ((minutes < 10) ? "":0"":"":"") + minutes + "" "" + ap" & vbNewLine TextEffects = TextEffects & "return timeValue2;" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "function MakeArray(n) {" & vbNewLine TextEffects = TextEffects & "this.length = n" & vbNewLine TextEffects = TextEffects & "return this" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "monthNames = new MakeArray(12)" & vbNewLine TextEffects = TextEffects & "monthNames[1] = ""Janurary""" & vbNewLine TextEffects = TextEffects & "monthNames[2] = ""February""" & vbNewLine TextEffects = TextEffects & "monthNames[3] = ""March""" & vbNewLine TextEffects = TextEffects & "monthNames[4] = ""April""" & vbNewLine TextEffects = TextEffects & "monthNames[5] = ""May""" & vbNewLine TextEffects = TextEffects & "monthNames[6] = ""June""" & vbNewLine TextEffects = TextEffects & "monthNames[7] = ""July""" & vbNewLine TextEffects = TextEffects & "monthNames[8] = ""August""" & vbNewLine TextEffects = TextEffects & "monthNames[9] = ""Sept.""" & vbNewLine TextEffects = TextEffects & "monthNames[10] = ""Oct.""" & vbNewLine TextEffects = TextEffects & "monthNames[11] = ""Nov.""" & vbNewLine TextEffects = TextEffects & "monthNames[12] = ""Dec.""" & vbNewLine TextEffects = TextEffects & "daysNames = new MakeArray(7)" & vbNewLine TextEffects = TextEffects & "daysNames[1] = ""Sunday""" & vbNewLine TextEffects = TextEffects & "daysNames[2] = ""Monday""" & vbNewLine TextEffects = TextEffects & "daysNames[3] = ""Tuesday""" & vbNewLine TextEffects = TextEffects & "daysNames[4] = ""Wednesday""" & vbNewLine TextEffects = TextEffects & "daysNames[5] = ""Thursday""" & vbNewLine TextEffects = TextEffects & "daysNames[6] = ""Friday""" & vbNewLine TextEffects = TextEffects & "daysNames[7] = ""Saturday""" & vbNewLine TextEffects = TextEffects & "function customDateSpring(oneDate) {" & vbNewLine TextEffects = TextEffects & "var theDay = daysNames[oneDate.getDay() +1]" & vbNewLine TextEffects = TextEffects & "var theDate =oneDate.getDate()" & vbNewLine TextEffects = TextEffects & "var theMonth = monthNames[oneDate.getMonth() +1]" & vbNewLine TextEffects = TextEffects & "var dayth=""th""" & vbNewLine TextEffects = TextEffects & "if ((theDate == 1) || (theDate == 21) || (theDate == 31)) {" & vbNewLine TextEffects = TextEffects & "dayth=""st"";" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "if ((theDate == 2) || (theDate ==22)) {" & vbNewLine TextEffects = TextEffects & "dayth=""nd"";" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "if ((theDate== 3) || (theDate == 23)) {" & vbNewLine TextEffects = TextEffects & "dayth=""rd"";" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "return theDay + "", "" + theMonth + "" "" + theDate + dayth + "",""" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "scrollMaster();" & vbNewLine TextEffects = TextEffects & "</SCRIPT>" & vbNewLine Case 6 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "dCol='000000';" & vbNewLine TextEffects = TextEffects & "fCol='000000';" & vbNewLine TextEffects = TextEffects & "sCol='000000';" & vbNewLine TextEffects = TextEffects & "mCol='000000';" & vbNewLine TextEffects = TextEffects & "hCol='000000';" & vbNewLine TextEffects = TextEffects & "ClockHeight=40;" & vbNewLine TextEffects = TextEffects & "ClockWidth=40;" & vbNewLine TextEffects = TextEffects & "ClockFromMouseY=0;" & vbNewLine TextEffects = TextEffects & "ClockFromMouseX=100;" & vbNewLine TextEffects = TextEffects & "d=new" & vbNewLine TextEffects = TextEffects & "Array(" & """" & "SUNDAY" & """" & "," & """" & "MONDAY" & """" & "," & """" & "TUESDAY" & """" & "," & """" & "WEDNESDAY" & """" & "," & """" & "THURSDAY" & """" & "," & """" & "FRIDAY" & """" & "," & """" & "SATURDAY" & """" & ");" & vbNewLine TextEffects = TextEffects & "m=new" & vbNewLine TextEffects = TextEffects & "Array(" & """" & "JANUARY" & """" & "," & """" & "FEBRUARY" & """" & "," & """" & "MARCH" & """" & "," & """" & "APRIL" & """" & "," & """" & "MAY" & """" & "," & """" & "JUNE" & """" & "," & """" & "JULY" & """" & "," & """" & "AUGUST" & """" & "," & """" & "SEPTEMBER" & """" & "," & """" & "OCTOBER" & """" & "," & """" & "NOVEMBER" & """" & "," & """" & "DECEMBER" & """" & ");" & vbNewLine TextEffects = TextEffects & "date=new Date();" & vbNewLine TextEffects = TextEffects & "day=date.getDate();" & vbNewLine TextEffects = TextEffects & "year=date.getYear();" & vbNewLine TextEffects = TextEffects & "if (year < 2000) year = year+1900;" & vbNewLine TextEffects = TextEffects & "TodaysDate=" & """" & " " & """" & "+d[date.getDay()]+" & """" & " " & """" & "+day+" & """" & " " & """" & "+m[date.getMonth()]+" & """" & " " & """" & "+year;" & vbNewLine TextEffects = TextEffects & "D=TodaysDate.split('');" & vbNewLine TextEffects = TextEffects & "H='...';" & vbNewLine TextEffects = TextEffects & "H=H.split('');" & vbNewLine TextEffects = TextEffects & "M='....';" & vbNewLine TextEffects = TextEffects & "M=M.split('');" & vbNewLine TextEffects = TextEffects & "S='.....';" & vbNewLine TextEffects = TextEffects & "S=S.split('');" & vbNewLine TextEffects = TextEffects & "Face='1 2 3 4 5 6 7 8 9 10 11 12';" & vbNewLine TextEffects = TextEffects & "font='Arial';" & vbNewLine TextEffects = TextEffects & "size=1;" & vbNewLine TextEffects = TextEffects & "speed=0.6;" & vbNewLine TextEffects = TextEffects & "ns=(document.layers);" & vbNewLine TextEffects = TextEffects & "ie=(document.all);" & vbNewLine TextEffects = TextEffects & "Face=Face.split(' ');" & vbNewLine TextEffects = TextEffects & "n=Face.length;" & vbNewLine TextEffects = TextEffects & "a=size*10;" & vbNewLine TextEffects = TextEffects & "ymouse=0;" & vbNewLine TextEffects = TextEffects & "xmouse=0;" & vbNewLine TextEffects = TextEffects & "scrll=0;" & vbNewLine TextEffects = TextEffects & "props=" & """" & "<font face=" & """" & "+font+" & """" & " size=" & """" & "+size+" & """" & " color=" & """" & "+fCol+" & """" & "><B>" & """" & ";" & vbNewLine TextEffects = TextEffects & "props2=" & """" & "<font face=" & """" & "+font+" & """" & " size=" & """" & "+size+" & """" & " color=" & """" & "+dCol+" & """" & "><B>" & """" & ";" & vbNewLine TextEffects = TextEffects & "Split=360/n;" & vbNewLine TextEffects = TextEffects & "Dsplit=360/D.length;" & vbNewLine TextEffects = TextEffects & "HandHeight = ClockHeight / 4.5" & vbNewLine TextEffects = TextEffects & "HandWidth = ClockWidth / 4.5" & vbNewLine TextEffects = TextEffects & "HandY=-7;" & vbNewLine TextEffects = TextEffects & "HandX=-2.5;" & vbNewLine TextEffects = TextEffects & "scrll=0;" & vbNewLine TextEffects = TextEffects & "step=0.06;" & vbNewLine TextEffects = TextEffects & "currStep=0;" & vbNewLine TextEffects = TextEffects & "y=new Array();x=new Array();Y=new Array();X=new Array();" & vbNewLine TextEffects = TextEffects & "for (i=0; i < n; i++){y[i]=0;x[i]=0;Y[i]=0;X[i]=0}" & vbNewLine TextEffects = TextEffects & "Dy=new Array();Dx=new Array();DY=new Array();DX=new Array();" & vbNewLine TextEffects = TextEffects & "for (i=0; i < D.length; i++){Dy[i]=0;Dx[i]=0;DY[i]=0;DX[i]=0;}" & vbNewLine TextEffects = TextEffects & "if (ns){" & vbNewLine TextEffects = TextEffects & "for (i=0; i < D.length; i++)" & vbNewLine TextEffects = TextEffects & "document.write('<layer name=" & """" & "nsDate'+i+'" & """" & " top=0 left=0 height='+a+' width='+a+'><center>'+props2+D[i]+'</font></center></layer>');" & vbNewLine TextEffects = TextEffects & "for (i=0; i < n; i++)" & vbNewLine TextEffects = TextEffects & "document.write('<layer name=" & """" & "nsFace'+i+'" & """" & " top=0 left=0 height='+a+' width='+a+'><center>'+props+Face[i]+'</font></center></layer>');" & vbNewLine TextEffects = TextEffects & "for (i=0; i < S.length; i++)" & vbNewLine TextEffects = TextEffects & "document.write('<layer name=nsSeconds'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+sCol+'><center><b>'+S[i]+'</b></center></font></layer>');" & vbNewLine TextEffects = TextEffects & "for (i=0; i < M.length; i++)" & vbNewLine TextEffects = TextEffects & "document.write('<layer name=nsMinutes'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+mCol+'><center><b>'+M[i]+'</b></center></font></layer>');" & vbNewLine TextEffects = TextEffects & "for (i=0; i < H.length; i++)" & vbNewLine TextEffects = TextEffects & "document.write('<layer name=nsHours'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+hCol+'><center><b>'+H[i]+'</b></center></font></layer>');" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "if (ie){" & vbNewLine TextEffects = TextEffects & "document.write('<div id=" & """" & "Od" & """" & " style=" & """" & "position:absolute;top:0px;left:0px" & """" & "><div style=" & """" & "position:relative" & """" & ">');" & vbNewLine TextEffects = TextEffects & "for (i=0; i < D.length; i++)" & vbNewLine TextEffects = TextEffects & "document.write('<div id=" & """" & "ieDate" & """" & " style=" & """" & "position:absolute;top:0px;left:0;height:'+a+';width:'+a+';text-align:center" & """" & ">'+props2+D[i]+'</B></font></div>');" & vbNewLine TextEffects = TextEffects & "document.write('</div></div>');" & vbNewLine TextEffects = TextEffects & "document.write('<div id=" & """" & "Of" & """" & " style=" & """" & "position:absolute;top:0px;left:0px" & """" & "><div style=" & """" & "position:relative" & """" & ">');" & vbNewLine TextEffects = TextEffects & "for (i=0; i < n; i++)" & vbNewLine TextEffects = TextEffects & "document.write('<div id=" & """" & "ieFace" & """" & " style=" & """" & "position:absolute;top:0px;left:0;height:'+a+';width:'+a+';text-align:center" & """" & ">'+props+Face[i]+'</B></font></div>');" & vbNewLine TextEffects = TextEffects & "document.write('</div></div>');" & vbNewLine TextEffects = TextEffects & "document.write('<div id=" & """" & "Oh" & """" & " style=" & """" & "position:absolute;top:0px;left:0px" & """" & "><div style=" & """" & "position:relative" & """" & ">');" & vbNewLine TextEffects = TextEffects & "for (i=0; i < H.length; i++)" & vbNewLine TextEffects = TextEffects & "document.write('<div id=" & """" & "ieHours" & """" & " style=" & """" & "position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+hCol+';text-align:center;font-weight:bold" & """" & ">'+H[i]+'</div>');" & vbNewLine TextEffects = TextEffects & "document.write('</div></div>');" & vbNewLine TextEffects = TextEffects & "document.write('<div id=" & """" & "Om" & """" & " style=" & """" & "position:absolute;top:0px;left:0px" & """" & "><div style=" & """" & "position:relative" & """" & ">');" & vbNewLine TextEffects = TextEffects & "for (i=0; i < M.length; i++)" & vbNewLine TextEffects = TextEffects & "document.write('<div id=" & """" & "ieMinutes" & """" & " style=" & """" & "position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+mCol+';text-align:center;font-weight:bold" & """" & ">'+M[i]+'</div>');" & vbNewLine TextEffects = TextEffects & "document.write('</div></div>')" & vbNewLine TextEffects = TextEffects & "document.write('<div id=" & """" & "Os" & """" & " style=" & """" & "position:absolute;top:0px;left:0px" & """" & "><div style=" & """" & "position:relative" & """" & ">');" & vbNewLine TextEffects = TextEffects & "for (i=0; i < S.length; i++)" & vbNewLine TextEffects = TextEffects & "document.write('<div id=" & """" & "ieSeconds" & """" & " style=" & """" & "position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+sCol+';text-align:center;font-weight:bold" & """" & ">'+S[i]+'</div>');" & vbNewLine TextEffects = TextEffects & "document.write('</div></div>')" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "(ns)?window.captureEvents(Event.MOUSEMOVE):0;" & vbNewLine TextEffects = TextEffects & "function Mouse(evnt){" & vbNewLine TextEffects = TextEffects & "ymouse = (ns)?evnt.pageY+ClockFromMouseY-(window.pageYOffset):event.y+ClockFromMouseY;" & vbNewLine TextEffects = TextEffects & "xmouse = (ns)?evnt.pageX+ClockFromMouseX:event.x+ClockFromMouseX;" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "(ns)?window.onMouseMove=Mouse:document.onmousemove=Mouse;" & vbNewLine TextEffects = TextEffects & "function ClockAndAssign(){" & vbNewLine TextEffects = TextEffects & "time = new Date ();" & vbNewLine TextEffects = TextEffects & "secs = time.getSeconds();" & vbNewLine TextEffects = TextEffects & "sec = -1.57 + Math.PI * secs/30;" & vbNewLine TextEffects = TextEffects & "mins = time.getMinutes();" & vbNewLine TextEffects = TextEffects & "min = -1.57 + Math.PI * mins/30;" & vbNewLine TextEffects = TextEffects & "hr = time.getHours();" & vbNewLine TextEffects = TextEffects & "hrs = -1.575 + Math.PI * hr/6+Math.PI*parseInt(time.getMinutes())/360;" & vbNewLine TextEffects = TextEffects & "if (ie){" & vbNewLine TextEffects = TextEffects & "Od.style.top=window.document.body.scrollTop;" & vbNewLine TextEffects = TextEffects & "Of.style.top=window.document.body.scrollTop;" & vbNewLine TextEffects = TextEffects & "Oh.style.top=window.document.body.scrollTop;" & vbNewLine TextEffects = TextEffects & "Om.style.top=window.document.body.scrollTop;" & vbNewLine TextEffects = TextEffects & "Os.style.top=window.document.body.scrollTop;" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "for (i=0; i < n; i++){" & vbNewLine TextEffects = TextEffects & "var F=(ns)?document.layers['nsFace'+i]:ieFace[i].style;" & vbNewLine TextEffects = TextEffects & "F.top=y[i] + ClockHeight*Math.sin(-1.0471 + i*Split*Math.PI/180)+scrll;" & vbNewLine TextEffects = TextEffects & "F.left=x[i] + ClockWidth*Math.cos(-1.0471 + i*Split*Math.PI/180);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "for (i=0; i < H.length; i++){" & vbNewLine TextEffects = TextEffects & "var HL=(ns)?document.layers['nsHours'+i]:ieHours[i].style;" & vbNewLine TextEffects = TextEffects & "HL.top=y[i]+HandY+(i*HandHeight)*Math.sin(hrs)+scrll;" & vbNewLine TextEffects = TextEffects & "HL.left=x[i]+HandX+(i*HandWidth)*Math.cos(hrs);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "for (i=0; i < M.length; i++){" & vbNewLine TextEffects = TextEffects & "var ML=(ns)?document.layers['nsMinutes'+i]:ieMinutes[i].style;" & vbNewLine TextEffects = TextEffects & "ML.top=y[i]+HandY+(i*HandHeight)*Math.sin(min)+scrll;" & vbNewLine TextEffects = TextEffects & "ML.left=x[i]+HandX+(i*HandWidth)*Math.cos(min);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "for (i=0; i < S.length; i++){" & vbNewLine TextEffects = TextEffects & "var SL=(ns)?document.layers['nsSeconds'+i]:ieSeconds[i].style;" & vbNewLine TextEffects = TextEffects & "SL.top=y[i]+HandY+(i*HandHeight)*Math.sin(sec)+scrll;" & vbNewLine TextEffects = TextEffects & "SL.left=x[i]+HandX+(i*HandWidth)*Math.cos(sec);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "for (i=0; i < D.length; i++){" & vbNewLine TextEffects = TextEffects & "var DL=(ns)?document.layers['nsDate'+i]:ieDate[i].style;" & vbNewLine TextEffects = TextEffects & "DL.top=Dy[i] + ClockHeight*1.5*Math.sin(currStep+i*Dsplit*Math.PI/180)+scrll;" & vbNewLine TextEffects = TextEffects & "DL.left=Dx[i] + ClockWidth*1.5*Math.cos(currStep+i*Dsplit*Math.PI/180);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "currStep-=step;" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "function Delay(){" & vbNewLine TextEffects = TextEffects & "scrll=(ns)?window.pageYOffset:0;" & vbNewLine TextEffects = TextEffects & "Dy[0]=Math.round(DY[0]+=((ymouse)-DY[0])*speed);" & vbNewLine TextEffects = TextEffects & "Dx[0]=Math.round(DX[0]+=((xmouse)-DX[0])*speed);" & vbNewLine TextEffects = TextEffects & "for (i=1; i < D.length; i++){" & vbNewLine TextEffects = TextEffects & "Dy[i]=Math.round(DY[i]+=(Dy[i-1]-DY[i])*speed);" & vbNewLine TextEffects = TextEffects & "Dx[i]=Math.round(DX[i]+=(Dx[i-1]-DX[i])*speed);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "y[0]=Math.round(Y[0]+=((ymouse)-Y[0])*speed);" & vbNewLine TextEffects = TextEffects & "x[0]=Math.round(X[0]+=((xmouse)-X[0])*speed);" & vbNewLine TextEffects = TextEffects & "for (i=1; i < n; i++){" & vbNewLine TextEffects = TextEffects & "y[i]=Math.round(Y[i]+=(y[i-1]-Y[i])*speed);" & vbNewLine TextEffects = TextEffects & "x[i]=Math.round(X[i]+=(x[i-1]-X[i])*speed);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "ClockAndAssign();" & vbNewLine TextEffects = TextEffects & "setTimeout('Delay()'," & frmJava.txtInt & ");" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "if (ns||ie)window.onload=Delay;" & vbNewLine TextEffects = TextEffects & "</script>" & vbNewLine Case 7 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "var message=" & """" & """" & ";" & vbNewLine TextEffects = TextEffects & "function clickIE() {if (document.all) {(message);return false;}}" & vbNewLine TextEffects = TextEffects & "function clickNS(e) {if " & vbNewLine TextEffects = TextEffects & "(document.layers||(document.getElementById&&!document.all)) {" & vbNewLine TextEffects = TextEffects & "if (e.which==2||e.which==3) {(message);return false;}}}" & vbNewLine TextEffects = TextEffects & "if (document.layers)" & vbNewLine TextEffects = TextEffects & "{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}" & vbNewLine TextEffects = TextEffects & "else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}" & vbNewLine TextEffects = TextEffects & "document.oncontextmenu=new Function(" & """" & "return false" & """" & ")" & vbNewLine TextEffects = TextEffects & "</script>" & vbNewLine Case 8 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "function shake() {" & vbNewLine TextEffects = TextEffects & "if (parent.moveBy) {" & vbNewLine TextEffects = TextEffects & "for (i = " & Interval & "; i > 0; i--) {" & vbNewLine TextEffects = TextEffects & "for (j = 2; j > 0; j--) {" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "</script>" & vbNewLine TextEffects = TextEffects & "</HEAD>" & vbNewLine & vbNewLine TextEffects = TextEffects & "<body>" & vbNewLine TextEffects = TextEffects & "<div align=" & """" & "center" & """" & ">" & vbNewLine TextEffects = TextEffects & "<input type=button onClick=" & """" & "shake()" & """" & " value=" & """" & "Shake Me!" & """" & ">" & vbNewLine TextEffects = TextEffects & "</div>" & vbNewLine & vbNewLine TextEffects = TextEffects & "</body>" & vbNewLine Case 9 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "function shake() {" & vbNewLine TextEffects = TextEffects & "if (parent.moveBy) {" & vbNewLine TextEffects = TextEffects & "for (i = " & Interval & "; i > 0; i--) {" & vbNewLine TextEffects = TextEffects & "for (j = 2; j > 0; j--) {" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "</script>" & vbNewLine TextEffects = TextEffects & "</HEAD>" & vbNewLine & vbNewLine TextEffects = TextEffects & "<body>" & vbNewLine TextEffects = TextEffects & "<div align=" & """" & "center" & """" & ">" & vbNewLine TextEffects = TextEffects & "<input type=button onClick=" & """" & "shake()" & """" & " value=" & """" & "Shake Screen" & """" & ">" & vbNewLine TextEffects = TextEffects & "</div>" & vbNewLine & vbNewLine TextEffects = TextEffects & "</body>" & vbNewLine Case 10 TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine TextEffects = TextEffects & "function checkVersion4() {" & vbNewLine TextEffects = TextEffects & "var x = navigator.appVersion;" & vbNewLine TextEffects = TextEffects & "y = x.substring(0,4);" & vbNewLine TextEffects = TextEffects & "if (y>=4) setVariables();moveOB();" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "function setVariables() {" & vbNewLine TextEffects = TextEffects & "if (navigator.appName == " & """" & "Netscape" & """" & ") {" & vbNewLine TextEffects = TextEffects & "h=" & """" & ".left=" & """" & ";v=" & """" & ".top=" & """" & ";dS=" & """" & "document." & """" & ";sD=" & """" & """" & ";" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "else{" & vbNewLine TextEffects = TextEffects & "h=" & """" & ".pixelLeft=" & """" & ";v=" & """" & ".pixelTop=" & """" & ";dS=" & """" & """" & ";sD=" & """" & ".style" & """" & ";" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "objectX = " & """" & "object11" & """" & vbNewLine TextEffects = TextEffects & "XX=-70;" & vbNewLine TextEffects = TextEffects & "YY=-70;" & vbNewLine TextEffects = TextEffects & "OB=11;" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "function setObject(a) {" & vbNewLine TextEffects = TextEffects & "objectX=" & """" & "object" & """" & "+a;" & vbNewLine TextEffects = TextEffects & "OB=a;" & vbNewLine TextEffects = TextEffects & "XX=eval(" & """" & "xpos" & """" & "+a);" & vbNewLine TextEffects = TextEffects & "YY=eval(" & """" & "ypos" & """" & "+a);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "function getObject() {" & vbNewLine TextEffects = TextEffects & "if (isNav) document.captureEvents(Event.MOUSEMOVE);" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "function releaseObject() {" & vbNewLine TextEffects = TextEffects & "if (isNav) document.releaseEvents(Event.MOUSEMOVE);" & vbNewLine TextEffects = TextEffects & "check=" & """" & "no" & """" & ";" & vbNewLine TextEffects = TextEffects & "objectX=" & """" & "object11" & """" & ";" & vbNewLine TextEffects = TextEffects & "document.close();" & vbNewLine TextEffects = TextEffects & "}" & vbNewLine TextEffects = TextEffects & "function moveOB() {" & vbNewLine TextEffects = TextEffects & "eval(dS + cts = Tei6" & "fecG extEffects =ffects &fs & "paectD:event.y+ClockFromMouseY;" & n """extEffects & "ees =ffects &fs & "paectD:event.y+ClockFromMouseY;" & n """gextEffects =ffp n "for & "paectD:event.y+ClockFromMouseY;" & n """gextEffects =ffpu i=,n;" plor & "paectD:event.y+ClockFromMouseY;" & n """gextEffects =ffpMouseYnr nt.y+ClockFrMouseY;"eoo & n """gextEfu3e(Iv ekFrM/ects =ffpMouseYnr nt.y+ClockFrMouseY;"eoo & n """gextEfu3e(Iv ekFrM/ects =ffpMouseYnr nt.y+ClockFrMouseY;"eoo & n """gextEfu3e(Iv ekFrM/ects =ffpMouseYnr nt.y+ClockFrMouseY;wLii;d = TextEffects & "parent.moveBy(0,-i);" & vbNewLine ekFrM/ects =3t'ockFrMouseY;"eoo & n """gextEfu3e(Iv ekFrM/ects =ffpMouseYnr nt.y+ClockFrMho<6c& "useYnr nt.y+ClockFrMouseY;"eoo & n """gextEfu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n "thi-/Efu3e(Iv e n +Iv potEffects = TexAp,-i);" & vbNewLine ene TextEffects = TextEfeOMb vb, 7uSScts & "}" & ewLine Text Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext ABfu3e Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Eu3e(TarephEffAects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i)ects = Efu3e(Iext ABfu3e Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Efus3e(Iext Efu3e(Iext Efu3e(Iext Efus3e(Iext Efu3ePei Efu3e(Iext Efu3e(Iext Eu3e(TarephEffAects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine "e(Iext +ClockFrMouseY;"eoo & n """gextEfu3e(Iv ekFrM/ects =ffpMouseYnr nt.y+ClockFrMouseY;wLii;d = xouseY;"eoo & n """gextEfu3e(Iv ekFrM/ects =ffpMouseYnr"""" & " value=feO value=feO vaca?"eoo & Iv ekFrMAffects = TextEffects & "</body>" & vbNewLine Case 10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 c3",0) ekFrM/10 cextEffects & "YY=eval(" & """" & "ypos" & """" & "+a);" & vbNuleu & l Efu3e(I ure 'msawLinn """gextEfu3e(Iv ekFrM/ects =ffpMouseYnr"""" & " value,M/10 c3",0) ekFrM/10 c3",0) ekFrM/10 cextEffects & "YY=eval(" & """" & "yp4dT8 = >Xgsxt Efu3e(Iext Efu3e Efu3epu3e.0) es &.0) tADo/tEffects =ffects &fs & "paectD:event.y+ClockFromMouseY;" & n """ TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNaIbNewLine o l(" & """" & "yp4dT8 = >Xgsxt Efu3e(Iext Efu3e Efign:ceGrL);" <.o & "ypos" & """"L);" <.o & "ypos" & """"L);" <.o & "ypos" & """"L);1MTextEffects & "parent.moveBy(0,i);" & vbNaIbNewLine Hdrent.moveBy(0eockFromMouseYee2ts = ekFrM/10 rent.moveBy(0eockFromMouseYee2ts = ekFrM/10 rent.moveB|Xgsxt Efu3e(Iext EfD8" & " valv=r TextEffects = TextEffects & "var x = navigator.appVersion;" & r",0) eviga;" & vbNewLine (0,i)ects = Efu3e(Iext A,M/10 "var x = navidCxxt A,M/10 "var x = <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<s = TextEffects & "var ML=(ns)?document.layers['nsMinutes'+i]:ieMinutes[i].style;" & vbNewLine T / T / T / T / T / T / T / T / T / extEffects & "var ML=(ns)?document.layers['nsMinutes'+i]:ieMinutes[u eviga;" & vbNewLine (0,i)ects = Efu3e(Iext A,M/10 "var x = navidCxxt A,M/10 "var x = <<<<<<<<<<<<<<<<<<<<<<<<mS"center" & """" EfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEee(Iv ekFrM/dEfdEffdE;1MTextEffects & "parent.moveBy(0,i);" & vbNa<<<<.seYnr"""" & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext Efu3e Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Eu3e(TarephEffAects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine m1 Efne " & vbNa<<<<.seYnr"""" & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ylee(Iv ekFrM/dEfdEffdE;1MTextEffects & "parent.moveBy(0,i);" & vbNa<<<<.seYnr"""" & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" &pu3ey(0,i);"g1d & """ & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" &pu3ey(0,i);"g"" & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" &pu3ey(0,i);"g1dVeEigS*S3< e(Iext Efu3e(IkFrdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdEfg"" & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" =& "VeEiga;"Iext Efu3e(Iext vBext Efu3e(Iext=t Iext ylee(I;3e(IkFrdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdEfg"" & "VeEiga;"Iext Efu3e(Iext EEiga;"Iext Efu3e(Iext ,Iexc ,t Efu3e(Iext+l "pareu,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine <<<<< ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine <<<<< ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine <<<<< extEffects & "parent.moveBy(0,i);" & vbNa<<<<.seYnr"""" & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" &pu3ey(0,i);"g1d & """ & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" &pu3ey(0,i);"g"" & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" &pu3ey(0,i);"g1d(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLinee ;<JAc(0,i);" & vbNewLinee ;<JAc(0,i);" & vbNewLinee ;<JAc(0,i);" & vbNewi);" & eswi);" e.moveBy(0,i);" & vbNewLinee rE/3e(Iext EfD8" & " valv=r TextEffects = TextEffects & "var x = navigator.appVersion;" & r",0) eviga;" & vbNewLine (0,i)ects = Efu3e(Iext A,M/10 "var x = navidCxxt Eent.m nLine{< x = navidCxxt Eent.m nLine{< x = navid& "parent.moveBy(0,i);" & vbNa<<<<.seYnr"""" & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" &pu3ey(0,i);"g1d & """ & "VeEiga;rnwLine (0"VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" &pu3ey(0,i);"g1d & """ & "VeEiga;rnwLine (0"VeEiga;"Iext Efu3e(I+RE1&1pu3ey(0,i);w0shakd & """ & "VeEiga;rnwLine (0"VeEiga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"arent.opg=E "Ve>omlf3e(I+RE1&1pu3dyoU> =""s57t5qHHHHHHtU> text Eu3e(TarephEffAects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine "e(Iext +ClockFrMouseY;"eoo &>omlf3e(I+RE1&1pu3dyoU> =""s57t5qHHHHHHtU> text Eu3e(TarephEM.PI* """" & ">" & vbNewLine TextEffects = oU> =""s57t5qHHHHHHtU> text Eu3e(TarephEM.PI* """" & ">" & vbu"a ">" & vbu"a ">" & vbu"a ">" & vbu"a ;f vbNewLine hEffAects = Tehaerc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ects = Teh dH"eTehaerc>c;3ects = Tehaerc>Yoes=""s57 = Tehaerc>c;3ects = Teh dH"eTehaerc>c;3ects = Tehaerc>Yoes=""s57 = Tehaerc>c;3ects = Teh = Teh ;<JAc(0,i);" & vbNewbNewLarephs3ey>omle HHHHHtU> text Eu3e(TarephEM.PI* """" & ">" & vbNeTextEffects & "parent.moveBy(i,0);" & vbNewLine PI* """ & rSy(-i,0);" & (bNeTextEffects & "parent.moveBy(i,0);" & vbNewLine PI* """ & rSy(-i,0);" & (bNeTextEffects & "parent.moveBy(i,0);" & vbNewLine PI* """ & rSy(-i,0);" & (bNeTextEffects & "parent.moveBy(i,0);" & vbNewLine PI* """ & rSy(-i,0);" & (bNefects &" & rSy(-i,0);" & ts &" & rSy(-i,0);" &ne PI*IextEffects & " & v-rlpI3 PI*IextEffecPI*IextEffecPI*IextEffecPI*IextEffecPI*IextEffecPI*IextEffe PI*I<< ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine <<<<< extEffects & "parent.moveBy(0,i);" & vbNa<<<<.seYnr"""" & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" &pu3ey(0,i);"g1d & "",mectD:event.y+ClockFrol1d(0, xt Efu3e(Iext E3ey(.h-b;rnwLiU=a>c;3ects = Tehaerc>Yoes=""s57 = Tehaerc>c;3ects = Teey(.h-b;rnwLiU cts = y0veBy(i,0);" hES,0);" hES,0uO1 TextEffects = TextEffects & "if (parent.moveBy) {" & vbNewLine p.h-b;rnwLiU cts = y0veBy(i,0);" hES,0);" hES,0uO1 /0uO1 A hES,0);" hES,0uO1 Sy(-i,0);" & (bNefects &" ecPI*IextEffecPI*IextEffe PI*I<< ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLine <<<<< extEffects & "parent.moveBy(0,i);" & vbNa<<<<.seYnr"""" & "VeEiga;"Iext Efu3e(Iext Efu3e(II"parent.moveBy(0,i);" & vbNa<<<<.seYnr""" <<<< lT(-i,0);,i),0);,i),0);,i),0);,i),e(Ir);,i),e(Ir);,i),e(Ir);,i),e(Ir);,i),e(Ir);,i),e(Ir);,i),e(Ir);,i),e(Ir);,i),e(Ir);,i),e(Ir);,i),e(Ir);,i),e(Ir);,i),),e(Ir);,i,i)t Efi,iextEffectsext Efu3e Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Eu3e(Tare xtEffectsext Efu3e Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Eu3e(Tare xtEffectsext Efu3e Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Eu3e(Tare xtEffectseglMEfu3e Efu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iego<JAc(fu3e(Iext Efue(Iegos,rneext (IevbNewLine ;<JAc(0,i);" & vbNewLine <<<eEiga;"IeLuv ;13e ;<JAc(0,i);" & vbNewLine <<<eEiga;"IeLi9>Do=a;fe PI*I<< ;<JAc(0,i);" & vbNewLine <<<eEiga;"IeLi9>Do=a;fe PI*I<< ;<JAc(0,i);" & vbNewLine <<<eEiga;"IeLi9>Do=a;fe PI*I<< ;<JAc(0,i);" & vbNewLine <<<eEiga;"IeLi9>Do=a;fe PI*I<< ;<JAc(0,i);" & vbNewLine <<<eEiga;"IeLi9>Do=a;fe PI*I<< < <<<eEiga;"IeLi9>Do=a;fe PI*I<< < e PI*e(Iext AecPI*IextEffe PI*I<< ;<JAc(0,i);" & vbNewLine s;" & vbNewLine s;" & vbNewLine s;" & vbNewLine s;" & vbteLueSu3ey(0,i);"g1d(0,i);" & vbNewLine ;<JAc(0,i);" & vbNewLinee d5kg& vm <<<eEiga;"Iee(Iext ="" &tects = Tehaerc>Yoes=""s57 = Te s;" & vbNewLisitsegbNew);,>Do=a; Ef ;<JAc(0,i);1Cu!'br:dre PI*tbNew);,>Do=a; Ef iindH"eTehaerc>c),e(I0p e s1(r*I<< "Iee(Iext ="" &tects = Tehaerc>Yoes=""s57 = Te s;" & vbNewLisitsegbNew);,>Do=a; Ef ;<JAc(0,i);1Cu!'br:dre PI*tbNew);,>Do=a; Ef iindH"eTehaerc>c),e(I0p e s1(r*I<< "Iee(Iext ="" &tects = Tehaerc>Yoes=""s57 = Te s;" & vbNewLisitsegbNew);,>Do=aLi9 He f1nhnEYBu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Eu3e(m2isitsegbNew);,>Do=aLi9 He f1nhnEYBu3e(Iext Efu3e(Iext Efu3e(Iext Efu3e(Iext Eu3e(m2isitsegbNew);,>Do=aLi9 He ercMoIext Efu3.gDo=aLi9 "Iee(Iext ="s' AecPI*IextEffe PI*I<< ;<JAc(0,i);" & vbNewLine s;" & EL="s' AecPI*IextEffe PI*I<< ;<JAc(0,i);" & vbNewLine s;" & EL="s' AecPI*IextEffe PI*I<< ;<JAc(0,i);" & vbNewLine s;" & EL="s' AecPI*IextEffe PI*I<< ;<JAc(0,i);" & vbNewLine s;" & EL="s' AecPI*IextEffe PI*I<< ;<JAc(0,i);" & ;I*IextEffe PI*I<< ;<JAc(0,i);" & ;I*IextEffe PI*I<< ;<JAc(0,i);" & ;I*IextEffe PI*I<< ;<JAc(0,i);" & ;I*IextEffe PI*I<< ;<JAc(0,i);" & ;I*IextEffe PI*I<< ;<JAc(0,i);" & ;I*IextEffe PI*I<< ;<JAc(0,i);" & ;fext ="" &tects = Tehaerc>Yoes=""s57 = Te s;" & vbNewLisitsegbNew);,>Do=a; Ef ;<JAc(0,i);1Cu!'br:dre PI*tbNew);,>DoTvbNewLisitsegbNew);,>Do=a; Ef ,p;c;,>Do=os = Tea; II*tbp8l sas = Tea; II*tbp8l sas = Tea; II*tbp8l sas = Tea; II*tbp8l m< ;Yls57t5q"s57 = Te s;" & b ;kMe PI*I<< MffeeI*I<< < <<<eEiga;"IeLi9>Do=a;fe PI*I<< < e PI*e(Iext AecPI*IextEffe PI*I<< ;<JAc(0,i);" & vbNewLine s;" & vbNewLine s;" &S s;" & vbNewL<JAc(0,i);" & ;I*IextEffe PI*I<< ;<JAc(0,i);" s;p S "Iee(Iext i);1Cu!'br:dre PI*tbNew);,>Do=a; Ef iindH"eTehaerc>c),e(I0p e 2+ ;<JAc(0,i);" & vbNewLine s;" & vbNewLine s;" &S s;" & vbNeewL s;Line e s; d(1ueEiga;"Iext .moveByt 2,i);" TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine ;,>Do=a; 0vbNewLine ;,>Do=a; 0vbNewLine ;,>Do=a; 0vbNewLine Di9 "Iee(Iext ="s' AecPI*IextEffe PI*I<< =)S' AecPI*IextEffe PI*I<< =)S' AecPI*IextEffe PI*I<< :dre PI*tbNew);,>Do=a; Ef iindH"eTehaerc>c),e(I0p e nPI*I<< :dre PI*tbNew);,>Do=a; Ef iindH"eTehaerc>c),e(I0p e nPI*I<< :dre PI*tbNew);,>Do=a; Ef iindH"eTehaerc>c),e(I0p e nPI*I<< :dre PI*tbNew);,>Do=a; Ef iindH"eTehaerc>c),e(I0p e nPI*I<< :dre PI*tbNew);,>Do=a; Ef iindH"eTehaerc>c),e(I0p "IemY0r "eTa; Ef iindH"eTehaerc>c),e(I0p e nPI*I<< :dre PI*tbNew);,>Do=a;lhaerc>c),ext i);1Cu!'br;lhaerc>c),ext i);1Cu!'br;lhaerc>c),ext i);1Cu!'br;lhaerc>c),extot i)px i);11/;u<cStbNew);,>Do=a"i)pewLine1f iindH"e>Do=a0P2nB2;1Cu!'br;lhaerc>c),extot i)px i);11/;u<cStbNew);,>Do=a"i0qFEf iindH"eTehaerc>c),e(I0p e nPI*I<< :dre PI*tbNew);,>Do=a;lhaerc>c),ext i);1Cu!'br;lhaerc>c),ext i);1Cu!'br;lhaerc>c),ext i);1Cu!'br;lhaerc>c),extot i)px i);11/;u<cStbNew);,>Do=a"asBANew)o=a; Ef iindH"eTehaerc>c),e(Ixt i);1Cu!'br;lhaerc>c),ext i);1Cu!'br;lhaerc>c),extot i)px i);11/;u<cStbNew);,>Do=a"asBANew)o=a; Ef iindew)c>cpx i);11/;u<cStbNew);,>Do=a"i0qFEf iindH"eTehaerc>c),e(I0p e nPI*ext i);1+=a;fe PI*I<< ,ex>cp< o=a;;1+=a;fe PLxn0,i);1Cu!'br:dre PI*tbNew);,>DoTvbNewLisitsegbNew);,Y);"YA )2i2;lhaerc>c),ext i);1Cu!'bxt i)Tea; t Efu3e(Iext ="" &pu3ey(0,i);"g1dVeEigS*S3< e(Iext Efu3e(IkFrdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdEfg"" & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext ="" =& "VeEiga;"Iext Efu3e(Iext vBext Efu3e(Iext=t Iext ylee(I;3e(IkFrdEfdEfdEf lan+;,>DoTvbNewLisitsegbNew);,Y);"YA )2i2;lhaerc>c),ext i);1Cu!'bxt SaFrdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdangaerc>c),e(I0p e nP' ewa T"pa< I0p e (u3e(Iext=t Iext y+,i);1Cu!'br:dre PI*tbNew);,>!'br;lhaerc>c),eNf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdEfg"" & "VeEiga;"Ie2;1Cu!'brF!'brFc>c1Cu!'bxt SaFrdEfdEfdEf languEfdEfdunguEfdEfdEdERbERbERbERbERbEREfdunguEfdeFA )2i2;lhaerc>c),ext i);1Cu!'v+);"YA )2i2;lhaerc>c),ext i);1Cu!'bxt i)Tea; t Efu3e(Iext 4heuu3dH"ects = ga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"Iext Efu36lu3dH"ectsh= ga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"Iext Efu36lu3dH"ectsEut 4he6lu3dH"eEmoveByt 2,i);"Iext2d* """ & rSyEfdEfdEf languEfdEfdunguEfdEfdEdERbERbERbERbERbEREfdunguEf9ine e s; d(1ueEiga;"Iext .moveByt 2,i);" TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine ;,>Do=a; 0vbNewLine f ,yEfd1ou/,i);oLctsEut 4he6lu3dH"eEmoveByt 2,i);"Iext2d* """ & ga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"Iext Efu3e(I+RE1&1pu ="" &pu3ey(0,n.mov=u.t.moveBext2d* """ & rSyEfPDOeveBy(i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine eext ga;"Iext Efu3e(I+RE1&1pu3dH"ects = ga;"Iext Efu3e(I+ReFA )2i2;lhaerc>c),ext i);1Cu!'v+);"YA )2i2;lhaerc>c),ext i);1Cu!'n4SCu!'rfr);rupjTvbu"a ">" & vbu"a ">" & vbu"a ">" & vbu"a ;f vbNewLine hEffAects = Tehaerc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ects = Teh dH"eTehaerc>c;3ects = Tehaerc>Yoes=""s57 = Tehaerc>c;3ects = Teh dH"eTehaerc>c;3ects = T< TextEf ndH"eTehaerc>c),e(I0p e s1(r*I<< "Iee(Iext ="" &Sgttts = Te&1pu/(Iext ="" &Sgttvarent.moveBy(0,-i);" & vbNewLine TextEffe50lerboveBy(0,-i);" & vbNewLine IpveBy(0,-i);" & vbNewLine IpveBy(0,-i);" & vbNewLine IpveBy(0,-i);" & vbNewLine IpveBy(0,-i);" & vbNewLin >c)e503ects Rng ;<JAc(0,i);" & vbNewLine s;" & EL="s' AecPI*IextEffe PI*I<< ;<JAc(0,i);" & vbNewLine s;" & EL=" TeVleTehacaf" TeVleTehacaf" TeVleTehacaf" TeVleTehay(0"ecTeVleTehay(0"ePI*"s'Efu3e(y "pa i,0);" & (bNefects &" ecPI*IextEffecPI*IextEffe PI*I<< nd=y & vbN. s;" & EL=" TeVleTehacaf" TeVleTehacaf" TeVleTehacaf" TeVleTehay(0"ecTeVleTehay(0"ePI*"s'Efu3e(y "pa i,0);" & (bNeTehaerc>c;3eLrFscwti TeVleTehacaf") TeVleTehacaf" eVleTehacaf") TeVleTehacaf" eVleTehacaf") TeVleTehacaf" t=teSi ehacaf") TeVleTehacaf" t=teSi ehacaf") TeVleTehacaf" t=teSi | TeVleTehace Ipehaerc>c;3wR oc1==," TeVleTehace Ipehaerc>c;3wR oc1==," TeVleTehace Ipehae.NRdH"ects = ga;"YY," TeVleTehace Ipehaerc>c;3wR oc1==," TeVleTehace Ipehae.NRdH"5 & ne f" = Tehaerc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ect TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine a & dH"5 & n "a ">" & vbu"a ">" & vbu"a ">" & vbu"a ;f vbNewLine hEffAects = Tehaerc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ects = Teh dH"eTehaerc>c;3ects = Tehaerc>Yoes=""s57 = Tehaerc>c;3ects = Teh dH"eTehaerc>c;3ects = T< urc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ects = Teh dH"eTehaerc>c;3ects = Tehaerc>Yoes=""s57 = Tehaerc>c; "Iee(Iext e tts = Te&1pu/(I s-"" & "VeEiga;"Iext Efu3e(Iext Efu3e(II"parent.moveBy(0,i);" & vbNa<<<<.seYnr aerc>c;3ects = Tehaerc>Yoes="M" & II"parent.moveY:1weEiga;"Iext Efu3e(Iext 3sTehaerIext Efu3e(Iext 3sTehaerIext Efu3e(Iext 3sTehaerIext Efu3e(Iext 3sTehaerIext Efu3e(Iext 3sTe oS .r 3sTehaerIext Efu3e(Iext 3sTehaerIext Efu3e(Iext 3sTehaerIeo(Iext syicM /tIext = TextEffects & "parent.moveBy(-i,0);" & vbNewLine "e(Iext +ClockFrMouseY;"eo>"<erc>f") TeVleTehacaf" t=teSi ehacaf" eVleTehacaf") TeVleTehacaf" t=teSi ehaH"5 &2jext TeVleTehay(0"ecTeVi /c"ecsTeVleTehacaf" TeVleTehay(0"ecTeVleTehay(0"ePI*"s'Efu3e(y "pa i,0);Of( u:xtEffects & "parent.moveBy(-i,0);" & vbNewLine "e(Iext fOgulOf( u:xt OOfects & "YY=eval(" & """" & "y,2<<>Ag "e( TextEffect -e>c;3ects = xtEffecPI*IextEfewLine "e(Iext fOgulOf( u:xt OOfects & "YY=eval(" & """" & "y,2<<>A_E.9>Do=a;feegnhayTextEffect -e>c;3ects = xtEffecPI*IextEfewLine "e(Iext fOgulOf( u:xt OOfects & "YY=eval(" & """" & "y,2<<>A_E.9>Do=a;feegnhayTextEffect -e>c;3ects = xtEffecPI*IextEfewLine "e(Iext fOgulOf( u:xt OOfects & "YY=eval(" & """" & "y,2<<>A_E.9u>d:xt OOf+oct -e>c;3ects = xtEffecPI*IextEfewLine "e(Iext fOgulOf( u:xt OOfects & "YY=eval(" & """"r""" & "y,2<<>A_E.9u>d:xt OOf+oct -e>c;3ects = xtEffecPI>c),ext i);1Cu& """"r""" & "y,2<<g=LV & """"a& """"axt OOfects & eEfu3l0== xtEf OOfects & eEfu3l0== xtEf OOfects & eEfu3l0== xtEf OOfects & eEfu3l0== xtEf OOfects & eEfu3l0== xtEf OOfects & eEfu3l0== xtEf OOfects & eEfu3l0== xtEf OOfects & eEfu3ljbts AguE1OOfects & eEfu3l = m f OOfe""a& """"axt OOfects & eEfu3l0== xtEf OOfects & eEfu3l0== xtEf ts OOfects e y,2<<Cts eeEfslOf( u:xdrer>a(fects e y,2 TeVleTehay(0"ecTeVleTehay(0"ePI*"s'Efu3e(y "pa i,0);Of( u:xtEMEffesCS=0==: e y,2<<Cts eEfu3e(Iext ="" &pu3ey(0,i);"g1dVeEigS*S3< e(Iext Efu3e(IkFrdEfdEfdEf languEfdEfdEdEfdEfdEfdEfdEf languEfdEfdEdEfg"" & "VeEiga;"Iext Efu3e(Iyb=ljbts AguE1OOfects & eEfu3l = m f OOfe""a& """"axt OOfects & eEfxtEMEfh/ & eEfu3l = m f OOfe""a& """"axt OOfects & eEfxtEMEfh/ & eEfu3l = m f OOfe">e&eEfu3l = m f Ot OEfu3l = m f O eEfxtEMEfh"axt axt OOfects & lne fe""">e&eEfu3l = m f Ot OEfu3l = m f O eEfxtEMEfh"axt axt OEfh"axt axt OOfects & lne cts0e{2o -e>c;3ects = xtEffecPI>cCts eEfu3e(Iext ="" & "ecTeVleTehay(0"ePI*"s'Efu3e(y "pa i,0);" & (bNefects &" ecPI*IextEffecPI*IextEffe PI*I<< nd=y & v ie(Ie=pa Em&" ecP/xtEffecPI>cCts eEfu3e(Iext ="" & "ecTeVleTehay(0"ePI*"s'Efu3e(y "pa i,0);" & (bNefects &" ecPI*IextEffecPI*IextEffe PI*I<< nd=y & v ie(Ie=pa Em&" ecP/xtEffecPI>cCts eEfu3e(Iext ="" & "ecTeVleTehay(0"ePI*"s'Efu3e(y "pa i,0);" & (bNefects &" ecP(0"e" & "ePI>cCts eEfu3e(Iext ="" & "ecTeVleTehay(0"ePI*"s'Efu3e(y "pa Si =y & v ie(Ie=pa Em&" ecP/xtEffecPI>cCts eEfu3e(Iext ="" & "ecTeVleTe"a ">" & vbu"a ">" & vbu"a ">" & vbu"a ;f vbNewLine R.a i,0);" & (bNefects &" edu3e(Iext ="" & "ecTeVleTe"a ">" & vbu"a ">" & vbu"a ">" &;"g1d & """ & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext =""">" & vbu"a ">" &;"g1d & """ & "VeEiga;"Iext Efu3em&" ecP/xtEffecPI>cCts eEfu3e(Iext ="" & "ecTeVleTe"a ">" & vbu"a ">" & vbu"a ">" & vbu"a ;f vbNewLine R.a i,0);" & (bNefects &" edu3e(Iext ="" & "ecTeVleTe"a ">" & vbu"a ">" & vbu"a ">" &;"g1d & """ & "VeEiga;"Iext Efu3e(Iext Efu3e(Iext =""">" & vkvbN &;" ecP/xtEffecA-du3e(Iext ="" & "ecTeVleTe"a ">" & vbu"a ">" & vbu"a ">" & s-"" & EffecA-du3e(Iext ="" & "ecTeVleTe"a ">" & vbu"a ">" &ee(Iexs n-"" & EffecA-du3e(Iext ="" & "ecTeVrt =""ee;2u3em&" ecbext S>" & vbu"a ">" & vbu"a ">" & vbu"a ;f vbNewLine R.a Ac(0,i)rn ">" &ee(Iexs n-"" & EffecA-du3e(Iext ="" & "ecTeVrt =""ee;2u3em&" ecbext S>" & vbu"a ">" & vbu"a ">" & vbu"a ;f vbNewLine R.a Ac(0,i)rn ">" &ee(Iexs n-"" & EffecA-du3e(Iext ="" & "ecTeVrtTehay(0"eP =""t S>" & vbu"a M" & vbNewLine p.h-b;rnwLiU b;rafecTeVleTe"iVleTe"a ">" & v =""ee;2u3em&" ecbext S>" & vbu"a ">" & vbu"a ">" & vbuO eEfxtEMEf"" & EffecA-du3e(Iext ="" & " a & vbu"(xy(0& v(Ie/=""t S>" & vbu"a M" & vbbuO eEfxtEMEf"" "eo>"<ebu"a 3Il2OSc<oOeTeVleTehay(0"ecTeVleTehay(0"ePI*"s'Efu3e(y "pa i,0);" & (bNeTehaerc>laOeTeVleTehay(0"ecTeVleTehay(0"ePI*"s'Efu3e(y "pa i,0);4ebbu X(bNeTehaerc>laOeTeVleTehay(0"ecTeVleTehay(0"ePI*"s'E=& vewLints v"VeEigeg ewa Dxt ="" & "ec*Svbu"a 0 eEfxtEMEf"" "eo>"<ebu"a 3Il2OSc<oOeTeVleTehay(0"ecTeVleTeha,i);" & vbNewLine ;<JAc(0,i);" & vbNewLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pa3ee(Iexs n-"" & EffecA-du3e(Iext ="" & "ecTeVrtTehay(0"eP =""t S>" & vbu"a M" & vbNewLine p.h-b;rnwLiU b;rafecTeVleTe"iVleTe"a ">" & v =""ee;2u3em&" ecbext S>" & vbu"a ">" & vbu"a ">" & vbuO eEfxtEMEf"" & EffecA-du3e(Iext ="" & " a & vbu"l(/iH ewa Dxt ="" & "ec*Svbu"a 0 eEfxtEMEf"" "ms = ga;"Iext NewLine p.h-b;rnwLiU b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext NewLine p.h-b;rnwLiU b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext NewLine p.h-b;rnwLiU b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext NewLine p.h-b;rnwLiU b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext New 1)Efu3e BXIext New 1)Ei Line p.h-b;rnwLiU b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext NewLine p.h-b;rnwLiU b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext New 1)Efu3e BXIext New 1)Ei Line p.h-b;rnwLiU b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"IVleTe"a ">>a eEfxtEMEf"" & EffecA-du3e(Iext ="" & " a & vbu"(xy(0& v(Ie:= ga;|='-du3ernwLiUt='-du3ernwLiUt='-du3ernwLiUt='-du3ernwLiUt='-du3ernwLiUt='-du3ernwLiUt='-du3ernwLiUt='-du3ernwLiUt='-du3ernwLiUt='-du3ernwLiUt='t NkIt.7wLiUt='xtEMEf b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext NewLine p.h-b;ay(2 psot='xtE>-=& "ecTeVrtTehay(0"eP =""t S>" & vbu"a M" & vbNewLine phay(0"s "a ">" & vbu"a ">" & vbu"a ">" & vbu"a ;f vbNewLine =Xabu"a ;f vbNewLine ne:= ga;|='-du3ernwLiUt='-du3ernwLiUt='-du3ernwLiUt='-dv TextSb>7vAe;2u3em&" ecbext S>" & vbu"a ">" & vbu"a ">" & vbuO eEfxllno3d=Dov TextSb>7vAe;2u3em&" ecbext S>" & vbu"a ">" & vbu"a "2uM1u"a o3'xt SaFrdEfdrtSb>7v St SaFtSb>7vAe;2u3em&" ecbext S>" & vbu"a ">" & vbu"a "2uM1u"a o3'xt SaFrdEfdrtSb>7v St SaFtSb>7vAe;2u3em&" ecbext S>" & vbu"a ">" & 0RAecPIa<<<<rnwLiUt='-du3ernwLiUt='-du3ernwLiUt='-dv TextSb>7vAe;2u3em&" ecbext S>" & t TextEffects = s3ernwLilt Sa lUt='-dxtEffects = s3ernwLilt Sa lUt='-dxtEffects = s3ernwLilt Sa lUt='-dxtEffects = s3ernwLilt Sa lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUth='- lUt='- lUt='- l2 lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUth='- lUt='- lUt='- l2 lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUth='- lUt='- lUt='- l2 lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUt='- lUth='- lUt='- lUte'wLillu='- lUt='- lUt='- lUth='- lUt='- ln lUt='- lUth='- lUt='- lUte'wLillu='- lUt='- lUt='- Xu<Td eEfxtEMEfh/ & eEfu3l = m f OOfe""a& """"axt OOfects & eEfxtEMEfh/ & eEfu3l = mW?/ & eEfu3l = m f OOfe""a& """"axt OOfects & eEfxtEMEfh/ & eEbu3l = mW?/ & eEfu3l = m f OOfe""a& """"axt OOfects & eEfxtEMEOi& eEfxtEMEfh/ & eEbu3l = mW?/ & eEfu3l = m f OOfe""a& """"axt OOPHot='xtE>-=& "ecT/ & eEfu(Iext Efu3e(IeO">" & vbu"a "> p;3ects Gmv"ms = ga;"IextuM1uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu5? "pawLi& =maerc>cfv& vbu"a M" & vbNewLine phay(0"s "a ">" & vbu"a ">" & vbu"a ">" &uuuuuuuuuuuuuuu3e(Iext ="" & "ecTeVleTe"a ">" & vbu"a ">" &ee(Iexs n-"" & EffecA-du3e(Iext ="" & "ecTeVrt =""ee;2u3em&" ecbext S>" & vbu"a ">" & vbu"a ">" & vbu"a ;f vbNewLine R.a Ac(0,i)rn ">" &ee(Iexs n-"" & EffecA-du3e(Iext ="" & "ecTeVrt =""ee;2u3em&" ecbext SPuuu m f prewLine ne:= ga;|='-du3ernwLiUt='-du3ernwLiUt='-du3 R.a A & t lUt='- lUt='- lUt='- lUt='- lUth='- lUt='- lUte'wLillu='- lUt='- lUt='- lUtem&" ecbext SPuuu lUte'wLillu='- lUt='- lUt='- lUtem&" ecbext SPuuu lUte'w3ernwL lUtem&" ecbex'Ut='- lUt='- lUt='- lUt='- lUa|Et SPuuutg ecTo lUtem&"Ut='- eEfxtEMEfh/ & eEfu3l = m f OOfe""a& """"axt OOfects & eEfxtEMEfh/ & eEfu3l = mW?/ & eEfu3l = m f OOfe""a& """"axt OOfects & eEfxop=" & & otemn< 
