Common Float conv=3.14159/180
Int glow[ ]={15, 7, 8, 0}
za=0; zb=0; zc=0; zd=0; ze=0
Do
   Do ang=0,359
      line color (2)
      line (320, 0, 320, 479)
      line (80, 240, 560, 240)
      line (150, 70, 490, 410)
      line (150, 410, 490, 70)
      circle (320, 240, 80)
      circle (320, 240, 160)
      circle (320, 240, 239)
      Do i=3,0
         x=320+237*cos(conv*(ang-i))
         y=240+237*sin(conv*(ang-i))
         line color (glow[i])
         line (320, 240, x, y)
      Loop
      target (ang, 125, 150, za) @
      target (ang, 310, 125, zb) @
      target (ang,  60, 100, zc) @
      target (ang, 210,  65, zd) @
      target (ang, 325, 200, ze) @
      delay (10); read quit key
   Loop
Loop

Task target (Int ang, Int vect, Int dist, Int bright)
Common Float conv
x=320+dist*cos(conv*vect)
y=240+dist*sin(conv*vect)
If ang=vect
   bright=15
   sound (500)
Endif
If (ang=(vect+ 5)%360) no sound
If (ang=(vect+20)%360) bright=7
If (ang=(vect+25)%360) bright=8
If (ang=(vect+30)%360) bright=0
solid color (bright)
solid circle (x, y, 2)