How to write max script to make animation which a object rotates about another object with curved motion path

[felixxxxx]

with animation on
(
…

    at time atFrame
(
	rotate $Top (AngleAxis rotateAngle [0,0,1])
	**in coordsys $Top about $Top.pos rotate $Module1 rotateAngle z_axis**
)

)
But it gives me a straight path. what max script should I write to make the path circular?

Thank you!