\START82\
\COMMENT=jcm 12/01/04
\NAME=DTEINTER
\FILE=D:\WINLINK\SAV_JC~1\DTEINTER.82P
:ClrHome
:Disp "INTERSEC D ET D'"
:Disp "(EQ DE D DS Y1)"
:Disp "(EQ DE D' DS Y2)"
:Pause 
:Disp ""
:0\->\X
:\Y1\\->\B
:\Y2\\->\D
:1\->\X
:\Y1\-B\->\A
:\Y2\-D\->\C
:If A=C
:Then
:Disp "D PARALLELE A D'"
:Else
:(D-B)/(A-C)\->\I
:I\->\X
:\Y1\\->\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
\STOP82\
