			(*****************)
			(**  moslog     **)
			(**  declrais   **)
			(*****************)
const
	max_mot=200;	(* nombre de mots *)
	max_aff=100;	(* nombre d'affirmations stokees *)

			(* code des cat‚gories grammaticales
			   pour leur significations, se reporter au
			   fichier de donn‚es de moslog *)
typronom='&'; tyseul=';';	typar=':';	tysinon='"';
tysi='';	tyalors='';	tycelui='(';	tyarticle='r';
typrep='k';	typas='p';	tyetre='e';	tyqu='q';
TYA='a';	tyinverse='#';	tysyno='=';
tynon='b';	tyse='w';	tynom='n';	tyverbe='v';
tyadjectif='j'; tyqui='i';	tyquel='x';	tyquest='o';
tyu='u';	tyreflexif='f';	TYD='d';	tysymetrique='c';
tytout='l';	tyaucun='z';

type
	tstring=string[100];
	tablestock = array[1..max_aff] of integer;
