\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=REV2
\FILE=REV2.82P
ClrHome
Disp "FIRST ENTER \Y1\"
Disp "AND \Y2\"
Disp ""
Disp "THEN HIT ENTER"
Pause 
ClrHome

Func
Lbl 1
ClrDraw
ClrHome
Disp "LOWER LIMIT"
Disp "OF X"
Prompt L
Disp "UPPER LIMIT"
Disp "OF X"
Prompt U
Disp "HOW MANY"
Disp "INTERVALS ?"
Prompt N
0\->\S
(U-L)/N\->\W

L\->\Xmin
U\->\Xmax
L+(W/2)\->\T
ClrHome
Disp "SCALING GRAPH"
Disp "PLEASE WAIT"
fMin(\Y1\,X,L,U)\->\A
fMax(\Y1\,X,L,U)\->\B
fMin(\Y2\,X,L,U)\->\C
fMax(\Y2\,X,L,U)\->\D
\Y1\(A)\->\E
\Y1\(B)\->\F
\Y2\(C)\->\G
\Y2\(D)\->\H
If abs (F)\>=\abs (H)
Then
F\->\Ymax
Else
H\->\Ymax
End
If abs (E)\<=\abs (G)
Then
E\->\Ymin
Else
G\->\Ymin
End

If abs (Ymin)>abs (Ymax)
Then
abs (Ymin)\->\Ymax
Else
\(-)\(Ymax)\->\Ymin
End
DispGraph
For(I,1,N)
\Y1\(T)\->\P
\Y2\(T)\->\Q
S+\pi\*abs (P\^2\-Q\^2\)*W\->\S
Line(T-W/2,Q,T-W/2,P)
Line(T-W/2,P,T+W/2,P)
Line(T+W/2,P,T+W/2,Q)
Line(T+W/2,Q,T-W/2,Q)
Line(T-W/2,\(-)\Q,T-W/2,\(-)\P)
Line(T-W/2,\(-)\P,T+W/2,\(-)\P)
Line(T+W/2,\(-)\P,T+W/2,\(-)\Q)
Line(T+W/2,\(-)\Q,T-W/2,\(-)\Q)

T+W\->\T
End
Pause 
ClrHome
Disp "VOL OF REV ="
Disp S
Disp ""
Disp "RUN AGAIN ?"
Disp "(1) YES"
Disp "(2) NO"
Input R
If R=1
Goto 1
ClrHome
\STOP82\