// Déclaration des variables 
// Définition du nombre de caractères à lire
nNbCarALire is int = 13 
// Nombre d'octets en attente dans le buffer 
nNbOctetAttente is int 
sBuffer is string // Contenu du buffer 
nPortSérie is int = 1 // Port série COM1 

// Ouverture et initialisation du port série COM1 
IF sOpen(nPortSérie, 5000, 5000) THEN 
	// Lecture du code-barres 
	// Récupération du nombre d'octets en attente 
	nNbOctetAttente = sInEntryQueue(nPortSérie) 
	// Récupération de la valeur du code-barres uniquement 
	// si au moins 13 caractères ont été lus 
	IF nNbOctetAttente >= nNbCarALire THEN 
		sBuffer = sRead(nPortSérie, nNbOctetAttente) 
		// Récupération des 13 premiers caractères lus 
	 	sBuffer = Left(sBuffer, 13) 
		// Affichage de la valeur du code-barres 
		// dans le champ de saisie "SAI_CodeBarre" 
		SAI_CodeBarre = sBuffer 
	END 
END