CLS
SCREEN 12

'-----------declaration des variables--------------
'--------------------------------------------------
largeurcarre = 50     'largeur des cases
nbcol = 5             'nombre de colonnes
nbligne = 5           'nombre de lignes
ecart = 5             'ecart entre les cases
xdep = 180            'deplacement sur l axe des x
ydep = 120            'deplacement sur l axe des y
couleur = 4           'couleur par defaut (blanc)
rayoncercle = 20      'rayon du cercle

deplacementx = 0      'variable pour la position du cercle rouge
deplacementy = 0

xcercle = 0           'variable xcercle et ycercle
ycercle = 0

LOCATE 30, 1
PRINT "Appuyer sur Esc pour quitter"

WHILE (1)

'_____________TOUCHE_____________________________________
                                                        '
'variable inkey stocké dans la variable touche          '
touche$ = INKEY$                                        '
                                                        '
SELECT CASE touche$                                     '
                                                        '
'si on appuie sur la touche Esc le programme s'arrete   '
CASE CHR$(27)                                           '
END                                                     '
                                                        '
CASE CHR$(0) + "K"                                      '
                                                        '
'deplacement pour l'appuie de la touche gauche          '
    IF (deplacementx > 0) THEN                          '
    deplacementx = (deplacementx - 1)                   '
    END IF                                              '
                                                        '
CASE CHR$(0) + "M"                                      '
                                                        '
'deplacement pour l'appuie de la touche droite          '
    IF (deplacementx < (nbcol - 1)) THEN                '
    deplacementx = (deplacementx + 1)                   '
    END IF                                              '
                                                        '
CASE CHR$(0) + "H"                                      '
                                                        '
'deplacement pour l'appuie de la touche haut            '
    IF (deplacementy > 0) THEN                          '
    deplacementy = (deplacementy - 1)                   '
    END IF                                              '
                                                        '
CASE CHR$(0) + "P"                                      '
                                                        '
'deplacement pour l'appuie de la touche bas             '
    IF (deplacementy < (nbligne - 1)) THEN              '
    deplacementy = (deplacementy + 1)                   '
    END IF                                              '
                                                        '
                                                        '
    END SELECT                                          '
                                                        '
'_______________________________________________________'

'______________DAMIER____________________________________________________________
                                                                                '
'boucle for pour placer les lignes                                              '
FOR i = 0 TO (nbligne - 1)                                                      '
                                                                                '
    'boucle for pour placer les colonnes                                        '
    FOR j = 0 TO (nbcol - 1)                                                    '
                                                                                '
        'si i = deplacementy et j = deplacementx alors le cercle est rouge...   '
        IF (i = deplacementy) AND (j = deplacementx) THEN                       '
                                                                                '
        couleur = 4                                                             '
                                                                                '
        'sinon le cercle est noir                                               '
        ELSE couleur = 0                                                        '
                                                                                '
        END IF                                                                  '
                                                                                '
                                                                                '
        x = xdep + (j * (largeurcarre + ecart))                                 '
        y = ydep + (i * (largeurcarre + ecart))                                 '
                                                                                '
        'création du damier avec les coordonées x et y                          '
        LINE (x, y)-(x + largeurcarre, y + largeurcarre), 15, B                 '
                                                                                '
                                                                                '
'_____________CERCLE____________________________________________________________'
                                                                                '
        'création des variables xcercle et ycercle pour la création du cercle   '
        xcercle = x + (largeurcarre / 2)                                        '
        ycercle = y + (largeurcarre / 2)                                        '
                                                                                '
        'création du cercle avec les coordonnées xcercle, ycercle               '
        CIRCLE (xcercle, ycercle), rayoncercle, couleur                         '
                                                                                '
                                                                                '
        IF (touche$ = "a") THEN                                                 '
                                                                                '
        IF (i = deplacementx) AND (j = deplacementy) THEN                       '
                                                                                '
        CIRCLE (xcercle, ycercle), rayoncercle, 1                               '
                                                                                '
        END IF                                                                  '
        END IF                                                                  '
                                                                                '
    NEXT j                                                                      '
NEXT i                                                                          '
                                                                                '
WEND