*ligne 22 *:30
 Message Nø
*index 1 50
*ET:
*InTr
Ann *BIP *goto >PA
*fin
*SiFicExist *Fichier *goto >S
*goto Minico41.VSL PO
*S:
*pos 12 22 *:50
*mem="*mem"+"0"
*mem ;
*ChargeFic *Fichier 0 1
*lmsg 1
*copy 1 20
*SiNum
*SiEgal *NomR *Mem *goto >S1
*bouclE + *goto ET
*S1:
*ChargeFic *Fichier 0 6
*RE+"*NUM"="*Fic"+"*Mem"
*Lig="*NUM"*"2"
*Ligne *lig *Lmsg 6
*copy 1 37
*NUM ;
*Mem
*:20N *Lmsg 1 *copy 1 20
   ;
*mem
*lig="*Lig"+"1" *pos 29 *Lig *:20
*a ;
*mois
*Num="*Num"+"1"
*SiEgal *NUM 10 *goto >PA
*bouclE + *goto ET
*goto Minico41.VSL PO
*PA:
*ligne 0 *:00 *CAN
*Ligne 22
 Voir un Message Nø   ;
*:50I
 ENVOI ;
*:N
 ou ;
*:50I
 SUITE ;
*ligne 24 *:30
 Revenir … la SELECTION  ;
*:50i
 Sommaire ;
*:N
 ;
*CAN
*REC:
*ligne 0
*NUM1="*Num"-"1"
*pos 21 22
*input 1
Env
Som Goto minico4.VSL
Sui Goto >S1
*fin
*Mem="\"+"*Mem"
*SiEgal *Mem \ *BIP *goto REC
*copy 2 10
*SiInf *NUM1 *MEM *BIP *goto REC
*Siinf *mem 0 *goto REC
*goto >AFF
*S1:
*SiInf *Num 10 *goto >S1
*efface 20 2
*Num="1"
*S1:
*Ligne 0 *:30 *CAN
         Recherche en cours
*ligne 24 *:30
 Interrompre la Recherche ;
*:50i
 Annulation ;
*:N
 ;
*CAN
*ligne 22
 ;
*CAN
*Pos 21 22 *:40
 Date
*pos 30 22 *:50
*mois ;
*CAN
*pos 27 22 *:60
*A
*ligne 22 *:30
 Message Nø
*goto ET
*AFF:
*SELECT="*Mem"
*Imprime TAMPON. 22
*goto Minico53.VSL