Code
:Lbl A
:EffEcr
:Pause
:0->E
:O->M
:repeat M=30
:EffEcr
:EntAléat(1,6->T
:EntAléat(1,6->S
:Output(3,3,S
:Output(3,5,"fois"
:Output(3,10,T
:Output(3,12,"?"
:Input "REPONSE:",P
:Valeurtouche->K
:If K=75:Goto Z
:If P#S*T:E+1->E
:M+1->M
:End
:EffEcr
:Disp "ERREUR :"
:Disp E
:Pause
:Goto A
:Lbl Z
:Disp "TRICHEUR"
:Pause
:Goto A