0ÞP
ClrText
Locate 5,4,"3D SOCCER 98"Ý
ClrText
"ANGLES ORIENTES:"
"0œÞ    1"
"‡90œÞ  2"?ÞZ
ClrText
Lbl D
Lbl V
ViewWindow 0,95,0,0,62,0
F-Line 80,35,94,35
F-Line 88,35,88,50
F-Line 0,0,95,0
F-Line 95,0,95,62
F-Line 95,62,0,62
F-Line 0,62,0,0
F-Line 19,54,19,34
F-Line 19,34,0,34
F-Line 8,54,8,52
F-Line 11,54,11,52
Text 3,3,"ALONZO RAUD PRG/3D.S/POINTS"
Text 3,115,P
F-Line 0,54,95,54
F-Line 0,0,32,42
F-Line 95,0,70,42
F-Line 32,42,43.7,42
F-Line 70,42,58.6,42
F-Line 43.7,41,43.7,48
F-Line 43.7,48,58.6,48
F-Line 58.6,48,58.6,41
F-Line 35,42,29,33
F-Line 29,33,72.3,33
F-Line 72.3,33,67.3,42
If Z=1
Then Text 13,105,"90œ"
Text 22,105,"180"
Else Text 13,110,"0œ"
Text 22,106,"90œ"
IfEnd
Lbl Í
60Ran#ÞC
If Cà40 Or Câ60
Then Goto Í
IfEnd
F-Line C,39,C‰5,39
F-Line C‰5,39,C‰5,46
F-Line C‰5,46,C,46
F-Line C,46,C,39
(C¹10)©2ÞH
F-Line H,50,H‰1,50
(80Ran#)‰15ÞS
(15Ran#)ÞT
Orange F-Line S,T,S‰1,T
Orange F-Line S,T‰1,S‰1,T‰1
(S¹10)©2ÞF
(T¹10)©2ÞG
G‰35ÞG
Orange PlotOn F,GÝ
ClrText
"ANGLE"?ÞA
"FORCE"?ÞU
If Z=2
Then A‰90ÞA
Else AÞA
IfEnd
U»10ÞU
Ucos AÞV
Usin AÞW
Lbl 1
S‰VÞS
T‰WÞT
G‰40ÞG
PlotOn S,T
PlotOn S,T
PlotOff S,T
Sâ95ãGoto 2
Sà1ãGoto 2
Tà1ãGoto 2
Tâ48ãGoto 2
SâCãSàC‰5ãTâ39ãTà46ãGoto 4
Sâ44ãSà59ãTâ41ãT<48ãGoto 3
Goto 1
Lbl 4
F-Line S,T,S‰1,T
F-Line S,T‰1,S‰1,T‰1
Text 3,89,"PERDU "Ý
Goto D
Lbl 2
Text 3,89,"PERDU "Ý
Goto D
Lbl 3
P‰1ÞP
Text 3,115,P
Text 3,89,"GAGNE "
F-Line S,T,S‰1,T
F-Line S,T‰1,S‰1,T‰1Ý
Goto D