\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=SURA
\FILE=SURA.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

(XU-XL)/N\->\W
XL\->\xMin
XU\->\xMax
XL\->\X
ClLCD
Disp "SCALING GRAPH"
Disp "PLEASE WAIT"
ZFit
If abs (yMin)>abs (yMax)
Then
abs (yMin)\->\yMax
Else
\(-)\(yMax)\->\yMin
End
DispG
0\->\SA
For(I,1,N)
evalF(y1,x,X)\->\Y1
evalF(y1,x,X+W)\->\Y2
SA+(2\pi\((Y1+Y2)/2)\sqrt\(W\^2\+(Y2-Y1)^2)\->\SA
Line(X,\(-)\Y1,X,Y1)
Line(X,Y1,X+W,Y2)
Line(X+W,Y2,X+W,\(-)\Y2)
Line(X+W,\(-)\Y2,X,\(-)\Y1)
X+W\->\X
End
Pause 
ClLCD
Disp "SURFACE AREA ="
Disp SA
Disp " "
Disp "RUN AGAIN ?"
Disp "YES  = 1"
Disp "NO   = 2"
Input R
If R==1
Goto AA
\STOP\