1 m=128:n=96:o=30:forp=1to90:next:x=(cos(T)*25):y=(sin(t)*25):fori=40to2step-2:sound0,i:next:screen2:defusr=&h41:a=usr(0):line(x+m,y+n)-(-y+m,x+n):line-(-x+m,-y+n):line-(y+m,-x+n):line-(x+m,y+n):line(x+m,y+n+o)-(-y+m,x+n+o)
2 line-(-x+m,-y+n+o):line-(y+m,-x+n+o):line-(x+m,y+n+o):line(x+m,y+n)-(x+m,y+n+o):line(-y+m,x+n)-(-y+m,x+n+o):line(-x+m,-y+n)-(-x+m,-y+n+o):line(y+m,-x+n)-(y+m,-x+n+o):defusr=&h44:a=usr(0):t=t+.2:sound8,10:sound9,12:goto1