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 … 5NEXT
                                                        '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)


'-----------------1er case----------------------------------------------

      IF (k = 1) AND (j = 1) THEN
          
          LINE (X, y)-(X + largeurcarre, y + largeurcarre), 10, BF

         ELSE
            LINE (X, y)-(X + largeurcarre, y + largeurcarre), 12, B

      END IF




'------------------------2e case------------------------------------------

      IF (k = 2) AND (j = 2) THEN

          LINE (X, y)-(X + largeurcarre, y + largeurcarre), 7, BF

         ELSE
            LINE (X, y)-(X + largeurcarre, y + largeurcarre), 12, B

      END IF








  NEXT

   X = Xdep

NEXT