--- rpl/src/instructions_r4.c	2023/11/26 10:54:21	1.119
+++ rpl/src/instructions_r4.c	2023/11/27 13:56:46	1.120
@@ -3723,13 +3723,21 @@ instruction_read(struct_processus *s_eta
 
 			for(i = 0; i < longueur_effective; i++)
 			{
-				if (isprint(tampon_lecture[i]) != 0)
+				if (isprint(tampon_lecture[i]) == 0)
 				{
 					longueur_enregistrement += 4;
 				}
 				else
 				{
-					longueur_enregistrement++;
+					if ((tampon_lecture[i] == '"') ||
+							(tampon_lecture[i] == '"'))
+					{
+						longueur_enregistrement += 2;
+					}
+					else
+					{
+						longueur_enregistrement++;
+					}
 				}
 			}
 
@@ -3756,8 +3764,19 @@ instruction_read(struct_processus *s_eta
 			{
 				if (isprint(tampon_lecture[i]) != 0)
 				{
-					(*ptr) = tampon_lecture[i];
-					ptr++;
+					if ((tampon_lecture[i] == '"') ||
+							(tampon_lecture[i] == '"'))
+					{
+						(*ptr) = '\\';
+						ptr++;
+						(*ptr) = tampon_lecture[i];
+						ptr++;
+					}
+					else
+					{
+						(*ptr) = tampon_lecture[i];
+						ptr++;
+					}
 				}
 				else
 				{