PrgmPFC

Menu("P-F-C","1 JOUEUR",Y,"2 JOUEUR",X
Lbl Y
prgm@0
Lbl X
EffEcr
Lbl 0
0->A:0->B:0->C:0->D
Menu("P-F-C","REGLE",R,"JOUER",J,"QUITTER",Q
Lbl J
EffEcr
Output(4,2'"JOUEUR 1" //// J1 voir en bas pour Prgm@0
Input O //// J2 Idem
Lbl 3
Output(4,4,"1 2 3 !!!"
69!
69!
69!
C+1->C
If C=6
Goto 1
Lbl 1
EffEcr
Lbl 2
Output(2,2,"PIERRE"
69!
69!
B+1->B
A+1->A
If A=3
Output(4,4,"FEUILLE"
If B=6
Output(6,6,"CISSEAUX"
If B=13
Goto 4
Goto 2
Lbl 4
If U=1 et O=1
1->E
If U=1 et O=2
3->E
If U=1 et O=3
2->E
If U=2 et O=1
2->E
If U=2 et O=2
1->E
If U=2 et O=3
3->E
If U=3 et O=1
3->E
If U=3 et O=2
2->E
If U=3 et O=3
1->E
EffEcr
If U=1
Output(2,1,"PIERRE"
If U=2
Output(2,1,"FEUILLE"
If U=3
Output(2,1,"CISSEAUX"
If O=1
Output(7,11,"PIERRE"
If O=2
Output(7,10,"FEUILLE"
If O=3
Output(7,9,"CISSEAUX"
If E=1
Output(4,4,"EGALITE"
If E=2
Output(4,1,"J1 A GAGNER" //////// J3
If E=3
Output(4,1,"J2 A GAGNER" //////// J4
Output(2,9,"<- J1" //////// J5
Output(7,1,"J2 ->" //////// J6
Pause
Goto0
Lbl R
EffEcr
Output(1,1,"1 = PIERRE"
Output(3,1,"2 = FEUILLE"
Output(5,1,"3 = CISSEAUX"
Output(7,1,"ENTRER = MENU"
Pause
Goto 0
Lbl Q
Stop

Suprimer jusqua le premier lbl 0
J1 = Output(4,4,"UTILISATEUR ?"
J2 = Input Chaine0
Ajouter sa ///// 2Nde suppr entrer
EffEcr
Input U
EffEcr
entAléat(1,3->O
Puis Reprendre

J3 = Output(4,1,"VOUS AVEZ GAGNER"
J4 = Output(4,1,"VOUS AVEZ PERDUE"
J5 = Output(2,9,Chaine0
J6 = Output(7,1,"AI ->"