<!--



// detection navigateur
bName = navigator.appName; 
bVer  = parseInt(navigator.appVersion); 

     if (bName == "Netscape" && bVer >= 4) ver = "nn4"; 
else if (bName == "Netscape" && bVer >= 3) ver = "nn3"; 
else if (bName == "Netscape" && bVer == 2) ver = "nn2"; 
else if (bName.indexOf('Microsoft') >= 0 && bVer >= 4) ver = "ie4"; 
else if (bName.indexOf('Microsoft') >= 0 && bVer >= 2) ver = "ie3"; 
else ver = "xx";

//  scrolling - gestion des events pour les nav 4 
if (window.Event)  // navigator 4.0
   window.captureEvents(Event.KEYPRESS | Event.KEYDOWN | Event.KEYUP | Event.MOUSEUP);
window.onKeyUp = stoppe;
window.onmouseup = stoppe;

// position pour le scrolling page
var position = 0;
var posfin = 1200;

// arret du scroll
arret=false;

function stoppe()
{
if (arret==true) {arret=false;scroller();}
else arret=true;
}


function scrolle(pos){
position=0;
posfin=pos;  // fixer la fin du scroll
arret=false;
scroller();  // lance le scroller
}

function scroller() {
  if ( ver!="ie3" && ver!="xx"){
     if (position < posfin) {
                position+=3;
if (!arret){
                scroll(0,position);
                clearTimeout(timer);
                var timer = setTimeout("scroller()",10); timer;
//		setTimeout("scroller(pos)",10);
}

     }
  }
  else {position=0;scroll(0,0);}
}


function lance(newURL,newName,newFeatures,orgName) {
var fille=open(newURL,newName,newFeatures);
if (fille.opener == null)  fille.opener=window;
fille.opener.name=orgName;
return fille;
}

function ouvrir(nom_page)
{

// fermer la fenetre poeme si IE3 - ne marche pas
//if (ver=="ie3" || ver=="xx") {if (window.fen_poeme) fen_poeme.close();}

fen_poeme=lance(nom_page,"fen_poeme","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=620,height=400","menu");

//if (ver!="ie3" && ver!="xx") fen_poeme.focus();
if (bVer>=3) fen_poeme.focus();
}



//* 
//     	affichage aleatoire d'une page HTML
//	(c) janvier 1998, SK            
//                
//

function Liste() {
  var argv = Liste.arguments;
  var argc = argv.length;
  this.list = new Object();
  for (var i = 0; i < argc; i++)
    this.list[i] = argv[i];
  this.count = argc;
  return this;
}


function alea()
{
	// indiquer le nombre de poemes figurant sous la forme 1.htm , 2.htm, etc...
	// nb : il ne doit pas y avoir de trou... si trou placer les poemes dans la liste pages
	// attention : le premier fichier pris en compte est 1.htm


var total_poemes_numerotes=100;


	// placer les adresses des pages (en relatif ou en absolu)
	// dans la chaine suivante
	var  pages = new Liste (
"32bis",
"64","82","6","18","99","83","57","48","78","62","64","72","34","17"
);

choix = Math.round ( (Math.random() * (total_poemes_numerotes+pages.count-1)) );

if (choix>=pages.count) 
{num=choix+1-pages.count;
fichier=num+".htm";
}
else  fichier=pages.list[choix]+".htm";


//alert("total poemes numerotés"+total_poemes_numerotes+"\ntotal pages référencées "+pages.count+"\n choix "+choix+"\n fichier "+fichier);

//ouvrir(fichier);
this.location=fichier;
}


//*********************************************
// Park-Miller Pseudo-Random Number Generator
// JavaScript implementation by David N. Smith
// of IBM's T J Watson Research Center
//*********************************************
//function NextRandomNumber()  {
//  var hi   = this.seed / this.Q;
//  var lo   = this.seed % this.Q;
//  var test = this.A * lo - this.R * hi;
//  if (test > 0)
//    this.seed = test;
//  else
//    this.seed = test + this.M;
//  return (this.seed * this.oneOverM);
//}
//function RandomNumberGenerator() {
//  var d = new Date();
//  this.seed = 2345678901 +
//    (d.getSeconds() * 0xFFFFFF) +
//    (d.getMinutes() * 0xFFFF);
//this.A = 48271;
//  this.M = 2147483647;
//  this.Q = this.M / this.A;
//  this.R = this.M % this.A;
//  this.oneOverM = 1.0 / this.M;
//  this.next = NextRandomNumber;
//  return this;
//}

// var rand = new RandomNumberGenerator();

// -->