CLS
SCREEN 12

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

xcercle = 0
ycercle = 0
rayoncercle = largeurcarre / 2
pas = largeurcarre + ecart


WHILE (1)



touche$ = INKEY$


SELECT CASE touche$

CASE CHR$(0) + "H"

  CIRCLE (xcercle, ycercle), rayoncercle, 0
  ycercle = ycercle - pas
  CIRCLE (xcercle, ycercle), rayoncercle, 12


END SELECT






'-----------DAMIER-------------------------------------------------'
                                                                   '
FOR k = 0 TO (nbligne - 1)                                         '
                                                                   '
                                                                   '
  FOR j = 0 TO (nbcol - 1)                                         '
                                                                   '
                                                                   '
      x = Xdep + j * (largeurcarre + ecart)                        '
      y = Ydep + k * (largeurcarre + ecart)                        '
                                                                   '
                                                                   '
                                                                   '
      LINE (x, y)-(x + largeurcarre, y + largeurcarre), 5, B       '
                                                                   '
                                                                   '
  NEXT                                                             '
                                                                   '
  x = Xdep                                                         '
                                                                   '
NEXT                                                               '
'------------------------------------------------------------------'
                                                                   '




        'création des variables xcercle et ycercle pour la creation du cercle   '
        xcercle = x + (largeurcarre / 2)                                        '
        ycercle = y + (largeurcarre / 2)                                        '
                                                                                '
        'création du cercle avec les coordonnées xcercle, ycercle               '
        CIRCLE (xcercle, ycercle), rayoncercle, 12



WEND