[ABTOMAT]

А так слабо?

Graphics (800,600)
While Not KeyHit(1)
t#=Rnd(-400,400)
    R# = (1+Sin(t))*(1-.9*Abs(Sin(4*t)))*(.9+.05*Cos(200*t))    
    x# = Sin(t-90) * r*(220-(steps*4))+400
    y# = Cos(t-90) * r*(230-(steps*4))*0.8-400
Color 0,255,0 
Plot x#,-y
Wend
End

Баян, но всё же...