\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=CONIC
\FILE=CONIC.82P
Func
FnOff 
Radian
10\->\S
ClrHome
"\(-)\K+\sqrt\((1/B)(R-A(X+H)^2))"\->\\Y3\
"\(-)\K-(\sqrt\((1/B)(R-A(X+H)^2)))"\->\\Y4\
Disp "AX\^2\+BY\^2\+CX+DY+E"
Disp "= 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)\->\Q
abs (R/B)\->\T
If (A*B)\<=\0
Then
"(\sqrt\(T/Q))(X+H)-K"\->\\Y1\
"(\(-)\\sqrt\(T/Q))(X+H)-K"\->\\Y2\
End
Lbl 1
\(-)\S\->\Xmin
S\->\Xmax
\(-)\S\->\Ymin
S\->\Ymax
ZSquare
If ((A\<>\B) and ((A*B)>0))
Then
Line(\(-)\H-\sqrt\Q,\(-)\K,\(-)\H+\sqrt\Q,\(-)\K)
Line(\(-)\H,\(-)\K-\sqrt\T,\(-)\H,\(-)\K+\sqrt\T)
End
If ((A*B)\<=\0)
Then
Line(\(-)\H-\sqrt\Q,\(-)\K+\sqrt\T,\(-)\H+\sqrt\Q,\(-)\K+\sqrt\T)
Line(\(-)\H+\sqrt\Q,\(-)\K+\sqrt\T,\(-)\H+\sqrt\Q,\(-)\K-\sqrt\T)
Line(\(-)\H+\sqrt\Q,\(-)\K-\sqrt\T,\(-)\H-\sqrt\Q,\(-)\K-\sqrt\T)
Line(\(-)\H-\sqrt\Q,\(-)\K-\sqrt\T,\(-)\H-\sqrt\Q,\(-)\K+\sqrt\T)
End
Pause 
ClrHome
Disp "(1) ZOOM IN"
Disp "(2) ZOOM OUT"
Disp "(3) NUMERICAL"
Disp "    RESULTS"
Disp ""
Input "ENTER 1,2,3 ",W
If W=3
Goto 9
If W=1
Then
S/2\->\S
Else
S*2\->\S
End
Goto 1
Lbl 9
If A=B
Then
ClrHome
Disp "( CIRCLE )"
Disp "CENTER ="
Disp "X=",\(-)\H\>Frac\
Disp "Y=",\(-)\K\>Frac\
Disp "RADIUS =",\sqrt\Q\>Frac\
Disp "HIT ENTER "
Pause 
ClrHome
Goto 2
End
If ((A\<>\B) and ((A*B)>0))
Then
ClrHome
Disp "( ELLIPSE )"
Disp "CENTER ="
Disp "X=",\(-)\H\>Frac\
Disp "Y=",\(-)\K\>Frac\
Disp "HIT ENTER "
Pause 
ClrHome
If Q>T
Then
Disp "LENGTH MAJOR"
Disp "AXIS ="
Disp 2\sqrt\Q\>Frac\
Disp "LENGTH MINOR"
Disp "AXIS ="
Disp 2\sqrt\T\>Frac\
Else
Disp "LENGTH MAJOR"
Disp "AXIS ="
Disp 2\sqrt\T\>Frac\
Disp "LENGTH MINOR"
Disp "AXIS ="
Disp 2\sqrt\Q\>Frac\
End
Disp "HIT ENTER "
Pause 
ClrHome
Goto 2
End
If ((A*B)\<=\0)
Then
ClrHome
Disp "( HYPERBOLA )"
Disp "CENTER ="
Disp "X=",\(-)\H\>Frac\
Disp "Y=",\(-)\K\>Frac\
Disp "HIT ENTER "
Pause 
ClrHome
Disp "SLOPES OF"
Disp "ASYMPTOTES ="
Disp "(+/-) ",(\sqrt\(T/Q))\>Frac\
Disp ""
Disp "HIT ENTER "
Pause 
ClrHome
End
Lbl 2
\STOP82\