*FICH="*fichier"+".001"
*siFicExist *fich *goto >OK
*efface 23 24 *ligne 24
 Aucun Message Enregistr‚ ;
*Bip *pause 50
*goto Minicom.VSL REC
*ok:
*SiImpPret *goto >S1
*Efface 24 23 *BIP *CNon

  oOo  Imprimante Non Disponible  oOo ;
*Pause 30
*goto Minicom.VSL
*S1:
*Fichier="*Fichier"+".IND"
*Nbr="0"
*INdex 1 99
*REPT:
*SiFicExist *Fichier *goto >S
*goto >Sortie
*S:
*Nbr="*Nbr"+"1"
*Boucle + *goto REPT
*sortie:
*cls
*/      *************************
*index 1 99
*suiv:
*SiFicExist *FICHIER *goto >aff1
*efface 23 24 *ligne 24
    Impression Termin‚e ;
*Bip *pause 50
*goto Minicom.VSL
*Aff1:
*NbrL="*Mem"+"0" *Mem="1"
*AFF:
*Mor="*Mem"
*Mem="*Mem"-"1"
*Mem="*Mem"*"21"
*BIP *pos 1 21 *:10
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*pos 5 24 *:50H
*ZA="Impression du message Nø"
*NbrA="*ZA"+"*NbrL"+" sur "+"*Nbr"
*NbrA ;
*ligne 1 *:50
*LITFichier *Fichier *Mem 20
*Lmsg 5
*Copy 35 6
*Extrait /
*NbrPage="*Mem"
*Lmsg 5
*Copy 38 2
*/  SiEgal *Mem 1³ *mem="1" *T="0" *goto >S
*Mem="1" *T="0"
*ENcor:
*ligne 1 *:20
*Mem="*Mem"-"1"
*Mem="*Mem"*"21"
*LITFichier *Fichier *Mem 20
*S:
*imprime 25 22
*Lmsg 5
*Copy 35 6
*Extrait /
*NbrPage="*Mem"
*T="*T"+"1"
*SiEgal *T *NbrPage *goto >Sortie
*Mem="*T"+"1"
*goto Encor
*Sortie:
*goto >RET
*/ Siegal *Mor *NbrPage *goto >RET
*ligne 1 *:20
*Mem="*Mor"
*Mem="*Mem"-"1"
*Mem="*Mem"*"21"
*LITFichier *Fichier *Mem 20
*RET:
*Boucle + *goto Suiv
*goto Minicom.VSL