Do you like it
Yea  25%  [ 1 ]
Needs Work  50%  [ 2 ]
Its okay  25%  [ 1 ]

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 ```
From what your code looks like, are you using a TI-84 Plus C Silver Edition?
Here is a sample code that follows the same layout as your program that I modified:

Code:
```Lbl A Input "X ONE:",A Input "Y ONE:",B Input "X TWO:",C Input "Y TWO:",D Lbl M Menu("MENU","MIDPOINT",1,"DISTANCE",2,"FUNCTION AND SLOPE",3,"NEW COORDS",4,"QUIT",5 Lbl 5 Stop Lbl 4 Goto A Lbl 1 .5(C+A->P .5(B+D->Q Disp "MIDPOINT" Disp "MIDPOINT X",P Disp "MIDPOINT Y",Q Pause Goto M Lbl 2 sqrt((A-C)^^2+(B-D)^^2->Z Disp "DISTANCE",Z Pause Goto M Lbl 3 (B-D)/(A-C->S Menu("SLOPE IN","SLOPE INTERCEPT",6,"POINT SLOPE",7 Lbl 6 Disp "SLOPE INTERCEPT (Y=MX+B) Disp "M (SLOPE) Disp S Disp "B (Y-INTERCEPT) Disp SA-B Pause Goto M Lbl 7 //Code for Point Slope Pause Goto M```

Instead of displaying separate lines on the homescreen, you can use the command Menu( to offer options to the user.
I made a few optimizations including parentheses in calculations and quotation marks
I also found that you left out the point slope code as well.

Code:
```Lbl A Input "X ONE:",A Input "Y ONE:",B Input "X TWO:",C Input "Y TWO:",D Lbl M Menu("MENU","MIDPOINT",1,"DISTANCE",2,"FUNCTION AND SLOPE",3,"NEW COORDS",A,"QUIT",5 Lbl 5 Stop Lbl 1 .5(C+A->P .5(B+D->Q Disp "MIDPOINT", "MIDPOINT X",P,"MIDPOINT Y Pause Q Goto M Lbl 2 sqrt((A-C)^^2+(B-D)^^2->Z Disp "DISTANCE Pause Z Goto M Lbl 3 (B-D)/(A-C->S Menu("SLOPE IN","SLOPE INTERCEPT",6,"POINT SLOPE",7 Lbl 6 Disp "SLOPE INTERCEPT (Y=MX+B)","M (SLOPE)",S,"B (Y-INTERCEPT) Pause SA-B Goto M Lbl 7 //Code for Point Slope Pause Goto ```

There we go, a few more optimizations. In there, we have:
:Displaying text with Pause
:Using Disp once for several lines
:Changed one label

Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

»
» All times are UTC - 5 Hours

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum