:"Simpquad
FnOff 
a+bi
Fix 4
Float
Lbl ST
ClrDraw
Menu("Answer Format:","Decimal Format",DE,"Radical Format",RA,"Quit",EN
Lbl DE
0->D
Goto MN
Lbl RA
1->D
Lbl MN
ClrHome
Disp "Format: AX^^2+BX+C"
Input "A:",Str1
Input "B:",Str2
Input "C:",Str3
If D=1
Then
	Input "Reducing Number:",G
End
expr(Str1)->A
expr(Str2)->B
expr(Str3)->C
A->H
B->I
C->J
((~B+sqrt(B^^2-4AC))/(2A))->E
((~B-sqrt(B^^2-4AC))/(2A))->F
(B^^2-4AC)->R
If D=0
Then
	Disp E,F
	Pause 
	Goto ST
Else
	0->D
	AxesOff
	0->Xmin
	94->Xmax
	~62->Ymin
	0->Ymax
	If iPart(E)=E and iPart(F)=F
	Then
		0->Z
		Goto FD
	Else
		1->Z
	End
	Lbl FD
	Text(0,0,"A:",A
	Text(8,0,"B:",B
	Text(16,0,"C:",C
	Text(57,0,"Calculating."
	If R>=0
	Then
		If Z=0
		Then
			Text(24,0,"Answers:",E
			Text(32,30,F
			Text(57,0,"                                                "
			Text(57,0,"Done."
			Goto PA
		Else
			Goto RD
		End
	Else
		Goto RD
	End
	Lbl RD
	2A->A
	1->L
	If iPart(R)=R
	Then
		For(P,~G,~2
			If iPart(R/P^^2)=R/P^^2
			Then
				R/P^^2->R
				~PL->L
			End
		End
	End
	If iPart(B)=B and iPart(L)=L and iPart(A)=A
	Then
		For(P,~G,~2
			If iPart(B/~P)=B/~P and iPart(L/~P)=L/~P and iPart(A/~P)=A/~P
			Then
				(B/(~P))->B
				(L/(~P))->L
				(A/(~P))->A
			End
		End
	End
	If A=~1
	Then
		If B>0
		Then
			U+1->U
		Else
			U-1->U
		End
		~B->B
		~A->A
	End
	If A>0
	Then
		iPart(log(A))+1->T
	Else
		iPart(log(~A))+2->T
	End
	If B>0
	Then
		iPart(log(B))+1->U
	Else
		iPart(log(~B))+2->U
	End
	If fPart(A)!=0
	Then
		1->O
		While fPart(A*10^O)!=0
			O+1->O
		End
		T+O+1->T
	End
	If fPart(B)!=0
	Then
		1->O
		While fPart(B*10^O)!=0
			O+1->O
		End
		U+O+1->U
	End
	Lbl SD
	0->K
	If B>0
	Then
		4->K
	Else
		U-1->U
	End
	Text(24,0,~B
	If R!=0
	Then
		Line(K+1+4U,~25,K+1+4U,~27
		Line(K+4U,~26,K+2+4U,~26
		Line(K+4U,~29,K+2+4U,~29
		If L=1
		Then
			If R=~1
			Then
				Text(24,K+4+4U,"[i]
			Else
				If R=1
				Then
					Text(24,K+4+4U,R
				Else
					If R>0 and R!=1
					Then
						Text(24,K+4+4U,"sqrt(",R,")
					Else
						If R<0 and R!=~1
						Then
							Text(24,K+4+4U,"[i]sqrt(",~R,")
						End
					End
				End
			End
		End
		If L>=2
		Then
			If R=~1
			Then
				Text(24,K+4+4U,L,"[i]
			Else
				If R=1
				Then
					Text(24,K+4+4U,R
				Else
					If R>0 and R!=1
					Then
						Text(24,K+4+4U,L,"sqrt(",R,")
					End
					If R<0 and R!=~1
					Then
						Text(24,K+4+4U,L,"[i]sqrt(",~R,")
					End
				End
			End
		End
	End
	If A!=1
	Then
		94->H
		While pxl-Test(25,H)!=1
			H-1->H
		End
		Line(0,~31,H+1,~31
		Text(32,iPart(H/2-2T)+1,A
	End
	Text(57,0,"                                                 "
	Text(57,0,"Done.
	Lbl PA
	Pause 
	Goto ST
	Lbl EN
	Stop