\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=CONIC
\FILE=CONIC.85P
Func
FnOff 
Radian
10\->\SCALE
ClLCD
"\(-)\K+\sqrt\((1/B)(R-A(x+H)^2))"\->\E1
"\(-)\K-(\sqrt\((1/B)(R-A(x+H)^2)))"\->\E2
Disp "Ax\^2\+By\^2\+Cx+Dy+E=0"
Prompt A
Prompt B
Prompt C
Prompt D
Prompt E
C/(2A)\->\H
D/(2B)\->\K
(\(-)\(E)+C\^2\/(4A)+D\^2\/(4B))\->\R
abs (R/A)\->\AX
abs (R/B)\->\BX
\St>Eq\(E1,y3)
\St>Eq\(E2,y4)
If sign (A)\<>\sign (B)
Then
"(\sqrt\(BX/AX))(x+H)-K"\->\H1
"(\(-)\\sqrt\(BX/AX))(x+H)-K"\->\H2
\St>Eq\(H1,y1)
\St>Eq\(H2,y2)
End

Lbl AA
\(-)\SCALE\->\xMin
SCALE\->\xMax
\(-)\SCALE\->\yMin
SCALE\->\yMax
ZSqr

If (A\<>\B) and (sign (A)==sign (B))
Then
Line(\(-)\H-\sqrt\AX,\(-)\K,\(-)\H+\sqrt\AX,\(-)\K)
Line(\(-)\H,\(-)\K-\sqrt\BX,\(-)\H,\(-)\K+\sqrt\BX)
End
If sign (A)\<>\sign (B)
Then
Line(\(-)\H-\sqrt\(AX),\(-)\K+\sqrt\(BX),\(-)\H+\sqrt\(AX),\(-)\K+\sqrt\\#\
(BX))
Line(\(-)\H+\sqrt\AX,\(-)\K+\sqrt\BX,\(-)\H+\sqrt\AX,\(-)\K-\sqrt\BX)
Line(\(-)\H+\sqrt\AX,\(-)\K-\sqrt\BX,\(-)\H-\sqrt\AX,\(-)\K-\sqrt\BX)
Line(\(-)\H-\sqrt\AX,\(-)\K-\sqrt\BX,\(-)\H-\sqrt\AX,\(-)\K+\sqrt\BX)
End
Pause 
ClLCD
Disp "(1) ZOOM IN"
Disp "(2) ZOOM OUT"
Disp "(3) NUMERICAL"
Disp "    RESULTS"
Disp " "
Input "ENTER 1,2,3  ",CC
If CC==3
Goto BB
If CC==1
Then
SCALE/2\->\SCALE
Else
SCALE*2\->\SCALE
End
Goto AA
Lbl BB
If A==B
Then
ClLCD
Disp "(CIRCLE) CENTER ="
Disp "H=",\(-)\H\>Frac\
Disp "K=",\(-)\K\>Frac\
Disp "RADIUS = ",\sqrt\AX\>Frac\
Pause 
ClLCD
Goto ZZ
End
If (A\<>\B) and (sign (A)==sign (B))
Then
ClLCD
Disp "(ELLIPSE) CENTER ="
Disp "X= ",\(-)\H\>Frac\
Disp "Y= ",\(-)\K\>Frac\
Disp " "
Disp "HIT ENTER TO CONTINUE"
Pause 
ClLCD
If AX>BX
Then
Disp "LENGTH MAJ AXIS ="
Disp 2\sqrt\AX\>Frac\
Disp "LENGTH MIN AXIS ="
Disp 2\sqrt\BX\>Frac\
Else
Disp "LENGTH MAJ AXIS ="
Disp 2\sqrt\BX\>Frac\
Disp "LENGTH MIN AXIS ="
Disp 2\sqrt\AX\>Frac\
End
Disp " "
Disp "HIT ENTER TO CONTINUE"
Pause 
ClLCD
Goto ZZ
End
If sign (A)\<>\sign (B)
Then
ClLCD
Disp "(HYPERBOLA) CENTER ="
Disp "X=",\(-)\H\>Frac\
Disp "Y=",\(-)\K\>Frac\
Disp "HIT ENTER TO CONTINUE"
Pause 
ClLCD
Disp "SLOPES OF"
Disp "ASSYMPTOTES = +/-"
Disp (\sqrt\(BX/AX))\>Frac\
Disp " "
Disp "HIT ENTER TO CONTINUE"
Pause 
ClLCD
End
Lbl ZZ
\STOP\