<!--
Sub MyMarqueeChange()
 Dim MarqBehavior
 Dim MyScrollAmount
 Dim MyScrollDelay
 Dim MyMarqText
 MyScrollAmount = Int((100 * Rnd) + 1)
 MyMarquee.setAttribute "scrollamount", MyScrollAmount
 MyScrollDelay = Int((10 * Rnd) + 1)
 MyMarquee.setAttribute "scrolldelay", MyScrollDelay
 MarqBehavior = Int((3 * Rnd) + 1)
 MyMarqText= Int((20 * Rnd) + 1)
 If MarqBehavior = 1 Then
 MyMarquee.setAttribute "behavior", "Alternate"
 ElseIf MarqBehavior = 2 Then
 MyMarquee.setAttribute "behavior", "scroll"
 ElseIf MarqBehavior = 3 Then
 MyMarquee.setAttribute "behavior", "slide"
End If
If MyMarqText = 1 Then
 MyMarquee.setAttribute "innerText", "Nature lives in motion--James Hutton"
 ElseIf MyMarqText = 2 Then
MyMarquee.setAttribute "innerText", "Nature always strikes back...It takes all the running we can do to remain in the same place.....--Rene Dubos"
ElseIf MyMarqText = 3 Then
MyMarquee.setAttribute "innerText", "The breaking of a wave cannot explain the whole sea...--Vladimir Nabokov"
ElseIf MyMarqText = 4 Then
MyMarquee.setAttribute "innerText", "Can nature be as absurd as it seems to us in these atomic experiments?...    Werner Heisenberg"
ElseIf MyMarqText = 5 Then
MyMarquee.setAttribute "innerText", "Nature is a wizard...--Henry David Thoreau"
ElseIf MyMarqText = 6 Then
MyMarquee.setAttribute "innerText", "Nature teaches more than she preaches. There are no sermons in stones. It is easier to get a spark out of a stone than a moral...  --John Burroughs"
ElseIf MyMarqText = 7 Then
MyMarquee.setAttribute "innerText", "The transition by which nature passes from lifeless things to animal life is so insensible that one can determine no exact line of demarcation, nor say for certain on which side any intermediate form should be...  --Aristotle"
ElseIf MyMarqText = 8 Then
MyMarquee.setAttribute "innerText", "Drive Nature forth by force, she'll turn and rout....The false refinements that would keep her out....  --Horace"
ElseIf MyMarqText = 9 Then
MyMarquee.setAttribute "innerText", "There is a mask of theory over the whole face of Nature....    --William Whewell"
ElseIf MyMarqText = 10 Then
MyMarquee.setAttribute "innerText", "laws of nature could not exist without principles of invariance....   ---Eugene Wigner"
ElseIf MyMarqText = 11 Then
MyMarquee.setAttribute "innerText", "Both marriage and death ought to be welcome: the one promises happiness, doubtless the other assures it...--Mark Twain"
ElseIf MyMarqText = 12 Then
MyMarquee.setAttribute "innerText", "Man is the only animal that blushes. Or needs to... ---Mark Twain"
ElseIf MyMarqText = 13 Then
MyMarquee.setAttribute "innerText", "Of course, no man is entirely in his right mind at any time... --Mark Twain"
ElseIf MyMarqText = 14 Then
MyMarquee.setAttribute "innerText", "Truth is good manners; manners are a fiction...--Mark Twain"
ElseIf MyMarqText = 15 Then
MyMarquee.setAttribute "innerText", "My memory is never loaded with anything but blank cartridges...--Mark Twain"
ElseIf MyMarqText = 16 Then
MyMarquee.setAttribute "innerText", "I was born modest; not all over, just in spots... --Mark Twain"
ElseIf MyMarqText = 17 Then
MyMarquee.setAttribute "innerText", "The lack of money is the root of all evil...--Mark Twain"
ElseIf MyMarqText = 18 Then
MyMarquee.setAttribute "innerText", "It is not best that we use our morals week days; it gets them out of repair for Sundays....--Mark Twain"
ElseIf MyMarqText = 19 Then
MyMarquee.setAttribute "innerText", "Wagner's music is better than it sounds....--Mark Twain" 
ElseIf MyMarqText = 20 Then
MyMarquee.setAttribute "innerText", "When we remember we are all mad, the mysteries of life disappear and life stands explained...--Mark Twain" 
End If
End Sub

Function MyMarqueeChanged()
  Dim MyMarq
MyMarq = Int((20 * Rnd) + 1)
If MyMarq = 1 Then
  MyMarqueeChanged = "The organism acts on the environment before it reacts to the environment...--G.E. Coghill"
ElseIf MyMarq = 2 Then
MyMarqueeChanged = "If there is a God, he's a great mathematician....   --Paul Dirac"
ElseIf MyMarq = 3 Then
MyMarqueeChanged = "There is nothing deader than an equation.... --John Archibald Wheeler"
ElseIf MyMarq = 4 Then
MyMarqueeChanged = "Better be early than late at the feeding place, in a world full of hungry creatures.... --Karl von Frisch"
ElseIf MyMarq = 5 Then
MyMarqueeChanged = "By design, the body should go on forever....--Elliot Crooke"
ElseIf MyMarq = 6 Then
MyMarqueeChanged = "Like a machine, every organism, down to the very 'simplest,' constitutes a coherent and integrated functional unit....--Jacques Monod"
ElseIf MyMarq = 7 Then
MyMarqueeChanged = "Science has its cathedrals, built by the efforts of a few architects and of many workers....--Gilbert Newton Lewis & Merle Randall"
ElseIf MyMarq = 8 Then
MyMarqueeChanged = "Mopping-up operations are what engage most scientists through their careers....--Thomas S. Kuhn"
ElseIf MyMarq = 9 Then
MyMarqueeChanged = "Most of my successes have come out of failures...  --Charles Townes" 
ElseIf MyMarq = 10 Then
MyMarqueeChanged = "Error can often be fertile but perfection is always sterile...  -- A. J. P. Taylor" 
ElseIf MyMarq = 11 Then
  MyMarqueeChanged = "Both marriage and death ought to be welcome: the one promises happiness, doubtless the other assures it...--Mark Twain"
ElseIf MyMarq = 12 Then
MyMarqueeChanged = "Man is the only animal that blushes. Or needs to... ---Mark Twain"
ElseIf MyMarq = 13 Then
MyMarqueeChanged = "Of course, no man is entirely in his right mind at any time... --Mark Twain"
ElseIf MyMarq = 14 Then
MyMarqueeChanged = "Truth is good manners; manners are a fiction...--Mark Twain"
ElseIf MyMarq = 15 Then
MyMarqueeChanged = "My memory is never loaded with anything but blank cartridges...--Mark Twain"
ElseIf MyMarq = 16 Then
MyMarqueeChanged = "I was born modest; not all over, just in spots... --Mark Twain"
ElseIf MyMarq = 17 Then
MyMarqueeChanged = "The lack of money is the root of all evil...--Mark Twain"
ElseIf MyMarq = 18 Then
MyMarqueeChanged = "It is not best that we use our morals week days; it gets them out of repair for Sundays....--Mark Twain"
ElseIf MyMarq = 19 Then
MyMarqueeChanged = "Wagner's music is better than it sounds....--Mark Twain" 
ElseIf MyMarq = 20 Then
MyMarqueeChanged = "When we remember we are all mad, the mysteries of life disappear and life stands explained...--Mark Twain" 
End If
End Function


//-->