COM est un entier =1
sFerme(COM)

SI PAS sOuvre(COM,2048,2048,7000,Vrai) ALORS
 Info("Problème lors de l'ouverture de "+COM)
 RETOUR
FIN

SI PAS sFixeParamètre (1,1200,1 ,7 ,0,False,False,Vrai) ALORS
 Info("Problème lors du paramétrage")
 RETOUR
FIN

TimeOut est un booléen = True
DateHeureDebut est une chaîne = DateSys()+HeureSys()
 WHILE

  // TimeOut sur 20s
  IF 2048-sDansFileSortie(COM)>=Taille(texte) THEN
   // 2048 Taille Buffer Sortie utilisé dans sOuvre(...)
   sEcrit(COM,texte)

   TimeOut = False
  END
 END

 sEcrit(COM,Caract(0x04) )

 IF TimeOut THEN
  Erreur("Transmission impossible")
 ELSE
  Info("Bonne Transmission...")
 END

 sFerme(COM)

 sFerme(port)
 sOuvre(port,2048,2048,sTimeoutDéfaut,Vrai)
 sFixeParamètre (1,1200,1 ,7 ,0,False,False,Vrai)
 recup est une chaîne= ""

 IF sDansFileEntrée(port)>0 THEN
  recup += sLit(port,sDansFileEntrée(port))
 End

 IF Droite(recup,1)=Caract(0x04) THEN
  SORTIR
 END

 sFerme(port)

 i est un entier
 l est une chaîne = ""

POUR i=1 A Taille(recup)

 l += Asc(Milieu(i,1))
 l += ","

FIN