*F="0"
*SS1:
*F="*F"+"1"
*Mem="/*R"+"*F"+"1"
*copy 2 30
*T2="*Mem"
*Mem="/*R"+"*F"+"2"
*copy 2 30
*T3="*Mem"
*Mem="/*TT"+"*F"
*copy 2 30
*T4="*Mem"
*T="Emis."+"$"+"*T2"+"$"+"*T3"+"$"+"*T4"+"$"
*EcritLigne Controle.Txt *T
*Siegal *F *RR0 *goto >FINI1
*goto SS1
******************
*fini1:
*Raccroche
*CLS *Affiche PRESENT.COM *Ligne 14
*:50H
            LIAISON  COUPEE
*Mem="*OK"
*Choix
OUI *goto >Ok
*Fin
*Ligne 18 *:70HIC *Can
      ProblŠmes de Transmission
*Ligne 24
      Voir Fichier Contr“le ...
*goto >fin
*OK:
*ligne 18 *:10H
         Transmission Parfaite
*ligne 24
  Consultez le fichier Contr“le
*FIN:
*VIDE