Int z[]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
Int dz[]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
Do
   Do k=1,15
      line color (0)
      circle (320, 240, z[k])
      If random(1000)<100 Set dz[k]=dz[k]+1
      z[k]=z[k]+dz[k]
      If z[k]>350
         z[k]=0
         dz[k]=0
      Endif
      line color (k)
      circle (320, 240, z[k])
      nosound
      sound (10*z[k]+1000)
   Loop k
   read quit key
Loop