%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:225
File Name:IMPGRAPH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"IMPLICIT GRAPH OF    \f6(X,Y)=0"
"STORE \f6(X,Y) FIRST"
(\Ymax-\Ymin)/62\->C
(\Xmax-\Xmin)/126\->D
\For 0\->J \To 31
\Ymin+2JC\->Y
\For 0\->K \To 15
\Xmin+(8K+3)D\->X
0\->I
\Do
X\->P
M\->Q
\d/dx(\f6,X)\->R
R=0\=>\Break
X-\f6/R\->X
\Isz I
\Abs (X-P)\->M
\If M<.1D
\Then \Plot X,Y
\Break
\IfEnd
I\>=3\ And M\>=Q\=>\Break
\LpWhile I>0
\Next 
\Next 
\Green \Graph Y=0
%End