CLS : SCREEN 12
largeurcarre = 50:
nbligne = 5
nbcol = 5
ecart = 10
Xdep = 30
Ydep = 10
rayoncercle = largeurcarre / 2 - 1 ' *** - 1 pour ne pas empiéter sur les cases du damier
Pas = largeurcarre + ecart
Ycercle = Ycercle - Pas:
Xcercle = Xcercle + Pas
CIRCLE (Xcercle, Ycercle), rayoncercle, 12
Y.Pr = Ycercle
X.Pr = Xcercle
'-----DAMIER-----
FOR K = 0 TO (nbligne - 1)
FOR J = 0 TO (nbcol - 1)
X = Xdep + J * (largeurcarre + ecart)
Y = Ydep + K * (largeurcarre + ecart)
'-------------------case colore---------------

IF (K = 2) AND (J = 1) THEN
LINE (X, Y)-(X + largeurcarre, Y + largeurcarre), 5, BF
ELSE
LINE (X, Y)-(X + largeurcarre, Y + largeurcarre), 12, B
END IF
NEXT J
X = Xdep
NEXT K

'-----CERCLE-------------------------------------
Xcercle = X + (largeurcarre / 2)
Ycercle = Y + (largeurcarre / 2)
'création du cercle avec les coordonnées xcercle, ycercle
CIRCLE (Xcercle, Ycercle), rayoncercle, 12
X.Pr = Xcercle
Y.Pr = Ycercle
DO
'-----------TOUCHES-----------------------
INK: Touche$ = INKEY$: IF Touche$ = "" GOTO INK
IF Touche$ = CHR$(27) THEN END
SELECT CASE Touche$
CASE CHR$(0) + "H": Ycercle = Ycercle - Pas
CASE CHR$(0) + "P": Ycercle = Ycercle + Pas
CASE CHR$(0) + "K": Xcercle = Xcercle - Pas
CASE CHR$(0) + "M": Xcercle = Xcercle + Pas
END SELECT
CIRCLE (X.Pr, Y.Pr), rayoncercle, 0
LOCATE 25, 10: PRINT Xcercle; Ycercle
CIRCLE (Xcercle, Ycercle), rayoncercle, 12
X.Pr = Xcercle: Y.Pr = Ycercle
LOOP
'------------- case-----------------------