Microsoft Small Basic

Program Listing:
Embed this in your website
n=TextWindow.Read()
k=TextWindow.Read()
For i=0To 360
  Turtle.Angle=i
  Turtle.Move(2.618)
EndFor
r=150
c=2*Math.Pi/k
For i=0To k
  Turtle.PenUp()
  Turtle.MoveTo(470+r*Math.Cos(c*i),240+r*Math.Sin(c*i))
  Turtle.PenDown()
  Turtle.MoveTo(470+r*Math.Cos(c*i*n),240+r*Math.Sin(c*i*n))
EndFor

Copyright (c) Microsoft Corporation. All rights reserved.