	par	:integer;	(* la phrase frappee est passive *)
	aucun	:boolean;	(* aucun est pr‚sent dans un Gn *)
	oui	:integer;	(* la reponse oui a ete donnee *)
	non	:integer;	(* la reponse non a ete donnee *)
	nb_rep	:integer;	(* nombre de reponses donnees *)
	repo	:integer;	(* oui, non ou une reponse a ete donnee *)
	phrase	:tstring;	(* caractŠres de la phrase frapp‚e *)
	mot	:tstring;	(* mot de la phrase frapp‚e *)
	commande:tstring;	(* commande frappee *)
	m:array[1..30] of integer;	(* codage de la phrase frapp‚e *)
	p	:integer;	(* index dans c_ puis dans m *)
	nbr_mot	:integer;	(* nombre de mots de la phrase frapp‚e *)
	prec	:integer;	(* rang du mot pr‚c‚dent *)
	ok	:integer;	(* tout va bien ou mal *)
	sp	:integer;
	c,nc	:integer;	(* valeur de hshcod *)
	fin	:boolean;	(* sortie du programme *)
	fich	:boolean;	(* lecture tty ou fichier *)
	f9	:text;		(* fichier … lire *)
	test	:integer;	(* trace pour les tests *)
	ques	:integer;	(* affirmation ou question *)
	etre	:integer;	(* code du verbe etre *)
	nb_mot	:integer;	(* nombre de mots du dico *)
	last_pred:integer;	(* valeur du dernier mot predefini *)
	nb_aff	:integer;	(* nombre de phrases stock‚es *)
	nb_equi	:integer;	(* nombre d'equivalence du gn1 *)
	equi	:array[1..30] of integer; (* equivalences du gn1 *)
	i,j,k,h,vax:integer;
	x:char;
	y,qq,q:integer;


		(* codage de la phrase frappee *)
	verbe1,negav1,slog,snegan,snom,sadj	:integer;
	verbe,pro,negav,log,negan,nom,adj	:integer;
	prep,sprep,article,sarticle		:integer;
	dp,dq,db,da,dn	:integer;
		(* valeurs s‚mantiques des mots de la phrase frappee : *)
	mverbe1,msnom,msadj,msverbe,mnom,madj,mverbe:integer;

		(* codage de la phrase stokee … comparer : *)
	esar1,esah1,esl1,esb1,esn1,esa1		:integer;
	espro,esp1,esverbe,esnegav		:integer;
	esar2,esah2,esl2,esb2,esn2,esa2		:integer;
		(* valeurs s‚mantiques des mots de la phrase stokee : *)
	msn1,msa1,msn2,msa2,msp1	:integer;

				(* table des mots du dictionnaire *)
	mot_:array[0..max_mot] of tstring;	(* mot *)
	vam:array[0..max_mot] of integer;	(* valeur *)
	rel:array[1..max_mot] of integer;	(* relation *)
	pas:arraY[1..max_mot] of integer;	(* passif *)
	code:arraY[0..max_mot] of char;		(* code *)
	tipe:array[0..max_mot] of char;		(* type *)
	chai:array[1..max_mot] of integer;	(* chainage au mot suivant *)

				(* table de hsh code *)
	las:array[1..30] of integer;	(* pointe vers le dernier mot *)
	hsh:array[1..30] of integer;	(* pointe vers le premier mot *)

				(* stokage des affirmations *)
	sp1:tablestock;		(* 1er verbe (celui qui verbe) *)
	sQ1:tablestock;		(* negation du 1er verbe *)

	sl1:tablestock;		(* attribut logique du 1er nom *)
	sb1:tablestock;		(* attribut "non" du 1er nom *)
	sn1:tablestock;		(* 1er nom *)
	sa1:tablestock;		(* 1er adjectif *)
	sar1:tablestock;	(* article du 1er nom *)
	sah1:tablestock;	(* pr‚position entre nom et adj *)

	spro:tablestock;	(* verbe pronominal *)
	sverbe:tablestock;	(* verbe *)
	snegav:tablestock;	(* negation du verbe *)

	sl2:tablestock;		(* attribut logique du 2eme nom *)
	sb2:tablestock;		(* attribut "non" du 2eme nom *)
	sn2:tablestock;		(* 2‚me nom *)
	sa2:tablestock;		(* 2‚me adjectif *)
	sar2:tablestock;	(* article *)
	sah2:tablestock;	(* preposition entre nom et adj *)
	ptab:array[1..2] of integer;
	l23,l24	: integer;
