CLS
SCREEN 12

largeurcarre = 50
nbligne = 5
nbcol = 5
ecart = 10
Xdep = 30
Ydep = 10



FOR k = 0 TO (nbligne - 1)                              'pour k =de 0 … 5

                                                        'pour j =de 0 … 5
  FOR j = 0 TO (nbcol - 1)

                                                        'x = Xdepart + j (repetera 5X) largeur carre+ecart
      x = Xdep + j * (largeurcarre + ecart)
      y = Ydep + k * (largeurcarre + ecart)

     

      LINE (x, y)-(x + largeurcarre, y + largeurcarre), 5, B


  NEXT

  x = Xdep

NEXT