\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=GNCON
\FILE=GNCON.85P
Func:FnOff 
Radian
10\->\SCALE
ClLCD
"\(-)\(B x+E)/(2C)+\sqrt\((1/C)(\(-)\A x\^2\-D x-F+(B x+E)\^2\/(4C)))"\->\\#\
E1
"\(-)\(B x+E)/(2C)-\sqrt\((1/C)(\(-)\A x\^2\-D x-F+(B x+E)\^2\/(4C)))"\->\\#\
E2
Disp "Ax\^2\+Bxy+Cy\^2\+Dx+Ey+F=0"
Prompt A
Prompt B
Prompt C
Prompt D
Prompt E
Prompt F
\St>Eq\(E1,y1)
\St>Eq\(E2,y2)
Lbl AA
\(-)\SCALE\->\xMin
SCALE\->\xMax
\(-)\SCALE\->\yMin
SCALE\->\yMax
ZSqr
Pause 
ClLCD
Disp "(1) ZOOM IN"
Disp "(2) ZOOM OUT"
Disp "(3) QUIT"
Input "ENTER 1,2,3  ",R
If R==3
Goto BB
If R==1
Then
SCALE/2\->\SCALE
Else
SCALE*2\->\SCALE
End
Goto AA
Lbl BB
\STOP\