Version PostScript / Version PDF

Programme POKER Alias Prog U 1423 pas

POKER

50->Z
" ":" ":" ":"     POKER !":" "
Z=0=>"VOUS AVEZ 0 F"
Z=0=>"FIN DU JEU"
Z=0=>"NOUVELLE PARTIE" Disp
Z=0=>50->Z
"VOUS AVEZ"
Z Disp
"      F"
" "
"VOTRE MISE "?->W
" ":" ":" ":" ":" ":" ":" ":" ":" "
W-Z/W->W
Z-W->Z
-2->G
0->F
Range 0,10,0,0,10,0
Plot 0,10: Plot 10,10: Line
Plot 10,0:Line
Goto 1
Lbl 0
-2->G
M=1=>Int 8Ran#+1->B
N=1=>Int 8Ran#+1->C
O=1=>Int 8Ran#+1->D
P=1=>Int 8Ran#+1->E
Q=1=>Int 8Ran#+1->H
Lbl 1
Dsz F
Int 8Ran#+1->A
F=1=>A->B
F=2=>A->C
F=3=>A->D
F=4=>A->E
F=5=>A->H
F=6=>Graph Y=0 Disp
F=6=>Goto 9
F=7=>B->A
F=8=>C->A
F=9=>D->A
F=10=>E->A
F=11=>H->A
F=12=>Goto B
G+2->G
Plot 0,3:Plot 10,3:Line
Plot 0,7:Plot 10,7:Line
Plot .1,3:Plot .1,7:Line 
Plot 2,3:Plot 2,7:Line
Plot 4,3:Plot 4,7:Line
Plot 6,3:Plot 6,7:Line
Plot 8,3:Plot 8,7:Line
Plot 10,3: Plot 10,7:Line
A=2=>Goto 2
A=3=>Goto 3
A=4=>Goto 4
A=5=>Goto 5
A=6=>Goto 6
A=7=>Goto 7
A=8=>Goto 8
Plot .5+G,6:Plot 1.5+G,6:Line
Plot .5+G,4:Line
Plot .7+G,5:Plot 1.3+G,5:Line
Goto 1
Lbl 2
Plot .5+G,4:Plot 1.5+G,4:Line
Plot 1.5+G,6:Line
Plot .5+G,6:Line
Plot .5+G,4:Line
Plot .5+G,5:Plot 1.5+G,5:Line
Goto 1
Lbl 3
Plot .5+G,4:Plot 1.5+G,4:Line
Plot 1.5+G,6:Line
Plot .5+G,6:Line
Plot .5+G,5:Line
Plot 1.5+G,5:Line
Goto 1
Lbl 4
Plot .5+G,4:Plot .5+G,6:Line
Plot 1+G,4:Plot 1+G,6:Line
Plot 1.6+G,6:Line
Plot 1.6+G,4:Line
Plot 1+G,4:Line
Goto 1
Lbl 5
Plot .5+G,6:Plot 1+G,4:Line
Plot 1.5+G,6:Line
Goto 1
Lbl 6
Plot .5+G,4:Plot .5+G,6:Line
Plot .4+G,6:Plot 1.4+G,6:Line
Plot 1.5+G,5.8:Plot 1.5+G,4.2:Line
Plot 1.3+G,4:Line
Plot .4+G,4:Line
Goto 1
Lbl 7
Plot .5+G,4:Plot .5+G,6:Line
Plot 1.5+G,6:Line
Plot 1.5+G,5:Line
Plot .5+G,5:Line
Plot 1+G,5:Line
Plot 1.5+G,4:Line
Goto 1
Lbl 8
Plot .5+G,5:Plot .5+G,6:Line
Plot 1+G,6:Line
Plot 1+G,5:Line
Plot .5+G,5.5:Plot 1+G,5.5:Line
Plot 1.6+G,5:Plot 1.2+G,5:Line
Plot 1.2+G,4.5:Line
Plot 1..6+G,4.5:Line
Plot 1.6+G,4:Line
Plot 1.2+G,4
Line
Goto 1
Lbl 9
F=6=>"CHANGEZ VOS CARTES"
F=6=>"5x 0-NON, 1-OUI"?->L
Int (L/1e4)-Int (L/1e5)*10->M
Int (L/1e3)-Int (L/1e4)*10->N
Int (L/1e2)-Int (L/1e3)*10->O
Int (L/1e1)-Int (L/1e2)*10->P
L-Int (L/10)*10->Q
Cls
" ":" ":" ":" ":" ":" ":" ":" ":" ":" ":" "
M+N+O+P+Q>3=>Goto 9
Goto 0
Lbl B
Graph Y=0 Disp
Prog P
Goto A

Programm POKER-SUITE Alias Prog P : 672 pas

POKER-SUITE

0->U:0->I~L:0->R:0->V
B=C=>Isz J:B=D=>Isz J:B=E=>Isz J:B=H=>Isz J
C=B=>Isz K:C=D=>Isz K:C=E=>Isz K:C=H=>Isz K
D=B=>Isz L:D=C=>Isz L:D=E=>Isz L:D=H=>Isz L
E=B=>Isz R:E=C=>Isz R:E=D=>Isz R:E=H=>Isz R
H=B=>Isz I:H=C=>Isz I:H=D=>Isz I:H=E=>Isz I
J=4=>Goto 4:K=4=>Goto 4:L=4=>Goto 4:R=4=>Goto 4
J=3=>Goto 3:K=3=>Goto 3:L=3=>Goto 3:R=3=>Goto 3
J=2=>Goto 2:K=2=>Goto 2:L=2=>Goto 2:R=2=>Goto 2
J=1=>Goto 1:K=1=>Goto 1:L=1=>Goto 1:R=1=>Goto 1
Goto 5
Lbl 1
J+K+L+R+I->T
T=2=>"PAIRE x1"
T=2=>W+Z->Z
T=2=>Goto 8
T=4=>"DOUBLE PAIRE x2"
T=4=>2W+Z->Z
Goto 8
Lbl 2
J=1=>Goto 7
K=1=>Goto 7
L=1=>Goto 7
R=1=>Goto 7
"BRELAN x3"
3W+Z->Z
Goto 8
Lbl 3
"CARRE x10"
10W+Z->Z
Goto 8
Lbl 4
"CARRE POINTE x20"
20W+Z->Z
Goto 8
Lbl 5
Abs (B-C)>=5=>Isz V
Abs (B-D)>=5=>Isz V
Abs (B-E)>=5=>Isz V
Abs (B-H)>=5=>Isz V
Abs (C-D)>=5=>Isz V
Abs (C-E)>=5=>Isz V
Abs (C-H)>=5=>Isz V
Abs (D-E)>=5=>Isz V
Abs (D-H)>=5=>Isz V
Abs (E-H)>=5=>Isz V
V=0=>Goto 9
"RIEN x0"
Goto 8
Lbl 7
"FULL x5"
5W+Z->Z
Goto 8
Lbl 9
"SUITE x30"
30W+Z->Z
Lbl 8

© Copyright 1995 – Rémi Peyronnet