**Code:**

```
Lbl A
```

Disp "X ONE"

Input A

Disp "Y ONE"

Input B

Disp "X TWO"

Input C

Disp "Y TWO"

Input D

Lbl M

Disp " "

Disp "MENU"

Disp " "

Disp " "

Disp "1. MIDPOINT"

Disp "2. DISTANCE"

Disp "3. FUNCTION AND SLOPE"

Disp "4. NEW COORDS"

Disp "5. QUIT"

Disp "PICK A NUMBER"

Input I

If I=4

Then

Goto A

End

If I=5

Then

Stop

End

If I=1

Then

(0.5(C+A))->P

(0.5(B+D))->Q

Disp "MIDPOINT"

Disp "MIDPOINT X",P

Disp "MIDPOINT Y",Q

Pause

Goto M

End

If I=2

Then

(A-C)->X

(X^^2)->X

(B-D)->Y

(Y^^2)->Y

(X+Y)->Z

sqrt(Z)->Z

Disp "DISTANCE",Z

Pause

Goto M

End

If I=3

Then

(B-D)->S

(A-C)->T

((S/T))->S

Disp " "

Disp "SLOPE IN"

Disp " "

Disp "1. SLOPE INTERCEPT"

Disp "2. POINT SLOPE"

Disp "CHOOSE A NUMBER"

Prompt E

If E=1

Then

((S*A)-B)->H

Disp "SLOPE INTERCEPT (Y=MX+B)"

Disp "M (SLOPE)"

Disp S

Disp "B (Y-INTERCEPT)"

Disp H

Disp " "

End

Pause

Goto M