\START85\
\COMMENT=Program file dated 12/22/98, 16:35
\NAME=LINES
\FILE=C:\TI85LINK\PROGRAMS\LINES.85P
:ClLCD
:Prompt xi,yi,xf,yf
:Disp "Distance="
:Disp \sqrt\((xf-xi)\^2\+(yf-yi)\^2\)
:Disp "Slope="
:Disp (yf-yi)/(xf-xi):Disp "Midpoint="
:Disp ((xi+xf)/2,(yi+yf)/2)
:Stop
:
:
\STOP85\