*FICH="*fichier"+".001"
*siFicExist *fich *goto >OK
*efface 23 24 *ligne 24
 Aucun Message Enregistr‚ ;
*Bip *pause 50
*goto Minicom.VSL REC
*ok:
*Fichier="*Fichier"+".IND"
*Nbr="0"
*INdex 1 99
*REPT:
*SiFicExist *Fichier *goto >S
*goto >Sortie
*S:
*Nbr="*Nbr"+"1"
*Boucle + *goto REPT
*sortie:
*/      fichier="*fichier"+".IND"
*EFFACE 24 1
*index 1 99
*suiv:
*SiFicExist *FICHIER *goto >aff1
*Efface 24 23 *BIP *CNon

   oOo  Pas de message Suivant oOo ;
*Pause 30
*boucle - *goto >REC
*Aff1:
*NbrL="*Mem"+"0" *Mem="1"
*AFF:
*Mor="*Mem"
*Mem="*Mem"-"1"
*Mem="*Mem"*"21"
*pos 1 21 *:50
Ä
*pos 3 21 *:70
*NbrA="*NbrL"+"³"+"*Nbr"
*NbrA ;
*:50
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*ligne 22
  ;
*ligne 1 *:40
*LITFichier *Fichier *Mem 20
*Lmsg 5
*Copy 35 6
*Extrait /
*NbrPage="*Mem"
*REC:
*ligne 22
             Page Suiv. NøPage   ;
*:70i
 ENVOI ;
*ligne 23 *:40
                   Coordonn‚es   ;
*:50i
 R‚p‚t.;
*et:
*ligne 24
*:50I
RETOUR;
*:n
 ;
*:60i
SUITE;
*:n
  ;
*:50n
        Imprimer   ;
*:60i
 GUIDE ;
*ret:
*pos 32 22 *Coui
*Input 1
Sui  goto >POI1
RET  goto >POI2
Gui  *goto >imp
som  *goto Minicom.VSL
Rep  goto MinicomD.Vsl
*fin
*SiInf *NbrPage *Mem *BIP *goto Ret
*SIInf *Mem 0 *Bip *goto Ret
*goto Aff
*POI1:
*Boucle + *goto suiv
*POI2:
*Boucle - *goto Suiv
*Efface 24 23 *BIP *CNon

  oOo  Pas de message Pr‚c‚dent oOo  ;
*Pause 30
*boucle + *goto REC
*goto Minicom.VSL
*IMP:
*SiImpPret *goto >S1
*Efface 24 23 *BIP *CNon

  oOo  Imprimante Non Disponible  oOo ;
*Pause 30
*Goto REC
*S1:
*Lmsg 5
*Copy 38 2
*SiEgal *Mem 1/ *mem="1" *T="0" *goto >S
*Mem="1" *T="0"
*ENcor:
*ligne 1
*Mem="*Mem"-"1"
*Mem="*Mem"*"21"
*LITFichier *Fichier *Mem 21
*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:
*Siegal *Mor *NbrPage *goto RET
*ligne 1 *:40
*Mem="*Mor"
*Mem="*Mem"-"1"
*Mem="*Mem"*"21"
*LITFichier *Fichier *Mem 21
*goto RET