<!--
Sub MyMainSound()
Dim GetSound
Dim TheSound
Dim NewSound
Dim BalSound
Dim CheckSound
MainSound.setAttribute "src", TheSound, false
MainSound.setAttribute "loop", MySound, false
MainSound.setAttribute "volume", NewSound, false
MainSound.setAttribute "balance", BalSound, false
CheckSound = Int((2 * Rnd) + 1)
If CheckSound = 1 Then
	BalSound= Int(-((1000 * Rnd) + 1))
	ElseIf CheckSound = 2 Then
	BalSound= Int(((1000 * Rnd) + 1))
End If
NewSound = Int(-(800 * Rnd))
GetSound = Int((10 * Rnd) + 1)
If GetSound = 1 Then
MyMainSound1()
ElseIf GetSound = 2 Then
MyMainSound2()
ElseIf GetSound = 3 Then
MyMainSound3()
ElseIf GetSound = 4 Then
MyMainSound4()
ElseIf GetSound = 5 Then
MyMainSound5()
ElseIf GetSound = 6 Then
MyMainSound6()
ElseIf GetSound = 7 Then
MyMainSound7()
ElseIf GetSound = 8 Then
MyMainSound8()
ElseIf GetSound = 9 Then
MyMainSound9()
ElseIf GetSound = 10 Then
MyMainSound10()
End If
MainSound.setAttribute "volume", NewSound, true
MainSound.setAttribute "balance", BalSound, true
End Sub

Sub MyMainSound1()
Dim MySound
Dim TheSound
MySound = Int((25 * Rnd) + 1)
If MySound = 1 Then
MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/fall_01.mid"
ElseIf MySound = 2 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/grden_01.mid"
ElseIf MySound = 3 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/altair01.mid"
ElseIf MySound = 4 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/amngwa01.mid"
ElseIf MySound = 5 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/passport.mid"
ElseIf MySound = 6 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/explr_01.mid"
ElseIf MySound = 7 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/flwers01.mid"
ElseIf MySound = 8 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/baby01.mid"
ElseIf MySound = 9 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/indepd01.mid"
ElseIf MySound = 10 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/itcame01.mid"
ElseIf MySound = 11 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/iris01.mid"
ElseIf MySound = 12 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 13 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 14 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/discoer.mid"
ElseIf MySound = 15 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/chorale.mid"
ElseIf MySound = 16 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugdream.mid"
ElseIf MySound = 17 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugworks.mid"
ElseIf MySound = 18 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Bsect5.mid"
ElseIf MySound = 19 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bilba101.mid"
ElseIf MySound = 20 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 21 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 22 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Esect1.mid"
ElseIf MySound = 23 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 24 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Enept2.mid"
ElseIf MySound = 25 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ethiop1.mid"
End If
MainSound.setAttribute "src", TheSound, true
 MainSound.setAttribute "loop", MySound, true
End Sub

Sub MyMainSound2()
Dim MySound
Dim TheSound
MySound = Int((25 * Rnd) + 1)
If MySound = 1 Then
MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Bsect1.mid"
ElseIf MySound = 2 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Bsect2.mid"
ElseIf MySound = 3 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Bsect3.mid"
ElseIf MySound = 4 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Bsect4.mid"
ElseIf MySound = 5 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Bsect5.mid"
ElseIf MySound = 6 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Bsect6.mid"
ElseIf MySound = 7 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/bssolvr.mid"
ElseIf MySound = 8 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/bugplay.mid"
ElseIf MySound = 9 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/bugworks.mid"
ElseIf MySound = 10 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/chorale.mid"
ElseIf MySound = 11 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/cjmrca01.mid"
ElseIf MySound = 12 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/dance.mid"
ElseIf MySound = 13 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/bugbeat.mid"
ElseIf MySound = 14 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/dbloon01.mid"
ElseIf MySound = 15 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/dsonger.mid"
ElseIf MySound = 16 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/dtctv101.mid"
ElseIf MySound = 17 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/dresman.mid"
ElseIf MySound = 18 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ecave.mid"
ElseIf MySound = 19 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ecircus1.mid"
ElseIf MySound = 20 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Esect1.mid"
ElseIf MySound = 21 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Esect2.mid"
ElseIf MySound = 22 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Esect3.mid"
ElseIf MySound = 23 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Esect4.mid"
ElseIf MySound = 24 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Esect5.mid"
ElseIf MySound = 25 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Insects/Esect6.mid"
End If
MainSound.setAttribute "src", TheSound, true
 MainSound.setAttribute "loop", MySound, true
End Sub

Sub MyMainSound3()
Dim MySound
Dim TheSound
MySound = Int((25 * Rnd) + 1)
If MySound = 1 Then
MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/grenslev.wav"
ElseIf MySound = 2 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/havanagi.wav"
ElseIf MySound = 3 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/hiway.mid"
ElseIf MySound = 4 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/heisrs01.mid"
ElseIf MySound = 5 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/haffne64.mid"
ElseIf MySound = 6 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/frencana.wav"
ElseIf MySound = 7 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/futury.mid"
ElseIf MySound = 8 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/fruit.wav"
ElseIf MySound = 9 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/fruit2.wav"
ElseIf MySound = 10 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/hunter01.mid"
ElseIf MySound = 11 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ingard01.mid"
ElseIf MySound = 12 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/karpat01.mid"
ElseIf MySound = 13 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/liebs101.mid"
ElseIf MySound = 14 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/konoib01.mid"
ElseIf MySound = 15 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/kngrex01.mid"
ElseIf MySound = 16 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/magic64r.mid"
ElseIf MySound = 17 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/mnyrat01.mid"
ElseIf MySound = 18 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/nowhere.mid"
ElseIf MySound = 19 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/power.mid"
ElseIf MySound = 20 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/puebla01.mid"
ElseIf MySound = 21 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/rdscrl01.mid"
ElseIf MySound = 22 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/redpep01.mid"
ElseIf MySound = 23 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/road_01.mid"
ElseIf MySound = 24 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/symphony.mid"
ElseIf MySound = 25 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/tchai64r.mid"
End If
MainSound.setAttribute "src", TheSound, true
 MainSound.setAttribute "loop", MySound, true
End Sub

Sub MyMainSound4()
Dim MySound
Dim TheSound
MySound = Int((25 * Rnd) + 1)
If MySound = 1 Then
MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/witchb01.mid"
ElseIf MySound = 2 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/veiled01.mid"
ElseIf MySound = 3 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/vega01.mid"
ElseIf MySound = 4 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/vampir01.mid"
ElseIf MySound = 5 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/title.mid"
ElseIf MySound = 6 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/sym64.mid"
ElseIf MySound = 7 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/starman.mid"
ElseIf MySound = 8 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/smbadm01.mid"
ElseIf MySound = 9 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Silence.wav"
ElseIf MySound = 10 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/slders01.mid"
ElseIf MySound = 11 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/seoul01.mid"
ElseIf MySound = 12 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Serenade.wav"
ElseIf MySound = 13 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/schol_02.mid"
ElseIf MySound = 14 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/roostr00.mid"
ElseIf MySound = 15 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/road_01.mid"
ElseIf MySound = 16 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Parti364.mid"
ElseIf MySound = 17 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Pop64.mid"
ElseIf MySound = 18 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Question.mid"
ElseIf MySound = 19 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/pythag01.mid"
ElseIf MySound = 20 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/rckage01.mid"
ElseIf MySound = 21 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 22 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/parnt07.mid"
ElseIf MySound = 23 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/parnt08.mid"
ElseIf MySound = 24 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/parti64.mid"
ElseIf MySound = 25 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Pastor64.mid"
End If
MainSound.setAttribute "src", TheSound, true
 MainSound.setAttribute "loop", MySound, true
End Sub

Sub MyMainSound5()
Dim MySound
Dim TheSound
MySound = Int((25 * Rnd) + 1)
If MySound = 1 Then
MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/fall_01.mid"
ElseIf MySound = 2 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/grden_01.mid"
ElseIf MySound = 3 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/altair01.mid"
ElseIf MySound = 4 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/amngwa01.mid"
ElseIf MySound = 5 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/passport.mid"
ElseIf MySound = 6 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/explr_01.mid"
ElseIf MySound = 7 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/flwers01.mid"
ElseIf MySound = 8 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/baby01.mid"
ElseIf MySound = 9 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/indepd01.mid"
ElseIf MySound = 10 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/itcame01.mid"
ElseIf MySound = 11 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/iris01.mid"
ElseIf MySound = 12 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 13 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 14 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/discoer.mid"
ElseIf MySound = 15 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/chorale.mid"
ElseIf MySound = 16 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugdream.mid"
ElseIf MySound = 17 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugworks.mid"
ElseIf MySound = 18 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Bsect5.mid"
ElseIf MySound = 19 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bilba101.mid"
ElseIf MySound = 20 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 21 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 22 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Esect1.mid"
ElseIf MySound = 23 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 24 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Enept2.mid"
ElseIf MySound = 25 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ethiop1.mid"
End If
 MainSound.setAttribute "src", TheSound, true
 MainSound.setAttribute "loop", MySound, true
End Sub

Sub MyMainSound6()
Dim MySound
Dim TheSound
MySound = Int((25 * Rnd) + 1)
If MySound = 1 Then
MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/babyblue.mid"
ElseIf MySound = 2 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/battle01.mid"
ElseIf MySound = 3 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/altair01.mid"
ElseIf MySound = 4 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bbfunk.mid"
ElseIf MySound = 5 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bchariot.mid"
ElseIf MySound = 6 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/beepnc.mid"
ElseIf MySound = 7 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bfinale.mid"
ElseIf MySound = 8 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Bgloop1.mid"
ElseIf MySound = 9 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bmouth.mid"
ElseIf MySound = 10 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bongo101.mid"
ElseIf MySound = 11 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugplay.mid"
ElseIf MySound = 12 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/cjmrca01.mid"
ElseIf MySound = 13 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/cnqrer01.mid"
ElseIf MySound = 14 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/cubada01.mid"
ElseIf MySound = 15 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/dbloon01.mid"
ElseIf MySound = 16 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/discoer.mid"
ElseIf MySound = 17 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/diablo01.mid"
ElseIf MySound = 18 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/dresman.mid"
ElseIf MySound = 19 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/dsonger.mid"
ElseIf MySound = 20 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ecircus1.mid"
ElseIf MySound = 21 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/eplayer3.mid"
ElseIf MySound = 22 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/etele.mid"
ElseIf MySound = 23 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/europe01.mid"
ElseIf MySound = 24 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Eend.mid"
ElseIf MySound = 25 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/flappr10.mid"
End If
 MainSound.setAttribute "src", TheSound, true
 MainSound.setAttribute "loop", MySound, true
End Sub

Sub MyMainSound7()
Dim MySound
Dim TheSound
MySound = Int((25 * Rnd) + 1)
If MySound = 1 Then
MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/fall_01.mid"
ElseIf MySound = 2 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/grden_01.mid"
ElseIf MySound = 3 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/altair01.mid"
ElseIf MySound = 4 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/amngwa01.mid"
ElseIf MySound = 5 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/passport.mid"
ElseIf MySound = 6 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/explr_01.mid"
ElseIf MySound = 7 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/flwers01.mid"
ElseIf MySound = 8 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/baby01.mid"
ElseIf MySound = 9 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/indepd01.mid"
ElseIf MySound = 10 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/itcame01.mid"
ElseIf MySound = 11 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/iris01.mid"
ElseIf MySound = 12 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 13 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 14 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/discoer.mid"
ElseIf MySound = 15 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/chorale.mid"
ElseIf MySound = 16 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugdream.mid"
ElseIf MySound = 17 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugworks.mid"
ElseIf MySound = 18 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Bsect5.mid"
ElseIf MySound = 19 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bilba101.mid"
ElseIf MySound = 20 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 21 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 22 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Esect1.mid"
ElseIf MySound = 23 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 24 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Enept2.mid"
ElseIf MySound = 25 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ethiop1.mid"
End If
 MainSound.setAttribute "src", TheSound, true
 MainSound.setAttribute "loop", MySound, true
End Sub

Sub MyMainSound8()
Dim MySound
Dim TheSound
MySound = Int((25 * Rnd) + 1)
If MySound = 1 Then
MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/fall_01.mid"
ElseIf MySound = 2 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/grden_01.mid"
ElseIf MySound = 3 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/altair01.mid"
ElseIf MySound = 4 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/amngwa01.mid"
ElseIf MySound = 5 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/passport.mid"
ElseIf MySound = 6 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/explr_01.mid"
ElseIf MySound = 7 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/flwers01.mid"
ElseIf MySound = 8 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/baby01.mid"
ElseIf MySound = 9 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/indepd01.mid"
ElseIf MySound = 10 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/itcame01.mid"
ElseIf MySound = 11 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/iris01.mid"
ElseIf MySound = 12 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 13 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 14 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/discoer.mid"
ElseIf MySound = 15 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/chorale.mid"
ElseIf MySound = 16 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugdream.mid"
ElseIf MySound = 17 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugworks.mid"
ElseIf MySound = 18 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Bsect5.mid"
ElseIf MySound = 19 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bilba101.mid"
ElseIf MySound = 20 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 21 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 22 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Esect1.mid"
ElseIf MySound = 23 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 24 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Enept2.mid"
ElseIf MySound = 25 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ethiop1.mid"
End If
 MainSound.setAttribute "src", TheSound, true
 MainSound.setAttribute "loop", MySound, true
End Sub

Sub MyMainSound9()
Dim MySound
Dim TheSound
MySound = Int((25 * Rnd) + 1)
If MySound = 1 Then
MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Frencana.wav"
ElseIf MySound = 2 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/hunter01.mid"
ElseIf MySound = 3 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ingard01.mid"
ElseIf MySound = 4 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/lmbo1a01.mid"
ElseIf MySound = 5 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/lmbo1b01.mid"
ElseIf MySound = 6 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/lmbo1c01.mid"
ElseIf MySound = 7 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/magic64r.mid"
ElseIf MySound = 8 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/msqrde01.mid"
ElseIf MySound = 9 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/indepd01.mid"
ElseIf MySound = 10 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/itcame01.mid"
ElseIf MySound = 11 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/iris01.mid"
ElseIf MySound = 12 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 13 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 14 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/discoer.mid"
ElseIf MySound = 15 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/chorale.mid"
ElseIf MySound = 16 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugdream.mid"
ElseIf MySound = 17 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugworks.mid"
ElseIf MySound = 18 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Bsect5.mid"
ElseIf MySound = 19 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bilba101.mid"
ElseIf MySound = 20 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 21 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 22 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Esect1.mid"
ElseIf MySound = 23 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 24 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Enept2.mid"
ElseIf MySound = 25 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ethiop1.mid"
End If
 MainSound.setAttribute "src", TheSound, true
 MainSound.setAttribute "loop", MySound, true
End Sub

Sub MyMainSound10()
Dim MySound
Dim TheSound
MySound = Int((25 * Rnd) + 1)
If MySound = 1 Then
MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/fall_01.mid"
ElseIf MySound = 2 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/grden_01.mid"
ElseIf MySound = 3 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/altair01.mid"
ElseIf MySound = 4 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/amngwa01.mid"
ElseIf MySound = 5 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/passport.mid"
ElseIf MySound = 6 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/explr_01.mid"
ElseIf MySound = 7 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/flwers01.mid"
ElseIf MySound = 8 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/baby01.mid"
ElseIf MySound = 9 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/indepd01.mid"
ElseIf MySound = 10 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/itcame01.mid"
ElseIf MySound = 11 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/iris01.mid"
ElseIf MySound = 12 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 13 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 14 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/discoer.mid"
ElseIf MySound = 15 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/chorale.mid"
ElseIf MySound = 16 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugdream.mid"
ElseIf MySound = 17 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugworks.mid"
ElseIf MySound = 18 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Bsect5.mid"
ElseIf MySound = 19 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bilba101.mid"
ElseIf MySound = 20 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 21 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/bugbeat.mid"
ElseIf MySound = 22 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Esect1.mid"
ElseIf MySound = 23 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/550moz64.mid"
ElseIf MySound = 24 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/Enept2.mid"
ElseIf MySound = 25 Then
 MainSound.setAttribute "src", TheSound, false
 TheSound = "http://www.lewismicropublishing.com/Sounds/ethiop1.mid"
End If
 MainSound.setAttribute "src", TheSound, true
 MainSound.setAttribute "loop", MySound, true
End Sub
//-->