TYPE TBALLE
  rayon AS INTEGER
  X AS SINGLE
  Y AS SINGLE
  CX AS SINGLE
  CY AS SINGLE
END TYPE

DIM BALLE(3) AS TBALLE

SCREEN 12
CLS

FOR i = LBOUND(BALLE) TO UBOUND(BALLE)
   BALLE(i).rayon = RND * 10
   BALLE(i).X = RND * 640
   BALLE(i).Y = RND * 320
   BALLE(i).CX = RND
   BALLE(i).CY = RND
NEXT i


DO

  FOR i = LBOUND(BALLE) TO UBOUND(BALLE)

   CIRCLE (BALLE(i).X, BALLE(i).Y), BALLE(i).rayon, 0
   BALLE(i).X = BALLE(i).X + BALLE(i).CX
   BALLE(i).Y = BALLE(i).Y + BALLE(i).CY
  
   IF BALLE(i).X - BALLE(i).rayon < 0 OR BALLE(i).X + BALLE(i).rayon > 640 THEN
 BALLE(i).CX = -BALLE(i).CX
   END IF

   IF BALLE(i).Y - BALLE(i).rayon < 0 OR BALLE(i).Y + BALLE(i).rayon > 480 THEN
 BALLE(i).CY = -BALLE(i).CY
   END IF
   
   CIRCLE (BALLE(i).X, BALLE(i).Y), BALLE(i).rayon, 14

   NEXT i

LOOP