1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
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)
IF (k = 3) AND (j = 3) THEN
LINE (X, y)-(X + largeurcarre, y + largeurcarre), 10, BF
ELSE
LINE (X, y)-(X + largeurcarre, y + largeurcarre), 12, B
END IF
NEXT
X = Xdep
NEXT
