Vbscript in HTML/golfbeweging

[senga]

hai..ik probeer met VBscript een golfbeweging in beeld te krijgen. Dit is wat ik heb:
dim cch,ccw,ccw1,ccw2,ccw3,ccw4,ccw5,ccw6,R,A,A1,ppicw,ppich,scw,sch,txth,txtw

back.background=back1.src


Sub window_onload()
window.status="www.senga.nl"
sch=document.body.clientheight
scw=document.body.clientwidth
picw=79
pich=95
txtw=400
txth=50
ccw=100
cch=100
ccw1=300
ccw2=500
ccw3=700
ccw4=900
ccw5=1100
ccw6=1300
A=3.14
A1=3.14
R=100
circle
End Sub

Sub circle()
Cleartimeout
A=A+0.05
ppicw=R*cos(A)+ccw
ppich=R*sin(A)+cch
pic.style.Left=ppicw
pic.style.Top=ppich
if A=>6.28 then settimeout"help",30 else Settimeout"circle",30
End Sub

Sub help()
Cleartimeout
A1=3.14
second
End Sub


Sub second()
A1=A1-0.05
ppicw=R*cos(A1)+ccw1
ppich=R*sin(A1)+cch
pic.style.left=ppicw
pic.style.top=ppich
if A1=<0 then Settimeout "nep",30 else Settimeout"second",30
End Sub
'!-----------------2e golf----------------------------------------'
Sub nep()
A=3.14
settimeout"circle1",30
End Sub


Sub circle1()
Cleartimeout
A=A+0.05
ppicw=R*cos(A)+ccw2
ppich=R*sin(A)+cch
pic.style.Left=ppicw
pic.style.Top=ppich
if A=>6.28 then settimeout"nep2",30 else Settimeout"circle1",30
End Sub

Sub nep2()
A=3.14
settimeout"circle2",30
End Sub

'!------------------3e golf------------------------------

Sub circle2()
Cleartimeout
A=A-0.05
ppicw=R*cos(A)+ccw3
ppich=R*sin(A)+cch
pic.style.Left=ppicw
pic.style.Top=ppich
if A=>3.14 then settimeout"help1",30 else Settimeout"circle2",30
End Sub

Sub help1()
End Sub


Nu blijft hij bij de laatste boog rondjes draaien. Wie weet voor mij hoe ik nu verder kan?
greetz
senga http://www.senga.nl