Alea Direction routine

remarque : Permet de generer une Orientation aleatoire

     out Feuille A4, "Drection", Heure Courante, Date Courante
     action "Prendre", 6, Allumette
     action "Jeter", 3, Allumettes, vers le Haut
     in Sol, Position Allumette1, Position Allumette2, Position Allumette3

     out Feuille A4, Position Allumette1, Position Allumette2, Position Allumette3

     action "Poser", Allumette4, parallèle, Position Allumette1
     action "Poser", queue, Allumette5, tete, Allumette4
     action "Orienter", Allumette5, parallèle, Position Allumette2
     action "Poser", queue, Allumette6, tete, Allumette5
     action "Orienter", Allumette6, parallèle, Position Allumette3

     in Sol, Position Allumette4, Position Allumette5, Position Allumette6

     out Feuille A4, Position Allumette4, Position Allumette5, Position Allumette6

     Direction = queue(allumette4), tete(Allumette6)

     retour