*FICH="*fichier"+".001"
*siFicExist *fich *goto >OK
*efface 23 24 *ligne 24
 Aucun Message Enregistr‚ ;
*Bip *pause 50
*goto Minicom.VSL REC
*ok:
*efface 23 24 *ligne 24 *:H *Cnon *BIP
 Confirmez par ;
*:70IP
 ENVOI ;
*:70N
 Sinon ;
*:50I
 RETOUR ;
*fonction
Env goto >S1
*fin
*Bip *pause 20
*goto Minicom.VSL
*S1:
*Fichier="*Fichier"+".IND"
*Nbr="0"
*Efface 23 24 *:H
*INdex 1 99
*REPT:
*SiFicExist *Fichier *goto >S
*goto >Sortie
*S:
*/ EffaceFic *Fichier
*Nbr="*Nbr"+"1"
*Ligne 24 *:H
 Message Nø;
*Nbr ;
Effac‚
*Boucle + *goto REPT
*sortie:
*goto Minicom.VSL