Code
8->X:10->C
Effvar DEffvar EEffvar FEffvar GEffvar HEffvar IEffvar
While C
K+1->K
Output(8,15,C
Output(8,5,"-
Output(8,11,"-
Output(2,X,"V
entAleat(6,10->A
Output(8,A,0
For(O,1,50:End
Disp "
Output(1,1,"
codetouche->B
X+(B=26)-(B=24)->X
F->D
G->F
H->G
I->H
J->I
A->J
If X=D
Then
C-1->C
End
If X>=11 ou X=<5
Then
0->C
End
End
EffEcr
Disp "PERDU
Disp "SCORE:",K
