*NOM.VAR
*Nbr="0"
*Vitesse 3
*deb:
*Nbr="*Nbr"+"1"
*Siegal *Nbr 3 *goto >INCID
*CLS
*ligne 4 *:70IH *CAN
         CONSULTATION MINICOM
*LIGNE 10 *:30H
      Connexion 3612 MINICOM
*ligne 11 *:10
      Le ;
*date
*ligne 13 *:20
      En cours ...;
*Q="*MEM" *copy 1 2
*Mem="*Mem"+"0"
*D1="*mem"
*Mem="*Q" *copy 4 2 *Mem="*Mem"+"0"
*D2="*Mem"
*FICHIER="J"+"*D1"+"M"+"*D2"+".IND"
*D1=""  *D2=""
*OK="OUI"
*CNON
*Index 1 99
*EZT:
*SiFicExist *Fichier *goto >S1
*goto >S2
*S1:
*EffaceFic *Fichier
*Boucle + *goto EZT
*S2:
*CONNEXION >3612 *RACCROCHE *goto deb
*Nbr="0"
*VITESSE 4
*NOTEL
*NbrR="0"
*Suite *TestArr
*NCODE
*CODE A n'avez
*CODE B tentative
*Envoi
*LitPAGE
*Choix
A *goto >Non
B *Suite *TestArr
*fin
*Nbr="1"
*imprimeMSG 22
*Lmsg 4
*Copy 35 6
*Extrait /
*NbrR="*Mem"
*Nbr
*Envoi
*Index 1 99
*ET:
*LitPage
*Imprime *Fichier 22
*Imprime 25 22
*ImprimeMsg 22
*Lmsg 5
*Copy 35 6
*Extrait /
*NbrPage="*Mem"
*REC:
*NbrPage="*NbrPage"-"1"
*SiInf *NbrPage 1 *goto >Suit
*Suite *LitPage
*Imprime *Fichier 22
*Imprime 25 22
*goto REC
*Suit:
S
*Envoi
*Code B Suite
*LitPage
*Choix
B goto >Oui
*Fin
*goto >Non
*OUI:
*SiEgal *NbrR *Nbr *goto >Non
*Nbr="*Nbr"+"1"
*Suite
*Boucle + *goto Et
*NON:
*SiInf *Nbr *NbrR *goto Oui
*Raccroche
*CLS *Affiche PRESENT.COM *Ligne 14
*:50H
            LIAISON  COUPEE
*T="CONS."+"$"+" "+"$"+"   "+"$"+"*Nbr"+"$"
*EcritLigne Controle.Txt *T
*ligne 18 *:70IH *can
          R‚ception Parfaite
*SiINF 0 *Nbr *goto >Fin
*ligne 24
 Vous n'avez pas de message
*Vide
*goto >Sortie
*FIN:
*SiEgal *Nbr 1 *goto >Sup
*ligne 24
  ;
*Nbr messages ont ‚t‚ r‚cup‚r‚s
*VIDE
*goto >Sortie
*Sup:
*ligne 24
  ;
1 message a ‚t‚ r‚cup‚r‚
*VIDE
*goto >Sortie
*INCID:
*raccroche
*CLS *Affiche PRESENT.COM *Ligne 14
*:50H
           LIAISON  COUPEE
*Ligne 18 *:70HIC *Can
    ProblŠmes de R‚ception rencontr‚s
*Ligne 24
    V‚rifiez sur le service MINICOM
*vide
*Sortie: