/* Quelques variables */
var ind01 = 0;					/* Indice de parcours d'une boucle */
var sens = "GversD";			/* Sens pour le parcours de la chaîne (K2000) */
var tabK2000 = new Array();		/* Tableau pour la sauvegarde des paramètres */
var test = 0;					/* On ne sauvegarde qu'une fois les paramètres */

function k2000(objet, message, tailleObjX, tailleObjY, taillePoliceFixe)
{
	if (test == 0)
	{
		tabK2000[0] = objet;
		tabK2000[1] = message;
		tabK2000[2] = tailleObjX;
		tabK2000[3] = tailleObjY;
		tabK2000[4] = taillePoliceFixe;
	
		test = 1;
	}

	if (sens == "GversD"){comm = "ind01+=1";}else{comm = "ind01-=1";}
	if (ind01 != tabMess[nbObj-1].length)
	{
		var lettre  = tabK2000[1].charAt(ind01);
		var NewMess = tabK2000[1].substring(0,ind01) + "<font color=red>" + lettre + "</font>" + tabK2000[1].substring(ind01+1,tabK2000[1].length);
		ModifierObj(tabK2000[0],'<table border = 0 width = ' + tabK2000[2] + ' height = ' + tabK2000[3] + '><tr><td ALIGN=center VALIGN=middle class=BLANC_BOLD_MOYEN><font size='+tabK2000[4]+'>'+NewMess+'</font></td></tr></table>');
	}
	else
	{
		sens = "DversG";
	}
	if (ind01 == -1 && sens == "DversG"){sens = "GversD";}		
	eval(comm);

	var ident = setTimeout("k2000()",5)

}