GraphicsWindow.Width=810

GraphicsWindow.Height=540

GraphicsWindow.BackgroundColor="#003399"

GraphicsWindow.BrushColor = "#FFCC00"

GraphicsWindow.FontSize=68

star = Text.GetCharacter(9733)

For i=0 To 11

  s[i]=Shapes.AddText(star)

EndFor

f=2*Math.Pi/12

r=180

ey=46

ex=30

For i=0 To 11

  x[i]=405+r*math.Cos(i*f)-ex

  y[i]=270+r*math.Sin(i*f)-ey

EndFor

For i=0 To 11

   Shapes.Move(s[i],405-ex,270-ey)

 EndFor

Program.Delay(3000)

For i=0 To 11

   Shapes.Animate(s[i],x[i],y[i],3000)

EndFor

Program.Delay(3000)

For ef=0 To 360

  for i=0 To 11

    Shapes.Rotate(s[i],ef)

  EndFor

  Program.Delay(20)

EndFor

For n=1 To 3 Step .1

  for i=0 To 11

    Shapes.Zoom(s[i],n,n)

  EndFor

  Program.Delay(60)

EndFor

For n=3 To 1 Step -.1

  for i=0 To 11

    Shapes.Zoom(s[i],n,n)

  EndFor

  Program.Delay(60)

EndFor

csx=x[0]

csy=y[0]

For i=0 To 10

  x[i]=x[i+1]

  y[i]=y[i+1]

EndFor

x[11]=csx

y[11]=csy

For i=0 To 11

   Shapes.Animate(s[i],x[i],y[i],2000)

EndFor

Program.Delay(2000)

For i=0 To 5

    Shapes.Animate(s[i],x[i+6],y[i+6],3000)

    Shapes.Animate(s[i+6],x[i],y[i],3000)

EndFor

Program.Delay(3000)

For i=0 To 5

    Shapes.Animate(s[i],x[11-i],y[11-i],3000)

    Shapes.Animate(s[11-i],x[i],y[i],3000)

EndFor

Program.Delay(3000)

For i=0 To 11 Step 2

    Shapes.Animate(s[i],x[i+1],y[i+1],3000)

    Shapes.Animate(s[i+1],x[i],y[i],3000)

EndFor

Program.Delay(3000)