Line Segment: Inputs two points, draws line on screen (does not set range), then tells you distance, slope, and y-intercept. PGRM: LINESEG ClrHome Disp "LINE SEGMENT" ClrStat Disp "X1" Input {x}(1) Disp "Y1" Input {y}(1) Disp "X2" Input {x}(2) Disp "Y2" Input {y}(2) ClrDraw All-Off xyLine Pause Disp "Distance=" sqrt(({x}(2)-{x}(1))^2+({y}(2)-{y}(1))^2) -> D Disp D If {x}(1)={x}(2) Goto 1 LinReg Disp "SLOPE=" Disp b Disp "Y INT=" Disp a End Lbl 1 Disp "NO SLOPE, X=" Disp {x}(1)