ppor est un entier = 1 // numéro du port série TANTQUE PAS sOuvre(ppor,1000,1000) SI Confirmer("Impossible d'ouvrir le port série"+" "+ ppor,"Souhaitez-vous faire un nouvel essai ?") <> Oui ALORS RETOUR FIN sEcrit(ppor,pcod) // Ecriture directe dans le port série sFerme(ppor)