x=0
y=0

dim cch,ccw,cc,R,A,ppicw,ppich,B,C,ppicw2,ppicw3,ppich2,ppich3,ccw2,messh,messw,scw,sch,ccw3,D,ppich4,ppicw4
picw=150
pich=150
cch=150
ccw=150
A=3.14
R=150
B=3.14
ccw2=556
ccw3=850
C=6.28
D=6.28

Sub Window_Onload()
scw=document.body.clientWidth
sch=document.body.clientHeight


SetInterval "scroll",64
Settimeout "circle",30
End sub

Sub scroll()
x=x+1
y=y
table1.style.backgroundImage="URL("&tabb.src&")"
table1.style.backgroundposition=x&" "&y
End sub 



Sub circle()
ClearTimeOut
Rem angle gets bigger
A=A+0.01
Rem Calculating position of the image

ppicw=R*cos(A)+ccw
ppich=R*sin(A)+cch
REM position of the Image
pic.style.left=ppicw
pic.style.Top=ppich
Rem Next Angle
if A>6.28 then SetTimeOut "setup1",30 else SetTimeOut"Circle",30
End Sub

Sub setup1()
ClearTimeOut
B=3.14
weeromhoog
End sub

sub weeromhoog()
ClearTimeOut
Rem angle gets bigger
B=B-0.01
Rem Calculating position of the image

ppicw2=R*cos(B)+ccw2
ppich2=R*sin(B)+cch
REM position of the Image
pic.style.left=ppicw2
pic.style.Top=ppich2
Rem Next Angle
if B<0 then SetTimeOut "draaien",30 else SetTimeOut"weeromhoog",30
End Sub

Sub draaien()
pic.style.filter="fliph(enabled=1)"
c=6.28
SetTimeOut"terugweg",30
End sub


sub terugweg()
ClearTimeOut
Rem angle gets bigger
c=c-0.01
Rem Calculating position of the image

ppicw3=R*cos(c)+ccw2
ppich3=R*sin(c)+cch
REM position of the Image
pic.style.left=ppicw3
pic.style.Top=ppich3
Rem Next Angle
if c>3.14 then SetTimeOut "terugweg",30 else SetTimeOut"setup2",30
End Sub

sub Setup2()
ClearTimeOut
D=6.28
laatste
End Sub

sub laatste ()
ClearTimeOut
Rem angle gets bigger
d=d+0.01
Rem Calculating position of the image

ppicw4=R*cos(d)+ccw
ppich4=R*sin(d)+cch
REM position of the Image
pic.style.left=ppicw4
pic.style.Top=ppich4
Rem Next Angle
if d=<9.48 then SetTimeOut "laatste",30 else SetTimeOut"setup",30
End Sub

Sub setup
ClearTimeOut
A=3.14
turn
End sub



Sub turn()
pic.style.filter="fliph(enabled=0)"
SetTimeOut"circle",30

End sub


Sub nep()
End sub