_{SauveBDG 5
FonctNAff
EffEcr
Disp "   ALLUMETTES
Disp "    VERS 1.7
Disp "
Disp " PROGRAMMING BY
Disp "    TETAR 27
Output(7,1,"TETAR-27.WEBNODE.FR
For(U,1,1000
End
EffDessin
1 -> K
ZStandard
1 -> A
0 -> Xmin
While A
{0,0,0 -> L1
While L1(1)=L1(2) ou L1(2)=L1(3) ou L1(1)=L1(3)
{0,0,0 -> L1
For(W,1,3,1
L1(W)+entAl–at(1,6) -> L1(W
End:End
1 -> B
entAl–at(L1(1)+L1(2)+L1(3)+3,30 -> N
N -> Xmax
While B
If K
Then
If M≠N:1+(J=1 -> J
EffDessin
Texte(53,23,"ENTRER = QUITER
Texte(0,0,"NB ALLUMETTES:",N
Texte(9,0,"JOUEUR : ",J
Texte(9,50,"NOMBRES:",L1(1),L1(2),L1(3)
For(X,.5,N-.5
If partD–c((X+.5)/2)=0
Then
Pt-Aff(X,3,2
Ligne(X,3,X,ú4
Else
Pt-Aff(X,ú5,2
Ligne(X,2,X,ú5
End
End
End
N -> M
codeTouch( -> K
If K=13:N -> Xmax
For(W,1,3
If K=91+W et (L1(1)=W ou L1(2)=W ou L1(3)=W):N-W -> N
End
For(W,4,6
If K=78+W et (L1(1)=W ou L1(2)=W ou L1(3)=W):N-W -> N
End
If K=105
Then
0 -> A
0 -> B
End
If N÷0
Then
EffEcr
Disp "LE JOUEUR
Disp "A PERDU
Output(1,11,J
Disp "APPUIYEZ SUR
Disp "ENTREE
Pause
0 -> B
End
End
End
RappelBDG 5
EffVar BDG5
EffDessin
EffEcr
"   FIN DU JEU}