Int x[2][33]
line color (7)
Do k=-7,+7
   line (320+k, 60, 320+k, 249-5*iabs(k))
Loop
line color (5); solid color (3)
Do k=70,190,30
   filled rectangle (290, k, 350, k+10)
Loop
solid color (7); solid rectangle (120, 411, 520, 430)
on=0
Do
   z=random(7)+9
   x[on][0]=320
   Do k=1,32
      sound (60)
      x[on][k]=x[on][k-1]+random(11)-5
      line color (0)
      line (x[1-on][k-1], 245+5*k, x[1-on][k], 250+5*k)
      line color (z)
      line (x[on][k-1], 245+5*k, x[on][k], 250+5*k)
   Loop
   solid color (z)
   solid circle (320, 45, 14)
   nosound; delay (25)
   read quitkey
   on=1-on
Loop