SCREEN 9

DO
  a = 1

  FOR t = 1 TO 100
    IF a = 1 THEN
       
        y = t ^ 2
        x = t * 20

        CIRCLE (x, y), 20, 15
        PAINT (x, y), 15
        FOR k = 1 TO 1500
        NEXT
        CIRCLE (x, y), 20, 0
        PAINT (x, y), 0
       
        IF y > 350 THEN a = 0
    ELSE
        y = y / (SQR(t) / 4)
        x = t * 20

        CIRCLE (x, y), 20, 15
                        PAINT (x, y), 15
        FOR k = 1 TO 1500
        NEXT
        CIRCLE (x, y), 20, 0
        PAINT (x, y), 0
    END IF
  NEXT
LOOP