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