%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:448
File Name:SLDSMP
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"THIS PROGRAM FINDS   THE SLOPE OF A LINE, GRAPHS THE SEGMENT,  AND FINDS DISTANCE   AND MIDPOINT BETWEEN THE TWO ENDPOINTS."
\Lbl 1
\ClrGraph
    \Deg
"X1="?\->A
"Y1="?\->B
"X2="?\->C
"Y2="?\->D
(A+C)\ab/c2\->E
(B+D)\ab/c2\->F
\If \Abs A\>=\Abs C
\Then \Abs A+1\->M
\Else \Abs C+1\->M
\IfEnd
\If \Abs B\>=\Abs D
\Then \Abs B+1\->N
\Else \Abs D+1\->N
\IfEnd
\If M\>=N
\Then M\->P
\Else N\->P
\IfEnd
\ViewWindow \(-)2P,2P,1,\(-)P,P,1
\ClrText
    \Line:\Plot A,B:\Line:\Plot C,D:\Line\Disp"SLOPE ="
\If (C-A)=0
\Then "SLOPE IS UNDEFINED"\Disp\Else ((D-B)\ab/c(C-A))\Disp\IfEnd
"DISTANCE ="
\sqrt((C-A)\x^2+(D-B)\x^2)\Disp"MIDPOINT (X,Y) IS"
"X=":E\Disp"Y=":F\Disp\ClrText
\Goto1

%End