'ProgramMode:RUN
"A: "?->A
"B: "?->B
"C: "?->C
B^<2>-4*A*C->D
If D<0
Then 
Locate 1,6,"No X intercepts"
Else 
ClrText
Locate 1,5,((-)1*B-SqrtD)/(2*A)
Locate 1,4,((-)1*B+SqrtD)/(2*A)
Locate 1,2,"_@E761__@E76B__@E761_"
Int (SqrtD+1)->R
While ((D/R^<2>)-Int (D/R^<2>))<>0
R-1->R
WhileEnd
Locate 1,1,((-)1*B)frac(2*A)
Locate 6,1,"_#E5BE_"
Locate 7,1,Rfrac(2*A)
Locate 11,1,"_Sqrt_"
Locate 13,1,(D/R^<2>)
IfEnd
Locate 1,6,"ROOTS OF"
Locate 1,7,A
Locate 8,7,B
Locate 17,7,C
Locate 4,7,"*_#E5C2_"
Locate 12,7,"*"