Program Complete The Square

ClrHome
Lbl A
Disp "X^2+Y^2+DX+EY+F=0"
Disp "ENTER D"
Input D
Disp "ENTER E"
Input E
Disp "ENTER F"
Input F
(-F)-->F
((D/2)^2)-->G
((E/2)^2)-->H
(F+G+H)-->F
(D^2-4G)-->Q
If Q<0
Then
Disp "DAT AINT NO"
Disp "CIRCLE"
Stop
End
(-((-D+(sqrtQ))/2))-->U
(E^2-4H)-->Q
If Q<0
Then
Disp "DAT AINT NO"
Disp "CIRCLE"
Stop
End
(-((-E+(sqrtQ)/2))-->V
ClrHome
round(U,3)
If U>=0
Disp "(X+"
If U<0
Disp "(X-"
(abs U)-->U
Output(1,4,U)
Output(1,8,")^2+")
If V>=0
Output(2,1,"(Y+")
If V<0
Output(2,1,"(Y-")
(abs V)-->V
Output(2,4,V)
Output(2,8,")^2=")
round(F,2)
Output(2,12,F)
Stop