variable ne décrémente pas

 for i% = 5 to 1 step -1

error_french
' essai ( nouvelle formule) 23/09/2012

dim i,gauche,pt,boucle
dim a$
gauche = 100 :' distance bord gauche de l'écran

label validation

caption 0," Essai Rmont sur memo horizontal (nouvelle formule)"
width 0,1150 : height 0,700

alpha 10 :left 10,400:top 10,100
caption 10,"pour essai ,entrez 1,2,3,4,5 deux foix de suite "

edit 12:left 12,515:top 12,200:width 12,35
set_focus 12
on_key_down 12,validation

for i= 20 to 25
alpha i :left i,gauche:top i,340:caption i,"memo "+str$(i+10)
memo i+10: left i+10,gauche-10: top i+10,365: width i+10,60: height i+10,245
gauche =gauche +150
hide 20
hide 30
next i
end

validation:
if key_down_code=13
  a$=text$(12):text 12,""
  if numeric(a$)=0 then return
  if val(a$)<1 or val(a$)>5 then return
  for boucle = 1 to 2
      for pt =5 to 1 step -1
      print "a$=";a$;"  pt=";pt: ' pour vérif
      item_add 30+val(a$),str$(pt)
      next pt
  next boucle
end_if
return

error_french
' essai ( nouvelle formule) 23/09/2012

dim i,gauche,pt,boucle
dim a$
gauche = 100 :' distance bord gauche de l'écran

label validation

caption 0," Essai Rmont sur memo horizontal (nouvelle formule)"
width 0,1150 : height 0,700

alpha 10 :left 10,400:top 10,100
caption 10,"pour essai ,entrez 1(Entrée),  2(Entrée),  3(Entrée),  4(Entrée),  5(Entrée) deux foix de suite "

edit 12:left 12,515:top 12,200:width 12,35
set_focus 12
on_key_down 12,validation

for i= 20 to 25
alpha i :left i,gauche:top i,280:caption i,"memo "+str$(i+10)
memo i+10: left i+10,gauche-10: top i+10,300: width i+10,60: height i+10,300
gauche =gauche +150
hide 20
hide 30
next i
end

validation:
if key_down_code=13
  a$=text$(12):text 12,""
  if numeric(a$)=0 then return
  if val(a$)<1 or val(a$)>5 then return
  for boucle = 1 to 2
      for pt =5 to 1 step -1
      print "a$=";a$;"  pt=";pt: ' pour vérif
      item_add 30+val(a$),str$(pt)
      next pt
  next boucle
end_if
return

error_french
' ************************************************
' *  Programme sur les pronostiques hippiques  *
' *            par  Rmont                        *
' ************************************************
' TURF N° 5 bis pour entrée de 10 chevaux

' déclaration des variables

' i , j = variable de boucle
' a , t et t1 = variables temporaires
' y = pour entrée des points
' ccc = nombre de chevaux dans cette course. cette variable aura une valeur variable entre 13 et 20
' maxi = maximun de chevaux = 20
' dif = difference entre maxi et ccc
' pro = nombre de pronostiqueurs
' conc = tableau des concurrents
' ch = n° du cheval
' fs,cp,fa,tp rajout de points pour forme saisonniere,parcours,forme actuelle,tuyaux

dim a,i,j,t,t1,y,x,z,pro,ch
dim fs,cp,fa,tp
dim ccc,maxi,dif
dim wf,hf  : ' Longueur et Largeur écran en pixels
Dim conc(20,1)
label recom
label debutboucle
label sortieboucle
label affichage
label clicked
maxi = 20

' **********  Ecran plus grand ( maxi ) ***********
wf = 1150 : hf = 800
left 0,0 : top 0,0 : width 0,wf : height 0,hf
caption 0,"Jeux sur quinté + "

' ******* début du programme **********
recom:
input " Combien de chevaux dans cette course ? "; ccc
If ccc<13 Or ccc>20 then Goto recom
print :print
input " Combien de pronostiqueurs ? ";pro
print "Entrez les n° dans l'ordre des differents pronostiqueurs"
 
' ********* cadre pour les points ************
 2d_pen_color 200,0,0
 2d_rectangle  35,150,100,250
 2d_rectangle 100,150,165,250
 2d_rectangle 165,150,230,250
 2d_rectangle 230,150,295,250
 2d_rectangle 295,150,360,250
 2d_rectangle 360,150,425,250
 2d_rectangle 425,150,490,250
 2d_rectangle 490,150,555,250
 2d_rectangle 555,150,620,250
 2d_rectangle 620,150,685,250

print_locate 50,165 : print "10 pts"
print_locate 50,185 : print "Pour"
print_locate 50,200 : print "Cheval"
print_locate 50,220 : print "N° "

print_locate 115,165 : print "9 pts"
print_locate 115,185 : print "Pour"
print_locate 115,200 : print "Cheval"
print_locate 115,220 : print "N° "

print_locate 180,165 : print "8 pts"
print_locate 180,185 : print "Pour"
print_locate 180,200 : print "Cheval"
print_locate 180,220 : print "N°"

print_locate 245,165 : print "7 pts"
print_locate 245,185 : print "Pour"
print_locate 245,200 : print "Cheval"
print_locate 245,220 : print "N°"

print_locate 310,165 : print "6 pts"
print_locate 310,185 : print "Pour"
print_locate 310,200 : print "Cheval"
print_locate 310,220 : print "N°"

print_locate 375,165 : print "5 pts"
print_locate 375,185 : print "Pour"
print_locate 375,200 : print "Cheval"
print_locate 375,220 : print "N°"

print_locate 440,165 : print "4 pts"
print_locate 440,185 : print "Pour"
print_locate 440,200 : print "Cheval"
print_locate 440,220 : print "N°"

print_locate 505,165 : print "3 pts"
print_locate 505,185 : print "Pour"
print_locate 505,200 : print "Cheval"
print_locate 505,220 : print "N°"

print_locate 570,165 : print "2 pts"
print_locate 570,185 : print "Pour"
print_locate 570,200 : print "Cheval"
print_locate 570,220 : print "N°"

print_locate 635,165 : print "1 pt"
print_locate 635,185 : print "Pour"
print_locate 635,200 : print "Cheval"
print_locate 635,220 : print "N°"

' ****** Initialisation des N° de chevaux ********
for i = 1 to maxi
  conc(i,0)= i
next i

' *************** Entrée des points ******************

For j = 1 To pro
  y =70
    For i = 10 To 1 Step -1
        print_locate y,220 : print "  "
        print_locate y,220
        input ch
        conc(ch,1) = conc(ch,1)+i
        conc(ch,0)=ch
        y = y + 65
  Next i
Next j

' ******* rajout de points pour forme,parcours, ect ***********

print:print:print
print " + 8 points pour forme saisonniere aux n° : ZERO pour sortir"
fs = 8  : y = 65
while ch <> 0
  print_locate y,295
  input ch
  conc(ch,1)=conc(ch,1)+fs
  y = y + 50
end_while
ch=1

print " + 7 points pour capacité parcours aux n° : Zero pour sortir"
cp = 7 : y = 65
while ch <> 0
  print_locate y,335
  input ch
  conc(ch,1)=conc(ch,1)+cp
  y = y + 50
end_while
ch=1

print " + 10 points forme actuelle aux n° : Zero pour sortir"
fa = 10  : y = 65
while ch <> 0
  print_locate y,385
  input ch
  conc(ch,1)=conc(ch,1)+fa
  y = y + 50
end_while
ch=1

print " de 14 à 10 points pour tuyaux pistes aux n° : Zero pour sortir"
tp = 14  : y = 65
while ch <> 0
  print_locate y,435
  input ch
  conc(ch,1)=conc(ch,1)+tp
  tp=tp-1
  y = y + 50
end_while


 ' *********** tri methode shell ***********
 ' ** le tri se fait sur les points pour ensuite classer les chevaux**
 ' ** du plus grand nombre de points au plus petit **
 cls
 debutboucle:
 a=0
 for i= 1 to maxi-1
  if conc(i,1)>=conc(i+1,1) then goto sortieboucle
  t = conc(i,1)
  t1 = conc(i,0)
  conc(i,1) = conc(i+1,1)
  conc(i,0) = conc(i+1,0)
  conc(i+1,1) = t
  conc(i+1,0) = t1
  a = 1
 sortieboucle:
 next i
 if a = 1 then goto debutboucle
 
 ' ******* affichage horizontal  *******
 dif = maxi - ccc
 x=400 : y=25
 print_x_locate y
 print "          LISTE TRIEE DU PLUS JOUE AU MOINS JOUE  "
 x=0:y=0
 
 ' **** Favoris ****
 x=100 : y= 50 :z=95
 print_locate x-90,z-20 : print "POINTS"
 print_locate x-90,z : print "CHEVAL N°"
 print_locate x,y :print "          FAVORIS                                  OUTSIDERS                                        DELAISSES"
 y=75
 for i = 1 to 6
  print_locate x,y : print conc(i,1) :' points
  print_locate x,z : print conc(i,0) :' cheval n°
  x=x+40
 next i
 x=x+80
 
 ' *** Outsiders ***
 for i =7 to 12
  y=75 :z=95
  print_locate x,y : print conc(i,1) :' points
  print_locate x,z : print conc(i,0) :' cheval n°
  x=x+40
 next i
 x=x+80
 
 ' *** Delaissés ***
 y=75 :z=95
 for i = 13 to maxi - dif
  print_locate x,y : print conc(i,1) :' points
  print_locate x,z : print conc(i,0) :' cheval n°
  x=x+40
 next i
 x=0:y=0
 
' ******** Jeux a faire ***********
 affichage:
 x=150
 print_x_locate x
 print :print:print:print

 print "    Jeu n°1  --->  "+ str$(conc(1,0))+" , "+str$(conc(2,0))+" , "+str$(conc(3,0))+" , "+str$(conc(4,0))+" , "+str$(conc(6,0))
 print
 print "    Jeu n°2  --->  "+ str$(conc(1,0))+" , "+str$(conc(2,0))+" , "+str$(conc(3,0))+" , "+str$(conc(5,0))+" , "+str$(conc(7,0))
 print
 print "    Jeu n°3  --->  "+ str$(conc(1,0))+" , "+str$(conc(2,0))+" , "+str$(conc(4,0))+" , "+str$(conc(7,0))+" , "+str$(conc(8,0))
 print
 print "    Jeu n°4  --->  "+ str$(conc(1,0))+" , "+str$(conc(3,0))+" , "+str$(conc(4,0))+" , "+str$(conc(5,0))+" , "+str$(conc(9,0))
 print
 print "    Jeu n°5  --->  "+ str$(conc(1,0))+" , "+str$(conc(5,0))+" , "+str$(conc(6,0))+",  "+str$(conc(7,0))+" , "+str$(conc(10,0))
 print
 print "    Jeu n°6  --->  "+ str$(conc(2,0))+" , "+str$(conc(3,0))+" , "+str$(conc(5,0))+",  "+str$(conc(6,0))+" , "+str$(conc(8,0))
 print
 print "    Jeu n°7  --->  "+ str$(conc(2,0))+" , "+str$(conc(4,0))+" , "+str$(conc(5,0))+",  "+str$(conc(6,0))+" , "+str$(conc(7,0))
 print
 print "    Jeu n°8  --->  "+ str$(conc(3,0))+" , "+str$(conc(4,0))+" , "+str$(conc(6,0))+",  "+str$(conc(7,0))+" , "+str$(conc(8,0))
 print
 print "    Jeu n°9  --->  "+ str$(conc(1,0))+" , "+str$(conc(2,0))+" , "+str$(conc(3,0))+",  "+str$(conc(9,0))+" , "+str$(conc(7,0))+",  "+str$(conc(5,0))
 print
 print "    Jeu n°10  --->  "+ str$(conc(1,0))+" , "+str$(conc(3,0))+" , "+str$(conc(4,0))+",  "+str$(conc(8,0))+" , "+str$(conc(6,0))+",  "+str$(conc(10,0))


 button 1
 top 1,540
 left 1,450
 width 1,250
 height 1,30
 caption 1,"clique ici pour sortir"
 
 on_click 1,clicked
 end

 clicked:
  print_locate 500,500
 print "A la prochaine"
  wait 500
  terminate
 

' Salut Rmont (Remarque: on ne parle pas des SUB(), je te la fait à l'ancienne )

' Pour commencer FORM 0

dim wf%,hf%:wf% = 1150 : hf% = 800
width 0,wf% : height 0,hf%
left 0,int((screen_x/2)-width(0)/2):top 0,int((screen_y/2)-height(0)/2):' centrage de la fenêtre (FORM 0) sur l'écran
label fin:on_close 0,fin:' pour sortir par la croix rouge


' ensuite nous allons monter l'ossature (squelette) du programme
' Nous avons besoin de pouvoir créer des labels, de déclarer des variables,
' et de créer des objets.

' il nous faut pour commencer 2 objets pour que l'utilisateur
'    puisse saisir le nombre de chevaux et de pronostiqueurs
dim no%:' cette variable va nous servir uniquement pour créer des objets Panoramic (objets système)
label gui:' ce label va contenir les objets
gosub gui:' COMMANDE: execute la section gui (déclaration des objets et de leurs noms sous forme de variable numérique)
label les_dim:gosub les_dim
label les_label:gosub les_label
' pour lancer le programme
set_focus edit_nb_chevaux%:' place le curseur dans le premier objet
on_key_up edit_nb_chevaux%,nb_chevaux
END:' fin de la mise en place de l'ossature
' ==============================================================================
nb_chevaux:
if key_up_code=13 then gosub nb_ch2
return

nb_ch2:
if numeric(text$(edit_nb_chevaux%))=0 then return
ccc%=val(text$(edit_nb_chevaux%)):' incrémente la variable
' .................. ici tu peux limiter la saisie à un certain nombre
' on continue
inactive alpha_nb_chevaux%:inactive edit_nb_chevaux%:' désactive pour passer à la saisie suivante
active alpha_nb_Ponostiqueur%:active edit_nb_Ponostiqueur%:' active pour passer à la saisie suivante
set_focus edit_nb_Ponostiqueur%:' donne le focus pour la suite
on_key_up edit_nb_Ponostiqueur%,nb_pro
return

' ****
nb_pro:
if key_up_code=13 then gosub nb_pro2
return

nb_pro2:
if numeric(text$(edit_nb_Ponostiqueur%))=0 then return
pro%=val(text$(edit_nb_Ponostiqueur%))
' .................. ici tu peux limiter la saisie à un certain nombre
inactive alpha_nb_Ponostiqueur%:inactive edit_nb_Ponostiqueur%
' on continue
caption 0,"Nombre de Chevaux: "+str$(ccc%)+string$(10," ")+"Nombre de Pronostiqueurs: "+str$(pro%)
return

' ========
les_label:
' ici on déclare les labels au fur et à mesure de nos besoins
label nb_chevaux,nb_ch2,nb_pro,nb_pro2
' ....
return
'=====
les_dim:
' ici on déclare les variables au fur et à mesure de nos besoins
dim ccc%,pro%:' pourquoi le %. parce que les chevaux ou les pronostiqueurs sont entier donc on délare un entier
' ....
return
'=====
gui:
' ici on déclare les variables pour numéroter les objets système
dim alpha_nb_chevaux%,edit_nb_chevaux%,alpha_nb_Ponostiqueur%,edit_nb_Ponostiqueur%
' ensuite on créer les objets
' les chevaux
no%=no%+1:alpha_nb_chevaux%=no%:alpha no%:' l'alpha est créer et son numéro est alpha_nb_chevaux%
          top no%,13:left no%,12:' on positionne l'alpha
          font_bold no%:' caractères en gras
          caption no%,"Nombre de Chevaux:"
no%=no%+1:edit_nb_chevaux%=no%:edit no%
          width no%,30:' on adapte la largeur de l'édit pour entrer 2 ou 3 caractères
          top no%,10:left no%,10+width(alpha_nb_chevaux%)+5
' les pronostiqueurs
no%=no%+1:alpha_nb_Ponostiqueur%=no%:alpha no%:' l'alpha est créer et son numéro est alpha_nb_Ponostiqueur%
          top no%,13:left no%,left(edit_nb_chevaux%)+width(edit_nb_chevaux%)+40
          font_bold no%:' caractères en gras
          caption no%,"Nombre de Pronostiqueurs:"
          inactive no%:' pour obliger l'utilisateur à commencer par le nombre de chevaux
no%=no%+1:edit_nb_Ponostiqueur%=no%:edit no%
          width no%,30:' on adapte la largeur de l'édit pour entrer 2 ou 3 caractères
          top no%,10:left no%,left(alpha_nb_Ponostiqueur%)+width(alpha_nb_Ponostiqueur%)+5
          inactive no%:' pour obliger l'utilisateur à commencer par le nombre de chevaux

' ici d'autres objets par la suite
' -----
return:' fin de la section gui
'=====
fin:
terminate

' Salut Rmont (Remarque: on ne parle pas des SUB(), je te la fait à l'ancienne )

' Pour commencer FORM 0

dim wf%,hf%:wf% = 1150 : hf% = 800
width 0,wf% : height 0,hf%
left 0,int((screen_x/2)-width(0)/2):top 0,int((screen_y/2)-height(0)/2):' centrage de la fenêtre (FORM 0) sur l'écran
label fin:on_close 0,fin:' pour sortir par la croix rouge


' ensuite nous allons monter l'ossature (squelette) du programme
' Nous avons besoin de pouvoir créer des labels, de déclarer des variables,
' et de créer des objets.

' il nous faut pour commencer 2 objets pour que l'utilisateur
'    puisse saisir le nombre de chevaux et de pronostiqueurs
dim no%:' cette variable va nous servir uniquement pour créer des objets Panoramic (objets système)
label gui:' ce label va contenir les objets
gosub gui:' COMMANDE: execute la section gui (déclaration des objets et de leurs noms sous forme de variable numérique)
label les_dim:gosub les_dim
label les_label:gosub les_label
' pour lancer le programme
set_focus edit_nb_chevaux%:' place le curseur dans le premier objet
on_key_up edit_nb_chevaux%,nb_chevaux
END:' fin de la mise en place de l'ossature
' ==============================================================================
nb_chevaux:
if key_up_code=13 then gosub nb_ch2
return

nb_ch2:
if numeric(text$(edit_nb_chevaux%))=0 then return
ccc%=val(text$(edit_nb_chevaux%)):' incrémente la variable
' .................. ici tu peux limiter la saisie à un certain nombre
' on continue
inactive alpha_nb_chevaux%:inactive edit_nb_chevaux%:' désactive pour passer à la saisie suivante
active alpha_nb_Ponostiqueur%:active edit_nb_Ponostiqueur%:' active pour passer à la saisie suivante
set_focus edit_nb_Ponostiqueur%:' donne le focus pour la suite
on_key_up edit_nb_Ponostiqueur%,nb_pro
return

' ****
nb_pro:
if key_up_code=13 then gosub nb_pro2
return

nb_pro2:
if numeric(text$(edit_nb_Ponostiqueur%))=0 then return
pro%=val(text$(edit_nb_Ponostiqueur%))
' .................. ici tu peux limiter la saisie à un certain nombre
inactive alpha_nb_Ponostiqueur%:inactive edit_nb_Ponostiqueur%
' on continue
caption 0,"Nombre de Chevaux: "+str$(ccc%)+string$(10," ")+"Nombre de Pronostiqueurs: "+str$(pro%)
gosub AfficheSaisie
return

' ========
les_label:
' ici on déclare les labels au fur et à mesure de nos besoins
label nb_chevaux,nb_ch2,nb_pro,nb_pro2,AfficheSaisie
' ....
return
'=====
les_dim:
' ici on déclare les variables au fur et à mesure de nos besoins
dim ccc%,pro%:' pourquoi le %. parce que les chevaux ou les pronostiqueurs sont entier donc on délare un entier
dim i%,j% : ' variables utilisées pour faire des boucles
' ....
return
'=====
gui:
' ici on déclare les variables pour numéroter les objets système
dim alpha_nb_chevaux%,edit_nb_chevaux%,alpha_nb_Ponostiqueur%,edit_nb_Ponostiqueur%
dim TAB_1% : ' tableau de saisie

' ensuite on créer les objets
' les chevaux
no%=no%+1:alpha_nb_chevaux%=no%:alpha no%:' l'alpha est créer et son numéro est alpha_nb_chevaux%
          top no%,13:left no%,12:' on positionne l'alpha
          font_bold no%:' caractères en gras
          caption no%,"Nombre de Chevaux:"
no%=no%+1:edit_nb_chevaux%=no%:edit no%
          width no%,30:' on adapte la largeur de l'édit pour entrer 2 ou 3 caractères
          top no%,10:left no%,10+width(alpha_nb_chevaux%)+5
' les pronostiqueurs
no%=no%+1:alpha_nb_Ponostiqueur%=no%:alpha no%:' l'alpha est créer et son numéro est alpha_nb_Ponostiqueur%
          top no%,13:left no%,left(edit_nb_chevaux%)+width(edit_nb_chevaux%)+40
          font_bold no%:' caractères en gras
          caption no%,"Nombre de Pronostiqueurs:"
          inactive no%:' pour obliger l'utilisateur à commencer par le nombre de chevaux
no%=no%+1:edit_nb_Ponostiqueur%=no%:edit no%
          width no%,30:' on adapte la largeur de l'édit pour entrer 2 ou 3 caractères
          top no%,10:left no%,left(alpha_nb_Ponostiqueur%)+width(alpha_nb_Ponostiqueur%)+5
          inactive no%:' pour obliger l'utilisateur à commencer par le nombre de chevaux
 no%=no%+1:TAB_1%=no%

' ici d'autres objets par la suite
' -----
return:' fin de la section gui
'=====

' -----------------------------------------------------
' Création du tableau de cellule
' -----------------------------------------------------
AfficheSaisie:
 GRID  TAB_1% : ' le tableau de cellule
 ' on positionne le tableau de cellule par rapport à la fenetre
 LEFT  TAB_1%,5
 TOP    TAB_1%,50
 WIDTH  TAB_1%,102+(51.2*ccc%) : ' on defini sa largeur
 HEIGHT TAB_1%,26*(pro%+1)  : ' ainsi que sa hauteur
 ' on indique le nombre de ligne et de colonne
 GRID_ROW TAB_1%,pro%+1
 GRID_COLUMN TAB_1%,ccc%+1 : GRID_COLUMN_WIDTH  TAB_1%,50 : ' 50px de large
 ' la 1ere colonne est plus large pour afficher "Pronostiqueur"
 grid_one_column_width TAB_1%,1,100
 ' on met à jour les intitulés
 FOR i%=1 TO ccc%: GRID_WRITE TAB_1%,1,i%+1,STR$(ccc%-i%+1)+"Pts" : NEXT i%
 FOR i%=1 TO pro%: GRID_WRITE TAB_1%,i%+1,1,"Pronostiqueur "+STR$(i%) : NEXT i%
 ' on defini  un evenement de clic de souris sur les cellules
 LABEL ClicCellule:ON_CLICK TAB_1%,ClicCellule
return
' -----------------------------------------------------
' Procedure de traitement d'un clic sur une cellule
' -----------------------------------------------------
ClicCellule:
  ' Declaration de quelques variables temporaires
  DIM NumCheval$,NumCheval%,NumCol%,NumLigne%,msg_err$
  ' calcul des coordonnées de la cellule qui a été cliquée
  NumLigne%=grid_y_to_row(TAB_1%,mouse_y_position(TAB_1%))
  NumCol% = grid_x_to_column(TAB_1%,mouse_x_position(TAB_1%))
  REPEAT
    msg_err$=""
    ' boite de saisie
    NumCheval$=MESSAGE_INPUT$("Entrez le numéro du cheval","Cheval n°",GRID_READ$(TAB_1%,NumLigne%,NumCol%))
    ' on teste si c'est une valeur numerique
    IF NUMERIC(NumCheval$)=0
      ' on autorise l'utilisateur d'effacer un numero
      IF NumCheval$<>"" THEN msg_err$="Mauvaise saisie, veuillez recommencer!"
    ELSE
      NumCheval%=VAL(NumCheval$)
      ' on verifie que le n° est bien compris dans la plage de saisie
      IF NumCheval%<1 OR NumCheval%>ccc%
        msg_err$="Numero de cheval incorrect !"
      ELSE
        ' on vérifie que ce numero n'a pas déjà été saisie dans la ligne
        FOR i%=2 TO ccc%+1
          IF GRID_READ$(TAB_1%,NumLigne%,i%)=NumCheval$ THEN msg_err$="Ce numéro est déjà saisi !":EXIT_FOR
        NEXT i%
      END_IF
    END_IF
    IF msg_err$<>"" THEN i%=MESSAGE_ERROR_OK(msg_err$)
  UNTIL msg_err$=""
  ' C'est ok, on met à jour la cellule avec la valeur saisie
  GRID_WRITE TAB_1%,NumLigne%,NumCol%,NumCheval$
  ' on supprime les variables temporaire
  FREE NumCheval$:FREE NumCheval%:FREE NumCol%:FREE NumLigne%:FREE msg_err$
RETURN


fin:
terminate

ClicCellule(grid_x_to_column(TAB_1%,mouse_x_position(TAB_1%)),grid_y_to_row(TAB_1%,mouse_y_position(TAB_1%)))