\start83\
\comment=Programme fichier dat du 06/22/06, 20:20
\name=DTEINTER
\file=DTEINTER.TXT
ClrHome
Disp "INTERSEC D ET D'"
Disp "(EQ DE D DS Y1)"
Disp "(EQ DE D' DS Y2)"
Pause 
Disp ""
0\->\X
Y\1\\->\B
Y\2\\->\D
1\->\X
Y\1\-B\->\A
Y\2\-D\->\C
If A=C
Then
Disp "D PARALLELE A D'"
Else
(D-B)/(A-C)\->\I
I\->\X
Y\1\\->\J
Disp "I INTER D ET D'"
Disp "XI=",I\>\Frac
Disp "YI=",J\>\Frac
Disp "OU ----------"
Pause 
Disp "XI=",I
Disp "YI=",J
End

\stop83\

