HLP2.2.5

ClrHome
Disp "Welcome to Ben's","Math Helper"
Pause
Menu("What do you need?","Pythag Theorem",1,"Quadratic Equations",2,"LCM or GCF",3,"Discriminant",4,"Exit",91)
Lbl 1
ClrHome
Menu("Solve for what?","Hypotenuse",11,"Leg",22)
Lbl 11
Prompt A,B
sqrt((A^2)+(B^2))->C
If (A^2)+(B^2)<0
Then
	Disp "No real answers!"
	Pause
	Stop
	Else
	Disp C
	Pause
	Stop
	Lbl 22
	Prompt C,B
	sqrt((C^2)-(B^2))->A
	If (C^2)-(B^2)<0
	Then
		Disp "No real answers!"
		Pause
		Stop
		Else
		Disp A
		Pause
		Stop
		Lbl 2
		ClrHome
		Prompt A,B,C
		If B^2-4AC<0
		Then
			Disp "No real answers!"
			Pause
			Stop
			Else
			(~B+sqrt(B^2-4AC))/(2A)->X
			(~B-sqrt(B^2-4AC))/(2A)->Y
			Disp "X=",X,"Y=",Y
			Pause
			Stop
			Lbl 3
			ClrHome
			Menu("LCM or GCF","LCM",33,"GCF",44)
			Lbl 33
			ClrHome
			Disp "1st num"
			Input A
			Disp "2nd num"
			Input B
			Disp lcm(A,B)
			Pause
			Stop
			Lbl 44
			ClrHome
			Disp "1st num"
			Input A
			Disp "2nd num"
			Input B
			Disp gcd(A,B)
			Pause
			Stop
			Lbl 4
			ClrHome
			Prompt A,B,C
			Disp "Discriminant:",B^2-4AC
			If B^2-4AC<0
			Then
				Disp "No Solutions"
				Pause
				Stop
				Else
				If B^2-4AC=0
				Then
					Disp "1 Solution"
					Pause
					Stop
					Else
					If B^2-4AC>0
					Then
						Disp "2 Solutions"
						Pause
						Stop