una trappola!
- Posts:
- 6,767
- Group:
- Developer
- Member
- #223,645
- Joined:
- October 30, 2006
- I'm Browsing With
- Firefox
|
This topic has been moved from our official support board.
Originally posted by: Icy-gal - [code
-
Wizard; yet code for your website]code from herevery kool code that makes a wizard appear on the screen and talk to your guests. i havent been able to get it to work on my forum, cause its to big. but it works great on websites! :w00t: enter code here for preview - Code:
-
<html> <head> <META HTTP-EQUIV="Refresh" CONTENT="190;URL=main.htm"> <title>:page title:</title> </head>
<body bgcolor="black"><center><!--msnavigation--><table dir="ltr" border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
<table style="margin:16 0; background:buttonface; color: buttontext; border: 2px outset; display:none; width: 100%; font-style:normal; font-variant:normal; font-weight:normal; font-size:8pt; font-family:Verdana; padding-left:8; padding-right:8; padding-top:1; padding-bottom:3"> <tr> <td> <div <B ID="MyAgentObject"> </div> <script language="VBScript"> Public Agent, Char, AnUnlikelyRequestName, Playing, Path, ScreenOrgX, ScreenOrgY, PointFactor, RestFactor, DownloadButton PreferredLanguage = "VBScript"
AltCharPaths = 1
NoLocal = False
MyFirstTime = True
PlayedOnce = False
ModCharID = "EmptyForNow"
Spanish = 1034
English = 1033
on error resume next
sub window_onload
ScreenOrgX = window.event.screenX - window.event.clientX ScreenOrgY = window.event.screenY - window.event.clientY
playing = false
if ( agentstart.selectedindex >= 0 ) and ( agentstart.selectedindex < 5 ) then DownloadButton = "center" if ( agentstart.selectedindex > 4 ) and ( agentstart.selectedindex < 9 ) then DownloadButton = "left" if ( agentstart.selectedindex > 8 ) and ( agentstart.selectedindex < 13 ) then DownloadButton = "right"
select case agentstart.selectedindex case 0 DoAgent case 1 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=center><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>" Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=center><button id=StartAgent>Click here for an animated presentation</button></p>" end select case 2 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=center><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>" Case else : document.body.insertAdjacentHTML "BeforeEnd","<p align=center><button id=StartAgent>Click here for an animated presentation</button></p>" end select case 3 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=center><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>" Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=center><button id=StartAgent>Click here to replay the animated presentation</button></p>" end select DoAgent case 4 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=center><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>" Case else : document.body.insertAdjacentHTML "BeforeEnd","<p align=center><button id=StartAgent>Click here to replay the animated presentation</button></p>" end select DoAgent case 5 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=left><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>" Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=left><button id=StartAgent>Click here for an animated presentation</button></p>" end select case 6 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=left><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>" Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=left><button id=StartAgent>Click here for an animated presentation</button></p>" end select case 7 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=left><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>" Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=left><button id=StartAgent>Click here to replay the animated presentation</button></p>" end select DoAgent case 8 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=left><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>" Case else : document.body.insertAdjacentHTML "BeforeEnd","<p align=left><button id=StartAgent>Click here to replay animated presentation</button></p>" end select DoAgent case 9 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=right><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>" Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=right><button id=StartAgent>Click here for an animated presentation</button></p>" end select case 10 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=right><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>" Case else : document.body.insertAdjacentHTML "BeforeEnd","<p align=right><button id=StartAgent>Click here for an animated presentation</button></p>" end select case 11 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=right><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>" Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=right><button id=StartAgent>Click here to replay the animated presentation</button></p>" end select DoAgent case 12 select Case AgentLanguage.SelectedIndex Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=right><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>" Case else : document.body.insertAdjacentHTML "BeforeEnd","<p align=right><button id=StartAgent>Click here to replay the animated presentation</button></p>" end select DoAgent end select
end sub
sub document_onclick
if window.event.srcelement.id = "StartAgent" then DoAgent
end sub
Sub DoAgent select Case AgentLanguage.SelectedIndex Case 0 : Window.Status = "Instalando software lógica de Microsoft, sea paciente, conteste SÍ a las guías entonces Re-Click al botón o recargue por favor esta paginación." Case else: Window.Status = "Installing Software From Microsoft, please be patient, answer YES to Prompts then Re-Click The Button or Re-Load this Page." end select
if MyFirstTime then
MyAgentObject.insertAdjacentHTML "AfterBegin","<Object ID=" & Chr(34) & "Agent" & Chr(34) & " Width=32 Height=32 ClassID=" & Chr(34) & "CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F" & Chr(34) & "CodeBase=" & Chr(34) & "#VERSION=2,0,0,0" & Chr(34) & ">" & "</Object>"
select Case AgentLanguage.SelectedIndex Case 0 MyAgentObject.insertAdjacentHTML "AfterBegin","<OBJECT WIDTH=0 HEIGHT=0 CLASSID=" & Chr(34) & "CLSID:0C7F3F20-8BAB-11d2-9432-00C04F8EF48F" & Chr(34) & "CODEBASE=" & Chr(34) & "#VERSION=4,0,0,0" & Chr(34) & ">" & "</OBJECT>" MyAgentObject.insertAdjacentHTML "BeforeEnd"," <OBJECT WIDTH=0 HEIGHT=0 CLASSID=" & Chr(34) & "CLSID:C3480C0A-A7F8-11D1-AA75-00C04FA34D72" & Chr(34) & "CODEBASE=" & Chr(34) & "#VERSION=2,0,0,0" & Chr(34) & ">" & "</OBJECT>" MyAgentObject.insertAdjacentHTML "AfterEnd"," <OBJECT WIDTH=0 HEIGHT=0 CLASSID=" & Chr(34) & "CLSID:1D87F5B9-05F1-11d2-AD7C-0000F8799342" & Chr(34) & "CODEBASE=" & Chr(34) & "#VERSION=1,0,0,0" & Chr(34) & ">" & "</OBJECT>" Case 1 MyAgentObject.insertAdjacentHTML "BeforeEnd","<Object ID=" & Chr(34) & "TruVoice" & Chr(34) & "Width=32 Height=32 ClassID=" & Chr(34) & "CLSID:B8F2846E-CE36-11D0-AC83-00C04FD97575" & Chr(34) & "CodeBase=" & Chr(34) & "#VERSION=6,0,0,0" & Chr(34) & ">" & "</Object>" Case 2 MyAgentObject.insertAdjacentHTML "AfterBegin","<OBJECT WIDTH=0 HEIGHT=0 CLASSID=" & Chr(34) & "CLSID:0C7F3F20-8BAB-11d2-9432-00C04F8EF48F" & Chr(34) & "CODEBASE=" & Chr(34) & "#VERSION=4,0,0,0" & Chr(34) & ">" & "</OBJECT>" MyAgentObject.insertAdjacentHTML "AfterEnd"," <OBJECT WIDTH=0 HEIGHT=0 CLASSID=" & Chr(34) & "CLSID:1D87F5B2-05F1-11d2-AD7C-0000F8799342" & Chr(34) & "CODEBASE=" & Chr(34) & "#VERSION=1,0,0,0" & Chr(34) & ">" & "</OBJECT>" end select
MyFirstTime = False
end if
if not playing and AgentText.innerText <> "" then on error resume next
Set Agent = CreateObject("Agent.Control.2")
if err.number <> 0 then exit sub
Agent.Connected = True
for x = 0 to 5 select Case AgentBox.SelectedIndex Case 0 :CharID = "PM_Green" : CharFile = "PM_Green.acs" : LCharFile = "PM_Green.acf" : AltCharPaths = 0 : RestFactor = 0.90 : PointFactor = 0.333 : NextSelection = array( 1, 2, 3, 4, 5,10) : Path = "http://www.fyi-net.com/msagent/" Case 1 :CharID = "Merlin" : CharFile = "Merlin.acs" : LCharFile = "merlin/merlin.acf" : AltCharPaths = 0 : RestFactor = 0.90 : PointFactor = 0.333 : NextSelection = array( 0, 2, 3, 4, 6,10) : Path = "http://agent.microsoft.com/agent2/chars/" Case 2 :CharID = "Genie" : CharFile = "Genie.acs" : LCharFile = "genie/genie.acf" : AltCharPaths = 0 : RestFactor = 0.95 : PointFactor = 0.133 : NextSelection = array( 0, 1, 3, 4, 7,10) : Path = "http://agent.microsoft.com/agent2/chars/" Case 3 :CharID = "Peedy" : CharFile = "Peedy.acs" : LCharFile = "peedy/peedy.acf" : AltCharPaths = 0 : RestFactor = 0.92 : PointFactor = 0.111 : NextSelection = array( 0, 1, 2, 4, 8,10) : Path = "http://agent.microsoft.com/agent2/chars/" Case 4 :CharID = "Robby" : CharFile = "Robby.acs" : LCharFile = "robby/robby.acf" : AltCharPaths = 0 : RestFactor = 0.94 : PointFactor = 0.111 : NextSelection = array( 0, 1, 2, 3, 9,10) : Path = "http://agent.microsoft.com/agent2/chars/" Case 5 :CharID = "PM_Green" : CharFile = "PM_Green.acs" : LCharFile = "PM_Green.acf" : AltCharPaths = 1 : RestFactor = 0.90 : PointFactor = 0.333 : NextSelection = array(10,10,10,10,10,10) : Path = "http://www.fyi-net.com/msagent/" Case 6 :CharID = "Merlin" : CharFile = "Merlin.acs" : LCharFile = "merlin/merlin.acf" : AltCharPaths = 1 : RestFactor = 0.55 : PointFactor = 0.333 : NextSelection = array(10,10,10,10,10,10) : Path = "http://agent.microsoft.com/agent2/chars/" Case 7 :CharID = "Genie" : CharFile = "Genie.acs" : LCharFile = "genie/genie.acf" : AltCharPaths = 1 : RestFactor = 0.95 : PointFactor = 0.133 : NextSelection = array(10,10,10,10,10,10) : Path = "http://agent.microsoft.com/agent2/chars/" Case 8 :CharID = "Peedy" : CharFile = "Peedy.acs" : LCharFile = "peedy/peedy.acf" : AltCharPaths = 1 : RestFactor = 0.92 : PointFactor = 0.111 : NextSelection = array(10,10,10,10,10,10) : Path = "http://agent.microsoft.com/agent2/chars/" Case 9 :CharID = "Robby" : CharFile = "Robby.acs" : LCharFile = "robby/robby.acf" : AltCharPaths = 1 : RestFactor = 0.94 : PointFactor = 0.111 : NextSelection = array(10,10,10,10,10,10) : Path = "http://agent.microsoft.com/agent2/chars/" end select
if x = 0 then SavedSelection = NextSelection
for i = 0 to AltCharPaths
err.clear if i < 1 then Agent.Characters.Load CharID, CharFile else Agent.Characters.Load CharID, Path & LCharFile end if
if err.number = 0 then If i = 1 then NoLocal = True select Case AgentLanguage.SelectedIndex Case 0 : Window.Status = "El Cargar O El Controlar Si hay Secuencias Del Carácter Para " & CharID & " Sea Por favor Paciente." Case else : Window.Status = "Loading Or Checking For Character Sequences For " & CharID & " Please Be Patient." end select end if exit for end if
next
if err.number <> 0 then if SavedSelection(x) = 10 then select Case AgentLanguage.SelectedIndex Case 0 : msgbox "Este carácter no fue encontrado en ningunas de las localizaciones generalmente. Intente otro carácter, o selecciónelo de la opción de Microsoft para que este carácter cargue de microsoft automáticamente." & vbCr & "ok?" Case else : msgbox "This character was not found in none of the usual locations. Try another character, or select the from Microsoft option for this character to load from microsoft automatically." & vbCr & "ok?" end select set agent = nothing exit sub end if end if
if err.number = 0 then exit for
if SavedSelection(x) <> 10 then AgentBox.SelectedIndex = SavedSelection(x) next
playing = True
Set Char = Agent.Characters(CharID)
select Case AgentLanguage.SelectedIndex Case 0 : Char.LanguageID = Spanish Case 1 : Char.LanguageID = English Case 2 if NoLocal then Char.LanguageID = 1033 else Char.TTSModeID = "{227A0E41-A92A-11d1-B17B-0020AFED142E}" end if end select
if CharID = "PM_Green" then ModCharID = "pmgreen" Copyright = "</A><br>Uses Microsoft Agent Technology<br><A HREF=" & Chr(34) & "http://www.fyi-net.com" & Chr(34) & "TARGET=" & Chr(34) & "_BLANK" & Chr(34) & ">" & CharID & " (c) Copyright 2000 FYI-Net L.P. All Rights reserved </A> </small></Font></P>" else ModCharID = lcase(CharID) Copyright = "</A> <br><br>Uses Microsoft Agent Technology<br>" & CharID & " (c) 1996-1998 Microsoft Corporation. All rights reserved</small></Font>" end if
if NoLocal then if not PlayedOnce then select Case AgentLanguage.SelectedIndex Case 0 :document.body.insertAdjacentHTML "BeforeEnd","<P align=" & DownloadButton & "><Font size =-1><small>" & copyright & " " Case 1 :document.body.insertAdjacentHTML "BeforeEnd","<P align=" & DownloadButton & "><Font size =-1><small>" & copyright & " " Case 2 :document.body.insertAdjacentHTML "BeforeEnd","<P align=" & DownloadButton & "><Font size =-1><small>" & copyright & " " end select end if Char.Get "State", "Showing, Speaking, Hiding" Char.Get "Animation", "Greet, GreetReturn" Char.MoveTo 100,100 Char.Show if not PlayedOnce then select Case AgentLanguage.SelectedIndex Case 0 : Char.Speak "\spd=130\ Hola, mi nombre es " & CharID &" Me no salvan actualmente en su sistema así que he puesto una conexión en la paginación de modo que usted pueda descargarme después de esto si usted elige, yo deba ahora conseguir mis pedazos del Internet o controle por lo menos para ver si mis pedazos son aquí a partir de vez última, yo pueda parecer me pegan, pero no soy, sea por favor paciente, yo seré listo pronto. Usted puede descargarme haciendo clic en los thats del botón dice más adelante consigue este carácter y entonces elegir el funcionamiento de esto la opción actual de la localización y yo estará disponible sin este retardo y la necesidad de informarle en el futuro." Case 1 : Char.Speak "Hello, my name is " & CharID &" I am currently not stored on your system so I have placed a link on the page so that you can download me after this if you choose, I must now get my pieces from the internet or at least check to see if my pieces are here from last time, I may look like I am stuck, but I am not, please be patient, I will be ready shortly. You can download me later by clicking on the button thats says get this character and then choosing the Run From Current Location option and I will be available without this delay and the need to inform you of this in the future." Case 2 : Char.Speak "Hello, my name is " & CharID &" I am currently not stored on your system so I will not be able to speak with a British voice until I am downloaded on your computer, I have placed a link on the page so that you can download me after this if you choose, I must now get my pieces from the internet or at least check to see if my pieces are here from last time, I may look like I am stuck, but I am not, please be patient, I will be ready shortly. You can download me later by clicking on the button thats says get this character and then choosing the Run From Current Location option and I will be available without this delay and the need to inform you of this in the future." end select end if else if not PlayedOnce then select Case AgentLanguage.SelectedIndex end select end if Char.MoveTo 100,100 Char.Show Char.MoveTo ScreenOrgX + document.body.clientWidth - char.width, ScreenOrgY + document.body.clientheight - char.height * RestFactor Window.Status = "Playing your message" end if for x = 0 to 1
tx = replace(AgentText.innerText,vbCr,"{}")
Do While tx <> ""
MacroStart = instr(tx, "{")
Select Case MacroStart Case 0 if not NoLocal then select Case AgentLanguage.SelectedIndex Case 0 : Char.Speak "\spd=130\ " & tx Case 1 : Char.Speak tx Case 2 : Char.Speak "\spd=190\ " & tx end select end if tx = "" Case 1 if len(tx) > 1 then tx = mid(tx, MacroStart + 1) else tx = "" Case else if not NoLocal then select Case AgentLanguage.SelectedIndex Case 0 :Char.Speak "\spd=130\ " & left(tx, MacroStart - 1) Case 1 :Char.Speak left(tx, MacroStart - 1) Case 2 :Char.Speak "\spd=190\ " & left(tx, MacroStart - 1) end select end if if len(tx) > 1 then tx = mid(tx, MacroStart + 1) else tx = "" End Select
MacroEnd = instr(tx, "}")
Select Case MacroEnd Case 0 tx = "" Case 1 if len(tx) > 1 then tx = mid(tx, MacroEnd + 1) else tx = "" Case else Macro = trim(left(tx, MacroEnd - 1)) if not NoLocal then if left(Macro,1) <> "#" then window.execScript "Char." & Macro, PreferredLanguage else window.execScript mid(Macro,2), PreferredLanguage end if else if left(Macro,1) = "p" then window.execScript "Char.Get " & Chr(34) & "Animation" & Chr(34) & ", " & mid(Macro,5), PreferredLanguage end if end if if len(tx) > 1 then tx = mid(tx, MacroEnd + 1) else tx = "" End Select
Loop
if not NoLocal then exit for
if NoLocal then NoLocal = False next
set AnUnlikelyRequestName = Char.Hide if err.number = 0 then window.settimeout "finish", 2000, "vbscript" else Playing = false set char = nothing set agent = nothing end if
end if
PlayedOnce = True
End Sub
sub finish
if AnUnlikelyRequestName.status <> 0 then window.settimeout "finish", 2000, "vbscript" else set char = nothing set agent = nothing Playing = False end if
end sub
</script> <td colspan="2" height="1%" style="background:ActiveCaption; color:captiontext; font-weight:bold">Instant Animated Agent Stationery III Copyright by Programming-Services.com the FREE Computer Jobs/Resumes Site <tr> <td colspan="2" height="1%" class="box">Uses Microsoft Agent Technology - Microsoft Genie, Merlin, Peedy, and Robby characters (c) 1996-1998 Microsoft Corporation, All rights reserved.<br> PM_Green character (c) Copyright 2000 FYI-Net L.P. All Rights reserved<br> <br> Type your normal message outside (above or below) this box. This box will not be visible to the recipient.<br> You may need to click in the white area outside of the grey box prior to entering text into the grey box. <tr> <td nowrap height="1%" class="box">Select Language <td align="right" height="1%" class="box"><select id="AgentLanguage" size="1" style="font:8pt Verdana"> <option value="Spanish">Spanish <option value="English" selected>English <option value="British">British </select> <tr> <td nowrap height="1%" class="box">Select how to start your agent: <td align="right" height="1%" class="box"><select id="AgentStart" size="1" style="font:8pt Verdana"> <option value="auto">The agent plays automatically <option value="playtop">Add a button to start the agent at the top centered <option value="playbottom">Add a button to start the agent at the bottom centered <option value="replaytop">Automatic with a replay button at the top centered <option value="replaybottom">Automatic with a replay button at the bottom centered <option value="playtop">Add a button to start the agent at the top on left side <option value="playbottom">Add a button to start the agent at the bottom on left side <option value="replaytop">Automatic with a replay button at the top on left side <option value="replaybottom">Automatic with a replay button at the bottom on left side <option value="playtop">Add a button to start the agent at the top on right side <option value="playbottom">Add a button to start the agent at the bottom on right side <option value="replaytop">Automatic with a replay button at the top on right side <option value="replaybottom">Automatic with a replay button at the bottom on right side </select> <tr> <td nowrap height="1%" class="box">Select your agent: <td align="right" height="1%" class="box"><select id="AgentBox" size="1" style="font:8pt Verdana"> <option value="PM_Green">PM_Green or Any Character Found on Recipient's Computer or PM_Green From FYI-Net <option value="merlin">Merlin or Any Character Found on Recipient's Computer or Merlin From Microsoft <option value="genie">Genie or Any Character Found on Recipient's Computer or Genie From Microsoft <option value="peedy">Peedy or Any Character Found on Recipient's Computer or Peedy From Microsoft <option value="robby">Robby or Any Character Found on Recipient's Computer or Robby From Microsoft <option value="PM_Green">PM_Green Found on Recipient's Computer or PM_Greeen From FYI-Net <option value="merlin">Merlin Found on Recipient's Computer or Merlin From Microsoft <option value="genie">Genie Found on Recipient's Computer or Genie From Microsoft <option value="peedy">Peedy Found on Recipient's Computer or Peedy From Microsoft <option value="robby">Robby Found on Recipient's Computer or Robby From Microsoft </select> <tr> <td colspan="2" height="1%" class="box">Type below the text the Agent should say. You can include animation's and character commands by surrounding them with braces. For example: {play "Wave"} or {moveto 100,200}. You can also just enter plain text by itself without all this stuff if desired. <tr> <td id="AgentText" colspan="2" style="background: window; border:2px inset; color: text; padding:8; font-style:normal !important; font-variant:normal !important; font-weight:normal !important; font-size:8pt !important; font-family:Verdana !important" height="120" valign="top">{show}<br> {moveto 275,250} {play "GetAttention"} <br> {play "GetAttentionContinued"}<br> {play "GetAttentionContinued"}<br> {play "GetAttentionReturn"}Hey there!<br> {play "Blink"}<br> {play "Surprised"}Oh i am surprised<br> {play "Congratulate"}Well done here is a trophy<br> {play "Blink"}I'm blinkin!<br> {play "Announce"}i have an annoucement to make<br> {play "Blink"}i like blinking {play "Pleased"}i am pleased <br> {play "Explain"}Im explaining something {play "Read"}readin<br> {play "ReadContinued"}next page<br> {play "Sad"}I am sad<br> {play "DoMagic1"}magic<br> {play "DoMagic2"}magic<br> {play "Pleased"}pleased<br> <br> {play "Wave"}Wavin<br> {hide}<br> <br> <br> </table>
<table border=0 cellspacing=0 cellpadding=0 width=564> <tr valign="top" align="left"> <td width="40"><img src="/clipart/pbi/c.gif" height=1 width=31></td> <td width="6"><img src="/clipart/pbi/c.gif" height=1 width=3></td> <td width="69"><img src="/clipart/pbi/c.gif" height=1 width=36></td> <td width="3"><img src="/clipart/pbi/c.gif" height=1 width=1></td> <td width="3"><img src="/clipart/pbi/c.gif" height=1 width=1></td> <td width="6"><img src="/clipart/pbi/c.gif" height=1 width=4></td> <td width="6"><img src="/clipart/pbi/c.gif" height=1 width=1></td> <td width="51"><img src="/clipart/pbi/c.gif" height=1 width=49></td> <td width="6"><img src="/clipart/pbi/c.gif" height=1 width=1></td> <td width="8"><img src="/clipart/pbi/c.gif" height=1 width=6></td> <td width="6"><img src="/clipart/pbi/c.gif" height=1 width=3></td> <td width="67"><img src="/clipart/pbi/c.gif" height=1 width=65></td> <td width="38"><img src="/clipart/pbi/c.gif" height=1 width=36></td> <td width="24"><img src="/clipart/pbi/c.gif" height=1 width=22></td> <td width="53"><img src="/clipart/pbi/c.gif" height=1 width=51></td> <td width="6"><img src="/clipart/pbi/c.gif" height=1 width=1></td> <td width="6"><img src="/clipart/pbi/c.gif" height=1 width=1></td> <td width="11"><img src="/clipart/pbi/c.gif" height=1 width=9></td> <td width="6"><img src="/clipart/pbi/c.gif" height=1 width=4></td> <td width="6"><img src="/clipart/pbi/c.gif" height=1 width=1></td> <td width="15"><img src="/clipart/pbi/c.gif" height=1 width=13></td> <td width="6"><img src="/clipart/pbi/c.gif" height=1 width=4></td> <td width="22"><img src="/clipart/pbi/c.gif" height=1 width=20></td> <td width="211"><img src="/clipart/pbi/c.gif" height=1 width=209></td> <td width="58"><img src="/clipart/pbi/c.gif" height=1 width=56></td> <td width="9"><img src="/clipart/pbi/c.gif" height=1 width=7></td> <td width="26"><img src="/clipart/pbi/c.gif" height=1 width=24></td> <td width="2"><img src="/clipart/pbi/c.gif" height=1 width=0></td> </tr> <tr valign="top" align="left"> <td colspan=28 height=3 width="792"> <p align="center"> <p align="center">
|