%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1571

File Name:BILLARD

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\ViewWindow 1,127,0,1,63,0

\ClrText

0\->A~Z

\CoordOff

"  BILLARD"

"1\->SUITE"

"2\->DEBUT"?\->Z

Z=1\=>\Pi\->\Mat E[1,7]

Z=2\=>[[0,0,0,0,0,0,0]]\->\Mat E

\Lbl 0

\Cls

\F-Line 19,7,19,56

\F-Line 19,56,111,56

\F-Line 111,56,111,7

\F-Line 111,7,19,7

\F-Line 23,7,26,10

\F-Line 26,10,62,10

\F-Line 62,10,62,8

\F-Line 62,8,67,8

\F-Line 67,8,67,10

\F-Line 67,10,104,10

\F-Line 104,10,107,7

\F-Line 111,11,108,14

\F-Line 108,14,108,49

\F-Line 108,49,111,52

\F-Line 107,56,104,53

\F-Line 104,53,67,53

\F-Line 67,53,67,55

\F-Line 67,55,62,55

\F-Line 62,55,62,53

\F-Line 62,53,26,53

\F-Line 26,53,23,56

\F-Line 19,52,22,49

\F-Line 22,49,22,14

\F-Line 22,14,19,11

0\->C

\Mat E[1,7]=\Pi\=>\Goto3

\Pi\->\Mat E[1,7]

\Lbl 1

\For 1\->Z \To 6

\Int 3154\Ran#+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]+83-83(B-11)+23\->A

C\<>1\=>\PlotOn A,B

\F-Line A-1,B-1,A-1,B+1

\F-Line A-1,B+1,A+1,B+1

\F-Line A+1,B+1,A+1,B-1

\F-Line A+1,B-1,A-1,B-1

\IfEnd

\Next 

\Lbl 4

1\->Z

\Int ((\Mat E[1,1]+82)/83+11\->B

\Mat E[1,1]+83-83(B-11)+23\->A

1\->Z

\Plot A,B\DispA=X\=>Y=B\=>\Goto4

\Pol(X-A,Y-B)\->\List 1

\List->Mat(\List 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

\Plot E,F

X\<=22\ Or Y>53\ Or X\>=108\ Or Y<8\=>\Goto8

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]+83-83(N-11)+23\->M

X\>=M-1\=>X\<=M+1\=>Y\>=N-1\=>Y\<=N+1\=>G\<>Z\=>\Goto7

\Next 

\Lbl 9

\Dsz I

\Goto5

83(\Int Y-12)+\Int X-23\->\Mat E[1,Z]

\Goto0

\Lbl 7

K>0\=>\Goto5

2\->K

H\->\Mat E[1,Z]

G\->Z

\Int ((\Mat E[1,Z]+82)/83)\->F

\Mat E[1,Z]+83-83F+23\->E

F+11\->F

\Goto5

\Lbl 8

\ClrText

"  BOULE N\Deg>"

\Locate 11,1,Z

\Locate 13,1,"RENTREE"\Disp0\->\Mat E[1,Z]

\If \Mat E[1,1]=0

\Then \Locate 1,3,"VOUS VEZ PERDU"\Disp0\->\Mat E[1,7]

\IfEnd

0

\For 2\->L \To 6

\Mat E[1,L]+\Ans

\Next 

\If \Ans=0

\Then \ClrText

"LA PARTIE EST FINIE"\Disp0\->\Mat E[1,7]

\Stop

\IfEnd

\Goto0

%End