home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Java_Effec189601622005.psc / SourceCode.bas < prev   
BASIC Source File  |  2004-05-24  |  78KB  |  842 lines
  1. Attribute VB_Name = "SourceCode"
  2. Option Explicit
  3. Option Compare Text
  4. Option Base 1
  5. Option Private Module
  6.  
  7. Public Function DetectEntry(Text As String) As String
  8.     If Not InStr(Text, ":") = 0 Then
  9.         DetectEntry = Left$(Mid$(Text, InStrRev(Text, "/") + 1, Len(Text) - InStrRev(Text, "/")), InStrRev(Mid$(Text, InStrRev(Text, "/") + 1, Len(Text) - InStrRev(Text, "/")), ".") - 1)
  10.         Mode = False
  11.     Else
  12.         DetectEntry = Left$(Text, InStrRev(Text, ".") - 1)
  13.         Mode = True
  14.     End If
  15. End Function
  16.  
  17. Public Function ApplicationRunning() As Boolean
  18.     ApplicationRunning = Not (App.PrevInstance = False)
  19. End Function
  20.  
  21. Public Function FormMousePointer(FormName As Form, MousePointerNumber As Long) As Long
  22.     FormMousePointer = MousePointerNumber
  23. End Function
  24.  
  25. Public Function FormMouse(FormName As Form, Number As Long) As Long
  26.     With FormName
  27.         .Label1.MousePointer = FormMousePointer(FormName, Number)
  28.         .Label2.MousePointer = FormMousePointer(FormName, Number)
  29.         .Label3.MousePointer = FormMousePointer(FormName, Number)
  30.         .Label4.MousePointer = FormMousePointer(FormName, Number)
  31.         .lblDisplay.MousePointer = FormMousePointer(FormName, Number)
  32.         .picProgress.MousePointer = FormMousePointer(FormName, Number)
  33.         .cmbOptions.MousePointer = FormMousePointer(FormName, Number)
  34.         .cmdClear.MousePointer = FormMousePointer(FormName, Number)
  35.         .cmdCopy.MousePointer = FormMousePointer(FormName, Number)
  36.         .cmdCreate.MousePointer = FormMousePointer(FormName, Number)
  37.         .cmdTextGen.MousePointer = FormMousePointer(FormName, Number)
  38.         .Frame1.MousePointer = FormMousePointer(FormName, Number)
  39.         .Frame2.MousePointer = FormMousePointer(FormName, Number)
  40.         .Frame3.MousePointer = FormMousePointer(FormName, Number)
  41.         .txtInt.MousePointer = FormMousePointer(FormName, Number)
  42.         .txtMes.MousePointer = FormMousePointer(FormName, Number)
  43.         .txtOutput.MousePointer = FormMousePointer(FormName, Number)
  44.         .VS.MousePointer = FormMousePointer(FormName, Number)
  45.         For X = 0 To 3
  46.             .txtMen(X).MousePointer = FormMousePointer(FormName, Number)
  47.         Next X
  48.         FormMouse = FormMousePointer(FormName, Number)
  49.     End With
  50. End Function
  51.  
  52. 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
  53.     CreateDocument = "<?xml version=" & """" & "1.0" & """" & " encoding=" & """" & "iso-8859-1" & """" & "?>" & vbNewLine
  54.     CreateDocument = CreateDocument & "<%@LANGUAGE=" & """" & "JAVASCRIPT" & """" & " CODEPAGE=" & """" & "1252" & """" & "%>" & vbNewLine
  55.     CreateDocument = CreateDocument & "<html>" & vbNewLine
  56.     CreateDocument = CreateDocument & "</head" & vbNewLine
  57.     CreateDocument = CreateDocument & "<META NAME=" & """" & "Author" & """" & " GILBERT O. ABELLAR" & """" & ">" & vbNewLine
  58.     CreateDocument = CreateDocument & "<meta http-equiv=" & """" & "pragma" & """" & " content=" & """" & "no-cache" & """" & ">" & vbNewLine
  59.     CreateDocument = CreateDocument & "<title>" & Title & "®</title>" & vbNewLine
  60.     CreateDocument = CreateDocument & "<meta http-equiv=" & """" & "Content-Type" & """" & " content=" & """" & "text/html; charset=iso-8859-1" & """" & ">" & vbNewLine
  61.     CreateDocument = CreateDocument & "</head>" & vbNewLine
  62.     Print #1, CreateDocument
  63.     Print #1, TextEffects(Index, Text, Interval)
  64.     If Index >= 0 And Index <= 7 Then
  65.         Print #1, "</head>"
  66.         Print #1, vbNullString
  67.         Print #1, "<body>"
  68.         Print #1, vbNullString
  69.         Print #1, "<a href=" & """" & "javascript:void(window.close())" & """" & ">Click here to close this window.</a>"
  70.         Print #1, "</body>"
  71.         Print #1, "</html>"
  72.     ElseIf Index = 10 Or Index = 11 Or Index = 12 Or Index = 16 Or Index = 17 Or Index = 18 Then
  73.         Print #1, vbNullString
  74.         Print #1, "<a href=" & """" & "javascript:void(window.close())" & """" & ">Click here to close this window.</a>"
  75.         Print #1, "</body>"
  76.         Print #1, "</html>"
  77.     Else
  78.         Print #1, "</html>"
  79.     End If
  80. End Function
  81.  
  82. Public Function TextEffects(ByVal Index As Integer, Optional ByVal Text As String = vbNullString, Optional ByVal Interval As Integer = 10) As String
  83.     Select Case Index
  84.         Case 0
  85.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  86.             TextEffects = TextEffects & "var ip=" & """" & Text & """" & ";" & vbNewLine
  87.             TextEffects = TextEffects & "var op= " & """" & """" & ";" & vbNewLine
  88.             TextEffects = TextEffects & "var cur=0;" & vbNewLine
  89.             TextEffects = TextEffects & "function sstatus(){" & vbNewLine
  90.             TextEffects = TextEffects & "op = ip.substring(cur,ip.length) + ip.substring(0,cur);" & vbNewLine
  91.             TextEffects = TextEffects & "window.status = op;" & vbNewLine
  92.             TextEffects = TextEffects & "cur++;" & vbNewLine
  93.             TextEffects = TextEffects & "if(cur>ip.length)" & vbNewLine
  94.             TextEffects = TextEffects & "cur=0;" & vbNewLine
  95.             TextEffects = TextEffects & "setTimeout('sstatus();'" & "," & Interval & ");" & vbNewLine
  96.             TextEffects = TextEffects & "}" & vbNewLine
  97.             TextEffects = TextEffects & "sstatus();" & vbNewLine
  98.             TextEffects = TextEffects & "</script>" & vbNewLine
  99.         Case 1
  100.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  101.             TextEffects = TextEffects & "var ip=" & """" & Text & """" & ";" & vbNewLine
  102.             TextEffects = TextEffects & "var op= " & """" & """" & ";" & vbNewLine
  103.             TextEffects = TextEffects & "var cur=0;" & vbNewLine
  104.             TextEffects = TextEffects & "function sstatus(){" & vbNewLine
  105.             TextEffects = TextEffects & "op = ip.substring(cur,ip.length) + ip.substring(0,cur);" & vbNewLine
  106.             TextEffects = TextEffects & "window.status = op;" & vbNewLine
  107.             TextEffects = TextEffects & "cur--;" & vbNewLine
  108.             TextEffects = TextEffects & "if(cur<0)" & vbNewLine
  109.             TextEffects = TextEffects & "cur=ip.length;" & vbNewLine
  110.             TextEffects = TextEffects & "setTimeout('sstatus();'" & "," & Interval & ");" & vbNewLine
  111.             TextEffects = TextEffects & "}" & vbNewLine
  112.             TextEffects = TextEffects & "sstatus();" & vbNewLine
  113.             TextEffects = TextEffects & "</script>" & vbNewLine
  114.         Case 2
  115.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  116.             TextEffects = TextEffects & "var ip=" & """" & Text & """" & ";" & vbNewLine
  117.             TextEffects = TextEffects & "var op= " & """" & """" & ";" & vbNewLine
  118.             TextEffects = TextEffects & "var cur=0;" & vbNewLine
  119.             TextEffects = TextEffects & "function sstatus(){" & vbNewLine
  120.             TextEffects = TextEffects & "op = ip.substring(0,cur);" & vbNewLine
  121.             TextEffects = TextEffects & "window.status = op;" & vbNewLine
  122.             TextEffects = TextEffects & "cur++;" & vbNewLine
  123.             TextEffects = TextEffects & "if(cur>ip.length)" & vbNewLine
  124.             TextEffects = TextEffects & "cur=0;" & vbNewLine
  125.             TextEffects = TextEffects & "setTimeout('sstatus();'" & "," & Interval & ");" & vbNewLine
  126.             TextEffects = TextEffects & "}" & vbNewLine
  127.             TextEffects = TextEffects & "sstatus();" & vbNewLine
  128.             TextEffects = TextEffects & "</script>" & vbNewLine
  129.         Case 3
  130.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  131.             TextEffects = TextEffects & "var ip=" & """" & Text & """" & ";" & vbNewLine
  132.             TextEffects = TextEffects & "var op= " & """" & """" & ";" & vbNewLine
  133.             TextEffects = TextEffects & "var cur=0;" & vbNewLine
  134.             TextEffects = TextEffects & "var space=10;" & vbNewLine
  135.             TextEffects = TextEffects & "var sp=" & """" & "             " & """" & ";" & vbNewLine
  136.             TextEffects = TextEffects & "function sstatus(){" & vbNewLine
  137.             TextEffects = TextEffects & "op = ip.substring(0,cur) + sp.substring(0,space) + " & vbNewLine
  138.             TextEffects = TextEffects & "ip.substring(cur,cur+1);" & vbNewLine
  139.             TextEffects = TextEffects & "window.status = op;" & vbNewLine
  140.             TextEffects = TextEffects & "space--;" & vbNewLine
  141.             TextEffects = TextEffects & "if (space<-1){" & vbNewLine
  142.             TextEffects = TextEffects & "space=10;" & vbNewLine
  143.             TextEffects = TextEffects & "cur++;" & vbNewLine
  144.             TextEffects = TextEffects & "if(cur>ip.length)" & vbNewLine
  145.             TextEffects = TextEffects & "cur=0;" & vbNewLine
  146.             TextEffects = TextEffects & "}" & vbNewLine
  147.             TextEffects = TextEffects & "setTimeout('sstatus();'" & "," & Interval & ");" & vbNewLine
  148.             TextEffects = TextEffects & "}" & vbNewLine
  149.             TextEffects = TextEffects & "sstatus();" & vbNewLine
  150.             TextEffects = TextEffects & "</script>" & vbNewLine
  151.         Case 4
  152.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  153.             TextEffects = TextEffects & "var ip=" & """" & Text & """" & ";" & vbNewLine
  154.             TextEffects = TextEffects & "var op= " & """" & """" & ";" & vbNewLine
  155.             TextEffects = TextEffects & "var cur=0;" & vbNewLine
  156.             TextEffects = TextEffects & "var space=10;" & vbNewLine
  157.             TextEffects = TextEffects & "var sp=" & """" & "                " & """" & ";" & vbNewLine
  158.             TextEffects = TextEffects & "function sstatus(){" & vbNewLine
  159.             TextEffects = TextEffects & "op =" & """" & """" & ";" & vbNewLine
  160.             TextEffects = TextEffects & "for(var v=0;v<ip.length;v++)" & vbNewLine
  161.             TextEffects = TextEffects & "op = op + ip.substring(v,v+1) + sp.substring(0,cur);" & vbNewLine
  162.             TextEffects = TextEffects & "window.status = op;" & vbNewLine
  163.             TextEffects = TextEffects & "cur--;" & vbNewLine
  164.             TextEffects = TextEffects & "if(cur<-10)" & vbNewLine
  165.             TextEffects = TextEffects & "cur=20;" & vbNewLine
  166.             TextEffects = TextEffects & "setTimeout('sstatus();'" & "," & Interval & ");" & vbNewLine
  167.             TextEffects = TextEffects & "}" & vbNewLine
  168.             TextEffects = TextEffects & "sstatus();" & vbNewLine
  169.             TextEffects = TextEffects & "</script>" & vbNewLine
  170.         Case 5
  171.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  172.             TextEffects = TextEffects & "var osd = " & """" & "   " & """" & vbNewLine
  173.             TextEffects = TextEffects & "osd +=" & """" & Text & """" & ";" & vbNewLine
  174.             TextEffects = TextEffects & "osd +=" & """" & "          " & """" & ";" & vbNewLine
  175.             TextEffects = TextEffects & "var timer;" & vbNewLine
  176.             TextEffects = TextEffects & "var msg = """";" & vbNewLine
  177.             TextEffects = TextEffects & "function scrollMaster () {" & vbNewLine
  178.             TextEffects = TextEffects & "msg = customDateSpring(new Date())" & vbNewLine
  179.             TextEffects = TextEffects & "clearTimeout(timer)" & vbNewLine
  180.             TextEffects = TextEffects & "msg += "" "" + showtime() + "" "" + osd" & vbNewLine
  181.             TextEffects = TextEffects & "for (var i= 0; i < 100; i++){" & vbNewLine
  182.             TextEffects = TextEffects & "msg = "" "" + msg;" & vbNewLine
  183.             TextEffects = TextEffects & "}" & vbNewLine
  184.             TextEffects = TextEffects & "scrollMe()" & vbNewLine
  185.             TextEffects = TextEffects & "}" & vbNewLine
  186.             TextEffects = TextEffects & "function scrollMe(){" & vbNewLine
  187.             TextEffects = TextEffects & "window.status = msg;" & vbNewLine
  188.             TextEffects = TextEffects & "msg = msg.substring(1, msg.length) + msg.substring(0,1);" & vbNewLine
  189.             TextEffects = TextEffects & "timer = setTimeout(""scrollMe()"", " & Interval & ");" & vbNewLine
  190.             TextEffects = TextEffects & "}" & vbNewLine
  191.             TextEffects = TextEffects & "function showtime (){" & vbNewLine
  192.             TextEffects = TextEffects & "var now = new Date();" & vbNewLine
  193.             TextEffects = TextEffects & "var hours= now.getHours();" & vbNewLine
  194.             TextEffects = TextEffects & "var minutes= now.getMinutes();" & vbNewLine
  195.             TextEffects = TextEffects & "var seconds= now.getSeconds();" & vbNewLine
  196.             TextEffects = TextEffects & "var months= now.getMonth();" & vbNewLine
  197.             TextEffects = TextEffects & "var dates= now.getDate();" & vbNewLine
  198.             TextEffects = TextEffects & "var years= now.getYear();" & vbNewLine
  199.             TextEffects = TextEffects & "var timeValue = """"" & vbNewLine
  200.             TextEffects = TextEffects & "timeValue += ((months >9) ? """" : "" "")" & vbNewLine
  201.             TextEffects = TextEffects & "timeValue += ((dates >9) ? """" : "" "")" & vbNewLine
  202.             TextEffects = TextEffects & "timeValue = ( months +1)" & vbNewLine
  203.             TextEffects = TextEffects & "timeValue +=""/""+ dates" & vbNewLine
  204.             TextEffects = TextEffects & "timeValue +=""/""+  years" & vbNewLine
  205.             TextEffects = TextEffects & "var ap = ""A.M.""" & vbNewLine
  206.             TextEffects = TextEffects & "if (hours == 12) {" & vbNewLine
  207.             TextEffects = TextEffects & "ap=""P.M.""" & vbNewLine
  208.             TextEffects = TextEffects & "}" & vbNewLine
  209.             TextEffects = TextEffects & "if (hours == 0) {" & vbNewLine
  210.             TextEffects = TextEffects & "hours = 12" & vbNewLine
  211.             TextEffects = TextEffects & "}" & vbNewLine
  212.             TextEffects = TextEffects & "if(hours >= 13){" & vbNewLine
  213.             TextEffects = TextEffects & "hours -= 12;" & vbNewLine
  214.             TextEffects = TextEffects & "ap = ""P.M.""" & vbNewLine
  215.             TextEffects = TextEffects & "}" & vbNewLine
  216.             TextEffects = TextEffects & "var timeValue2 = "" "" + hours" & vbNewLine
  217.             TextEffects = TextEffects & "timeValue2 += ((minutes < 10) ? "":0"":"":"") + minutes + "" "" + ap" & vbNewLine
  218.             TextEffects = TextEffects & "return timeValue2;" & vbNewLine
  219.             TextEffects = TextEffects & "}" & vbNewLine
  220.             TextEffects = TextEffects & "function MakeArray(n) {" & vbNewLine
  221.             TextEffects = TextEffects & "this.length = n" & vbNewLine
  222.             TextEffects = TextEffects & "return this" & vbNewLine
  223.             TextEffects = TextEffects & "}" & vbNewLine
  224.             TextEffects = TextEffects & "monthNames = new MakeArray(12)" & vbNewLine
  225.             TextEffects = TextEffects & "monthNames[1] = ""Janurary""" & vbNewLine
  226.             TextEffects = TextEffects & "monthNames[2] = ""February""" & vbNewLine
  227.             TextEffects = TextEffects & "monthNames[3] = ""March""" & vbNewLine
  228.             TextEffects = TextEffects & "monthNames[4] = ""April""" & vbNewLine
  229.             TextEffects = TextEffects & "monthNames[5] = ""May""" & vbNewLine
  230.             TextEffects = TextEffects & "monthNames[6] = ""June""" & vbNewLine
  231.             TextEffects = TextEffects & "monthNames[7] = ""July""" & vbNewLine
  232.             TextEffects = TextEffects & "monthNames[8] = ""August""" & vbNewLine
  233.             TextEffects = TextEffects & "monthNames[9] = ""Sept.""" & vbNewLine
  234.             TextEffects = TextEffects & "monthNames[10] = ""Oct.""" & vbNewLine
  235.             TextEffects = TextEffects & "monthNames[11] = ""Nov.""" & vbNewLine
  236.             TextEffects = TextEffects & "monthNames[12] = ""Dec.""" & vbNewLine
  237.             TextEffects = TextEffects & "daysNames = new MakeArray(7)" & vbNewLine
  238.             TextEffects = TextEffects & "daysNames[1] = ""Sunday""" & vbNewLine
  239.             TextEffects = TextEffects & "daysNames[2] = ""Monday""" & vbNewLine
  240.             TextEffects = TextEffects & "daysNames[3] = ""Tuesday""" & vbNewLine
  241.             TextEffects = TextEffects & "daysNames[4] = ""Wednesday""" & vbNewLine
  242.             TextEffects = TextEffects & "daysNames[5] = ""Thursday""" & vbNewLine
  243.             TextEffects = TextEffects & "daysNames[6] = ""Friday""" & vbNewLine
  244.             TextEffects = TextEffects & "daysNames[7] = ""Saturday""" & vbNewLine
  245.             TextEffects = TextEffects & "function customDateSpring(oneDate) {" & vbNewLine
  246.             TextEffects = TextEffects & "var theDay = daysNames[oneDate.getDay() +1]" & vbNewLine
  247.             TextEffects = TextEffects & "var theDate =oneDate.getDate()" & vbNewLine
  248.             TextEffects = TextEffects & "var theMonth = monthNames[oneDate.getMonth() +1]" & vbNewLine
  249.             TextEffects = TextEffects & "var dayth=""th""" & vbNewLine
  250.             TextEffects = TextEffects & "if ((theDate == 1) || (theDate == 21) || (theDate == 31)) {" & vbNewLine
  251.             TextEffects = TextEffects & "dayth=""st"";" & vbNewLine
  252.             TextEffects = TextEffects & "}" & vbNewLine
  253.             TextEffects = TextEffects & "if ((theDate == 2) || (theDate ==22)) {" & vbNewLine
  254.             TextEffects = TextEffects & "dayth=""nd"";" & vbNewLine
  255.             TextEffects = TextEffects & "}" & vbNewLine
  256.             TextEffects = TextEffects & "if ((theDate== 3) || (theDate  == 23)) {" & vbNewLine
  257.             TextEffects = TextEffects & "dayth=""rd"";" & vbNewLine
  258.             TextEffects = TextEffects & "}" & vbNewLine
  259.             TextEffects = TextEffects & "return theDay + "", "" + theMonth + "" "" + theDate + dayth + "",""" & vbNewLine
  260.             TextEffects = TextEffects & "}" & vbNewLine
  261.             TextEffects = TextEffects & "scrollMaster();" & vbNewLine
  262.             TextEffects = TextEffects & "</SCRIPT>" & vbNewLine
  263.         Case 6
  264.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  265.             TextEffects = TextEffects & "dCol='000000';" & vbNewLine
  266.             TextEffects = TextEffects & "fCol='000000';" & vbNewLine
  267.             TextEffects = TextEffects & "sCol='000000';" & vbNewLine
  268.             TextEffects = TextEffects & "mCol='000000';" & vbNewLine
  269.             TextEffects = TextEffects & "hCol='000000';" & vbNewLine
  270.             TextEffects = TextEffects & "ClockHeight=40;" & vbNewLine
  271.             TextEffects = TextEffects & "ClockWidth=40;" & vbNewLine
  272.             TextEffects = TextEffects & "ClockFromMouseY=0;" & vbNewLine
  273.             TextEffects = TextEffects & "ClockFromMouseX=100;" & vbNewLine
  274.             TextEffects = TextEffects & "d=new" & vbNewLine
  275.             TextEffects = TextEffects & "Array(" & """" & "SUNDAY" & """" & "," & """" & "MONDAY" & """" & "," & """" & "TUESDAY" & """" & "," & """" & "WEDNESDAY" & """" & "," & """" & "THURSDAY" & """" & "," & """" & "FRIDAY" & """" & "," & """" & "SATURDAY" & """" & ");" & vbNewLine
  276.             TextEffects = TextEffects & "m=new" & vbNewLine
  277.             TextEffects = TextEffects & "Array(" & """" & "JANUARY" & """" & "," & """" & "FEBRUARY" & """" & "," & """" & "MARCH" & """" & "," & """" & "APRIL" & """" & "," & """" & "MAY" & """" & "," & """" & "JUNE" & """" & "," & """" & "JULY" & """" & "," & """" & "AUGUST" & """" & "," & """" & "SEPTEMBER" & """" & "," & """" & "OCTOBER" & """" & "," & """" & "NOVEMBER" & """" & "," & """" & "DECEMBER" & """" & ");" & vbNewLine
  278.             TextEffects = TextEffects & "date=new Date();" & vbNewLine
  279.             TextEffects = TextEffects & "day=date.getDate();" & vbNewLine
  280.             TextEffects = TextEffects & "year=date.getYear();" & vbNewLine
  281.             TextEffects = TextEffects & "if (year < 2000) year = year+1900;" & vbNewLine
  282.             TextEffects = TextEffects & "TodaysDate=" & """" & " " & """" & "+d[date.getDay()]+" & """" & " " & """" & "+day+" & """" & " " & """" & "+m[date.getMonth()]+" & """" & " " & """" & "+year;" & vbNewLine
  283.             TextEffects = TextEffects & "D=TodaysDate.split('');" & vbNewLine
  284.             TextEffects = TextEffects & "H='...';" & vbNewLine
  285.             TextEffects = TextEffects & "H=H.split('');" & vbNewLine
  286.             TextEffects = TextEffects & "M='....';" & vbNewLine
  287.             TextEffects = TextEffects & "M=M.split('');" & vbNewLine
  288.             TextEffects = TextEffects & "S='.....';" & vbNewLine
  289.             TextEffects = TextEffects & "S=S.split('');" & vbNewLine
  290.             TextEffects = TextEffects & "Face='1 2 3 4 5 6 7 8 9 10 11 12';" & vbNewLine
  291.             TextEffects = TextEffects & "font='Arial';" & vbNewLine
  292.             TextEffects = TextEffects & "size=1;" & vbNewLine
  293.             TextEffects = TextEffects & "speed=0.6;" & vbNewLine
  294.             TextEffects = TextEffects & "ns=(document.layers);" & vbNewLine
  295.             TextEffects = TextEffects & "ie=(document.all);" & vbNewLine
  296.             TextEffects = TextEffects & "Face=Face.split(' ');" & vbNewLine
  297.             TextEffects = TextEffects & "n=Face.length;" & vbNewLine
  298.             TextEffects = TextEffects & "a=size*10;" & vbNewLine
  299.             TextEffects = TextEffects & "ymouse=0;" & vbNewLine
  300.             TextEffects = TextEffects & "xmouse=0;" & vbNewLine
  301.             TextEffects = TextEffects & "scrll=0;" & vbNewLine
  302.             TextEffects = TextEffects & "props=" & """" & "<font face=" & """" & "+font+" & """" & " size=" & """" & "+size+" & """" & " color=" & """" & "+fCol+" & """" & "><B>" & """" & ";" & vbNewLine
  303.             TextEffects = TextEffects & "props2=" & """" & "<font face=" & """" & "+font+" & """" & " size=" & """" & "+size+" & """" & " color=" & """" & "+dCol+" & """" & "><B>" & """" & ";" & vbNewLine
  304.             TextEffects = TextEffects & "Split=360/n;" & vbNewLine
  305.             TextEffects = TextEffects & "Dsplit=360/D.length;" & vbNewLine
  306.             TextEffects = TextEffects & "HandHeight = ClockHeight / 4.5" & vbNewLine
  307.             TextEffects = TextEffects & "HandWidth = ClockWidth / 4.5" & vbNewLine
  308.             TextEffects = TextEffects & "HandY=-7;" & vbNewLine
  309.             TextEffects = TextEffects & "HandX=-2.5;" & vbNewLine
  310.             TextEffects = TextEffects & "scrll=0;" & vbNewLine
  311.             TextEffects = TextEffects & "step=0.06;" & vbNewLine
  312.             TextEffects = TextEffects & "currStep=0;" & vbNewLine
  313.             TextEffects = TextEffects & "y=new Array();x=new Array();Y=new Array();X=new Array();" & vbNewLine
  314.             TextEffects = TextEffects & "for (i=0; i < n; i++){y[i]=0;x[i]=0;Y[i]=0;X[i]=0}" & vbNewLine
  315.             TextEffects = TextEffects & "Dy=new Array();Dx=new Array();DY=new Array();DX=new Array();" & vbNewLine
  316.             TextEffects = TextEffects & "for (i=0; i < D.length; i++){Dy[i]=0;Dx[i]=0;DY[i]=0;DX[i]=0;}" & vbNewLine
  317.             TextEffects = TextEffects & "if (ns){" & vbNewLine
  318.             TextEffects = TextEffects & "for (i=0; i < D.length; i++)" & vbNewLine
  319.             TextEffects = TextEffects & "document.write('<layer name=" & """" & "nsDate'+i+'" & """" & " top=0 left=0 height='+a+' width='+a+'><center>'+props2+D[i]+'</font></center></layer>');" & vbNewLine
  320.             TextEffects = TextEffects & "for (i=0; i < n; i++)" & vbNewLine
  321.             TextEffects = TextEffects & "document.write('<layer name=" & """" & "nsFace'+i+'" & """" & " top=0 left=0 height='+a+' width='+a+'><center>'+props+Face[i]+'</font></center></layer>');" & vbNewLine
  322.             TextEffects = TextEffects & "for (i=0; i < S.length; i++)" & vbNewLine
  323.             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
  324.             TextEffects = TextEffects & "for (i=0; i < M.length; i++)" & vbNewLine
  325.             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
  326.             TextEffects = TextEffects & "for (i=0; i < H.length; i++)" & vbNewLine
  327.             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
  328.             TextEffects = TextEffects & "}" & vbNewLine
  329.             TextEffects = TextEffects & "if (ie){" & vbNewLine
  330.             TextEffects = TextEffects & "document.write('<div id=" & """" & "Od" & """" & " style=" & """" & "position:absolute;top:0px;left:0px" & """" & "><div style=" & """" & "position:relative" & """" & ">');" & vbNewLine
  331.             TextEffects = TextEffects & "for (i=0; i < D.length; i++)" & vbNewLine
  332.             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
  333.             TextEffects = TextEffects & "document.write('</div></div>');" & vbNewLine
  334.             TextEffects = TextEffects & "document.write('<div id=" & """" & "Of" & """" & " style=" & """" & "position:absolute;top:0px;left:0px" & """" & "><div style=" & """" & "position:relative" & """" & ">');" & vbNewLine
  335.             TextEffects = TextEffects & "for (i=0; i < n; i++)" & vbNewLine
  336.             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
  337.             TextEffects = TextEffects & "document.write('</div></div>');" & vbNewLine
  338.             TextEffects = TextEffects & "document.write('<div id=" & """" & "Oh" & """" & " style=" & """" & "position:absolute;top:0px;left:0px" & """" & "><div style=" & """" & "position:relative" & """" & ">');" & vbNewLine
  339.             TextEffects = TextEffects & "for (i=0; i < H.length; i++)" & vbNewLine
  340.             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
  341.             TextEffects = TextEffects & "document.write('</div></div>');" & vbNewLine
  342.             TextEffects = TextEffects & "document.write('<div id=" & """" & "Om" & """" & " style=" & """" & "position:absolute;top:0px;left:0px" & """" & "><div style=" & """" & "position:relative" & """" & ">');" & vbNewLine
  343.             TextEffects = TextEffects & "for (i=0; i < M.length; i++)" & vbNewLine
  344.             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
  345.             TextEffects = TextEffects & "document.write('</div></div>')" & vbNewLine
  346.             TextEffects = TextEffects & "document.write('<div id=" & """" & "Os" & """" & " style=" & """" & "position:absolute;top:0px;left:0px" & """" & "><div style=" & """" & "position:relative" & """" & ">');" & vbNewLine
  347.             TextEffects = TextEffects & "for (i=0; i < S.length; i++)" & vbNewLine
  348.             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
  349.             TextEffects = TextEffects & "document.write('</div></div>')" & vbNewLine
  350.             TextEffects = TextEffects & "}" & vbNewLine
  351.             TextEffects = TextEffects & "(ns)?window.captureEvents(Event.MOUSEMOVE):0;" & vbNewLine
  352.             TextEffects = TextEffects & "function Mouse(evnt){" & vbNewLine
  353.             TextEffects = TextEffects & "ymouse = (ns)?evnt.pageY+ClockFromMouseY-(window.pageYOffset):event.y+ClockFromMouseY;" & vbNewLine
  354.             TextEffects = TextEffects & "xmouse = (ns)?evnt.pageX+ClockFromMouseX:event.x+ClockFromMouseX;" & vbNewLine
  355.             TextEffects = TextEffects & "}" & vbNewLine
  356.             TextEffects = TextEffects & "(ns)?window.onMouseMove=Mouse:document.onmousemove=Mouse;" & vbNewLine
  357.             TextEffects = TextEffects & "function ClockAndAssign(){" & vbNewLine
  358.             TextEffects = TextEffects & "time = new Date ();" & vbNewLine
  359.             TextEffects = TextEffects & "secs = time.getSeconds();" & vbNewLine
  360.             TextEffects = TextEffects & "sec = -1.57 + Math.PI * secs/30;" & vbNewLine
  361.             TextEffects = TextEffects & "mins = time.getMinutes();" & vbNewLine
  362.             TextEffects = TextEffects & "min = -1.57 + Math.PI * mins/30;" & vbNewLine
  363.             TextEffects = TextEffects & "hr = time.getHours();" & vbNewLine
  364.             TextEffects = TextEffects & "hrs = -1.575 + Math.PI * hr/6+Math.PI*parseInt(time.getMinutes())/360;" & vbNewLine
  365.             TextEffects = TextEffects & "if (ie){" & vbNewLine
  366.             TextEffects = TextEffects & "Od.style.top=window.document.body.scrollTop;" & vbNewLine
  367.             TextEffects = TextEffects & "Of.style.top=window.document.body.scrollTop;" & vbNewLine
  368.             TextEffects = TextEffects & "Oh.style.top=window.document.body.scrollTop;" & vbNewLine
  369.             TextEffects = TextEffects & "Om.style.top=window.document.body.scrollTop;" & vbNewLine
  370.             TextEffects = TextEffects & "Os.style.top=window.document.body.scrollTop;" & vbNewLine
  371.             TextEffects = TextEffects & "}" & vbNewLine
  372.             TextEffects = TextEffects & "for (i=0; i < n; i++){" & vbNewLine
  373.             TextEffects = TextEffects & "var F=(ns)?document.layers['nsFace'+i]:ieFace[i].style;" & vbNewLine
  374.             TextEffects = TextEffects & "F.top=y[i] + ClockHeight*Math.sin(-1.0471 + i*Split*Math.PI/180)+scrll;" & vbNewLine
  375.             TextEffects = TextEffects & "F.left=x[i] + ClockWidth*Math.cos(-1.0471 + i*Split*Math.PI/180);" & vbNewLine
  376.             TextEffects = TextEffects & "}" & vbNewLine
  377.             TextEffects = TextEffects & "for (i=0; i < H.length; i++){" & vbNewLine
  378.             TextEffects = TextEffects & "var HL=(ns)?document.layers['nsHours'+i]:ieHours[i].style;" & vbNewLine
  379.             TextEffects = TextEffects & "HL.top=y[i]+HandY+(i*HandHeight)*Math.sin(hrs)+scrll;" & vbNewLine
  380.             TextEffects = TextEffects & "HL.left=x[i]+HandX+(i*HandWidth)*Math.cos(hrs);" & vbNewLine
  381.             TextEffects = TextEffects & "}" & vbNewLine
  382.             TextEffects = TextEffects & "for (i=0; i < M.length; i++){" & vbNewLine
  383.             TextEffects = TextEffects & "var ML=(ns)?document.layers['nsMinutes'+i]:ieMinutes[i].style;" & vbNewLine
  384.             TextEffects = TextEffects & "ML.top=y[i]+HandY+(i*HandHeight)*Math.sin(min)+scrll;" & vbNewLine
  385.             TextEffects = TextEffects & "ML.left=x[i]+HandX+(i*HandWidth)*Math.cos(min);" & vbNewLine
  386.             TextEffects = TextEffects & "}" & vbNewLine
  387.             TextEffects = TextEffects & "for (i=0; i < S.length; i++){" & vbNewLine
  388.             TextEffects = TextEffects & "var SL=(ns)?document.layers['nsSeconds'+i]:ieSeconds[i].style;" & vbNewLine
  389.             TextEffects = TextEffects & "SL.top=y[i]+HandY+(i*HandHeight)*Math.sin(sec)+scrll;" & vbNewLine
  390.             TextEffects = TextEffects & "SL.left=x[i]+HandX+(i*HandWidth)*Math.cos(sec);" & vbNewLine
  391.             TextEffects = TextEffects & "}" & vbNewLine
  392.             TextEffects = TextEffects & "for (i=0; i < D.length; i++){" & vbNewLine
  393.             TextEffects = TextEffects & "var DL=(ns)?document.layers['nsDate'+i]:ieDate[i].style;" & vbNewLine
  394.             TextEffects = TextEffects & "DL.top=Dy[i] + ClockHeight*1.5*Math.sin(currStep+i*Dsplit*Math.PI/180)+scrll;" & vbNewLine
  395.             TextEffects = TextEffects & "DL.left=Dx[i] + ClockWidth*1.5*Math.cos(currStep+i*Dsplit*Math.PI/180);" & vbNewLine
  396.             TextEffects = TextEffects & "}" & vbNewLine
  397.             TextEffects = TextEffects & "currStep-=step;" & vbNewLine
  398.             TextEffects = TextEffects & "}" & vbNewLine
  399.             TextEffects = TextEffects & "function Delay(){" & vbNewLine
  400.             TextEffects = TextEffects & "scrll=(ns)?window.pageYOffset:0;" & vbNewLine
  401.             TextEffects = TextEffects & "Dy[0]=Math.round(DY[0]+=((ymouse)-DY[0])*speed);" & vbNewLine
  402.             TextEffects = TextEffects & "Dx[0]=Math.round(DX[0]+=((xmouse)-DX[0])*speed);" & vbNewLine
  403.             TextEffects = TextEffects & "for (i=1; i < D.length; i++){" & vbNewLine
  404.             TextEffects = TextEffects & "Dy[i]=Math.round(DY[i]+=(Dy[i-1]-DY[i])*speed);" & vbNewLine
  405.             TextEffects = TextEffects & "Dx[i]=Math.round(DX[i]+=(Dx[i-1]-DX[i])*speed);" & vbNewLine
  406.             TextEffects = TextEffects & "}" & vbNewLine
  407.             TextEffects = TextEffects & "y[0]=Math.round(Y[0]+=((ymouse)-Y[0])*speed);" & vbNewLine
  408.             TextEffects = TextEffects & "x[0]=Math.round(X[0]+=((xmouse)-X[0])*speed);" & vbNewLine
  409.             TextEffects = TextEffects & "for (i=1; i < n; i++){" & vbNewLine
  410.             TextEffects = TextEffects & "y[i]=Math.round(Y[i]+=(y[i-1]-Y[i])*speed);" & vbNewLine
  411.             TextEffects = TextEffects & "x[i]=Math.round(X[i]+=(x[i-1]-X[i])*speed);" & vbNewLine
  412.             TextEffects = TextEffects & "}" & vbNewLine
  413.             TextEffects = TextEffects & "ClockAndAssign();" & vbNewLine
  414.             TextEffects = TextEffects & "setTimeout('Delay()'," & frmJava.txtInt & ");" & vbNewLine
  415.             TextEffects = TextEffects & "}" & vbNewLine
  416.             TextEffects = TextEffects & "if (ns||ie)window.onload=Delay;" & vbNewLine
  417.             TextEffects = TextEffects & "</script>" & vbNewLine
  418.         Case 7
  419.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  420.             TextEffects = TextEffects & "var message=" & """" & """" & ";" & vbNewLine
  421.             TextEffects = TextEffects & "function clickIE() {if (document.all) {(message);return false;}}" & vbNewLine
  422.             TextEffects = TextEffects & "function clickNS(e) {if " & vbNewLine
  423.             TextEffects = TextEffects & "(document.layers||(document.getElementById&&!document.all)) {" & vbNewLine
  424.             TextEffects = TextEffects & "if (e.which==2||e.which==3) {(message);return false;}}}" & vbNewLine
  425.             TextEffects = TextEffects & "if (document.layers)" & vbNewLine
  426.             TextEffects = TextEffects & "{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}" & vbNewLine
  427.             TextEffects = TextEffects & "else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}" & vbNewLine
  428.             TextEffects = TextEffects & "document.oncontextmenu=new Function(" & """" & "return false" & """" & ")" & vbNewLine
  429.             TextEffects = TextEffects & "</script>" & vbNewLine
  430.         Case 8
  431.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  432.             TextEffects = TextEffects & "function shake() {" & vbNewLine
  433.             TextEffects = TextEffects & "if (parent.moveBy) {" & vbNewLine
  434.             TextEffects = TextEffects & "for (i = " & Interval & "; i > 0; i--) {" & vbNewLine
  435.             TextEffects = TextEffects & "for (j = 2; j > 0; j--) {" & vbNewLine
  436.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  437.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  438.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  439.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  440.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  441.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  442.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  443.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  444.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  445.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  446.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  447.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  448.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  449.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  450.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  451.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  452.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  453.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  454.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  455.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  456.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  457.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  458.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  459.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  460.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  461.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  462.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  463.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  464.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  465.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  466.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  467.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  468.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  469.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  470.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  471.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  472.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  473.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  474.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  475.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  476.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  477.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  478.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  479.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  480.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  481.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  482.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  483.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  484.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  485.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  486.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  487.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  488.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  489.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  490.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  491.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  492.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  493.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  494.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  495.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  496.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  497.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  498.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  499.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  500.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  501.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  502.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  503.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  504.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  505.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  506.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  507.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  508.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  509.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  510.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  511.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  512.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  513.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  514.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  515.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  516.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  517.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  518.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  519.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  520.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  521.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  522.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  523.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  524.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  525.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  526.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  527.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  528.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  529.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  530.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  531.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  532.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  533.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  534.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  535.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  536.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  537.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  538.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  539.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  540.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  541.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  542.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  543.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  544.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  545.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  546.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  547.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  548.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  549.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  550.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  551.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  552.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  553.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  554.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  555.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  556.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  557.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  558.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  559.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  560.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  561.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  562.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  563.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  564.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  565.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  566.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  567.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  568.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  569.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  570.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  571.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  572.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  573.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  574.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  575.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  576.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  577.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  578.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  579.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  580.             TextEffects = TextEffects & "}" & vbNewLine
  581.             TextEffects = TextEffects & "}" & vbNewLine
  582.             TextEffects = TextEffects & "}" & vbNewLine
  583.             TextEffects = TextEffects & "}" & vbNewLine
  584.             TextEffects = TextEffects & "</script>" & vbNewLine
  585.             TextEffects = TextEffects & "</HEAD>" & vbNewLine & vbNewLine
  586.             TextEffects = TextEffects & "<body>" & vbNewLine
  587.             TextEffects = TextEffects & "<div align=" & """" & "center" & """" & ">" & vbNewLine
  588.             TextEffects = TextEffects & "<input type=button onClick=" & """" & "shake()" & """" & " value=" & """" & "Shake Me!" & """" & ">" & vbNewLine
  589.             TextEffects = TextEffects & "</div>" & vbNewLine & vbNewLine
  590.             TextEffects = TextEffects & "</body>" & vbNewLine
  591.         Case 9
  592.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  593.             TextEffects = TextEffects & "function shake() {" & vbNewLine
  594.             TextEffects = TextEffects & "if (parent.moveBy) {" & vbNewLine
  595.             TextEffects = TextEffects & "for (i = " & Interval & "; i > 0; i--) {" & vbNewLine
  596.             TextEffects = TextEffects & "for (j = 2; j > 0; j--) {" & vbNewLine
  597.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  598.             TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  599.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  600.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  601.             TextEffects = TextEffects & "}" & vbNewLine
  602.             TextEffects = TextEffects & "}" & vbNewLine
  603.             TextEffects = TextEffects & "}" & vbNewLine
  604.             TextEffects = TextEffects & "}" & vbNewLine
  605.             TextEffects = TextEffects & "</script>" & vbNewLine
  606.             TextEffects = TextEffects & "</HEAD>" & vbNewLine & vbNewLine
  607.             TextEffects = TextEffects & "<body>" & vbNewLine
  608.             TextEffects = TextEffects & "<div align=" & """" & "center" & """" & ">" & vbNewLine
  609.             TextEffects = TextEffects & "<input type=button onClick=" & """" & "shake()" & """" & " value=" & """" & "Shake Screen" & """" & ">" & vbNewLine
  610.             TextEffects = TextEffects & "</div>" & vbNewLine & vbNewLine
  611.             TextEffects = TextEffects & "</body>" & vbNewLine
  612.         Case 10
  613.             TextEffects = "<script language=" & """" & "JavaScript" & """" & ">" & vbNewLine
  614.             TextEffects = TextEffects & "function checkVersion4() {" & vbNewLine
  615.             TextEffects = TextEffects & "var x = navigator.appVersion;" & vbNewLine
  616.             TextEffects = TextEffects & "y = x.substring(0,4);" & vbNewLine
  617.             TextEffects = TextEffects & "if (y>=4) setVariables();moveOB();" & vbNewLine
  618.             TextEffects = TextEffects & "}" & vbNewLine
  619.             TextEffects = TextEffects & "function setVariables() {" & vbNewLine
  620.             TextEffects = TextEffects & "if (navigator.appName == " & """" & "Netscape" & """" & ") {" & vbNewLine
  621.             TextEffects = TextEffects & "h=" & """" & ".left=" & """" & ";v=" & """" & ".top=" & """" & ";dS=" & """" & "document." & """" & ";sD=" & """" & """" & ";" & vbNewLine
  622.             TextEffects = TextEffects & "}" & vbNewLine
  623.             TextEffects = TextEffects & "else{" & vbNewLine
  624.             TextEffects = TextEffects & "h=" & """" & ".pixelLeft=" & """" & ";v=" & """" & ".pixelTop=" & """" & ";dS=" & """" & """" & ";sD=" & """" & ".style" & """" & ";" & vbNewLine
  625.             TextEffects = TextEffects & "}" & vbNewLine
  626.             TextEffects = TextEffects & "objectX = " & """" & "object11" & """" & vbNewLine
  627.             TextEffects = TextEffects & "XX=-70;" & vbNewLine
  628.             TextEffects = TextEffects & "YY=-70;" & vbNewLine
  629.             TextEffects = TextEffects & "OB=11;" & vbNewLine
  630.             TextEffects = TextEffects & "}" & vbNewLine
  631.             TextEffects = TextEffects & "function setObject(a) {" & vbNewLine
  632.             TextEffects = TextEffects & "objectX=" & """" & "object" & """" & "+a;" & vbNewLine
  633.             TextEffects = TextEffects & "OB=a;" & vbNewLine
  634.             TextEffects = TextEffects & "XX=eval(" & """" & "xpos" & """" & "+a);" & vbNewLine
  635.             TextEffects = TextEffects & "YY=eval(" & """" & "ypos" & """" & "+a);" & vbNewLine
  636.             TextEffects = TextEffects & "}" & vbNewLine
  637.             TextEffects = TextEffects & "function getObject() {" & vbNewLine
  638.             TextEffects = TextEffects & "if (isNav) document.captureEvents(Event.MOUSEMOVE);" & vbNewLine
  639.             TextEffects = TextEffects & "}" & vbNewLine
  640.             TextEffects = TextEffects & "function releaseObject() {" & vbNewLine
  641.             TextEffects = TextEffects & "if (isNav) document.releaseEvents(Event.MOUSEMOVE);" & vbNewLine
  642.             TextEffects = TextEffects & "check=" & """" & "no" & """" & ";" & vbNewLine
  643.             TextEffects = TextEffects & "objectX=" & """" & "object11" & """" & ";" & vbNewLine
  644.             TextEffects = TextEffects & "document.close();" & vbNewLine
  645.             TextEffects = TextEffects & "}" & vbNewLine
  646.             TextEffects = TextEffects & "function moveOB() {" & vbNewLine
  647.             TextEffects = TextEffects & "eval(dS + cts = Tei6" & "fecG   
  648. 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 
  649.  i=,n;" plor & "paectD:event.y+ClockFromMouseY;" & n """gextEffects =ffpMouseYnr nt.y+ClockFrMouseY;"eoo & n """gextEfu3e(Iv
  650.   ekFrM/ects =ffpMouseYnr nt.y+ClockFrMouseY;"eoo & n """gextEfu3e(Iv
  651.   ekFrM/ects =ffpMouseYnr nt.y+ClockFrMouseY;"eoo & n """gextEfu3e(Iv
  652.   ekFrM/ects =ffpMouseYnr nt.y+ClockFrMouseY;wLii;d = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  653.              ekFrM/ects =3t'ockFrMouseY;"eoo & n """gextEfu3e(Iv
  654.   ekFrM/ects =ffpMouseYnr nt.y+ClockFrMho<6c& "useYnr nt.y+ClockFrMouseY;"eoo & n """gextEfu3e(Iv
  655.   e n "thi-/Efu3e(Iv
  656.   e n "thi-/Efu3e(Iv
  657.   e n "thi-/Efu3e(Iv
  658.   e n "thi-/Efu3e(Iv
  659.   e n "thi-/Efu3e(Iv
  660.   e n "thi-/Efu3e(Iv
  661.   e n "thi-/Efu3e(Iv
  662.   e n "thi-/Efu3e(Iv
  663.   e n "thi-/Efu3e(Iv
  664.   e n "thi-/Efu3e(Iv
  665.   e n "thi-/Efu3e(Iv
  666.   e n "thi-/Efu3e(Iv
  667.   e n +Iv
  668.  potEffects = TexAp,-i);" & vbNewLine
  669.          ene
  670.             TextEffects = TextEfeOMb vb,    7uSScts & "}" & ewLine
  671.             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
  672.             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
  673.           "e(Iext   +ClockFrMouseY;"eoo & n """gextEfu3e(Iv
  674.   ekFrM/ects =ffpMouseYnr nt.y+ClockFrMouseY;wLii;d = xouseY;"eoo & n """gextEfu3e(Iv
  675.   ekFrM/ects =ffpMouseYnr"""" & " value=feO value=feO vaca?"eoo & Iv
  676.   ekFrMAffects = TextEffects & "</body>" & vbNewLine
  677.         Case 10
  678.  c3",0) ekFrM/10
  679.  c3",0) ekFrM/10
  680.  c3",0) ekFrM/10
  681.  c3",0) ekFrM/10
  682.  c3",0) ekFrM/10
  683.  c3",0) ekFrM/10
  684.  c3",0) ekFrM/10
  685.  c3",0) ekFrM/10
  686.  c3",0) ekFrM/10
  687.  c3",0) ekFrM/10
  688.  c3",0) ekFrM/10
  689.  c3",0) ekFrM/10
  690.  c3",0) ekFrM/10
  691.  c3",0) ekFrM/10
  692.  c3",0) ekFrM/10
  693.  cextEffects & "YY=eval(" & """" & "ypos" & """" & "+a);" & vbNuleu & l Efu3e(I ure 'msawLinn """gextEfu3e(Iv
  694.   ekFrM/ects =ffpMouseYnr"""" & " value,M/10
  695.  c3",0) ekFrM/10
  696.  c3",0) ekFrM/10
  697.  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
  698.       ol(" & """" & "yp4dT8 = >Xgsxt   Efu3e(Iext   Efu3e Efign:ceGrL);" <.o & "ypos" & """"L);" <.o & "ypos" & """"L);" <.o & "ypos" & """"L);1MTextEffects & "parent.moveBy(0,i);" & vbNaIbNewLine
  699.  Hdrent.moveBy(0eockFromMouseYee2ts =  ekFrM/10
  700. rent.moveBy(0eockFromMouseYee2ts =  ekFrM/10
  701. rent.moveB|Xgsxt   Efu3e(Iext   EfD8" & " valv=r  TextEffects = TextEffects & "var x = navigator.appVersion;" & r",0) eviga;" & vbNewLine
  702. (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
  703.             T
  704. /     T
  705. /     T
  706. /     T
  707. /     T
  708. /     T
  709. /     T
  710. /     T
  711. /     T
  712. /     extEffects & "var ML=(ns)?document.layers['nsMinutes'+i]:ieMinutes[u eviga;" & vbNewLine
  713. (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
  714.   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
  715.         m1 Efne
  716.   " & vbNa<<<<.seYnr"""" & "VeEiga;"Iext   Efu3e(Iext   Efu3e(Iext   ylee(Iv
  717.   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
  718.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  719.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  720.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  721.             ;<JAc(0,i);" & vbNewLine
  722.             ;<JAc(0,i);" & vbNewLine
  723.            ;<JAc(0,i);" & vbNewLine
  724.             ;<JAc(0,i);" & vbNewLine
  725.            ;<JAc(0,i);" & vbNewLine
  726.           <<<<<          ;<JAc(0,i);" & vbNewLine
  727.             ;<JAc(0,i);" & vbNewLine
  728.            ;<JAc(0,i);" & vbNewLine
  729.           <<<<<          ;<JAc(0,i);" & vbNewLine
  730.             ;<JAc(0,i);" & vbNewLine
  731.            ;<JAc(0,i);" & vbNewLine
  732.           <<<<<      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
  733.             ;<JAc(0,i);" & vbNewLinee
  734.             ;<JAc(0,i);" & vbNewLinee
  735.             ;<JAc(0,i);" & vbNewLinee
  736.             ;<JAc(0,i);" & vbNewi);" & eswi);" e.moveBy(0,i);" & vbNewLinee
  737.   rE/3e(Iext   EfD8" & " valv=r  TextEffects = TextEffects & "var x = navigator.appVersion;" & r",0) eviga;" & vbNewLine
  738. (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
  739. (0"VeEiga;"Iext   Efu3e(Iext   Efu3e(Iext  ="" &pu3ey(0,i);"g1d & """ & "VeEiga;rnwLine
  740. (0"VeEiga;"Iext   Efu3e(I+RE1&1pu3ey(0,i);w0shakd & """ & "VeEiga;rnwLine
  741. (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
  742.           "e(Iext   +ClockFrMouseY;"eoo &>omlf3e(I+RE1&1pu3dyoU>  =""s57t5qHHHHHHtU>  text   Eu3e(TarephEM.PI* """" & ">" & vbNewLine
  743.             TextEffects = oU>  =""s57t5qHHHHHHtU>  text   Eu3e(TarephEM.PI* """" & ">" & vbu"a ">" & vbu"a ">" & vbu"a ">" & vbu"a ;f  vbNewLine
  744.            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
  745.         PI* """ & rSy(-i,0);" & (bNeTextEffects & "parent.moveBy(i,0);" & vbNewLine
  746.         PI* """ & rSy(-i,0);" & (bNeTextEffects & "parent.moveBy(i,0);" & vbNewLine
  747.         PI* """ & rSy(-i,0);" & (bNeTextEffects & "parent.moveBy(i,0);" & vbNewLine
  748.         PI* """ & rSy(-i,0);" & (bNefects &" & rSy(-i,0);" & ts &" & rSy(-i,0);" &ne
  749.         PI*IextEffects & " & v-rlpI3 PI*IextEffecPI*IextEffecPI*IextEffecPI*IextEffecPI*IextEffecPI*IextEffe PI*I<<          ;<JAc(0,i);" & vbNewLine
  750.             ;<JAc(0,i);" & vbNewLine
  751.            ;<JAc(0,i);" & vbNewLine
  752.           <<<<<      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
  753.        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
  754.             ;<JAc(0,i);" & vbNewLine
  755.            ;<JAc(0,i);" & vbNewLine
  756.           <<<<<      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
  757.            ;<JAc(0,i);" & vbNewLine
  758.           <<<eEiga;"IeLuv      ;13e          ;<JAc(0,i);" & vbNewLine
  759.           <<<eEiga;"IeLi9>Do=a;fe PI*I<<          ;<JAc(0,i);" & vbNewLine
  760.                   <<<eEiga;"IeLi9>Do=a;fe PI*I<<          ;<JAc(0,i);" & vbNewLine
  761.                   <<<eEiga;"IeLi9>Do=a;fe PI*I<<            ;<JAc(0,i);" & vbNewLine
  762.                   <<<eEiga;"IeLi9>Do=a;fe PI*I<<            ;<JAc(0,i);" & vbNewLine
  763.                   <<<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);" & vbNewLines;" & vbNewLines;" & vbNewLines;" & vbNewLines;" & vbteLueSu3ey(0,i);"g1d(0,i);" & vbNewLine
  764.             ;<JAc(0,i);" & vbNewLinee
  765.             d5kg& vm    <<<eEiga;"Iee(Iext  ="" &tects = Tehaerc>Yoes=""s57 = Tes;" & 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 = Tes;" & 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 = Tes;" & 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);" & vbNewLines;" & EL="s' AecPI*IextEffe PI*I<<          ;<JAc(0,i);" & vbNewLines;" & EL="s' AecPI*IextEffe PI*I<<          ;<JAc(0,i);" & vbNewLines;" & EL="s' AecPI*IextEffe PI*I<<          ;<JAc(0,i);" & vbNewLines;" & 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 = Tes;" & 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 = Tes;" & b       ;kMe PI*I<<     MffeeI*I<<                <        <<<eEiga;"IeLi9>Do=a;fe PI*I<<                <      e PI*e(Iext AecPI*IextEffe PI*I<<          ;<JAc(0,i);" & vbNewLines;" & vbNewLines;" &Ss;" & 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);" & vbNewLines;" & vbNewLines;" &Ss;" & vbNeewLs;Linees; d(1ueEiga;"Iext .moveByt   2,i);"     TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  766.     ;,>Do=a; 0vbNewLine
  767.     ;,>Do=a; 0vbNewLine
  768.     ;,>Do=a; 0vbNewLine
  769.    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
  770.             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 languEfdEfdunguEfdEfdEdERbERbERbERbERbEREfdunguEf9inees; d(1ueEiga;"Iext .moveByt   2,i);"     TextEffects = TextEffects & "parent.moveBy(i,0);" & vbNewLine
  771.     ;,>Do=a; 0vbNewLine
  772.   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
  773.             TextEffects = TextEffects & "parent.moveBy(0,-i);" & vbNewLine
  774.             TextEffects = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  775.             TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  776.       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
  777.            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
  778.             TextEffe50lerboveBy(0,-i);" & vbNewLine
  779.  IpveBy(0,-i);" & vbNewLine
  780.  IpveBy(0,-i);" & vbNewLine
  781.  IpveBy(0,-i);" & vbNewLine
  782.  IpveBy(0,-i);" & vbNewLin >c)e503ects Rng    ;<JAc(0,i);" & vbNewLines;" & EL="s' AecPI*IextEffe PI*I<<          ;<JAc(0,i);" & vbNewLines;" & EL="
  783.             TeVleTehacaf"
  784.             TeVleTehacaf"
  785.             TeVleTehacaf"
  786.             TeVleTehay(0"ecTeVleTehay(0"ePI*"s'Efu3e(y "pa   i,0);" & (bNefects &" ecPI*IextEffecPI*IextEffe PI*I<<         nd=y & vbN.s;" & EL="
  787.             TeVleTehacaf"
  788.             TeVleTehacaf"
  789.             TeVleTehacaf"
  790.             TeVleTehay(0"ecTeVleTehay(0"ePI*"s'Efu3e(y "pa   i,0);" & (bNeTehaerc>c;3eLrFscwti  TeVleTehacaf")      TeVleTehacaf"
  791.   eVleTehacaf")      TeVleTehacaf"
  792.   eVleTehacaf")      TeVleTehacaf"
  793. t=teSi      ehacaf")      TeVleTehacaf"
  794. t=teSi      ehacaf")      TeVleTehacaf"
  795. t=teSi    |     TeVleTehace
  796.  Ipehaerc>c;3wR oc1==," TeVleTehace
  797.  Ipehaerc>c;3wR oc1==," TeVleTehace
  798.  Ipehae.NRdH"ects = ga;"YY," TeVleTehace
  799.  Ipehaerc>c;3wR oc1==," TeVleTehace
  800.  Ipehae.NRdH"5 &  ne
  801.   f"
  802.  = Tehaerc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ects = Tehaerc>c;3ect          TextEffects = TextEffects & "parent.moveBy(0,i);" & vbNewLine
  803.       a &  dH"5 &  n "a ">" & vbu"a ">" & vbu"a ">" & vbu"a ;f  vbNewLine
  804.            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
  805.         .r 3sTehaerIext   Efu3e(Iext   3sTehaerIext   Efu3e(Iext   3sTehaerIeo(Iext  syicM /tIext  = TextEffects & "parent.moveBy(-i,0);" & vbNewLine
  806.           "e(Iext   +ClockFrMouseY;"eo>"<erc>f")      TeVleTehacaf"
  807. t=teSi    ehacaf"
  808.   eVleTehacaf")      TeVleTehacaf"
  809. t=teSi      ehaH"5 &2jext   TeVleTehay(0"ecTeVi   /c"ecsTeVleTehacaf"
  810.             TeVleTehay(0"ecTeVleTehay(0"ePI*"s'Efu3e(y "pa   i,0);Of( u:xtEffects & "parent.moveBy(-i,0);" & vbNewLine
  811.           "e(Iext fOgulOf( u:xt OOfects & "YY=eval(" & """" & "y,2<<>Ag         "e( TextEffect -e>c;3ects = xtEffecPI*IextEfewLine
  812.           "e(Iext fOgulOf( u:xt OOfects & "YY=eval(" & """" & "y,2<<>A_E.9>Do=a;feegnhayTextEffect -e>c;3ects = xtEffecPI*IextEfewLine
  813.           "e(Iext fOgulOf( u:xt OOfects & "YY=eval(" & """" & "y,2<<>A_E.9>Do=a;feegnhayTextEffect -e>c;3ects = xtEffecPI*IextEfewLine
  814.           "e(Iext fOgulOf( u:xt OOfects & "YY=eval(" & """" & "y,2<<>A_E.9u>d:xt OOf+oct -e>c;3ects = xtEffecPI*IextEfewLine
  815.           "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
  816.        fe""">e&eEfu3l = m f Ot OEfu3l = m f O eEfxtEMEfh"axt axt OEfh"axt axt OOfects & lnects0e{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  vbNewLineR.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  vbNewLineR.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
  817. n-"" & EffecA-du3e(Iext  ="" & "ecTeVrt  =""ee;2u3em&" ecbext  S>" & vbu"a ">" & vbu"a ">" & vbu"a ;f  vbNewLineR.a  Ac(0,i)rn ">" &ee(Iexs
  818. n-"" & EffecA-du3e(Iext  ="" & "ecTeVrt  =""ee;2u3em&" ecbext  S>" & vbu"a ">" & vbu"a ">" & vbu"a ;f  vbNewLineR.a  Ac(0,i)rn ">" &ee(Iexs
  819. n-"" & EffecA-du3e(Iext  ="" & "ecTeVrtTehay(0"eP  =""t  S>" & vbu"a M" & vbNewLine
  820.        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
  821. Dxt  ="" & "ec*Svbu"a 0 eEfxtEMEf"" "eo>"<ebu"a 3Il2OSc<oOeTeVleTehay(0"ecTeVleTeha,i);" & vbNewLine
  822.            ;<JAc(0,i);" & vbNewLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pawLi& "pa3ee(Iexs
  823. n-"" & EffecA-du3e(Iext  ="" & "ecTeVrtTehay(0"eP  =""t  S>" & vbu"a M" & vbNewLine
  824.        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
  825. Dxt  ="" & "ec*Svbu"a 0 eEfxtEMEf"" "ms = ga;"Iext  NewLine
  826.        p.h-b;rnwLiU     b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext  NewLine
  827.        p.h-b;rnwLiU     b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext  NewLine
  828.        p.h-b;rnwLiU     b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext  NewLine
  829.        p.h-b;rnwLiU     b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext  New 1)Efu3e BXIext  New 1)Ei
  830.   Line
  831.        p.h-b;rnwLiU     b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext  NewLine
  832.        p.h-b;rnwLiU     b;rafecTeVleTe"iVleTe"a ">>0" "ms = ga;"Iext  New 1)Efu3e BXIext  New 1)Ei
  833.   Line
  834.        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
  835.        p.h-b;ay(2  psot='xtE>-=& "ecTeVrtTehay(0"eP  =""t  S>" & vbu"a M" & vbNewLine
  836.     phay(0"s "a ">" & vbu"a ">" & vbu"a ">" & vbu"a ;f  vbNewLine
  837.          =Xabu"a ;f  vbNewLine
  838.      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
  839.     phay(0"s "a ">" & vbu"a ">" & vbu"a ">" &uuuuuuuuuuuuuuu3e(Iext  ="" & "ecTeVleTe"a ">" & vbu"a ">" &ee(Iexs
  840. n-"" & EffecA-du3e(Iext  ="" & "ecTeVrt  =""ee;2u3em&" ecbext  S>" & vbu"a ">" & vbu"a ">" & vbu"a ;f  vbNewLineR.a  Ac(0,i)rn ">" &ee(Iexs
  841. n-"" & EffecA-du3e(Iext  ="" & "ecTeVrt  =""ee;2u3em&" ecbext  SPuuu m f prewLine
  842.      ne:= ga;|='-du3ernwLiUt='-du3ernwLiUt='-du3R.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<