Ultra-SiMPLE
xc=xpixels()/2; yc=ypixels()/2
hide mouse; cls; frame; mag=1.5
Do
   id=random(8)
   bulb (xc-250, yc, mag, 1, bitand(id,1), 1) @
   bulb (xc,     yc, mag, 1, bitand(id,2), 2) @
   bulb (xc+250, yc, mag, 1, bitand(id,4), 3) @
   delay (random(750)+250); If readkey(27) Break
Loop
Do k=1,3
   bulb (xc+(k-2)*250, yc, mag, 1, 0, k) @
   explode (xc+(k-2)*250, int(-18*mag)+yc) @toys
Loop
quit

Task bulb (Int x, Int y, Float mag, Int flag, Int on, Int id)
If (flag) zz=mag
Else zz=1.0
line size (1*zz+0.5)
line color (rgb(48,48,48))
If (id=1) solid color (rgb(36,36,64))
If (id=2) solid color (rgb(64,36,36))
If (id=3) solid color (rgb(36,64,36))
If (on=1) line color (rgb(160,160,255)); solid color (rgb(96,96,255))
If (on=2) line color (rgb(255,160,160)); solid color (rgb(255,96,96))
If (on=4) line color (rgb(160,255,160)); solid color (rgb(96,255,96))
filled circle (0*mag+x, -18*mag+y, 50*mag)
line color (0); If (on) line color (8)
line (-15*mag+x, -5*mag+y, -10*mag+x, 30*mag+y)
line (14*mag+x, -5*mag+y, 9*mag+x, 30*mag+y)
If (on) line color (15)
ellipse (-15*mag+x, -15*mag+y, 4*mag, 10*mag)
ellipse (-10*mag+x, -17*mag+y, 4*mag, 10*mag)
ellipse (-5*mag+x, -19*mag+y, 4*mag, 10*mag)
ellipse (0*mag+x, -20*mag+y, 4*mag, 10*mag)
ellipse (5*mag+x, -19*mag+y, 4*mag, 10*mag)
ellipse (10*mag+x, -17*mag+y, 4*mag, 10*mag)
ellipse (15*mag+x, -15*mag+y, 4*mag, 10*mag)
solid color (rgb(96,96,96))
line color (rgb(51,51,51))
filled round rectangle (-25*mag+x, 29*mag+y, 25*mag+x, 86*mag+y, 16, 16)
filled round rectangle (-5*mag+x, 86*mag+y, 5*mag+x, 90*mag+y, 16, 16)
line color (rgb(112,112,112))
line size (6*mag)
line (-25*mag+x, 40*mag+y, 25*mag+x, 45*mag+y)
line (-25*mag+x, 50*mag+y, 25*mag+x, 55*mag+y)
line (-25*mag+x, 60*mag+y, 25*mag+x, 65*mag+y)
line (-25*mag+x, 70*mag+y, 25*mag+x, 75*mag+y)