Tell me what yall think. I just finished the program think it can be shortened or made any more efficient?

**Code:**```
```

ClrHome

Disp "Programmed by *","Alex Capistran *","****************","Use Kelvin for","Temperature.","mmHg 4 Pressure"

Pause "Press ENTER"

ClrHome

8.314->R

Lbl 7

Menu("Looking for?","T1",1,"T2",2,"P2",3,"P1",4,"deltaHvap",5,"Temp Convert",6,"Quit",8)

Lbl 1

ClrHome

Disp "Enter values","accordingly","T2,P1,P2,deltaHvap"

Prompt A,B,C,D

(R/D)->X

(ln(B/C))->Y

((~A)/((A*X*Y)-1))->G

Disp "Answer is",G,"K"

Pause "Press ENTER"

Goto 7

Lbl 2

ClrHome

Disp "Enter values","accordingly","T1,P1,P2,deltaHvap"

Prompt A,B,C,D

(D/R)->X

(ln(B/C))->Y

((A)/((A*X*Y)+1))->G

Disp "Answer is",G,"K"

Pause "Press ENTER"

Goto 7

Lbl 3

ClrHome

Disp "Enter values","accordingly","T1,T2,P1,deltaHvap"

Prompt A,B,C,D

(D/R)->X

(((A-B)/(AB))*X)->Y

(C/(e^(Y)))->E

Disp "Answer is",E,"mmHg"

Pause "Press ENTER"

Goto 7

Lbl 4

ClrHome

Disp "Enter values","accordingly","T1,T2,P2,deltaHvap"

Prompt A,B,C,D

(D/R)->X

(((A-B)/(AB))*X)->Y

(C*(e^(Y)))->E

Disp "Answer is",E,"mmHg"

Pause "Press ENTER"

Goto 7

Lbl 5

ClrHome

Disp "Enter values","accordingly"," T1,T2,P1,P2","****************"

Prompt A,B,C,D

((R*(ln(C/D)))/(((A-B)/(AB))))->H

Disp "Answer is",H,"J/mol"

Pause "Press ENTER"

Goto 7

Lbl 6

ClrHome

Menu("Convert Temp","To F",F,"To C",C,"To K",K,"Back",7)

Lbl F

Menu("Choose","Celcius",CF,"Kelvin",KF)

Lbl CF

Disp "Enter degree C"

Prompt C

((C*(9/5))+32)->F

Disp F,"degrees F"

Pause "Press ENTER"

Goto 6

Lbl KF

Disp "Enter Kelvin"

Prompt K

((K*(9/5))-459.67)->F

Disp F,"degrees F"

Pause "Press ENTER"

Goto 6

Lbl C

Menu("Choose","Fahrenheit",FC,"Kelvin",KC)

Lbl FC

Disp "Enter degree F"

Prompt F

((F-32)*(5/9))->C

Disp C,"degrees C"

Pause "Press ENTER"

Goto 6

Lbl KC

Disp "Enter Kelvin"

Prompt K

(K-273)->C

Disp C,"degrees C"

Pause "Press ENTER"

Goto 6

Lbl K

Menu("Choose","Fahrenheit",FK,"Celcius",CK)

Lbl FK

Disp "Enter Degree F"

Prompt F

((F+459.67)*(5/9))->K

Disp K,"Kelvin"

Pause "Press ENTER"

Goto 6

Lbl CK

Disp "Enter Degree C"

Prompt C

(C+273)->K

Disp K,"Kelvin"

Pause "Press ENTER"

Goto 6

Lbl 8

Stop