--- rpl/src/rpl.h	2010/06/28 14:30:33	1.46
+++ rpl/src/rpl.h	2010/07/31 10:34:18	1.50
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.17
+  RPL/2 (R) version 4.0.18
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1213,21 +1213,23 @@ typedef struct liste_pile_systeme
 
 	/*
 	type clôture :
-	C     CASE  : END termine un test SELECT/CASE/THEN/END/DEFAULT/END.
-	D     DO    : END termine une boucle DO/UNTIL/END.
-	I     IF    : END termine un test IF/THEN (ELSE)/END.
-	J     IFERR : END termine un test IFERR/THEN (ELSE)/END.
-	W     WHILE : END termine une boucle WHILE/REPEAT/END.
-
-	F     FOR   : NEXT ou STEP termine une boucle avec compteur.
-	S     START : NEXT ou STEP termine une boucle sans compteur.
-	L     LOOP  : boucle utilisé dans le traitement de l'instruction RETURN.
+	C     SELECT  : END termine un test SELECT/DEFAULT/END.
+	D     DO      : END termine une boucle DO/UNTIL/END.
+	I     IF      : END termine un test IF/THEN (ELSE)/END.
+	J     IFERR   : END termine un test IFERR/THEN (ELSE)/END.
+	K     CASE    : END termine un test CASE/THEN/END
+	W     WHILE   : END termine une boucle WHILE/REPEAT/END.
+
+	F     FOR     : NEXT ou STEP termine une boucle avec compteur.
+	S     START   : NEXT ou STEP termine une boucle sans compteur.
+	L     LOOP    : boucle utilisé dans le traitement de l'instruction RETURN.
 	        Elle correspond à une boucle FOR ou START mais sans son
 			initialisation.
 	*/
 
 	unsigned long				adresse_retour;
 	unsigned long				niveau_courant;
+	struct_objet				*pointeur_adresse_retour;
 } struct_liste_pile_systeme;
 #endif
 
@@ -1791,8 +1793,10 @@ typedef struct processus
 
 	unsigned char				traitement_interruption;  /* Y/N */
 	unsigned char				traitement_interruptible; /* Y/N */
+	unsigned char				traitement_at_poke;       /* Y/N */
 
 	struct_objet				*at_exit;
+	struct_objet				*at_poke;
 
 /* Variables volatiles									*/
 
@@ -1989,11 +1993,13 @@ void instruction_asr(struct_processus *s
 void instruction_atan(struct_processus *s_etat_processus);
 void instruction_atanh(struct_processus *s_etat_processus);
 void instruction_atexit(struct_processus *s_etat_processus);
+void instruction_atpoke(struct_processus *s_etat_processus);
 void instruction_autoscale(struct_processus *s_etat_processus);
 void instruction_axes(struct_processus *s_etat_processus);
 
 void instruction_b_vers_r(struct_processus *s_etat_processus);
 void instruction_backspace(struct_processus *s_etat_processus);
+void instruction_backtrace(struct_processus *s_etat_processus);
 void instruction_beep(struct_processus *s_etat_processus);
 void instruction_bessel(struct_processus *s_etat_processus);
 void instruction_bin(struct_processus *s_etat_processus);
@@ -2009,6 +2015,7 @@ void instruction_cllcd(struct_processus
 void instruction_clmf(struct_processus *s_etat_processus);
 void instruction_close(struct_processus *s_etat_processus);
 void instruction_clratexit(struct_processus *s_etat_processus);
+void instruction_clratpoke(struct_processus *s_etat_processus);
 void instruction_clrcntxt(struct_processus *s_etat_processus);
 void instruction_clrerr(struct_processus *s_etat_processus);
 void instruction_clrfuse(struct_processus *s_etat_processus);