\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=CIRCUM
\FILE=CIRCUM.85P
Func:FnOff 
ClLCD
Radian
Disp "ENTER FUNCTION"
InpST "Y=",Y
\St>Eq\(Y,y1)
Lbl AA
Disp "LOWER LIMIT OF X"
Prompt XL
Disp "UPPER LIMIT OF X"
Prompt XU
Disp "# INTERVALS"
Prompt N
0\->\SM
(XU-XL)/N\->\W
XL\->\xMin
XU\->\xMax
XL\->\X
ClLCD
Disp "SCALING GRAPH"
Disp "PLEASE WAIT"
ZFit
If yMin>0
0\->\yMin
If yMax<0
0\->\yMax
DispG
For(I,1,N)

If evalF(y1,x,X)\>=\0
Then
fMax(y1,x,X,X+W)\->\XMN
Else
fMin(y1,x,X,X+W)\->\XMN
End
evalF(y1,x,XMN)\->\YMN
SM+YMN*W\->\SM
Line(X,0,X,YMN)
Line(X,YMN,X+W,YMN)
Line(X+W,YMN,X+W,0)
X+W\->\X
End
Pause 
ClLCD
Disp "INTEGRAL ="
Disp SM
Disp "RUN AGAIN ?"
Disp "YES  1"
Disp "NO   2"
Input R
If R==1
Goto AA
\STOP\