*CLS *num="1"
*SIEGAL *B 1 *Max="31" *mois="Janvier"
*SIEGAL *B 2 *Max="28" *mois="F‚vrier"
*SIEGAL *B 3 *Max="31" *mois="Mars"
*SIEGAL *B 4 *Max="30" *mois="Avril"
*SIEGAL *B 5 *Max="31" *mois="Mai"
*SIEGAL *B 6 *Max="30" *mois="Juin"
*SIEGAL *B 7 *Max="31" *mois="Juillet"
*SIEGAL *B 8 *Max="31" *mois="Ao–t"
*SIEGAL *B 9 *Max="30" *mois="Septembre"
*SIEGAL *B 10 *Max="31" *mois="Octobre"
*SIEGAL *B 11 *Max="30" *mois="Novembre"
*SIEGAL *B 12 *Max="30" *mois="D‚cembre"
*ligne 24 *:30
 Interrompre la Recherche ;
*:50i
 Annulation ;
*:N
 ;
*CAN
*Ligne 0 *:30 *CAN
         Recherche en cours
*SIEGAL *NOMR @@@@ *goto >S1
*S1:
*ligne 21 *:30
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*ligne 23 *:30
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*Pos 21 22 *:40
 Date
*pos 30 22 *:50
*mois ;
*CAN
*ETT:
*pos 27 22 *:60 *CNON
*A ;
*et:
*InTr
Ann *BIP *goto >AZE
*fin
*F="J"+"*A"+"M"+"*B"+".001"
*SIficexist *F *goto >VAC2
*PO:
*SiInf *A *Max *A="*A"+"1" *goto ETT
*A="1"
*SiEGAL *B 12 *goto >S2
*goto >S1
*S2:
*B="1" *A="1" *mois="Janvier" *Max="31"
*goto >OP
*S1:
*B="*B"+"1"
*SIEGAL *B 1 *Max="31" *mois="Janvier"
*SIEGAL *B 2 *Max="28" *mois="F‚vrier"
*SIEGAL *B 3 *Max="31" *mois="Mars"
*SIEGAL *B 4 *Max="30" *mois="Avril"
*SIEGAL *B 5 *Max="31" *mois="Mai"
*SIEGAL *B 6 *Max="30" *mois="Juin"
*SIEGAL *B 7 *Max="31" *mois="Juillet"
*SIEGAL *B 8 *Max="31" *mois="Ao–t"
*SIEGAL *B 9 *Max="30" *mois="Septembre"
*SIEGAL *B 10 *Max="31" *mois="Octobre"
*SIEGAL *B 11 *Max="30" *mois="Novembre"
*SIEGAL *B 12 *Max="30" *mois="D‚cembre"
*OP:
*pos 27 22 *:60 *CNON
*A ;
*pos 30 22 *:50
*mois ;
*CAN
*SIEGAL *B *C  *goto >SORTIE
*goto ETT
*SORTIE:
*ligne 24
 Recherche Termin‚e   ;
*:50I
 Sommaire ;
*:n
 ;
*fonction
Som *Coui *goto Minico4.VSL
*fin
*AZE:
*SiInf *Num 2 *goto Minico4.VSL
*goto Minico42.VSL PA
*VAC2:
*SiegAL *NomR @@@@ *goto >S1
*Fichier="J"+"*A"+"M"+"*B"+".IND"
*FIC="J"+"*A"+"M"+"*B"+"."
*goto Minico52.VSL
*S1:
*Fichier="J"+"*A"+"M"+"*B"+".IND"
*FIC="J"+"*A"+"M"+"*B"+"."
*goto Minico42.VSL