rem Visual-Basic-Script Datei - Dr. Alles
rem letzte Änderung: 2.12.2001

dim ys,ysl,xs,pi,s,rs,t
 pi=3.14159
 ii=1
 xs=-220
 xss=800
 sub stelleUhr
   call setTimeout("stelleUhr",2,"VBScript")
      
   if xs<290 then
      t=time()
      s=second(t)
      xs=xs+2
      xss=xss-3
      
      ys=ii+80+2*sin(ys*pi/2)
      if ys<340 then
        ii=ii+1
        document.all.E_s2.style.top=ys-100
        document.all.A_l.style.top=ys
      end if
        document.all.E_s.style.left=xss
        document.all.A_l.style.left=xs+20
      if xss>110 then
        document.all.E_s.style.top=ys-100
        if xss>620 then
            document.all.E_s2.style.left=xss
            document.all.A_helv.style.left=xss
        end if
      end if
      
      if ysl<460 then
         ysl=ysl+5
         document.all.logo.style.left=100
         document.all.logo.style.top=500-(ysl)
         if ysl<240 then
            document.all.A_helv.style.top=500-(ysl) 
         end if
      end if 
   end if
 end sub
 sub starteuhr()
   call setTimeout("stelleUhr",100,"VBScript")
 end sub