'ProgramMode:RUN
ClrText
"    Mathtool V2.5"
""
"     _#E59E_GPL 2026"
"     Levi Bruce"
""DispsLbl 0
ClrText
Menu "Math tools | Pg 1","Quadratic",1,"Vol & Sa",2,"Pythag",3,"More",4,"MathTool_+__+_ ",Z,"Quit",9
Lbl 9
Stop
Lbl 1
"A"?->A
"B"?->B
"C"?->C
ClrText
" "
" "
" "
" "
(-)(B/(2A))->X
AX^<2>+BX+C->Y
"AX_^<2>__+_BX_+_C"->GraphY1
Locate 1,1,"X"
Locate 5,1,X
Locate 1,2,"Y"
Locate 5,2,YDispsX-1->X
If AX^<2>+BX+C>Y
Then 
Locate 1,3,"MINIMUM AT"
Locate 12,3,YDispsY>0=>"No Real solutions"DispsElse 
Locate 1,3,"MAXIMUM AT"
Locate 12,3,YDispsIfEnd
Goto 0
Lbl 2
Menu "Shapes","Sphere",A,"Cylinder",B,"Rect Pyramid",C,"Cone",D,"Back",X
Lbl X
Goto 0
Lbl A
"R"?->R
((4frac3)piR^3)->V
(4piR^2)->S
"VOLUME"
VDisps"SA"
SDispsGoto 2
Lbl B
"R"?->R
"H"?->H
(piR^<2>H)->V
(2piR^<2>+2piRH)->S
"VOLUME"
VDisps"SA"
SDispsGoto 2
Lbl C
"L"?->L
"W"?->W
"H"?->H
((1frac3)LWH)->V
"VOLUME"
VDispsGoto 2
Lbl D
"R"?->R
"H"?->H
"L"?->L
((1frac3)pi*R^<2>*H)->V
If L>0
Then 
(piR^<2>+piRL)->S
Else 
0->S
IfEnd
"VOLUME"
VDisps"SA"
SDispsGoto 2
Lbl 3
"ENTR [0] FOR ?"
"A"?->A
"B"?->B
"C"?->C
If A=0
Then 
Sqrt(C^<2>-B^<2>)->D
IfEnd
If B=0
Then 
Sqrt(C^<2>-A^<2>)->D
IfEnd
If C=0
Then 
Sqrt(A^<2>+B^<2>)->D
IfEnd
DDispsGoto 0
Lbl 4
ClrText
Menu "Math Tools | Pg 2","Distance",6,"Midpoint",7,"Back",0
Lbl 6
ClrText
"X1"?->A
"Y1"?->B
"X2"?->C
"Y2"?->D
Sqrt((C-A)^<2>+(D-B)^<2>)->E
"DIST:"
EDispsClrText
Goto 4
Lbl 7
"X1"?->A
"Y1"?->B
"X2"?->C
"Y2"?->D
(((A+C)frac2))->X
(((B+D)frac2))->Y
"X"
XDisps"Y"
YDispsGoto 4
Lbl Z
Prog "MLIB2"
Goto 0
