:Disp "cranwell@yahoo.com"
:Input "X�=",A
:Input "Y�=",B
:Input "X�=",C
:Input "Y�=",D
:�((A-C)�+(B-D)�)�E
:Disp "DISTANCE=",E
:Disp "�ROOT OF=",E��Frac
: