\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=SLOPE
\FILE=SLOPE.82P
ClrHome
Disp "FIRST ENTER \Y1\"
Disp ""
Disp "THEN HIT ENTER"
Pause 
Lbl 1
ClrHome
Disp "SLOPE= F(B)-F(A)"
Disp "       ---------"
Disp "         B - A"
Disp ""
Input "ENTER A= ",A
Input "ENTER B= ",B
ClrHome
B-A\->\H
\Y1\(A)\->\C
\Y1\(B)\->\D
(D-C)/(B-A)\->\M
Output(1,1,"X1=")
Output(1,5,A)
Output(2,1,"X2=")
Output(2,5,B)
Output(3,1,"DX=")
Output(3,5,H)
Output(4,1,"F(X1)=")
Output(4,7,C)
Output(5,1,"F(X2)=")
Output(5,7,D)
Output(6,1,"DY=")
D-C\->\Y
Output(6,5,Y)
Output(7,1,"M = ")
Output(7,5,M)
Output(8,1,"HIT ENTER")
Pause 
ClrHome
Disp "(1) PICK NEW "
Disp "    X VALUES"
Disp ""
Disp "(2) QUIT"
Disp ""
Input "ENTER 1 OR 2",C
If C=1
Goto 1
ClrHome
\STOP82\