\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=DISTANCE
\FILE=DISTANCE.82P
ClrHome
Disp "L=\sqrt\(X2-X1)\^2\+"
Disp "   (Y2-Y1)\^2\)"
Disp ""
Disp "ENTER COORDS"
Input "X1=",A
Input "Y1=",B
Input "X2=",C
Input "Y2=",D
\sqrt\((C-A)\^2\+(D-B)\^2\)\->\L
ClrHome
Disp "DISTANCE ="
Disp L\>Frac\
Disp ""
Disp "DISTANCE IN "
Disp "\sqrt\ FORM ="
Output(7,1,"\sqrt\")
Output(7,2,L\^2\)
\STOP82\