Here is the code:

```
a+bi
Lbl A
ClrHome
Menu(" QUADRATICS ","SOLVER",1,"SQUARE ROOT",4,"EQUATIONS",3,"QUIT",10
Lbl 1
ClrHome
Disp "AX²+BX+C=0
Prompt A,B,C
"AX²+BX+C"→Y₁
B2A→S
AS²+BS+C→V
ClrHome
Disp "VERTEX: (X,Y)",S,V
Disp "ROOTS:",(B+√(B²-4AC))/(2A),(B-√(B²-4AC))/2A
Pause
Goto A
Lbl 3
ClrHome
Disp "STANDARD FORM:","AX²+BX+C","VERTEX FORM:","A(X-H)²+K","FACTOREDBINOML:","(M+N)(O+P)","SYMMETRY EQTION:
Output(8,1,"B2A
Pause
Goto A
Lbl 4
ClrHome
Input "√( ):",W
√(W→W
Disp W
Pause W
Goto A
Lbl 10
Real
ClrHome
DelVar ADelVar BDelVar CDelVar SDelVar VDelVar WReturn
```