P'tit cadeau pour Rmont

if (NC%>18 and NC%<78) and ((NC% - (int(NC%/10)*10))<>8)

If (comparaison) and  NC% - (Resultat<>8)

if NC%>18 and NC%<78  and ((NC% -(int(NC%/10)*10)) <> 8)

Dim D$,cpte%,NC%,NxC% ,x%,table%(6,10),Chx%(30),def%(30),N%,V$
V$="Vs 1.2"
Label Change,Change2,Clic

dlist 99 :dlist 98
P_Init()
P_F0("Synthèse Pronos Turf  "+V$,620,350)
P_Objet0(6)
end

Sub P_Init()
  D$=Dir_current$
  If file_exists(D$+"\Pronostiqueurs.txt")=0
      hide 0
      P_Pronostiqueurs()
  Else
      file_load 99,D$+"\Pronostiqueurs.txt"
  End_If
End_Sub

Sub P_Pronostiqueurs()
    Dim_Local x%
    if message_confirmation_yes_no("Le fichier 'Pronostiqueurs.txt' n'existe pas"+chr$(13)+"Voulez vous le créer ?")=1
      file_open_write 1000,D$+"\Pronostiqueurs.txt"
      for x%= 1 to 6
          if message_input("Pronostiqueurs.txt","Nom du Pronostiqueur","")=1
            file_writeln 1000,message_text$
          end_if
      next x%
      file_close 1000
      file_load 99,D$+"\Pronostiqueurs.txt"
      show 0
    else
      message "Au Revoir..."
      P_Close0()
    End_if
End_Sub

Sub P_F0(Titre$,W%,H%)
  Width 0,W% :Height 0,H% :Top 0,(Screen_y-H%)/2:Left 0,(Screen_x-W%)/2
  Font_Name 0,"Times new roman":Font_Size 0,10:Caption 0,Titre$
End_Sub

Sub P_Objet0(a%)
  Dim_Local x%,y%,z%,w% ,i%
  y%=-20
  For x%=cpte%+1 To cpte%+a%
      y%=y%+40
      Alpha x% :Top x%,y% :left x%,10:cpte%=x%:caption x%,"Pronostiqueur :"
  next x%
  y%=-20
  For x%=cpte%+1 To cpte%+a%
      y%=y%+40
      Alpha x% :Top x%,y% :left x%,180:cpte%=x%:caption x%,"Sélection :"
  next x%
  y%=-2
  For x%=cpte%+1 To cpte%+a%
      y%=y%+40
      Combo x% :Top x%,y% :left x%,10:cpte%=x% :On_change x%,Change2
      If count(99)>0 :for i%=1 to count(99):item_add cpte%,item_read$(99,i%): Next i%:End_if
  next x%
  y%=-2
  for x%=cpte%+1 To cpte%+a%
      y%=y%+40 :w%=180
      for z%=cpte%+1 to cpte%+10 :w%=w%+30:edit z% :top z%,y% :left z%,w% :width z%,20:On_change z%,change :cpte%=z%:next z%
  next x%
  cpte%=cpte%+1
  Button cpte% :top cpte%,280:left cpte%,525:caption cpte%,"Synthèse":cursor_point cpte% :On_click cpte%,Clic
  set_focus 13
End_Sub

Change:
  NC%=Number_change
      If len(text$(NC%))=2
        if (NC%>18 and NC%<78) and ((NC% - (int(NC%/10)*10))<>8)
            set_focus NC%+1
        else
            N%=13
            for NC%=28 to 68 step 10
              N%=N%+1
              if len(text$(NC%))=2 then Set_focus N%
            next NC%
            if NC%=78 and len(text$(NC%))=2
              set_focus 79
            end_if
        end_if
      end_if
Return

Change2:
  NC%=Number_change
  NxC%=19
  if NC%=13 then set_focus NxC%
  For x%=14 to 18
      NxC%=NxC%+10
      if NC%=x% then set_focus NxC%
  next x%
Return

Clic:
  P_RemplisTab()
  P_Attribution()
  P_Result()
return

Sub P_RemplisTab()
  Dim_Local x%,y%,z%,w%
  z%=18
  For x%=1 to 6
      For y% = 1 to 10
        z% = z%+1
        if text$(z%)<>""
        w% = val(text$(z%))
        Table%(x%,y%)=w%
        end_if
      Next y%
  Next x%
End_Sub

Sub P_Attribution()
  dim_local x%,y%,z%
  for x%=1 to 6
      for y%=1 to 10
          Chx%(Table%(x%,y%))=Chx%(Table%(x%,y%))+11-y%
      next y%
  next x%
  for x%=1 to 30 :item_add 98,Chx%(x%) :next x%
End_Sub

Sub P_Result()
  Dim_Local x%,vs%,ii%,L$,z%,synth$
  z%=1
  while z%<count(98) or z%=count(98)
      vs%=0: ii%=0
      for x%=1 to count(98)
        L$=item_read$(98,x%)
        if val(L$)>vs%
            vs%=val(L$)
            ii%=x%
        end_if
      Next x%
      if ii%>0
        def%(z%)=ii%
        item_delete 98,ii%
        item_insert 98,ii%,"0"
      end_if
      z%=z%+1
  end_while
  for x%= 1 to 10:synth$=synth$+chr$(32)+str$(def%(x%))+chr$(32):next x%
  message "Synthèse : "+trim$(synth$)
  P_Sauvegarde(synth$)
End_sub

Sub P_Sauvegarde(synth$)
  dim_local Day$,Course$
  Day$=date$
  if Message_information_yes_no("Voulez vous sauvegarder cette synthèse ?")=1
      if message_input("Course","Nom de la course :","")=1 then Course$=message_text$
      P_Ecriture(Synth$,Course$)
      P_Close0()
  else
      P_Close0()
  end_if
End_Sub

Sub P_Ecriture(Synth$,Course$)
  file_open_write 1000,D$+"\Sauvegarde.txt"
  file_writeln 1000,date$+" - "+Course$
  file_writeln 1000,trim$(synth$)
  file_close 1000
End_Sub

Sub P_Close0()
  Terminate
End_Sub