--- rpl/src/rpl.h	2010/07/14 14:19:40	1.49
+++ rpl/src/rpl.h	2010/07/31 10:34:18	1.50
@@ -1793,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									*/
 
@@ -1991,6 +1993,7 @@ 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);
 
@@ -2012,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);