10 mode 0:deg
20 for i=0 to 131:plot 310,200+i/5:draw 100-i/2,i*3,i mod 2+3,3:plot 330,200+i/5:draw 540+i/2,i*3:plot 320,200:drawr sin(i*6)*24,cos(i*6)*90:next:plot 351,316,7:drawr -3,4:drawr -8,0:drawr -20,-50:drawr-20,50:drawr-5,0:drawr -3,-3:goto 20
