*NOM.VAR
*Nbr="0" *OkNOM="N"
*deb:
*Nbr="*Nbr"+"1"
*Siegal *Nbr 3 *goto >INCID
*CLS
*ligne 4 *:70IH *CAN
     EXPEDITION DE MESSAGES MINICOM
*LIGNE 10 *:10H
      Connexion 3612 MINICOM
*ligne 12 *:20
      En Cours ...
*OK="OUI"
*CNON
*CONNEXION >3612 *Raccroche *goto deb
*Select.VAR
*RR0="*R0"
*VITESSE 10
*NOTEL
*Suite *TestArr
*NCODE
*Envoi *TestArr
*Sommaire
*LitPage
2
*Envoi *Litpage
*NbrF="0"
*S1:
*NbrF="*NbrF"+"1"
*Mem="/*R"+"*NbrF"+"1"
*copy 2 30
*T2="*Mem"
*Annulation
*Mem
*Suite *testArr
*SiEGal  *TY N *Annulation
*Mem="/*R"+"*NbrF"+"2"
*copy 2 30
*Mem
*T3="*Mem"
*Envoi
*CODE A inconnu
*CODE B taper
*LitPAGE
*Choix
A *goto >Non
B *goto >Oui
*fin
*goto >Non
*/ ****************
*Oui:
*TY="O" *OkNOM="O"
*LIb="*Suite"
*goto >SUP
*Non:
*TY="N"
*Lib="*Annulation"
*SUP:
*R0="*R0"+"-1"
*mem="*R0"
*SiEgal *NbrF  1  *TT1="*TY"
*SiEgal *NbrF  2  *TT2="*TY"
*SiEgal *NbrF  3  *TT3="*TY"
*SiEgal *NbrF  4  *TT4="*TY"
*SiEgal *NbrF  5  *TT5="*TY"
*SiEgal *NbrF  6  *TT6="*TY"
*SiEgal *NbrF  7  *TT7="*TY"
*SiEgal *NbrF  8  *TT8="*TY"
*SiEgal *NbrF  9  *TT9="*TY"
*SiEgal *NbrF  10 *TT10="*TY"
*Choix
0 Goto >Fini
*fin
*Lib *TestArr
*goto S1
*/*******************
*fini:
*SiEgal *OKNOM N *goto >SUIT
*SiEgal *TY N *goto >TY
*goto >TTY
*TY:
*Annulation *TestArr
*Suite *TestArr
*Annulation *TestArr
*TTY:
*Envoi *Litpage
*Minicom
*COURRIER.
*Envoi *testArr
*CODE A >transmis
*Envoi
*LitPAGE
*Choix
A *goto >TransOK
*fin
*/ On repete L'attente du libelle
*CODE A >transmis
*Envoi
*LitPAGE
*Choix
A *goto >TransOK
*fin
*SUIT:
*TT1="N" *TT2="N" *TT3="N" *TT4="N"
*TT5="N" *TT6="N" *TT7="N" *TT8="N"
*TT9="N" *TT10="N"
*TransOK:
*goto MINICOM1.ESL
*INCID:
*Raccroche
*CLS *Affiche PRESENT.COM *Ligne 14
*:50H
       CONNEXION  IMPOSSIBLE
*Ligne 18 *:70HIC *Can
       ProblŠmes de Transmission
*VIDE