Ti80.Online

Pour plus de programmes...
http://www.ti80.online.fr
ti80@citeweb.net
-----------------------------------

Grâce à la contribution de François que je remercie, ce programme a été traduit et me contient pas d'erreur.


Program: BLAKJACK (444 Octets)

100->M
Lbl A
0->J
0->I
ClrHome
Disp "ARGENT"
Disp M
Disp "MISE"
Input Z
If Z>M
Goto A
Int 13Rand+1->A
Int 13Rand+1->B
If A>10
10->A
If A=1
11->A
If B>10
10->B
A+B->F
Lbl 8
ClrHome
Disp "VOS CARTES"
Disp A
Disp B
Lbl 1
Disp "TOTAL"
Disp F
If F>21
Goto B
Disp "1)CARTE EN PLUS","2)PAS DE CARTE"
Input C
If C=2
Goto 3
If C =/ 1
Goto 8
Lbl 2
ClrHome
Int Rand12+1->E
If E>10
10->E
E+F->F
Goto 1
Lbl B
Disp ">21"
Pause
1->I
Lbl 3
ClrHome
Int 8Rand+17->G
Disp "PTS BANQUE"
Disp G
If G <= 21
Goto 9
Disp ">21"
1->J
Lbl 9
If I+J=2
Goto 4
If I=1
Goto 5
If J=1
Goto 6
If F<G
Goto 5
If F>G
Goto 6
If F=G
Goto 7
Lbl 4
Disp "TOUT 2 > 21"
Pause
Goto A
Lbl 6
Disp "GAGNE!"
M+Z->M
Pause
Goto A
Lbl 7
Disp "MEME SCORE!"
Pause
Goto A
Lbl 5
Disp "PERDU!"
M-Z->M
Pause
If M>0
Goto A
Disp "PLUS D'ARGENT!"