'ProgramMode:RUN
"Enter 2 points"Disps"X1"?->A
"Y1"?->B
"X2"?->C
"Y2"?->D
ClrText
Locate 1,1,"("
Locate 2,1,A
Locate 10,1,","
Locate 11,1,B
Locate 20,1,")"
Locate 1,2,"("
Locate 2,2,C
Locate 10,2,","
Locate 11,2,D
Locate 20,2,")"
(D-B)/(C-A)->M
M*-1*A+B->I
Sqrt((A-C)^<2>+(B-D)^<2>)->L
Locate 7,3,"y = MX + I"
Locate 1,4,"Slope M: "
Locate 11,4,M
Locate 1,5,"y intercept I:"
Locate 16,5,I
Locate 1,7,"Length L:"
Locate 11,7,L
Stop