Le Juste Prix

Lbl 0
Menu ("Plus ou moins","entre 1 et 100",1,"entre 1 et 500",2,"entre 1 et 1000",3,"personnalisé",4
Lbl 1
100 -> C
Goto Z
Lbl 2
500 -> C
Goto Z
Lbl 3
1000 -> C
Goto Z
Lbl 4
Input "De 1 a ",C
Lbl Z
Entaléat (1,C -> A
0->S
Repeat B=A
Output (1,7,"coups :
Output (1,15,S
Output (8,13,C
Input "Nombre",B
If B>A
Disp "c'est moins
If B<A
Disp "c'est plus
End
Disp "Réussi!"
Pause
Menu ("Encore?","Oui",0,"Non",A
Lbl A

entAlea(0,100)→A
0→C
A+1→B
While B!=A
C+1→C
Input "0 à 100:",B
If B<A
Disp "C'est plus"
End
If B>A
Disp "C'est moins"
End
If B=A
Disp "Gagné"
End
End
Disp C
Disp "coups"