Frame; x=320; y=200
Solid color (6); Line color (8)
Filled ellipse (x, y+160, 100, 30)
Solid color (3)
Solid rectangle (x-10, y-8, x+10, y+160)
Solid ellipse (x, y+160, 10, 3)
Solid color (11); Solid ellipse (x, y-8, 10, 2)
Do
   dy=Random(6); Solid color (12)
   Solid ellipse (x, y-37-dy, 6, 20+dy)
   dy=Random(5); Solid color (14)
   Solid ellipse (x, y-33-dy, 5, 18+dy)
   dy=Random(4); Solid color (15)
   Solid ellipse (x, y-29-dy, 4, 16+dy)
   dy=Random(3); Solid color (14)
   Solid ellipse (x, y-25-dy, 3, 14+dy)
   dy=Random(2); Solid color (0); Line color (1)
   Filled ellipse (x, y-20-dy, 3, 9+dy)
   Line color (8); Line (x, y-8, x, y-20)
   Delay (50); Read quit key
   Solid color (0); Solid ellipse (x, y-40, 7, 29)
Loop