Program to solve the 2D distance formula on a TI-83/Plus:

Input "X1? ",A
Input "X2? ",B
Input "Y1? ",C
Input "Y2? ",D
sqrt((A-C)^2+(B-D)^2)->(THETA)
Disp "Distance is",(THETA)>FRAC