\start83\
\comment=Program file dated 10/07/97, 14:24
\name=DISTANCE
\file=J:\DISTANCE.AS3
ClrHome
Disp "L=\root\((X2-X1)\^2\+"
Disp "   (Y2-Y1)\^2\)"
Disp ""
Disp "ENTER COORDS"
Input "X1=",A
Input "Y1=",B
Input "X2=",C
Input "Y2=",D
\root\(((C-A)\^2\+(D-B)\^2\)\->\L
ClrHome
Disp "DISTANCE ="
Disp L\>\Frac
Disp ""
Disp "DISTANCE IN "
Disp "\root\( FORM ="
Output(7,1,"\root\(")
Output(7,2,L\^2\)

\stop83\