ClrText
ClrGraph
[[0,0,0]ÞMat A
Deg
" "
" "
" "
" "
"       BASKET"Ý
ClrText
0ÞA~Z
"NOMBRE DE"
"JOUEUR(S)"
?ÞZ
85ÞO
Lbl 0
Z=Gã0ÞG
Isz G
1ÞXmin
123ÞXmax
0ÞXscl
0ÞYmin
62ÞYmax
0ÞYscl
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
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Ý
Lbl C
"ANGLE"
?ÞA
"PUISSANCE"
?ÞU
U¹10ÞU
Ucos AÞV
Usin AÞW
Lbl 1
W™0.1ÞW
S‰VÞS
T‰WÞT
Plot S,T
T<26ãT>23ãS>75ãS<81ãGoto 3
S>84ãS<87ãT>24ãT<40ã™VÞV
T<1ã™WÞW
T<26ãT>23ãS<87ãS>81ã™WÞW
S>95ãGoto 2
S<1ãGoto 2
Goto 1
Lbl 2
"OUT"
Goto 5
Lbl 3
W<0ãGoto 4
"HUM..."
Goto 5
Lbl 4
"SWITCH"
Goto 8
Lbl 7
LÞMat A[1,1]
Isz L
"SUR"
LÝ
YÞMat A[1,1]
"POURCENTAGE"
(J¹L)©100ÞQ
QÝ
L=10ãGoto 9
Goto 0
Lbl 8
G=1ãJ‰1ÞJ
G=2ãK‰1ÞK
G=3ãL‰1ÞL
Lbl 5
"SCORE"
G=1ãJÝ
G=2ãKÝ
G=3ãLÝ
Goto 7
Lbl 9
"SCORE FINAL"
QÝ