^{SauveBDG 5
FonctNAff
AxesNAff
EffDessin
EffEcr
Disp "   MASTERMIND
Disp "    VERS 1.4
Disp "
Disp " PROGRAMMING BY
Disp "    TETAR 27
Output(7,1,"TETAR-27.WEBNODE.FR
For(U,1,1000
End
Lbl 0
0 -> θ
1 -> A
0 -> T
-7 -> L
For(U,1,5
entAléat(1,7 -> L3(U
End
L3 -> L5
0 -> C
EffEcr
Disp "LES NOMBRES VONT
Disp "DE 1a7,MET EN 5.
Disp "TU A 19 CHANCES.
Disp "A TOI DE JOUER!
While A
{0,0 -> L1
T+1 -> T
L+7 -> L
L5 -> L3
100001 -> P
While P>100000
Input "NB:",P
If P>100000:Disp "TPOP GRAND
End
{0,0,0,0,0 -> L2
For(U,1,5
partEnt(partD–c(P/10^U)*10) -> L2(6-U
End
L2 -> L4
If L4(1)=L3(1) et L4(2)=L3(2) et L4(3)=L3(3) et L4(4)=L3(4) et L4(5)=L3(5):1 -> θ
If θ=1
Then
Disp "VOUS AVEZ GAGNE
Disp "NOMBRE D ESSAIS:",T
Else
If L=63
Then
0 -> L
55 -> C
End
End
If T=19 et θ=0
Then
Disp "PERDU,
Disp "LE NOMBRE ETAIT:
Disp L5
End
For(U,1,5
If L2(U)=L3(U)
Then
L1(1)+1 -> L1(1)
-2 -> L3(U)
-1 -> L2(U)
End
End
For(U,1,5
For(V,1,5
If L2(U)=L3(V)
Then
L1(2)+1 -> L1(2)
-2 -> L3(V)
-1 -> L2(U)
End
End
End
If T<19 et θ≠1
Then
Texte(L,30+(C=55)*55,L1(1),L1(2)
For(U,1,5
Texte(L,C+U*4,L4(U)
End
Pause
End
If θ=1 ou T≥19
Then
While A
Disp " 1:OUI    2:NON "
Input "RECOMMENCER? ",C
If C=2:Goto 1
If C≠1 et C≠2
Then
EffEcr
Disp "IL FAUT REPONDRE
Disp "PAR 1 ou PAR 2.
Else
Goto 0
End
End
End
End
Lbl 1
RappelBDG 5}