Call randomize
Call graphon
loop:
   Call cls
   Call tabxy (38, 15)
   Call output ("SiMPLE")
   Set f=300.0
   Set a=0.0
   draw:
      If (random(25)=0) Call linecolor (random(15)+1)
      Call ellipse (320, 232, 4*f, 2*f, a)
      Call readquitkey (-1)
      Call delay (10)
      Set a=a+0.055
      Set f=f/1.0125
      If (f>1) \
   Goto draw
Goto loop