0ÞA~Z
ClrText
CoordOff
ViewWindow 1,127,0,1,63,0
"       BILLARD"
" "
"1™SUITE"
"2™DEBUT"?ÞZ
Z=1ãÐÞMat E[1,7
Z=2ã[[0,0,0,0,0,0,0ÞMat E
Lbl 0
Cls
Plot 19,7
Plot X,56
Green Line
Plot 111,Y
Green Line
Plot X,7
Green Line
Plot 19,Y
Green Line
Plot 23,Y
Plot 26,10
Orange Line
Plot 62,Y
Orange Line
Plot X,8
Orange Line
Plot 67,Y
Orange Line
Plot X,10
Orange Line
Plot 104,Y
Orange Line
Plot 107,7
Orange Line
Plot 111,11
Plot 108,14
Orange Line
Plot X,49
Orange Line
Plot 111,52
Orange Line
Plot 107,56
Plot 104,53
Orange Line
Plot 67,Y
Orange Line
Plot X,55
Orange Line
Plot 62,Y
Orange Line
Plot X,53
Orange Line
Plot 26,Y
Orange Line
Plot 23,56
Orange Line
Plot 19,52
Plot 22,49
Orange Line
Plot X,14
Orange Line
Plot 19,11
Orange Line
0ÞC
Mat E[1,7]=ÐãGoto 3
ÐÞMat E[1,7
Lbl 1
For 1ÞZ To 6
Int 3154Ran#‰83ÞMat E[1,Z
Next
Lbl 3
For 1ÞC To 6
If Mat E[1,C]á0
Then Int ((Mat E[1,C]‰82)¹83‰11ÞB
Mat E[1,C]‰106™83(B™11ÞA
Cá1ãPlotOn A,B
Plot A™1,B™1
Plot X,Y‰2
Line
Plot X‰2,Y
Line
Plot X,Y™2
Line
Plot X™2,Y
Line
IfEnd
Next
Lbl 4
1ÞZ
Int ((Mat E[1,1]‰82)¹83‰11ÞB
Mat E[1,1]‰106™83(B™11ÞA
Plot A,BÝ
A=XãB=YãGoto 4
Pol(X™A,Y™B)ÞList 1
ListÞMat(1)
Mat Ans[1,1ÞI
Mat Ans[2,1ÞJ
Int (I¨1.6ÞI
XáAã(Y™B)¹(X™AÞD
X>Aã‡DÞD
‡1ÞC
X<Aã1ÞC
AÞE
BÞF
J<0ãJ‰360ÞJ
If Jâ45 And Jà135 Or Jâ225 And Jà315
Then D
CÞD
XáAã1¹AnsÞC
If X=A
Then 1ÞD
0ÞC
Y>Bã‡1ÞD
IfEnd
If X<A And Y>B Or X>A And Y<B
Then ‡CÞC
‡DÞD
IfEnd
IfEnd
Lbl 5
K™1ÞK
F‰DÞF
E‰CÞE
PlotOn E,F
Xà22 Or Y>53 Or Xâ108 Or Y<8ãGoto 8
Xâ106 And Yâ14 And Yà49 Or Xà24 And Yâ14 And Yà49ã‡CÞC
Yâ51 And Xâ26 And Xà62 Or Yâ51 And Xâ67 And Xà104 Or Yà12 And Xâ26 And Xà62 Or Yà12 And Xâ67 And Xà104ã‡DÞD
83(Int Y™12)‰Int X™23ÞH
For 1ÞG To 6
Int ((Mat E[1,G]‰82)¹83‰11ÞN
Mat E[1,G]‰106™83(N™11ÞM
XâM™1ãXàM‰1ãYâN™1ãYàN‰1ãGáZãGoto 7
Next
Lbl 9
Dsz I
Goto 5
83(Int Y™12)‰Int X™23ÞMat E[1,Z
Goto 0
Lbl 7
K>0ãGoto 5
2ÞK
HÞMat E[1,Z
GÞZ
Int ((Mat E[1,Z]‰82)¹83ÞF
Mat E[1,Z]‰106™83FÞE
F‰11ÞF
Goto 5
Lbl 8
ClrText
"   BOULE Nœ"
Locate 11,1,Z
Locate 13,1,"RENTREE"Ý
0ÞMat E[1,Z
If Mat E[1,1]=0
Then Locate 1,3,"VOUS AVEZ PERDU"Ý
0ÞMat E[1,7
IfEnd
0
For 2ÞL To 6
Ans‰Mat E[1,L
Next
If Ans=0
Then ClrText
"LA PARTIE EST FINIE"Ý
Next
0ÞMat E[1,7
Stop
IfEnd
Goto 0