Jeux de Basket et de Batons

Version PostScript / Version PDF

Programme BASKET721 pas

BASKET

"BASKET"
"   CASIO" Disp
" "
Deg
Mcl
"NOMBRE DE JOUEURS:"
?->Z
85->O
Lbl 0
Z=G=>0->G
Isz G
Range 1,95,0,0,62,0
Plot 0,22:Plot 0,40:Line
Plot 0,31:Plot 89,30:Line
Plot 95,0:Line
Plot 75,25:Plot 76,21:Line
Plot 80,21:Plot 82,25:Line
Plot 87,25:Line
Plot 90,0:Line
Plot 85,23:Plot 85,40:Line
Plot 85,31:Plot 89,30:Line
Int 73Ran#+2->S
Int 60Ran#+2->T
Plot S-1,T+1:Plot S+1,T-1:Line
Plot S+1, T+1:Plot S-1,T-1:Line
"Joueur":G Disp
" "
"ANGLE:"?->A
"FORCE :"?->U
" ":" ":" ":" ":" ":" ":" ":" ":" ":" "
U/10->U
Ucos A->V
Usin A->W
Lbl 1
W-.1->W
S+V->S
T+W->T
Plot S,T
TT>23=>S>75=>SGoto 3
S>84=>ST>24=>T-V->V
T-W->W
TT>23=>SS>81=>-W->W
S>95=>Goto 2
SGoto 2
Goto 1
Lbl 2
"OUT"
Goto 5
Lbl 3
WGoto 4
"HUM..."
Goto 5
Lbl 4
"BRAVO"
Goto 8
Lbl 7
Isz C[G]
"SUR"
C[G] Disp
C[Z]=10=>Goto 9
Goto 0
Lbl 8
G=1=>J+1->J Disp
G=2=>K+1->K Disp
G=3=>L+1->L Disp
Lbl 5
"SCORE"
G=1=>J Disp
G=2=>K Disp
G==>L Disp
Goto 7
Lbl 9
"SCORE FINAL : "
"JOUEUR 1": J Disp Z=1=>Prog G
"JOUEUR 2": K Disp Z=2=>Prog G
"JOUEUR 3": L Disp 
Prog G

Programme “BATONS”

"BATONS"
"      PAR REMI P."
" "
21->Z
Lbl A
"IL RESTE ":Z Disp
"RETIRE "?->W
W>3=>Goto A
WGoto A
W>Z=>Goto A
Z-W->Z
Z=0=>Goto B
Z=1=>Goto C
1->W
Frac ((Z-2)/4)=0=>1->W
Frac ((Z-3)/4)==>2->W
Frac ((Z-4)/4)=0=>3->W
Z-W->Z
Goto A
Lbl B:"Perdu":Goto Z
Lbl C:"Gagne":Goto Z
Lbl Z: "Ok"

© Copyright 1995 – Rémi Peyronnet